给出部分代码 （处理鼠标部分）

Declare Function ShowCursor Lib "user32" (ByVal bShow As Integer) As Integer





。。。。。。。。。。。。。。。。


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Const VK_SNAPSHOT As Byte = &H2C

Dim hWnd1 As Long


Private Sub Command1_Click()
While ShowCursor(True) < 0
  Wend
Unload Form1
Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Clipboard.Clear
End Sub

Private Sub Form_Load()
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
Form1.Picture = Clipboard.GetData(2)
hWnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

While ShowCursor(False) >= 0
    Wend
End Sub

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-7 14:18 编辑 [/it]]

上传了图片！

XP下通过，VISTA  9X系统我没测试

我已经在其他XP电脑上测试通过了

恩，不错，

用BAT文件也可以实现

说白了我还是菜鸟，现学现用，以后请多多指教了

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-7 15:18 编辑 [/it]]

"直接调出你的程序"

看不明白，可以反编译？

。。。。。。。

源码上有，还是整体都能反编译

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-7 17:19 编辑 [/it]]

前两点值得考虑

这第三点。。。。。。。那个是张截图。。。。。是我想要的效果