大漠按键与鼠标同步的源码

Dimenv AA,x1,y1,a
call 注册()
While 1 = 1
Key = WaitKey()
If Key = 36 Then //按home键启动多线程
AA = dm.GetMousePointWindow()
BeginThread 同步按键
BeginThread 同步鼠标
End If
Wend
Call OnScriptExit()

Sub 注册()
PutAttachment "c:\test_game" ,"*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If len(ver) = 0 Then
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
End Sub

Sub 绑定()
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",1)
Delay 20
TracePrint hwnd
If dm_ret=0 Then
MessageBox "绑定“失败”"
ExitScript
End If
End Sub

Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub

Sub 同步按键()
hwnd = AA
Set dm = createobject("dm.dmsoft")
delay 100
Call 绑定
While 7=7
Key2 =WaitKey()
// Key = GELLASTKEY()
If Key <> 118 And Key <> 123 Then

dm.KeyPress Key2
delay 20
end if
Wend
End Sub

Sub 同步鼠标()
hwnd = AA
set dm = createobject("dm.dmsoft")
Call 绑定
While 7=7
last_click=WaitClick()
GetCursorPos x, y
x1=x-l
y1=y-1
//下面这些都是鼠标代码。。具体去按键里面查询。。。
If last_click=32769 then
a=1
ElseIf last_click=32770 then
a=2
ElseIf last_click=32773 then
a=3
ElseIf last_click=32774 then
a=4
End If
TracePrint last_click
Delay 2
If a = 1 Then
dm.MoveTo x1,y1
Delay 3
dm.LeftDown
ElseIf a = 2 Then
dm.MoveTo x1,y1
Delay 3
dm.LeftUp
ElseIf a = 3 Then
dm.MoveTo x1,y1
Delay 3
dm.RightDown
ElseIf a = 4 Then
dm.MoveTo x1,y1
Delay 3
dm.RightUp
End If
a=0
Wend
End Sub








aa = WaitKey()
Hwnd = Plugin.Window.MousePoint()
bb = WaitKey()
Hwnd2 = Plugin.Window.MousePoint()

While True
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
Call Plugin.Bkgnd.KeyPress(Hwnd2, 65)
Wend
EndScript

分别获取2个窗口的句柄。后台操作。追问. . . 无言.. 这是已经固定输入 A 的. . .我说要任意输入. 最主要是能在DNF游戏窗口同步.. 2个记事本同步.. 我也会的.. 回答看到你的“无言”。。我真想说，我对你也无言。。只要DNF支持后台，有什么难同步的。
While True
xx = WaitKey()
Call Plugin.Bkgnd.KeyPress(Hwnd, xx)
Call Plugin.Bkgnd.KeyPress(Hwnd2, xx)
Wend
这不就同步按键了么。不过如果你只是双开，当前窗口就