关于VBAPI的问题

各们大虾你们好,请帮小弟解答一下这串代码.Option ExplicitPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPublic Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPublic Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPublic Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPublic Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As LongPublic Const PROCESS_ALL_ACCESS = &H1F0FFFPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongDim hwd As LongPrivate Sub Form_Load()
hwd = FindWindow("xxxx", "xxxx")
If hwd = 0 Then
 MsgBox "123", vbOKOnly, "提示"
 Unload Form1
End If
GetWindowThreadProcessId hwd, pid 
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
If hProcess = 0 Then
 MsgBox "不能打开进程", vbOKOnly, "提示"
 Unload Form1
End If
CloseHandle hProcess
End SubPrivate Sub Timer1_Timer()
 SendMessage hwd, &H100, &H70, 0& 
 SendMessage hwd, &H101, &H70, 0& End Sub