【A总分享精品源码】易语言免验证码全自动打卡

sad5456

易语言论坛免验证源码例程程序结合易语言WINHTTP对象实现免验证功能。

点评：易语言论坛免验证源码对于学习GET和POST有所帮助。

1. .版本 2
   
2. 
   
3. ' -----------全局设置-----------------
   
4. 论坛账号 ＝ “qwb”
   
5. 论坛密码 ＝ “591138620”
   
6. http.创建 (“WinHttp.WinHttpRequest.5.1”, )
   
7. ' -------------监测网络-----------------
   
8. .判断循环首 (GET (“http://www.baidu.com/”) ＝ {  })
   
9.     .计次循环首 (100, )
   
10.         延时 (100)
    
11.     .计次循环尾 ()
    
12. .判断循环尾 ()
    
13. ' --------------------------------------
    
14. .循环判断首 ()
    
15.     verify ＝ GET (“http://bbs.eyuyan.com/ck.php?nowtime=1”)
    
16.     code ＝ 到文本 (POST (“http://xyao.in/api/bbs.php”, “img=” ＋ bin2hex (verify)))
    
17.     .如果真 (code ＝ “接口已过期”)
    
18.         信息框 (“接口已过期，请进QQ群241811959获取新的接口”, 0, “易语言免验证码全自动打卡”)
    
19.         结束 ()
    
20.     .如果真结束
    
21.     html ＝ 到文本 (POST (“http://bbs.eyuyan.com/login.php?”, “forward=&jumpurl=http%3A%2F%2Fbbs.eyuyan.com%2Findex.php&step=2&pwuser=” ＋ 论坛账号 ＋ “&pwpwd=” ＋ 论坛密码 ＋ “&question=0&customquest=&answer=&gdcode=” ＋ code ＋ “&hideid=0&cktime=31536000&submit=”))
    
22.     .如果真 (寻找文本 (html, “用户名或密码错误”, , 假) ＞ 0)
    
23.         信息框 (“论坛账户信息错误，请重新确认!”, 0, “易语言免验证码全自动打卡”)
    
24.     .如果真结束
    
25. 
    
26. .循环判断尾 (寻找文本 (html, “验证码不正确或已过期”, , 假) ＞ 0)
    
27. .如果 (寻找文本 (html, “>您已经顺利登录</p>”, , 假) ＞ 0)
    
28.     html ＝ 到文本 (GET (“http://bbs.eyuyan.com/index.php”))
    
29.     code ＝ 截取文本 (html, “verifyhash = '”, “'”)
    
30.     html ＝ 到文本 (POST (“http://bbs.eyuyan.com/jobcenter.php?action=punch&verify=” ＋ code ＋ “&nowtime=1342332399987&verify=” ＋ code, “step=2”))
    
31.     .如果 (寻找文本 (html, “'铜币+5'”, , 假) ＞ 0)
    
32.         信息框 (“易语言打卡成功！”, 0, “易语言免验证码全自动打卡”)
    
33.     .否则
    
34.         信息框 (“打卡失败，可能是今天已经打过了~”, 0, “易语言免验证码全自动打卡”)
    
35.     .如果结束
    
36. 
    
37. .否则
    
38.     信息框 (“未知错误，登录失败！”, 0, “易语言免验证码全自动打卡”)
    
39. .如果结束
    
40. 返回 (0)  ' 可以根据您的需要返回任意数值
    
41. 
    
42. .子程序 GET, 字节集, 公开
    
43. .参数 url, 文本型
    
44. 
    
45. http.方法 (“Open”, “GET”, url, 真)
    
46. http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
    
47. http.方法 (“SetRequestHeader”, “Accept_Language”, “zh-CN”)
    
48. 
    
49. http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; SE 2.X MetaSr 1.0)”)
    
50. http.方法 (“Send”, )
    
51. http.方法 (“WaitForResponse”, 1000)
    
52. 返回 (http.读属性 (“ResponseBody”, ).取字节集 ())
    
53. 
    
54. .子程序 POST, 字节集, 公开
    
55. .参数 url, 文本型
    
56. .参数 data, 文本型
    
57. 
    
58. http.方法 (“Open”, “POST”, url, 真)
    
59. http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
    
60. http.方法 (“SetRequestHeader”, “Accept_Language”, “zh-CN”)
    
61. http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
    
62. http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; SE 2.X MetaSr 1.0)”)
    
63. http.方法 (“Send”, data)
    
64. http.方法 (“WaitForResponse”, 1000)
    
65. 返回 (http.读属性 (“ResponseBody”, ).取字节集 ())
    
66. 
    
67. .子程序 bin2hex, 文本型, 公开
    
68. .参数 content, 字节集
    
69. .局部变量 i, 整数型
    
70. .局部变量 s, 文本型
    
71. .局部变量 n, 文本型
    
72. 
    
73. .计次循环首 (取字节集长度 (content), i)
    
74.     n ＝ 取十六进制文本 (content [i])
    
75.     .如果真 (取文本长度 (n) ＝ 1)
    
76.         n ＝ “0” ＋ n
    
77.     .如果真结束
    
78.     s ＝ s ＋ n
    
79. .计次循环尾 ()
    
80. 返回 (到小写 (s))
    
81. 
    
82. .子程序 截取文本, 文本型, 公开
    
83. .参数 完整文本, 文本型
    
84. .参数 左边文本, 文本型
    
85. .参数 右边文本, 文本型, 可空
    
86. .参数 开始位置, 整数型, 可空
    
87. .参数 区分大小, 逻辑型, 可空
    
88. .参数 右边位置, 整数型, 参考 可空
    

复制代码

huangqilinux

来看看。。。

姓黄的网虫

学习下！！谢谢楼主的分享！！！

zhangtaos

支持  支持一下

ekni

谢谢分享啊~，学习一下 啊

caijingxin

支持  支持一下

vk9295

谢谢分享啊，好东东

vk9295

偶用后，偶尔易语言偶尔会挂机

xiaojing2589

好东西哇哈哈

steveplayer

新手来学习学习

brucelee0720

先赞一个吧！