我是新手，想问下如何SendMessage给另一个程序

Question

可能这个问题很简单，但是我没有实践过。
想问下，如何在VB里面 控制另一个程序。 我想通过VB 点击一下那个窗口里面的某个按钮 如何操作？Sendmessage可以解决吗？
谢谢！

Answer 1

  SendMessage hwnd, WM_LBUTTONDOWN, 0&,0&         
  SendMessage hwnd, WM_LBUTTONUP, 0&, 0&

Answer 2

结帖吧
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
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 Sub Form_Load()
    Shell "calc.exe", vbNormalNoFocus
End SubPrivate Sub Command1_Click()
    Dim Hwnd1 As Long
    Dim Hwnd2 As Long
    Hwnd1 = FindWindow("SciCalc", "计算器")
    Hwnd2 = FindWindowEx(Hwnd1, 0, "Button", "1")
    SendMessage Hwnd2, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
    SendMessage Hwnd2, WM_LBUTTONUP, ByVal 0&, ByVal 0&
End Sub

Answer 3

嗯就是这样的。你可用找个api教程看看〈我的资源里有〉很简单