按键精灵.txt

//获取窗口句柄值
hwndz = Plugin.Window.Find("LDPlayerMainFrame",Form1.duizhang.Text )
hwndy1 = Plugin.Window.Find("LDPlayerMainFrame",Form1.duiyou.text)
hwndy2 = Plugin.Window.Find("LDPlayerMainFrame",Form1.duiyou2.text)
//获取窗口坐标
si= Plugin.Window.GetClientRect(hwndz)
si = Plugin.Window.GetWindowRect(hwndz)
队长 = Split(si, "|")

si= Plugin.Window.GetClientRect(hwndy1)
si = Plugin.Window.GetWindowRect(hwndy1)
队友1 = Split(si, "|")

si= Plugin.Window.GetClientRect(hwndy2)
si = Plugin.Window.GetWindowRect(hwndy2)
队友2 = Split(si, "|")


//  队长窗口定位到

Call Plugin.Window.Size(hwndz, 758, 443)
Call Plugin.Window.Move(hwndz, 370, 5)

Call Plugin.Window.Size(hwndy1, 758, 443)
Call Plugin.Window.Move(hwndy1, 1150, 5)


//  队友窗口定位到右下

Call Plugin.Window.Size(hwndy2,758, 443)
Call Plugin.Window.Move(hwndy2, 1150, 470)

Randomize
q = int(Rnd() * 10 + 10)//d的值为随机数12-20
qian = int(Rnd() * 200 + 1000)
w=int(Rnd()*10)*10//0-100
e= int(Rnd() * 20) * 10//0-200
bai=int(Rnd()*300+500)  //0-100
//0-200
a = 0.5
b = 2
Dim nhaoyou(5)
Form1.InputBox8.Text=qian

Call begin
Function begin
For 999
Call check
Next

End Function


//-------------------------------------------------------------------------------------------------------
Function all
q=int(Rnd()*10+10)//d的值为随机数12-20
bai=int(Rnd()*300+500)  //0-100
qian = int(Rnd() * 200 + 1000)//0-200
Form1.InputBox8.Text=qian