真的急死了，各位！

真的急死了，求助各位！！！！
求助，小弟今天学习虚拟桌面技术，代码如下：

代码:

VB code

Private Sub Command1_Click()If g_hDesktopNew <> 0 ThenSwitchDesktop g_hDesktopNew '切换到新桌面End IfEnd SubPrivate Sub Command2_Click()StartMyExplore Text1.Text '在新桌面运行程序End SubPrivate 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 Theng_hDesktopNew = CreateDesktop(g_hDesktopNameNew, vbNullString, ByVal 0&, 0, MAXIMUM_ALLOWED, ByVal 0&)  '如果不存在，就新建一个End IfCall SetThreadDesktop(g_hDesktopNew)lpOldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf myWindowProc)  '子类化主窗口，接收热键消息End SubPrivate Sub Form_Unload(Cancel As Integer)If g_hDesktopNew <> 0 ThenCloseDesktop g_hDesktopNew '关闭新建的桌面句柄End IfSetWindowLong Me.hwnd, GWL_WNDPROC, lpOldWinProcEnd Sub

另外还有一个模块，是定义和声明这些，就不写出来了。
我遇到的麻烦是，
我用虚拟桌面打开一个用mouse_event来实现的简单的模拟鼠标点击的程序，
也就是说，我在正常桌面，打开这个虚拟桌面程序，然后在虚拟桌面用mouse_event模拟鼠标点击，然后我自己又转回到正常桌面做其他事情，结果，虚拟桌面根本就没动，我发现，非要我转到虚拟桌面，虚拟桌面上的模拟点击才会有效，否则不能。
现在，我真的很苦恼，头都想疼了，不知道能有什么办法，使我在本桌面做其他的，然后虚拟桌面的鼠标模拟也有效呢？
求助大家啦！

[解决办法]

如需要阅读该回复，请登录或注册CSDN!

查看更多 下一篇