《按键精灵自动喊话收发货源码》由会员分享，可在线阅读，更多相关《按键精灵自动喊话收发货源码（13页珍藏版）》请在金锄头文库上搜索。
1、按键精灵自动喊话收发货源码按键精灵自动喊话收发货源码UserVar k=DropList单开:1|双开:2|三开:3|四开:4|五开:5=0 设置内容Delay 100set fso=CreateObject(“D:10.txt“)Plugin time6=Sys.GetTime()Plugin time1=Sys.GetTime()UserVar number2=“2200“ 灾难价钱UserVar number3=“3200“ 灵魂价钱UserVar number6=“2000“ 王之石像UserVar number7=“4000“ 泰拉石UserVar number11=“50“ 无色小
2、晶体UserVar number14=“10000“ 诺顿达人 MP 药剂UserVar number15=“10000“ 诺顿达人 HP 药剂UserVar number17=“10000“ 大块肉干UserVar number18=“10000“ 波罗丁UserVar number19=“10000“ 红色小晶体UserVar number20=“10000“ 白色小晶体UserVar number21=“10000“ 混沌魔石碎片UserVar number22=“10“ 红色大晶体UserVar number29=“10000“ 突变草莓UserVar number23=“10000“
3、 突变苎麻花叶UserVar number24=“10000“ 杀错的眼晴UserVar number26=“10000“ 上级元素结晶UserVar number16=“10000“ 狂乱的恶魔挑战书UserVar number27=“10000“ 蓝冰恶魔挑战书UserVar number28=“10000“ 强韧恶魔挑战书UserVar number35=“10000“ 威严恶魔挑战书UserVar number30=“10000“ 黑色小晶体UserVar number31=“10000“ 蓝色小晶体UserVar number32=“10000“ 红色服务器红色大喇叭UserVar
4、number33=“10000“ 蓝色服务器红色小喇叭UserVar number36=“10000“ 暗黑城干酪UserVar number37=“10000“ 专家 HPUserVar number38=“10000“ 专家 MPUserVar number39=“10000“ 熟练 HPUserVar number40=“10000“ 熟练 MPUserVar number41=“10000“ 黑色龙舌兰酒UserVar hk=DropList200 :200|300 :300|500 :500|600 :600|100 :100 毫秒=0 自动任务快 200 中 600慢 800Use
5、rVar jo=DropList300000 :300000|600000 :600000|80000 :80000=0 防掉线自动任务 6=10 分钟 12=20 分钟中 18=30 分钟kx = 90 : ky = 183dim d,k,fs(4)d=0Rem qGosub 检查红Goto qEndScript Sub 检查红h=0/清空变量While h=joPlugin time5=Sys.GetTime()Gosub 防掉线EndIf If time3=900000MessageBox “如有问题,请找作者谢谢使用QQ1175390911“Goto hhDelay 400EndIf
6、/最小化Delay 200h=h+1/变量递增EndWhile Return Rem hhEndScript Sub 交易了吗IfColor 524,408,8dc5dd,0IfColor 581,402,8dc5dd,0MoveTo 517,400Delay 50LeftClick 1Delay 1000Gosub 交易开始EndIf EndIf Return 交易了吗Sub 防掉线b=1For 2IfColor 286,454,88ccff,0MoveTo 288,457Delay 50LeftClick 1Delay hkIfColor 275,421,1313e5,0MoveTo 32
7、1,346Delay 50LeftClick 1Delay hkIfColor 105,224,66eeff,0MoveTo 184,222Delay 50LeftClick 4Delay 600IfColor 430,398,8dc5dd,0MoveTo 414,403Delay 50LeftClick 1Delay hkMoveTo 345,406Delay 50LeftClick 1Delay hkKeyPress 27,1Delay hkEndIf IfColor 373,147,66eeff,0KeyPress 27,1Delay 500MoveTo 413,400Delay 50L
8、eftClick 1Delay 600IfColor 357,177,66eeff,0MoveTo 437,183Delay 50LeftClick 4Delay hkMoveTo 172,400Delay 50LeftClick 1Delay hkMoveTo 97,407Delay 50LeftClick 1Delay hkEndIf EndIf EndIf EndIf EndIf Delay 100MoveTo 606,443Delay 50LeftClick 2Delay 200b=b+1EndFor Return 自动任务Sub 交易开始p=0Rem 交易开始IfColor 169,
9、118,ffffff,0Delay 1000Gosub 喊话 2Delay 2500Rem 等待交易IfColor 169,118,ffffff,0Gosub 第一格Gosub 输钱result10 = resultGosub 喊话 3Delay 2000p=p+1Delay 10IfColor 163,269,44eeff,1If p=12KeyPress 27,1Delay 500Goto EndEndIf Gosub 喊话 2Goto 等待交易Else Gosub 第一格If result = result10IfColor 169,118,ffffff,0MoveTo 163,424D
10、elay 50LeftClick 1Delay 500LeftClick 1Delay 500Plugin File.WriteFileEx(“D:10.txt“, result)Else Goto 交易开始EndIf EndIf Goto 交易开始EndIf EndIf EndIf Return 交易开始Sub 第一格kx = 90 : ky = 183result = “v=0For 8/灾难number1 =“result1 =“VBSCall color=GetPixelColor(kx,ky)If Color = “4AB542“Gosub 读数子 1number1=groupres
11、ult1 = number1*number2/灵魂价钱ElseIf Color = “080000“Gosub 读数子 1number1=groupresult1 = number1*number3/王之石像ElseIf Color = “083942“Gosub 读数子 1number1=groupresult1 = number1*number6/蓝冰恶魔挑战书ElseIf Color = “AD9C4A“Gosub 读数子 1number1=groupresult1 = number1*number27/无色小晶体ElseIf Color = “6B6B6B“Gosub 读数子 1num
12、ber1=groupresult1 = number1*number11/诺顿达人 MP 药剂ElseIf Color = “ A87F4F“Gosub 读数子 1number1=groupresult1 = number1*number14/诺顿达人 HP 药剂ElseIf Color = “5556A4“Gosub 读数子 1number1=groupresult1 = number1*number15/泰拉石ElseIf Color = “5A5239“Gosub 读数子 1number1=groupresult1 = number1*number7/狂乱的恶魔挑战书ElseIf Col
13、or = “31AD94“Gosub 读数子 1number1=groupresult1 = number1*number16/大块肉干ElseIf Color = “100863“Gosub 读数子 1number1=groupresult1 = number1*number17/强认恶魔挑战书ElseIf Color = “ADEFFF“Gosub 读数子 1number1=groupresult1 = number1*number28/波罗丁ElseIf Color = “000000“Gosub 读数子 1number1=groupresult1 = number1*number18/
14、红色小晶体ElseIf Color = “080829“Gosub 读数子 1number1=groupresult1 = number1 * number19/白色小晶体ElseIf Color = “949494“Gosub 读数子 1number1=groupresult1 = number1*number20/混沌魔石碎片ElseIf Color = “525229“Gosub 读数子 1number1=groupresult1 = number1*number21/红色大晶体ElseIf Color = “0000B5“Gosub 读数子 1number1=groupresult1
15、= number1*number22/突变苎麻花叶ElseIf Color = “102139“Gosub 读数子 1number1=groupresult1 = number1*number23/突变草莓ElseIf Color = “1800DE“Gosub 读数子 1number1=groupresult1 = number1*number29/杀错的眼晴ElseIf Color = “5A425A“Gosub 读数子 1number1=groupresult1 = number1*number24/上级元素结晶ElseIf Color = “DE9CF7“Gosub 读数子 1numb
16、er1=groupresult1 = number1*number26/威严恶魔挑战书ElseIf Color = “ A5BD18“Gosub 读数子 1number1=groupresult1 = number1*number35/黑色小晶体ElseIf Color = “4A1031“Gosub 读数子 1number1=groupresult1 = number1*number30/蓝色小晶体ElseIf Color = “AD5229“Gosub 读数子 1number1=groupresult1 = number1*number31/红色服务器红色大喇叭ElseIf Color = “42A5EF“Gosub 读数子 1number1=groupresult1 = number1*number32/蓝色服务器红色小喇叭ElseIf Color = “94D6F7“Gosub 读数子 1number1
