建议研究参数说明，估计是那里的问题。

哦..好像不太清楚.

Option Explicit
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 SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const BM_CLICK = &HF5
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Sub command1_click()
Dim Handle As Long
Dim s As String
Dim ParentHandle As Long
ParentHandle = FindWindow("#32770", "登录到全部行情主站")
Text1.Text = Str(ParentHandle)

'On Error Resume Next
Handle = FindWindowEx(Text1.Text, 0&, "Button", "登录")
Text2.Text = Handle
SendMessage Handle, WM_KEYDOWN, 32, &H11C0001
SendMessage Handle, WM_KEYUP, 32, &H11C0001
'SendMessage 0, WM_KEYDOWN, 32, &H11C0001
'SendMessage 0, WM_KEYUP, 32, &H11C0001
'SendMessage Handle, BM_CLICK, 0

End Sub


'测试没有什么问题的，仔细看我的改动。正在研究同花顺外挂，一起交流哈 QQ110102296