admin 管理员组

文章数量: 1086019


2024年3月14日发(作者:power base)

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

Dimenv AA,x1,y1,a

call 注册()

While 1 = 1

Key = WaitKey()

If Key = 36 Then //按home键启动多线程

AA = sePointWindow()

BeginThread 同步按键

BeginThread 同步鼠标

End If

Wend

Call OnScriptExit()

Sub 注册()

PutAttachment "c:test_game" ,"*.*"

PutAttachment ".Plugin" ,""

Call ("c:test_")

set dm = createobject("")

ver = ()

If len(ver) = 0 Then

MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"

EndScript

End If

End Sub

Sub 绑定()


本文标签: 鼠标 禁用 是否 系统 检查