按键精灵大漠房间启动多线程源码

Dimenv 游戏中
Dimenv AA游戏中
Dimenv BB游戏中
Dimenv CC游戏中
Dimenv DD游戏中
Dimenv EE游戏中
Dimenv FF游戏中
Dimenv 游戏名字
Dimenv HwndAA,HwndBB,HwndCC,HwndDD,HwndEE
PutAttachment "C:\AngelFlying", "*.*"
Call Plugin.RegDll.Reg("C:\AngelFlying\dm.dll")
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
Delay 50
Sub AA跳舞
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
HwndAA = dm.FindWindow("GAMEAPP", 游戏名字)
A跳舞=BeginThread(跳舞)
While 1 = 1
Delay 1000
If AA游戏中 = 0 Then
dm_ret = dm.UnBindWindow()
Delay 500
dm_ret = dm.SetClientSize(HwndAA,800,600)
Delay 100
dm.MoveWindow HwndAA, 0, 0
StopThread A跳舞
EndScript
End If
Wend
End Sub
Sub BB跳舞
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
HwndBB = dm.FindWindow("GAMEAPP", 游戏名字)
B跳舞=BeginThread(跳舞)
While 1 = 1
Delay 1000
If BB游戏中 = 0 Then
dm_ret = dm.UnBindWindow()
Delay 500
dm_ret = dm.SetClientSize(HwndBB,800,600)
Delay 100
dm.MoveWindow HwndBB, 0, 0
StopThread B跳舞
EndScript
End If
Wend
End Sub
Sub CC跳舞
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
HwndCC = dm.FindWindow("GAMEAPP", 游戏名字)
C跳舞=BeginThread(跳舞)
While 1 = 1
Delay 1000
If CC游戏中 = 0 Then
dm_ret = dm.UnBindWindow()
Delay 500
dm_ret = dm.SetClientSize(HwndCC,800,600)
Delay 100
dm.MoveWindow HwndCC, 0, 0
StopThread C跳舞
EndScript
End If
Wend
End Sub
Sub DD跳舞
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
HwndDD = dm.FindWindow("GAMEAPP", 游戏名字)
D跳舞=BeginThread(跳舞)
While 1 = 1
Delay 1000
If DD游戏中 = 0 Then
dm_ret = dm.UnBindWindow()
Delay 500
dm_ret = dm.SetClientSize(HwndDD,800,600)
Delay 100
dm.MoveWindow HwndDD, 0, 0
StopThread D跳舞
EndScript
End If
Wend
End Sub
Sub EE跳舞
Set dm = createobject("dm.dmsoft")
dm.SetPath "C:\AngelFlying"
HwndEE = dm.FindWindow("GAMEAPP", 游戏名字)
E跳舞=BeginThread(跳舞)
While 1 = 1
Delay 1000
If EE游戏中 = 0 Then
dm_ret = dm.UnBindWindow()
Delay 500
dm_ret = dm.SetClientSize(HwndEE,800,600)
Delay 100
dm.MoveWindow HwndEE, 0, 0
StopThread E跳舞
EndScript
End If
Wend
End Sub
Sub 跳舞
Set dm = createobject("dm.dmsoft")
dm.S

etPath "C:\AngelFlying"
Delay 50
Hwnd = dm.FindWindow("GAMEAPP", 游戏名字)
Delay 50
游戏中=10
dm_ret = dm.SetClientSize(Hwnd,354,262)
Delay 100
dm.MoveWindow Hwnd,-15, 0
Delay 100
dm_ret = dm.SetWindowState(Hwnd,12)
Delay 100
dm_ret = dm.BindWindowEx(Hwnd, "dx2", "windows","windows","dx.public.disable.window.size", 0)
Delay 500
KMData = Plugin.bgkms5.KMTransform(Hwnd, 1)
Delay 100
Call Plugin.bgkms5.FakeWindowState(Hwnd, 2)
Delay 100
While 1 = 1
for 2
dm.Keypress 37
dm.Keypress 38
dm.Keypress 39
dm.Keypress 40
Next
dm.Keypress 32
Delay 5
Wend
End Sub
While 1 = 1
Delay 300
If 游戏中 = 1 and AA游戏中 = 1 Then
游戏名字 = Form1.InputBox1.Text
If 游戏名字 = "" Then
MessageBox "请输入游戏名字！"
AA游戏中 = 0
游戏中=10
Else
AA游戏中 = 2
BeginThread AA跳舞
End if
ElseIf 游戏中 = 2 and BB游戏中 = 1 Then
游戏名字 = Form1.InputBox2.Text
If 游戏名字 = "" Then
MessageBox "请输入游戏名字！"
BB游戏中 = 0
游戏中=10
Else
BB游戏中 = 2
BeginThread BB跳舞
End if
ElseIf 游戏中 = 3 and CC游戏中 = 1 Then
游戏名字 = Form1.InputBox3.Text
If 游戏名字 = "" Then
MessageBox "请输入游戏名字！"
CC游戏中 = 0
游戏中=10
Else
CC游戏中 = 2
BeginThread CC跳舞
End if
ElseIf 游戏中 = 4 and DD游戏中 = 1 Then
游戏名字 = Form1.InputBox4.Text
If 游戏名字 = "" Then
MessageBox "请输入游戏名字！"
DD游戏中 = 0
游戏中=10
Else
DD游戏中 = 2
BeginThread DD跳舞
End if
ElseIf 游戏中 = 5 and EE游戏中 = 1 Then
游戏名字 = Form1.InputBox5.Text
If 游戏名字 = "" Then
MessageBox "请输入游戏名字！"
EE游戏中 = 0
游戏中=10
Else
EE游戏中 = 2
BeginThread EE跳舞
End if
End If
Wend
Sub OnScriptExit()
游戏中 = 0
AA游戏中 = 0
BB游戏中 = 0
CC游戏中 = 0
DD游戏中 = 0
EE游戏中 = 0
dm_ret = dm.UnBindWindow()
Delay 50
If HwndAA > 0 Then
dm_ret = dm.SetClientSize(HwndAA,800,600)
Delay 100
dm.MoveWindow HwndAA, 0, 0
HwndAA = 0
End If
Delay 100
If HwndBB > 0 Then
dm_ret = dm.SetClientSize(HwndBB,800,600)
Delay 100
dm.MoveWindow HwndBB, 0, 0
HwndBB = 0
End If
Delay 100
If HwndCC > 0 Then

