Question

VB如何操作外来应用程序的控件？

例如，我用shell语句打开一个外来应用程序，这个程序上有一个按钮，我想让VB程序自动点击这个按钮，我该怎末办？
如何获得这个窗口的句柄
什吗叫录入？

Answer 1

百度HI我吧 告诉我你具体的东西，查找窗口句柄不是一句两句能说明白的，代码比较多

楼上说的注入就更麻烦了，要挂进程钩子，比找句柄复杂多了……

'下面这个代码 是查找windows自带的记事本并修改其内容的代码，先打开记事本，再运行这个代码，要添加一个按钮，点一下之后记事本里的文本就改变了
'对于不同的窗口，不同的消息动作，编码也不同，所以，你得知道你要控制的窗口的基本信息：标题、类名，按钮类名等才可以进一步编程
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam 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 Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim hwnd As Long
Dim hedit As Long
hwnd = FindWindow("Notepad", vbNullString)
If hwnd <> 0 Then
hedit = FindWindowEx(hwnd, 0, "Edit", vbNullString)
If hedit <> 0 Then
SendMessage hedit, WM_SETTEXT, 0, "abcdefg" & vbNullChar
End If
End If
End Sub

Answer 2

使用FindWindow来获取外来程序窗体的句柄,再用FindWindowEx来获取按钮的句柄，然后对它发送按下消息

Answer 3

有种技术叫注入。可以在程序的某个位置加入自己的代码。