按键精灵自动喊话收发货源码

UserVar k=DropList{单开:1|双开:2|三开:3|四开:4|五开:5}=0 设置内容
Delay 100
set 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" 无色小晶体
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" 突变苎麻花叶
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 number33="10000" 蓝色服务器红色小喇叭
UserVar number36="10000" 暗黑城干酪
UserVar number37="10000" 专家HP
UserVar number38="10000" 专家MP
UserVar number39="10000" 熟练HP
UserVar number40="10000" 熟练MP
UserVar number41="10000" 黑色龙舌兰酒
UserVar hk=DropList{200 :200|300 :300|500 :500|600 :600|100 :100毫秒}=0 自动任务`快200中600`慢800`
UserVar jo=DropList{300000 :300000|600000 :600000|80000 :80000}=0 防掉线自动任务6=10分钟12=20分钟中18=30分钟
kx = 90 : ky = 183
dim d,k,fs(4)
d=0
Rem q
Gosub 检查红
Goto q
EndScript
Sub 检查红
h=0
//清空变量
While h=<k-1
//是否大于设置的多开数（下同）
Delay 10
//最大化
Gosub 查找移动窗口
MoveTo 611,445
Delay 100
LeftClick 2
Delay 100
Gosub 交易了吗
Gosub 喊话1
Delay 1500
Gosub 交易了吗
Gosub 喊话4
Delay 1500
Gosub 交易了吗
Gosub 喊话5
Delay 1500
Rem End
Plugin time2=Sys.GetTime()
Plugin time6=Sys.GetTime()
time3=time2-time1
time4=time6-time5
If time4>=jo
Plugin time5=Sys.GetTime()
Gosub 防掉线
EndIf
If time3>=900000
MessageBox "如有问题,请找作者`谢谢使用QQ1175390911"
Goto hh
Delay 400
EndIf
//最小化
Delay 200
h=h+1
//变量递增
EndWhile
Return
Rem hh
EndScript

Sub 交易了吗
IfColor 524,408,8dc5dd,0
IfCo

lor 581,402,8dc5dd,0
MoveTo 517,400
D
elay 50
LeftClick 1
Delay 1000
Gosub 交易开始
EndIf
EndIf
Return 交易了吗
Sub 防掉线
b=1
For 2
IfColor 286,454,88ccff,0
MoveTo 288,457
Delay 50
LeftClick 1
Delay hk
IfColor 275,421,1313e5,0
MoveTo 321,346
Delay 50
LeftClick 1
Delay hk
IfColor 105,224,66eeff,0
MoveTo 184,222
Delay 50
LeftClick 4
Delay 600
IfColor 430,398,8dc5dd,0
MoveTo 414,403
Delay 50
LeftClick 1
Delay hk
MoveTo 345,406
Delay 50
LeftClick 1
Delay hk
KeyPress 27,1
Delay hk
EndIf
IfColor 373,147,66eeff,0
KeyPress 27,1
Delay 500
MoveTo 413,400
Delay 50
LeftClick 1
Delay 600
IfColor 357,177,66eeff,0
MoveTo 437,183
Delay 50
LeftClick 4
Delay hk
MoveTo 172,400
Delay 50
LeftClick 1
Delay hk
MoveTo 97,407
Delay 50
LeftClick 1
Delay hk
EndIf
EndIf
EndIf
EndIf
EndIf
Delay 100

MoveTo 606,443
Delay 50
LeftClick 2
Delay 200
b=b+1
EndFor
Return 自动任务
Sub 交易开始
p=0
Rem 交易开始
IfColor 169,118,ffffff,0
Delay 1000
Gosub 喊话2
Delay 2500
Rem 等待交易
IfColor 169,118,ffffff,0
Gosub 第一格
Gosub 输钱
result10 = result
Gosub 喊话3
Delay 2000
p=p+1
Delay 10
IfColor 163,269,44eeff,1
If p>=12
KeyPress 27,1
Delay 500
Goto End
EndIf
Gosub 喊话2
Goto 等待交易
Else
Gosub 第一格
If result = result10
IfColor 169,118,ffffff,0
MoveTo 163,424
Delay 50

