开始图标消失程序求解
程序源码Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Dim task, win, bswap
task = FindWindow("Shell_TrayWnd", vbNullString)
win = FindWindowEx(task, 0, "Button", vbNullString)
If Not bswap Then
SetParent win, Me.hwnd
ShowWindow win, 0
End If
bswap = Not bswap
End Sub
求破解其的程序源码!谢谢各位大神!