开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1212|回复: 0
收起左侧

[易语言] ADSL问题谁能帮帮忙,做了一个网站zc验证的软件,单个可以实现了,自动实现不了

[复制链接]
结帖率:38% (3/8)
发表于 2018-6-27 09:37:43 | 显示全部楼层 |阅读模式   河北省邢台市
5精币
大神们帮帮忙啊  单个可以实现,感觉就是换ip这换不了,注册一个之后就显示,请休息一会,看看哪错了,求高手帮帮忙,源码发出来了
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
线程句柄整数型  
token文本型  
id文本型  
手机号码文本型  
a整数型  
ADSLADSL拨号类  
Adslname文本型宽带连接名称
Adsluser文本型宽带账号
Adslpwd文本型宽带密码

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
ADSL.取宽带用户名密码 (Adslname, Adsluser, Adslpwd)
编辑框_连接名称.内容 = Adslname
编辑框_宽带用户名.内容 = Adsluser
编辑框_宽带密码.内容 = Adslpwd
编辑框3.内容 = 到文本 (读入文件 (取运行目录 ()“\便民网注册成功.txt”))
token = 洋葱_登录 (“api-393252”, “dachongzi123”)
id = “1792”
调试输出 (token)
子程序名返回值类型公开备 注
注册  
变量名类 型静态数组备 注
用户名文本型 
密码文本型 
邮箱地址文本型 
提交地址注册文本型 
数据包注册文本型 
动态包注册文本型 
url注册文本型 
返回文本注册文本型 
图片字节集 
图片1字节集 
图片验证码文本型 
返回文本文本型 
返回文本2文本型 
dota文本型 
dota2文本型 
动态包文本型 
动态包2文本型 
url文本型 
url2文本型 
手机验证码文本型 
p整数型 
n整数型 
黑名单文本型 
判断循环首 (p ≠ -1)
手机号码 = 洋葱_获取手机号 (id, 手机号码, token, , , , )
调试输出 (手机号码)
如果真 (手机号码 ≠ “”)
跳出循环 ()

