|
 
- UID
- 656
- 帖子
- 336
- 积分
- 217
- 紫菀
- 0 朵
- 花瓣
- 12 片
- 花蕊
- 34 朵
- 野草莓
- 19 个
- 蒲公英
- 1111 朵
- 社区等级
- 14 级
- 在线时间
- 36 小时
- 注册时间
- 2006-9-15
- 登录状态
-
当前离线
|
楼主
发表于 2008-8-27 09:40
| 只看该作者
过自由幻想验证脚本
刚才无聊时写的，过自由幻想验证的脚本，不知道与SZ老大写的一样否？
VBS dim yanzheng
yanzheng = 0
Rem 判断是否出现验证
Delay 2000
PutAttachment .\plugin *.dll
VBSCall Call FindPic(0,50,1023,767,"f:\出现.bmp",0.9,BX,BY)
If BX>=0 and BY>=0
Delay 60
Goto 判断验证码出现次数
EndIf
If BX=-1 and BY=-1
Delay 100
Goto 判断是否出现验证
EndIf
Rem 判断验证码出现次数
If yanzheng <= 2
Delay 100
Gosub 点击验证码
Delay 100
Goto 判断是否出现验证
ElseIf
Delay 100
Gosub 小退
EndIf
Sub 点击验证码
Delay 100
VBSCall Call SetCursorPos(BX-5,BY+30)
Delay 60
LeftClick 1
Delay 100
yanzheng = yanzheng+1
Delay 100
Return 点击验证码
___________________________________________________________________________
sub 小退的自己写哈，懒得写了，反正有SZ老大的小精灵了。
另外，不能正确点验证的可以尝试把
VBSCall Call FindPic(0,50,1023,767,"f:\出现.bmp",0.9,BX,BY)
改为
VBSCall Call FindPic(0,50,1023,767,"f:\出现.bmp",1,BX,BY)
————————————————————————————————————————————————
脚本中用到的 “出现.bmp” 这里给大家提供一下下。
上传的是 jpg 格式的，自己保存为 bmp 格式吖。
论坛不让直接上传 bmp 的。偶也是木办法咯。
————————————————————————————————————————————————
偶对这个脚本的通用性也不是很清楚，在偶的电脑上面是没有任何问题的。
大家有兴趣试一下的可以发帖告诉偶是不是通用啊。 |
|
发表于 2008-8-27 09:49
| 
如果这么简单我可就轻松了,,,,我的代码差不多上万,,主要是容错处理比较复杂!
发表于 2008-8-27 17:32
| 
强悍佩服 你用的是VB吧