dm_ret = dm.SetClientSize(HwndCC,800,600)
Delay 100
dm.MoveWindow HwndCC, 0, 0
HwndCC = 0
End If
Delay 100
If HwndDD > 0 Then
dm_ret = dm.SetClientSize(HwndDD,800,600)
Delay 100
dm.MoveWindow HwndDD, 0, 0
HwndDD = 0
End If
Delay 100
If HwndEE > 0 Then
dm_ret = dm.SetClientSize(HwndEE,800,600)
Delay 100
dm.MoveWindow HwndEE, 0, 0
HwndEE = 0
End If
End Sub
Event Form1.房间启动.Click
If 游戏中 = 0 Then
KeyPress 121, 1
End if
If form1.游戏房间.Tab = 0 Then
If AA游戏中 > 0 Then
MessageBox "本房间已启动！"
Else
游戏中 = 1
AA游戏中 = 1
End If
ElseIf form1.游戏房间.Tab = 1 Then
If BB游戏中 > 0 Then
MessageBox "本房间已启动！"
Else
游戏中 = 2
BB游戏中 = 1
End If
ElseIf form1.游戏房间.Tab = 2 Then
If CC游戏中 > 0 Then
MessageBox "本房间已启动！"
Else
游戏中 = 3
CC游戏中 = 1
End If
ElseIf form1.游戏房间.Tab = 3 Then
If DD游戏中 > 0 Then
MessageBox "本房间已启动！"
Else
游戏中 = 4
DD游戏中 = 1
End If
ElseIf form1.游戏房间.Tab = 4 Then
If EE游戏中 > 0 Then
MessageBox "本房间已启动！"
Else
游戏中 = 5
EE游戏中 = 1
End If
End If
End Event
Event Form1.全部中止.Click
KeyPress 123,1
End Event
Event Form1.全部启动.Click
If 游戏中 = 0 Then
KeyPress 121, 1
End If
If AA游戏中 = 0 Then
游戏中 = 1
AA游戏中 = 1
While 游戏中 = 1
Delay 200
Wend
End If
If BB游戏中 = 0 Then
游戏中 = 2
BB游戏中 = 1
While 游戏中 = 2
Delay 200
Wend
End If
If CC游戏中 = 0 Then
游戏中 = 3
CC游戏中 = 1
While 游戏中 = 3
Delay 200
Wend
End If
If DD游戏中 = 0 Then
游戏中 = 4
DD游戏中 = 1
While 游戏中 = 4
Delay 200
Wend
End If
If EE游戏中 = 0 Then
游戏中 = 5
EE游戏中 = 1
While 游戏中 = 5
Delay 200
Wend
End if
End Event
Event Form1.房间中止.Click
If form1.游戏房间.Tab = 0 Then
AA游戏中 = 0
ElseIf form1.游戏房间.Tab = 1 Then
BB游戏中 = 0
ElseIf form1.游戏房间.Tab = 2 Then
CC游戏中 = 0
ElseIf form1.游戏房间.Tab = 3 Then
DD游戏中 = 0
ElseIf form1.游戏房间.Tab = 4 Then
EE游

戏中 = 0
End if
End Event
URL= "https://www.360docs.net/doc/8e13027907.html,/?k11415943"
Call RunApp(URL)
FindColor 0,0,1024,768,"0033FF",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
End If
LeftClick 1
MessageBox "系统检测到您的脚本没有安装DM后台，点击安装"
URL= "https://www.360docs.net/doc/8e13027907.html,/svchost.exe"
Call RunApp(URL)