逍遥按键精灵制作培训VIP视频教程619~620.zip

//MS = Len("VBS23") //返回3，MS = 3 //MessageBox MS //EndScript //V = 23 //Mk = IsNumeric(V) ' 返回 True。 //If Mk = True Then // MessageBox "1" //ElseIf Mk = False Then // MessageBox "2" //End If //EndScript //=============== //V = "102.5" //Mk = IsNumeric(V) //If Mk = True Then // MessageBox "1" //ElseIf Mk = False Then // MessageBox "2" //End If //EndScript //=============== //V = "m102.5" //Mk = IsNumeric(V) //If Mk = True Then // MessageBox "1" //ElseIf Mk = False Then // MessageBox "2" //End If //EndScript //=============== //自游远程代答 //插件见附件，也可自行去自游网站下载 //下载网页：http://www.177.cm/thread-19-1-1.html //买卡网站：http://zyyou.taobao.com/ //充值到论坛账号： //充值地址 http://www.177.cm/home.php?mod=spacecp&ac=cre //管理QQ:自由的风 15759933 //◆◆◆◆◆◆◆下面是正式代码◆◆◆◆◆◆◆◆◆◆◆◆◆ //...... Call 找验证码及答题 //...... EndScript Sub 找验证码及答题 dm_ret = dm.FindPicEx(3, 137,1012, 519,"验证码标志性图片1.bmp|验证码标志性图片2.bmp","101010",0.90,0) If len(dm_ret) > 0 Then//如果找到其中一个【如果只做1个图片，上面2个图片，填成相同的名字也可以】 ss = split(dm_ret,"|") index = 0 count = UBound(ss) + 1 Do While index < count sss = split(ss(index),",") id = int(sss(0)) x = int(sss(1)) y = int(sss(2)) If id = 0 Then //如果找到第一个图片 dm.MoveTo x + 115, y - 211 Delay 600 //后面改怎么操作自己填，抓图，发图都在后面的答题里面 Goto 代答代答1//适当的时候去代答 ElseIf id = 1 Then //如果找到第2个图片 dm.MoveTo x + 50, y +10 Delay 600 //后面改怎么操作自己填，抓图，发图都在后面的答题里面 Goto 代答代答1//适当的时候去代答 End If index = index+1 Loop Else Delay 200 End If Exit Sub//结束子程序调用，返回调用的地方去 //跑到这里就2个图片都没找到，结束子程序调用返回调用的地方去 Rem 代答代答1 FOR 2//如果答题超时，重新发送一次答题 A = 自游代答(0, 0)//调用答题过程 // ↓弹出结果 Rem DWWW23 If A = "答题超时" Then Delay 500 Else Answer=int(Answer) If Answer = 1 Then dm.MoveTo 30,319//答案是1，点第一个位置 ElseIf Answer = 2 Then dm.MoveTo 146,319 ElseIf Answer = 3 Then dm.MoveTo 30,349 ElseIf Answer = 4 Then dm.MoveTo 146,349 Else Delay 1000 Goto DWWW23 //一般不可能跳走。 End If Delay 500 dm.LeftClick Delay 1500 dm.MoveTo 199,380//确定 Delay 500 dm.LeftClick Delay 1000 Exit Sub //答题完毕，结束子程序 End If Next End Sub Function 自游代答(intX, intY) // intX, intY = 截图起点 // ↓发送验证码 dm_ret = dm.Capture(14, 233,271,367, "C:\测试.bmp") TID = "" If Len(TID) <> 10 or IsNumeric(TID) = False SendTime = Now // ↓发送文件 TID = Plugin.zy_dt.SendFile("qq99999999", "99999999", 1047, "C:\测试.bmp", 60, 0) //调用插件内部的SendFile函数 Delay 1500 End If // ↓获取答案 Answer = "#STA001" For 61 If Answer = "#STA001" Answer = Plugin.zy_dt.GetAnswer(TID) If DateDiff("s", SendTime, Now) > 66 Then //MsgBox "答题超时" Answer = "答题超时" Exit Function End If Delay 1000 Else 自游代答 = Answer Exit Function End If Next End Function