找窗口类名(0)或者标题("Tantra Launcher"),返回找到的句柄Hwnd
Plugin Hwnd = Window.Find(0,"Tantra Launcher")
If Hwnd>0
Else
VBSCall MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
EndScript
EndIf
VBS Dim hong,lan,hongT,lanT,ys,zd,MyArray,jineng,jianeng1,jineg2,jineng3,jineng4,fuzu,fuzu1,fuzu2,fuzu3,fuzu4,chihong,chilan
UserVar jineng=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第一个攻击技能键
UserVar jineng1=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第二个攻击技能键
UserVar jineng2=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第三个攻击技能键
UserVar jineng3=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第四个攻击技能键
UserVar jineng4=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第五个攻击技能键
UserVar fuzu=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第一个辅助技能键
UserVar fuzu1=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第二个辅助技能键
UserVar fuzu2=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第三个辅助技能键
UserVar fuzu3=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第四个辅助技能键
UserVar fuzu4=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第五个辅助技能键
UserVar chihong=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 吃红技能键
UserVar chilan=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 吃蓝技能键
UserVar zy=DropList{刺,弓手:1|狂拳:2}=0 选择职业
UserVar zd=DropList{组队:1|不组队:2}=0 选择组不组队
UserVar hong=80 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝。
UserVar hongT=30 补血延时时间（毫秒）
UserVar lanT=30 补蓝延时时间（毫秒）
UserVar ys=100 技能延时（毫秒）
//下面这句是得到窗口句柄的客户区大小
Plugin Rect = Window.GetClientRect(Hwnd)
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
IfColor 4+Ux,28+Uy,040CEF,2
Else
VBSCall MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 血条位置不对，请把人物血条放到左上角，从新启动脚本")
EndScript
EndIf
Plugin Bkgnd.LeftClick(Hwnd, 109+Ux, 740+Uy)
Plugin Bkgnd.SendString(Hwnd, "密传后台挂机脚本，防传送，１１０，ＧＭ形象＝＝＝々闲→情 ‰＝＝＝制作")
Delay 100
Plugin Bkgnd.KeyPress(Hwnd, 13)
//设置结速
Rem 开始
Gosub 辅助技能
Rem 选怪
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,75+Uy,"Attachment:\shanying.bmp",0.7,SX,SY)
If SX+Ux>0 and SY+Uy>0
Else
If zy=1
Gosub 辅助技能
ElseIf zy=2
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,75+Uy,"Attachment:\shangxian.bmp",0.7,TX,TY)
If TX+Ux>0 and TY+Uy>0
Else
Gosub 辅助技能
EndIf
EndIf
EndIf
Rem 检查组对
VBSCall FindPic(347+Ux,321+Uy,675+Ux,444+Uy,"Attachment:\jiaruzudui.bmp",0.9,intX,intY)
If intX+Ux>0 and intY+Uy>0
Gosub 组队
EndIf
Rem 决斗
VBSCall FindPic(347+Ux,321+Uy,675+Ux,444+Uy,"Attachment:\juedou.bmp",0.9,KX,KY)
If KX+Ux>0 and KY+Uy>0
Gosub 决斗
EndIf
Gosub 补红蓝
Plugin Bkgnd.KeyPress(Hwnd, 69)
Delay ys
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,767+Uy,"Attachment:\digongkaiguan.bmp",1,JX,JY)
If JX+Ux>0 and JY+Uy>0
Goto 选怪
EndIf
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,767+Uy,"Attachment:\xingxiang.bmp",1,GX,GY)
If GX+Ux>0 and GY+Uy>0
Goto 选怪
EndIf
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,767+Uy,"Attachment:\110.bmp",1,LX,LY)
If LX+Ux>0 and LY+Uy>0
Goto 选怪
EndIf
Rem 攻击
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,75+Uy,"Attachment:\shanying.bmp",0.7,SX,SY)
If SX+Ux>0 and SY+Uy>0
Else
If zy=1
Gosub 辅助技能
ElseIf zy=2
VBSCall FindPic(0+Ux,0+Uy,1023+Ux,75+Uy,"Attachment:\shangxian.bmp",0.7,TX,TY)
If TX+Ux>0 and TY+Uy>0
Else
Gosub 辅助技能
EndIf
EndIf
EndIf
IfColor 164+Ux,70+Uy,001EC7,2
IfColor 4+Ux,70+Uy,072BA1,2
Rem 技能