Question

求VB后台隐藏运行的一段代码，这是一段鼠标移动点击运行的代码，但是我想它在看我看不见鼠标点击的情况

求VB后台隐藏运行的一段代码，这是一段鼠标移动点击运行的代码，但是我想它在看我看不见鼠标点击的情况下运行，应该怎么写
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Sub Command1_Click()
SetCursorPos 787, 652
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 614, 219
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 419, 221
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 415, 278
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 565, 366
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 949, 379
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 6000
SetCursorPos 918, 575
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub

Answer 1

361插件可以。现在按键7也自带后台插件。
所谓后台其实就是向指定窗口发送消息。
Plugin hwnd = Window.GetKeyFocusWnd()
先使游戏处于可操作状态，再用这句得到当前窗口句柄（就是窗口的唯一特征）
Plugin Window.SendKeyPress(hwnd,49)
向该窗口发送按键。49是1的代码。
执行一次后把窗口最小化应该就可以了。
如果需要后台坐标的话还要转换一下坐标，你这个与坐标无关比较简单。
另外不是所有游戏都能后台，所有DX游戏都不可以后台。
给你一段后台坐标转换的子程序，也许以后有用。我是经常用的。
Sub 后台坐标转换及拆分
Plugin hw=Window.MousePoint()
VBSCall GetCursorPos(x,y)
//这个x,y是屏幕坐标,不是窗口坐标.
Plugin win=BGKM5.ScrToCli(hw,x,y)
//用BGKM5插件命令换算成窗口坐标
Dim MyString, MyArray
MyString = Split(win, "|", -1, 1)
//返回的win值是一个字符串,由字符|隔开,格式如下:x|y
//想看win值用:MessageBox win
//用Split函数可以将x值和y值分别提出来
//win是你要拆的字符(这里是变量,|是拆的分界)
//MessageBox "转换后的横坐标是:"&MyString(0)
//MessageBox "转换后的纵坐标是:"&MyString(1)
//换算后的窗口横坐标是:MyString(0),纵坐标是MyString(1),可供调用
dim x,y
x=MyString(0)
y=MyString(1)
Return 后台坐标转换及拆分
补充:肯定的告诉你,DX游戏用按键不能后台.后台好使的前台也一样.
如果这里鼠标的移动的那个点被挡住或在屏幕外的话，动作就无效。 Post...如果实在鼠标的移动无法实现，那单独... ...建议SendMessage

追问

网页游戏呢？