Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long


Public Type RECT


        Left As Long


        Top As Long


        Right As Long


        Bottom As Long


End Type


Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long



hWnd = FindWindow(vbNullString, "DekTec StreamXpress - Transport-Stream Player")'獲取窗體句柄


If hWnd = 0 Then


    MsgBox "窗體DekTec StreamXpress Transport-Stream Player未找到"


    Exit Sub


End If


GetWindowRect hWnd, RECT'獲取窗體的尺寸，方便移動窗體


temp = MoveWindow(hWnd, 0, 0, RECT.Right - RECT.Left, RECT.Bottom - RECT.Top, 1)
If temp = 0 Then MsgBox "Move failed!"

就這個，夠簡單吧……，在鍵盤上試了試，OK，沒問題……然而悲劇才剛剛開始

插一腳：這里說一個簡單的獲取要點擊位置的方法，我看了一些很多的方法，覺得這個是最簡便的，調(diào)用API的GetCursorPos函數(shù)，用鼠標指向需要點擊的地方就直接獲取了這一點的位置。代碼如下：

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Public Type POINTAPI


        x As Long


        y As Long


End Type
Private Sub Timer1_Timer()‘注意要用到timer控件哈
    Dim cursorp As POINTAPI
    GetCursorPos cursorp
    Text1 = cursorp.x & "," & cursorp.y
End Sub

4、接下來就是使用我的程序發(fā)送快捷鍵了，這個簡單，使用sendkeys函數(shù)即可，以前使用過，代碼如下

SendKeys "+{F10}"

這里出問題了……不管怎么搞，按鍵精靈就是一點響應(yīng)也沒有，去問了一些人，說是按鍵精靈設(shè)置的原因，按鍵精靈有普通模式、硬件模式和超級模式，一般選擇超級模式就搞定了，我就找到修改了然后還是不行，最后我把快捷鍵設(shè)置成了一個字母就OK了，但是這會影響到其他輸入……一頭霧水，到現(xiàn)在都沒弄明白。但是也因為這個原因促使我想其他方法，現(xiàn)在想想要用按鍵精靈，以后還要確保它被開啟才能使用程序，也怪麻煩的，直接一個程序不加其他東西最好

hbtn=FindWindowEx(hwnd,0,vbNullString,"確定")

hbtn = FindWindowEx(hWnd, 0, "ThunderRT6CommandButton", vbNullString)

這里我們可以看到這個軟件能直接獲取各控件的類名和句柄，這個軟件的設(shè)計過程我已轉(zhuǎn)到控件，可以看一下，很有幫組的。獲取了句柄和類名后就可以看是寫程序了

htxt0 = FindWindowEx(hWnd, 0, "Edit", vbNullString)


htxt1 = FindWindowEx(hWnd, htxt0, "Edit", vbNullString)


htxt2 = FindWindowEx(hWnd, htxt1, "Edit", vbNullString)


htxt3 = FindWindowEx(hWnd, htxt2, "Edit", vbNullString)


htxt4 = FindWindowEx(hWnd, htxt3, "Edit", vbNullString)


htxt5 = FindWindowEx(hWnd, htxt4, "Edit", vbNullString)

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Public Const WM_LBUTTONDOWN = &H201


Public Const WM_LBUTTONUP = &H202


Public Const WM_GETTEXT = &HD


Public Const WM_SETTEXT = &HC


Public Const WM_GETTEXTLENGTH = &HE



Dim bytSend(3) As Byte


bytSend(0) = &H35


bytSend(1) = &H30


bytSend(2) = &H30


SendMessage htxt, WM_SETTEXT, 0, bytSend(0)'發(fā)送字符數(shù)組到文本控件


slen = SendMessageByString(htxt, WM_GETTEXT, 255, ByVal gets)'接收文本控件里的數(shù)據(jù)，返回到gets里

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)



Public Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
Public Const MOUSEEVENTF_MOVE = &H1 '  mouse move
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up
Public Const MOUSETRAILS = 39



mouse_event MOUSEEVENTF_LEFTDOWN, RECT.Left + 23, RECT.Top + 458, 0, 0


mouse_event MOUSEEVENTF_LEFTUP, RECT.Left + 23, RECT.Top + 458, 0, 0

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long



SetCursorPos 23, 458


mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0


mouse_event MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0