-
-
[旧帖]
真的急死了，求助各位！！！！
0.00雪花
-
发表于:
2010-2-21 14:44
3651
-
[旧帖] 真的急死了，求助各位！！！！
0.00雪花
求助，小弟今天学习虚拟桌面技术，代码如下：
Private Sub Command1_Click()
If g_hDesktopNew <> 0 Then
SwitchDesktop g_hDesktopNew '切换到新桌面
End If
End Sub
Private Sub Command2_Click()
StartMyExplore Text1.Text '在新桌面运行程序
End Sub
Private Sub Form_Load()
g_hDesktopThreadOld = GetThreadDesktop(App.ThreadID) '得到正常的桌面句柄
RegisterHotKey Me.hwnd, 1, MOD_CONTROL, Asc("Q") '注册热键
RegisterHotKey Me.hwnd, 2, MOD_CONTROL, Asc("W") '注册热键
g_hDesktopNameNew = "MyNewDesktop"
g_hDesktopNew = OpenDesktop(g_hDesktopNameNew, 0, False, DESKTOP_ALL) '如果新桌面已经存在，就打开它
If g_hDesktopNew = 0 Then
g_hDesktopNew = CreateDesktop(g_hDesktopNameNew, vbNullString, ByVal 0&, 0, MAXIMUM_ALLOWED, ByVal 0&) '如果不存在，就新建一个
End If
Call SetThreadDesktop(g_hDesktopNew)
lpOldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf myWindowProc) '子类化主窗口，接收热键消息
End Sub
Private Sub Form_Unload(Cancel As Integer)
If g_hDesktopNew <> 0 Then
CloseDesktop g_hDesktopNew '关闭新建的桌面句柄
End If
SetWindowLong Me.hwnd, GWL_WNDPROC, lpOldWinProc
End Sub
另外还有一个模块，是定义和声明这些，就不写出来了。
我遇到的麻烦是，我用虚拟桌面打开一个用mouse_event来实现的简单的模拟鼠标点击的程序，
也就是说，我在正常桌面，打开这个虚拟桌面程序，然后在虚拟桌面用mouse_event模拟鼠标点击，然后我自己又转回到正常桌面做其他事情，结果，虚拟桌面根本就没动，我发现，非要我转到虚拟桌面，虚拟桌面上的模拟点击才会有效，否则不能。
现在，我真的很苦恼，头都想疼了，不知道能有什么办法，使我在本桌面做其他的，然后虚拟桌面的鼠标模拟也有效呢？
求助大家啦！
[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法
难道，模拟的也只能当前桌面才有效？