LeftClick 1
Delay 500
LeftClick 1
Delay 500
Plugin File.WriteFileEx("D:\10.txt", result)
Else
Goto 交易开始
EndIf
EndIf
Goto 交易开始
EndIf
EndIf
EndIf
Return 交易开始
Sub 第一格
kx = 90 : ky = 183
result = ""
v=0
For 8
//灾难
number1 =""
result1 =""
VBSCall color=GetPixelColor(kx,ky)
If Color = "4AB542"
Gosub 读数子1
number1=group
result1 = number1*number2
//灵魂价钱
ElseIf Color = "080000"
Gosub 读数子1
number1=group
result1 = number1*number3
//王之石像
ElseIf Color = "083942"
Gosub 读数子1
number1=group
result1 = number1*number6
//蓝冰恶魔挑战书
ElseIf Color = "AD9C4A"
Gosub 读数子1
number1=group
result1 = number1*number27
//无色小晶体
ElseIf Color = "6B6B6B"
Gosub 读数子1
number1=group
result1 = number1*number11
//诺顿达人MP药剂
ElseIf Color = " A87F4F"
Gosub 读数子1
number1=group
result1 = number1*number14
//诺顿达人HP药剂
ElseIf Color = "5556A4"
Gosub 读数子1
number1=group
result1 = number1*number15
//泰拉石
ElseIf Color = "5A5239"
Gosub 读数子1
number1=group
result1 = number1*number7
//狂乱的恶魔挑战书
ElseIf Color = "31AD94"
Gosub 读数子1
number1=group
result1 = number1*number16
//大块肉干
ElseIf Color = "100863"
Gosub 读数子1
number1=group

result1 = number1*number17
//强认恶魔挑战书
ElseIf Color = "ADEFFF"
Gosub 读数子1
number1=group
result1 = number1*number28
//波罗丁
ElseIf Color = "000000"
Gosub 读数子1
number1=group
result1 = number1*number18
//红色小晶体
ElseIf Color = "080829"
Gosub 读数子1
number1=group
result1 = number1 * number19
//白色小晶体
ElseIf Color = "949494"
Gosub 读数子1
number1=group
result1 = number1*number20
//混沌魔石碎片
ElseIf Color = "525229"
Gosub 读数子1
number1=group
result1 = number1*number21

//红色大晶体
ElseIf Color = "0000B5"
Gosub 读数子1
number1=group
result1 = number1*number22
//突变苎麻花叶
ElseIf Color = "102139"
Gosub 读数子1
number1=group
result1 = number1*number23
//突变草莓
ElseIf Color = "1800DE"
Gosub 读数子1
number1=group
result1 = number1*number29
//杀错的眼晴
ElseIf Color = "5A425A"
Gosub 读数子1
number1=group
result1 = number1*number24
//上级元素结晶
ElseIf Color = "DE9CF7"
Gosub 读数子1
number1=group
result1 = number1*number26
//威严恶魔挑战书
ElseIf Color = " A5BD18"
Gosub 读数子1
number1=group
result1 = number1*number35
//黑色小晶体
ElseIf Color = "4A1031"
Gosub 读数子1
number1=group
result1 = number1*number30
//蓝色小晶体
ElseIf Color = "AD5229"
Gosub 读数子1
number1=group
result1 = number1*number31
//红色服务器红色大喇叭
ElseIf Color = "42A5EF"
Gosub 读数子1
number1=group
result1 = number1*number32
//蓝色服务器红色小喇叭
ElseIf Color = "94D6F7"
Gosub 读数子1
number1=group
result1 = number1*number33
//暗黑城干酪
ElseIf Color = "080808"
Gosub 读数子1
number1=group
result1 = number1*number36
//专家HP
ElseIf Color = "403D8C"
Gosub 读数子1
number1=group
result1 = number1*number37
//专家MP
ElseIf Color = "715C42"
Gosub 读数子1
number1=group
result1 = number1*number38
//熟练HP
ElseIf Color = "4239AD"
Gosub 读数子1
number1=group
result1 = number1*number39
//熟练MP
ElseIf Color = "847B63"
Gosub 读数子1
number1=group
result1 = number1*number40
//黑色龙舌兰酒
ElseIf Color = "00E700"
Gosub 读数子1
number1=group
result1 = number1*number41
//熟练HP
EndIf


kx=kx+30
EndFor