河南移动呼朋唤领流量工具

河南移动呼朋唤领流量工具，河南移动之前的一个流量活动，复制分享的链接，填入手机号即可领流量

部分代码：

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 包id, 文本型

.子程序 _按钮3_被单击
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 领包信息, 文本型

url ＝ “https://h5.ha.chinamobile.com/hnmccClientWap/HPHYJanuary06/submit.do”
data ＝ 文本_取右边 (编辑框6.内容, “=”, , )
data ＝ “mobile=” ＋ 编辑框5.内容 ＋ “&red_id=” ＋ data
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, data, , , , ))
调试输出 (str)
领包信息 ＝ 文本_取出中间文本 (str, #信息, #引号)
编辑框3.内容 ＝ 删全部空 (编辑框3.内容)
编辑框3.内容 ＝ 领包信息

.子程序 _按钮4_被单击

编辑框5.内容 ＝ “”

.子程序 _按钮5_被单击

编辑框6.内容 ＝ “”
' 复制

.子程序 _按钮6_被单击

置剪辑板文本 (编辑框6.内容)
' 粘贴

.子程序 _按钮7_被单击

编辑框6.内容 ＝ 取剪辑板文本 ()


.子程序 __启动窗口_创建完毕

@gong56