Hwndex = Plugin.Window.Search("梦幻西游ONLINE")
MyArray = Split(HwndEx, "|")
Hwnd1=myarray(0)
Call Plugin.Window.Move(Hwnd1, -6, -27)
Hwnd2=myarray(1)
Call Plugin.Window.Move(Hwnd2, 637, -27)
Hwnd3=myarray(2)
Call Plugin.Window.Move(Hwnd3, 1280, -27)
Hwnd4=myarray(3)
Call Plugin.Window.Move(Hwnd4, 315, 483)
Hwnd5=myarray(4)
Call Plugin.Window.Move(Hwnd5, 958, 483)
UserVar RW1=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物1"
UserVar BB1=DropList{"攻击":65|"防御":68|"法术":81}=1 "宝宝1"
UserVar RW2=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物2"
UserVar BB2=DropList{"攻击":65|"防御":68|"法术":81}=1 "宝宝2"
UserVar RW3=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物3"
UserVar BB3=DropList{"攻击":65|"防御":68|"法术":81}=1 "宝宝3"
UserVar RW4=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物4"
UserVar BB4=DropList{"攻击":65|"防御":68|"法术":81}=1 "宝宝4"
UserVar RW5=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物5"
UserVar BB5=DropList{"攻击":65|"防御":68|"法术":81}=1 "宝宝5"
Rem 开始挂机
FindPic 0,0,2000,2000,"Attachment:\法术.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyDown 18, 1
Call Plugin.Window.Active(Hwnd1)
KeyPress RW1, 1
Delay 100
KeyPress BB1, 1
Call Plugin.Window.Active(Hwnd2)
KeyPress RW2, 1
Delay 100
KeyPress BB2, 1
Call Plugin.Window.Active(Hwnd3)
KeyPress RW3, 1
Delay 100
KeyPress BB3, 1
Call Plugin.Window.Active(Hwnd4)
KeyPress RW4, 1
Delay 100
KeyPress BB4, 1
Call Plugin.Window.Active(Hwnd5)
KeyPress RW5, 1
Delay 100
KeyPress BB5, 1
KeyUp 18, 1
Call Plugin.Window.Active(Hwnd1)
End If
Goto 开始挂机