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，没问题……然而悲剧才刚刚开始

插一脚：这里说一个简单的获取要点击位置的方法，我看了一些很多的方法，觉得这个是最简便的，调用API的GetCursorPos函数，用鼠标指向需要点击的地方就直接获取了这一点的位置。代码如下：

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、接下来就是使用我的程序发送快捷键了，这个简单，使用sendkeys函数即可，以前使用过，代码如下

SendKeys "+{F10}"

这里出问题了……不管怎么搞，按键精灵就是一点响应也没有，去问了一些人，说是按键精灵设置的原因，按键精灵有普通模式、硬件模式和超级模式，一般选择超级模式就搞定了，我就找到修改了然后还是不行，最后我把快捷键设置成了一个字母就OK了，但是这会影响到其他输入……一头雾水，到现在都没弄明白。但是也因为这个原因促使我想其他方法，现在想想要用按键精灵，以后还要确保它被开启才能使用程序，也怪麻烦的，直接一个程序不加其他东西最好

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

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

这里我们可以看到这个软件能直接获取各控件的类名和句柄，这个软件的设计过程我已转到控件，可以看一下，很有帮组的。获取了句柄和类名后就可以看是写程序了

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)'发送字符数组到文本控件


slen = SendMessageByString(htxt, WM_GETTEXT, 255, ByVal gets)'接收文本控件里的数据，返回到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