延时 (2000)
判断循环尾 ()
用户名 = 手机号码
密码 = 文本_取随机字母 (2)文本_取随机数字 (6)
调试输出 (密码)
邮箱地址 = 编辑框4.内容
提交地址注册 = “http://user.bqqm.com/reg/”
url注册 = 到文本 (网页_访问 (“http://user.bqqm.com/reg/”, 1))
动态包注册 = 文本_取出中间文本 (url注册, #注册左边, #注册右边, , )
数据包注册 = “__VIEWSTATE=%2FwEPDwUKLTc4MzExNTY5M2QYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFCUNoZWNrQm94MQU%2BOex4VZNVE0idyuq03zM60EiXOfI1Jgkpk70rtf2%2B&__VIEWSTATEGENERATOR=” + 动态包注册 + “&__EVENTVALIDATION=%2FwEdAAgDIqd8F1GgBONFFnhck3%2B%2F6UVTcmYNpaGGG7tuzJpvSgF4%2FBWtcxD6kDJaB%2BvAR5AqrSMIOluX2ebKEaJpDfNDHYUBDrNG%2FRpmqtH8Q5tJrFU3ZDvo5BZQb8Bml%2FXdRJuhEKvuPXQE3IwHHll3A7iHzfg78Z8BXhXifTCAVkevd9TIVVjunz9mD9CcXf1hFGLfAgX%2FzC1qevThcTSZOqCY&username_txb=” + 用户名 + “&password_txb=” + 密码 + “&querenpassword_txb=” + 密码 + “&shouji_txb=” + 手机号码 + “&email_txb=” + 邮箱地址 + “&CheckBox1=on&Button1=%E7%AB%8B%E5%8D%B3%E6%B3%A8%E5%86%8C”
返回文本注册 = 编码_utf8到gb2312 (到文本 (网页_访问 (提交地址注册, 1, 数据包注册, )))
调试输出 (返回文本注册)
判断 (文本_取出现次数 (返回文本注册, “注册成功_便民网”) ≥ 1)
' 编辑框3.加入文本 (手机号码, “--------”, 密码, #换行符)
返回 ()

图片框1.图片 = 网页_访问 (“http://user.bqqm.com/nqValidCode.aspx”)
图片_转换 (图片框1.图片, 1, , 图片1, )
编辑框1.内容 = 到文本 (网页_访问_对象 (“http://47.104.141.84:7775/api”, 1, , , , , , , , 图片1))
图片验证码 = 编辑框1.内容
url = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://user.bqqm.com/renzheng/sjrz.aspx”)))
动态包 = 文本_取出中间文本 (url, #常量1左边, #常量2右边, , )
dota = “__VIEWSTATE=%2FwEPDwUJMjI2Nzk5MTg3D2QWBAIDD2QWAmYPZBYCZg8WAh4JaW5uZXJodG1sBYwHPGRpdiBpZD0ibWVtbGVmdCI%2BCjxkaXYgaWQ9Im1lbW5hdiI%2BIAo8ZGl2IGNsYXNzPSJtZW1uYXZ0aXQiPjxhIGNsYXNzPSdmdyBmb250MTMnIGhyZWY9J2h0dHA6Ly91c2VyLmJxcW0uY29tL0RlZmF1bHQuYXNweCc%2B5Liq5Lq6566h55CG5Lit5b%2BDPC9hPjwvZGl2PiAKPHVsPgo8bGk%2BPGEgaHJlZj0iL3h4Z2wveHhsaXN0LmFzcHggIj7miJHlj5HluIPnmoTkv6Hmga88L2E%2BIDwvbGk%2BIAo8bGkgY2xhc3M9J2Z3IGZvbnQxMyc%2BPGEgaHJlZj0iL3JlbnpoZW5nL3R4cnouYXNweCI%2B6K6k6K%2BB5Lit5b%2BDPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvY2hvbmd6aGkvemhpZnUuYXNweCI%2B5YWF5YC85Lit5b%2BDPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvbXltb25leS9kZWZhdWx0LmFzcHgiPuaIkeeahOi0ouWvjDwvYT48L2xpPgo8bGk%2BPGEgaHJlZj0iL3hnbW0veGdtbS5hc3B4Ij7kv67mlLnlr4bnoIE8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Ii9nZXJlbnppbGlhby9iYXNpY1VzZXIuYXNweCI%2B5Liq5Lq66LWE5paZPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvZHVhbnhpbi9keF9saXN0LmFzcHg%2FeWQ9MCI%2B5raI5oGv566h55CGPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvQ29ycmVjdGlvbi9qdWJhby5hc3B4Ij7mhI%2Fop4Hlj43ppog8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Imh0dHA6Ly91c2Vycy5icXFtLmNvbS9WSVAvQXBwbHlzLmFzcHgiPuWFjei0ueeUs%2Bivt%2BS%2Bv%2BawkemAmjwvYT48L2xpPgo8bGk%2BPGEgaHJlZj0iaHR0cDovL3VzZXIuYnFxbS5jb20vYWJvdXQvaGVscC5hc3B4Ij7luK7liqnkuK3lv4M8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Ii9Mb2dvdXQuYXNweCJzdHlsZT0ibWFyZ2luLWxlZnQ6MTBweCI%2BPHN0cm9uZz7pgIDlh7o8L3N0cm9uZz48L2E%2BPC9saT4KPC91bD4KPC9kaXY%2BCjwvZGl2PgpkAgUPZBYMAgEPFgIfAAW3AjxzcGFuPjxhIGhyZWY9Ii9yZW56aGVuZy90eHJ6LmFzcHgiID7lpLTlg4%2ForqTor4E8L2E%2BPC9zcGFuPjxzcGFuIGNsYXNzPSdzZWxlY3QnPjxhIGhyZWY9Ii9yZW56aGVuZy9zanJ6LmFzcHgiPuaJi%2BacuuiupOivgTwvYT48L3NwYW4%2BPHNwYW4%2BPGEgaHJlZj0iL3JlbnpoZW5nL3lqcnouYXNweCI%2B6YKu5Lu26K6k6K%2BBPC9hPjwvc3Bhbj48c3Bhbj48YSBocmVmPSIvcmVuemhlbmcvc2Zyei5hc3B4Ij7ouqvku73orqTor4E8L2E%2BPC9zcGFuPjxzcGFuPjxhIGhyZWY9Ii9yZW56aGVuZy9nc3J6LmFzcHgiPuWFrOWPuOiupOivgTwvYT48L3NwYW4%2BZAIDDw8WAh4EVGV4dAV0PGRpdiBjbGFzcz0iY3VycmVudHN0ZXB3b3JkIj48YSBocmVmPSJqYXZhc2NyaXB0OnZvaWQoMCk7Ij4x77yM5aGr5YaZ5omL5py6PC9hPjwvZGl2PjxkaXYgY2xhc3M9ImN1cnJlbnRzdGVwIj48L2Rpdj5kZAIFDw8WAh8BBWk8ZGl2IGNsYXNzPSJzdGVwd29yZCI%2BPGEgaHJlZj0iamF2YXNjcmlwdDp2b2lkKDApOyI%2BMu%2B8jOaOpeaUtumqjOivgeeggTwvYT48L2Rpdj48ZGl2IGNsYXNzPSJzdGVwIj48L2Rpdj5kZAIHDw8WAh8BBWY8ZGl2IGNsYXNzPSJzdGVwd29yZCI%2BPGEgaHJlZj0iamF2YXNjcmlwdDp2b2lkKDApOyI%2BM%2B%2B8jOiupOivgemAmui%2FhzwvYT48L2Rpdj48ZGl2IGNsYXNzPSJzdGVwIj48L2Rpdj5kZAIPDw8WAh4HVmlzaWJsZWdkZAIZDw8WAh8BBcsEPHA%2BIOKRoOWhq%2BWGmeaCqOeahOaJi%2BacuuWPt%2B%2B8jOmqjOivgeaJi%2BacuuaYr%2BWQpuiiq%2BWIq%2BS6uuS9v%2BeUqOOAgjwvcD4gPHA%2BIOKRoeeCueWHu%2BehruWumuaMiemSru%2B8jOezu%2Be7n%2BiHquWKqOWPkemAgemqjOivgeeggee7meaCqOeahOaJi%2BacuuOAguWmguaenOaCqOeahOaJi%2BacuuayoeacieaOpeaUtuWIsOWPr%2BS7peWcqDYw56eS5LmL5ZCO5Zyo6YeN5Y%2BR5LiA5p2h44CCPC9wPjxwPiDikaLloavlhpnmiYvmnLrnmoTmjqXmlLbliLDnmoTpqozor4HnoIHvvIznoa7lrprmjInpkq7jgILpqozor4HnoIHmraPnoa7vvIzpqozor4HpgJrov4fjgILpqozor4HnoIHplJnor6%2FvvIzph43mlrDnoa7lrprmiYvmnLrlj7fvvIzph43lj5Hpqozor4HnoIHjgII8L3A%2BPHA%2BIOKRo%2BiupOivgemAmui%2Fh%2BiOt%2BW%2BlzxpbWcgc3JjPScvaW1hZ2VzL3J6X3NqLnBuZycgPuagh%2BW%2Fl%2BOAguiOt%2BW%2BlzxhIGhyZWY9Jy94eGdsL0pGX2xpc3QuYXNweCc%2BMjAwPC9hPuenr%2BWIhuOAgjwvcD48cD7ikaTmnKrmlLbliLDpqozor4HnoIHmiJbpqozor4HkuI3miJDlip%2For7fogZTns7vlnKjnur%2FlrqLmnI3miJbnlLXor53vvJoxODkxOTYxNzMyMTwvcD5kZGR4rxartojmFgQptDYmAJiJdQxm9x386DhmU0tuF%2FdiTQ%3D%3D&__VIEWSTATEGENERATOR=” + 动态包 + “&__EVENTVALIDATION=%2FwEdAAfMIe%2BwrJqxZ1Z%2FBOw8d8UCxQMzi6MD5MuZVKWT3pwuRUd330DqqA%2FcUDX4as0TSUmTI7ygrlMB06tE5HHoeZQA3ARcvTrB%2FUtpuUCXIV2wdGexINXcFebeKP0QT1bnGRCnbE5N8sfORX3Ar9JGOVziS42aRE4zb3EDk%2BcrFUTJbyabTOPkSDZcoEAOAeQffyU%3D&hf_modsj=&hf_sytime=&hf_yzm_time=&txt_sj=” + 手机号码 + “&chkcode=” + 图片验证码 + “&btn_qd=%E7%A1%AE%E5%AE%9A%E5%8F%91%E9%80%81”
返回文本 = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://user.bqqm.com/renzheng/sjrz.aspx”, 1, dota, , )))
调试输出 (返回文本)
计次循环首 (30, n)
手机验证码 = 洋葱_获取验证码 (id, token, 手机号码, “fan”)
如果真 (n = 30)
黑名单 = 洋葱_加入黑名单 (id, 手机号码, token)
编辑框5.加入文本 (黑名单, 手机号码, “=======”, #换行符 )

调试输出 (手机验证码)
如果真 (文本_取出现次数 (手机验证码, “还没有接收到短信”) < 1)
跳出循环 ()

延时 (2000)
计次循环尾 ()
手机验证码 = 文本_取出中间文本 (手机验证码, #常量短信左, #常量短信右, , )
调试输出 (手机验证码)
图片框1.图片 = 网页_访问 (“http://user.bqqm.com/nqValidCode.aspx”)
图片_转换 (图片框1.图片, 1, , 图片1, )
编辑框2.内容 = 到文本 (网页_访问_对象 (“http://47.104.141.84:7775/api”, 1, , , , , , , , 图片1))
图片验证码 = 编辑框2.内容
url2 = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://user.bqqm.com/renzheng/sjrz.aspx”)))
动态包2 = 文本_取出中间文本 (url2, #常量3左边, #常量4右边, , )
dota2 = “__VIEWSTATE=%2FwEPDwUJMjI2Nzk5MTg3D2QWBAIDD2QWAmYPZBYCZg8WAh4JaW5uZXJodG1sBYwHPGRpdiBpZD0ibWVtbGVmdCI%2BCjxkaXYgaWQ9Im1lbW5hdiI%2BIAo8ZGl2IGNsYXNzPSJtZW1uYXZ0aXQiPjxhIGNsYXNzPSdmdyBmb250MTMnIGhyZWY9J2h0dHA6Ly91c2VyLmJxcW0uY29tL0RlZmF1bHQuYXNweCc%2B5Liq5Lq6566h55CG5Lit5b%2BDPC9hPjwvZGl2PiAKPHVsPgo8bGk%2BPGEgaHJlZj0iL3h4Z2wveHhsaXN0LmFzcHggIj7miJHlj5HluIPnmoTkv6Hmga88L2E%2BIDwvbGk%2BIAo8bGkgY2xhc3M9J2Z3IGZvbnQxMyc%2BPGEgaHJlZj0iL3JlbnpoZW5nL3R4cnouYXNweCI%2B6K6k6K%2BB5Lit5b%2BDPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvY2hvbmd6aGkvemhpZnUuYXNweCI%2B5YWF5YC85Lit5b%2BDPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvbXltb25leS9kZWZhdWx0LmFzcHgiPuaIkeeahOi0ouWvjDwvYT48L2xpPgo8bGk%2BPGEgaHJlZj0iL3hnbW0veGdtbS5hc3B4Ij7kv67mlLnlr4bnoIE8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Ii9nZXJlbnppbGlhby9iYXNpY1VzZXIuYXNweCI%2B5Liq5Lq66LWE5paZPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvZHVhbnhpbi9keF9saXN0LmFzcHg%2FeWQ9MCI%2B5raI5oGv566h55CGPC9hPjwvbGk%2BCjxsaT48YSBocmVmPSIvQ29ycmVjdGlvbi9qdWJhby5hc3B4Ij7mhI%2Fop4Hlj43ppog8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Imh0dHA6Ly91c2Vycy5icXFtLmNvbS9WSVAvQXBwbHlzLmFzcHgiPuWFjei0ueeUs%2Bivt%2BS%2Bv%2BawkemAmjwvYT48L2xpPgo8bGk%2BPGEgaHJlZj0iaHR0cDovL3VzZXIuYnFxbS5jb20vYWJvdXQvaGVscC5hc3B4Ij7luK7liqnkuK3lv4M8L2E%2BPC9saT4KPGxpPjxhIGhyZWY9Ii9Mb2dvdXQuYXNweCJzdHlsZT0ibWFyZ2luLWxlZnQ6MTBweCI%2BPHN0cm9uZz7pgIDlh7o8L3N0cm9uZz48L2E%2BPC9saT4KPC91bD4KPC9kaXY%2BCjwvZGl2PgpkAgUPZBYOAgEPFgIfAAW3AjxzcGFuPjxhIGhyZWY9Ii9yZW56aGVuZy90eHJ6LmFzcHgiID7lpLTlg4%2ForqTor4E8L2E%2BPC9zcGFuPjxzcGFuIGNsYXNzPSdzZWxlY3QnPjxhIGhyZWY9Ii9yZW56aGVuZy9zanJ6LmFzcHgiPuaJi%2BacuuiupOivgTwvYT48L3NwYW4%2BPHNwYW4%2BPGEgaHJlZj0iL3JlbnpoZW5nL3lqcnouYXNweCI%2B6YKu5Lu26K6k6K%2BBPC9hPjwvc3Bhbj48c3Bhbj48YSBocmVmPSIvcmVuemhlbmcvc2Zyei5hc3B4Ij7ouqvku73orqTor4E8L2E%2BPC9zcGFuPjxzcGFuPjxhIGhyZWY9Ii9yZW56aGVuZy9nc3J6LmFzcHgiPuWFrOWPuOiupOivgTwvYT48L3NwYW4%2BZAIDDw8WAh4EVGV4dAVmPGRpdiBjbGFzcz0ic3RlcHdvcmQiPjxhIGhyZWY9ImphdmFzY3JpcHQ6dm9pZCgwKTsiPjHvvIzloavlhpnmiYvmnLo8L2E%2BPC9kaXY%2BPGRpdiBjbGFzcz0ic3RlcCI%2BPC9kaXY%2BZGQCBQ8PFgIfAQV3PGRpdiBjbGFzcz0iY3VycmVudHN0ZXB3b3JkIj48YSBocmVmPSJqYXZhc2NyaXB0OnZvaWQoMCk7Ij4y77yM5o6l5pS26aqM6K%2BB56CBPC9hPjwvZGl2PjxkaXYgY2xhc3M9ImN1cnJlbnRzdGVwIj48L2Rpdj5kZAIHDw8WAh8BBWY8ZGl2IGNsYXNzPSJzdGVwd29yZCI%2BPGEgaHJlZj0iamF2YXNjcmlwdDp2b2lkKDApOyI%2BM%2B%2B8jOiupOivgemAmui%2FhzwvYT48L2Rpdj48ZGl2IGNsYXNzPSJzdGVwIj48L2Rpdj5kZAIPDw8WAh4HVmlzaWJsZWhkFggCAQ8PFgIfAQULMTc2OTI5OTc4OTZkZAIDDw8WAh8BBQQ3MWdqZGQCBQ8PFgIfAQWBATxkaXYgY2xhc3M9ImVycm9yIj48L2Rpdj48ZGl2IGNsYXNzPSdyem1zZyc%2BPGZvbnQgY29sb3I9cmVkPuaKseatiSzku4rml6Xpqozor4HmrKHmlbDlt7Lovr7kuIrpmZAs6K%2B35piO5pel57un57ut77yBPC9mb250PjwvZGl2PmRkAgcPDxYCHgdFbmFibGVkaGRkAhEPDxYCHwJnZBYEAgEPDxYCHwEFCzE3NjkyOTk3ODk2ZGQCAw8PFgQfAQUS6YeN5paw5Y%2BR6YCBICgxODApHwNoZGQCGQ8PFgIfAQXLBDxwPiDikaDloavlhpnmgqjnmoTmiYvmnLrlj7fvvIzpqozor4HmiYvmnLrmmK%2FlkKbooqvliKvkurrkvb%2FnlKjjgII8L3A%2BIDxwPiDikaHngrnlh7vnoa7lrprmjInpkq7vvIzns7vnu5%2Foh6rliqjlj5HpgIHpqozor4HnoIHnu5nmgqjnmoTmiYvmnLrjgILlpoLmnpzmgqjnmoTmiYvmnLrmsqHmnInmjqXmlLbliLDlj6%2Fku6XlnKg2MOenkuS5i%2BWQjuWcqOmHjeWPkeS4gOadoeOAgjwvcD48cD4g4pGi5aGr5YaZ5omL5py655qE5o6l5pS25Yiw55qE6aqM6K%2BB56CB77yM56Gu5a6a5oyJ6ZKu44CC6aqM6K%2BB56CB5q2j56Gu77yM6aqM6K%2BB6YCa6L%2BH44CC6aqM6K%2BB56CB6ZSZ6K%2Bv77yM6YeN5paw56Gu5a6a5omL5py65Y%2B377yM6YeN5Y%2BR6aqM6K%2BB56CB44CCPC9wPjxwPiDikaPorqTor4HpgJrov4fojrflvpc8aW1nIHNyYz0nL2ltYWdlcy9yel9zai5wbmcnID7moIflv5fjgILojrflvpc8YSBocmVmPScveHhnbC9KRl9saXN0LmFzcHgnPjIwMDwvYT7np6%2FliIbjgII8L3A%2BPHA%2B4pGk5pyq5pS25Yiw6aqM6K%2BB56CB5oiW6aqM6K%2BB5LiN5oiQ5Yqf6K%2B36IGU57O75Zyo57q%2F5a6i5pyN5oiW55S16K%2Bd77yaMTg5MTk2MTczMjE8L3A%2BZGRk0O%2B2EahrCQJViDcAh6BqVDnZyKb69icaQSz6KmVmi1Y%3D&__VIEWSTATEGENERATOR=” + 动态包2 + “&__EVENTVALIDATION=%2FwEdAAmFw83HYmGwbnJCBh3IHCLcxQMzi6MD5MuZVKWT3pwuRUd330DqqA%2FcUDX4as0TSUmTI7ygrlMB06tE5HHoeZQAeIzs0Js0ApAwKy%2Fxk0%2FGAkWq5pZzBffMsGrDEjD%2FCudRvMePuMX6lQrt%2FrTy171qXDxh5%2Fawq44A%2BWZ684C8qbUO3Hv3moNNbmxasJZpbjXqlkVauQe5ypHafhJriBShaylp6wg08SQQqze5WKJVxw%3D%3D&hf_modsj=&hf_sytime=0&hf_yzm_time=2018-06-07+15%3A09%3A04&txt_yzm=” + 手机验证码 + “&chkcode1=” + 图片验证码 + “&btn_yz=%E9%AA%8C%E8%AF%81”
返回文本2 = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://user.bqqm.com/renzheng/sjrz.aspx”, 1, dota2, , )))
调试输出 (返回文本2)
如果真 (文本_取出现次数 (返回文本2, “已认证”) ≥ 1)
编辑框3.加入文本 (手机号码, “======”, 密码, #换行符 )
写到文件 (取运行目录 ()“\便民网注册成功.txt”, 到字节集 (编辑框3.内容))
编辑框7.内容 = 到文本 (到整数 (编辑框7.内容) + 1)

子程序名返回值类型公开备 注
_按钮1_被单击  
启动线程 (&子程序1, , 线程句柄)
子程序名返回值类型公开备 注
子程序1  
变量名类 型静态数组备 注
p整数型 
按钮1.禁止 = 真
判断循环首 (p ≠ -1)
如果真 (到整数 (编辑框6.内容)到整数 (编辑框7.内容))
跳出循环 ()

注册 ()
ADSL拨号 ()
删除临时文件 (0)
删除临时文件 (1)
删除临时文件 (3)
程序_延时 (2000)
延时 (3000)
判断循环尾 ()
子程序名返回值类型公开备 注
ADSL拨号  
变量名类 型静态数组备 注
取ip文本型 
text文本型 
n整数型 
r逻辑型 
行数整数型 
内容文本型 
ip1文本型 
a9整数型 
p整数型 
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP
a9 = 0
p = 0
判断循环首 (a9 = 0)
p = p + 1
ADSL.断开_cmd (删全部空 (编辑框_连接名称.内容))
延时 (2000)
ADSL.拨号_cmd (删全部空 (编辑框_连接名称.内容), 删全部空 (编辑框_宽带用户名.内容), 删全部空 (编辑框_宽带密码.内容))
延时 (5000)
如果真 (到文本 (网页_访问_对象 (“https://www.baidu.com”)) ≠ “”)
跳出循环 ()

处理事件 ()
判断循环尾 ()
' 加入日志 (“拨号完毕!IP地址[” + ip + “]”)
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP
按钮1.禁止 = 假
子程序名返回值类型公开备 注
_按钮2_被单击  
强制结束线程 (线程句柄)
按钮1.禁止 = 假


i支持库列表   支持库注释   
spec特殊功能支持库
EThread多线程支持库
eAPI应用接口支持库


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表