vb6.0里怎么在一个外部程序打开读取写入再比较判断？

要在VB6.0中打开一个外部程序并读取、写入、比较和判断其输出，可以使用Shell函数打开外部程序，使用API函数获取外部程序的句柄，并使用SendMessage函数向程序发送消息。

以下是一个示例代码：

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, lParam As Any) As Long

Const WM_SETTEXT = &HC
Const WM_GETTEXT = &HD

Dim hwnd As Long
Dim strText As String

'打开外部程序
Shell "notepad.exe", vbNormalFocus

'获取外部程序的句柄
hwnd = FindWindow(vbNullString, "无标题 - 记事本")

'向外部程序发送消息，写入文本
SendMessage hwnd, WM_SETTEXT, 0, "Hello, world!"

'向外部程序发送消息，读取文本
strText = Space(1024)
SendMessage hwnd, WM_GETTEXT, 1024, ByVal strText

'比较文本
If strText = "Hello, world!" Then
    MsgBox "文本匹配！"
Else
    MsgBox "文本不匹配！"
End If

在这个示例代码中，我们通过Shell函数打开了记事本程序，并使用API函数FindWindow获取了它的句柄。然后，我们使用SendMessage函数向记事本程序发送了两个消息：一个是WM_SETTEXT消息，用于写入文本；另一个是WM_GETTEXT消息，用于获取文本。最后，我们比较了获取的文本和预期的文本，如果匹配则弹出一个消息框。