Question

VB用自己做的程序给指定程序的多个输入框传送多个字符

VB用自己做的程序给指定程序的多个输入框传送多个字符，就是我自己开发了一个数据库管理软件，现在还有一个开票程序，必须把我的数据管理系统中的数据一个一个输进去，这很麻烦，比如另一个程序有5个文本输入框，怎样能把我的程序的几个文本框的数据（字符串）传到另一个程序的那5个输入框
例如：左边是我的程序，右边是外部程序， 我的程序我有代码的所以可以通过代码修改，但是外部程序我没有代码。。现在我需要把我的程序的这5个框里的数据通过按“传送数据”传到右边的外部程序的5个文本框。。。（用句柄的方法感觉不可靠，因为句柄每次都会变，很麻烦，我要的是直接按“传送数据”把文本框里的数据传过去）
是VB6.0的。
把代码发到我的邮箱: 47466556@qq.com
如果能解决我的问题追加更多分
那个开票软件的地址
http://www.xjjdls.com/down_center.asp?info_kind=007
新疆电子发票单用户版(V1.0.028)
，如果能做到给这个开票软件的几个输入框传字符，我再追加300分

Answer 1

好多分啊 其实没非常明白你的意思 建议举例一下

Answer 2

需要外部程序的App接口才能准确定位和传输

Answer 3

QQ里面详谈

Answer 4

沃卡十分

Answer 5

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)

Private Sub Command1_Click()
Dim h1 As Long
Dim h2 As Long
h1 = FindWindow(vbNullString, "Form1") 'Form1是要填入数据的窗口的标题
If h1 <> 0 Then
h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text1.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text2.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text3.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text4.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text5.Text)

End If
End Sub

追问

用在父窗口可以实现了。。但是程序子窗口就不行了。。。能不能改成对子窗口也有用的，外部程序主窗口用的MDIFORM,上面的信息要输送到主窗口上的一个字窗口

追答

思路是这样的 了 你可以摸索一下
我这里也没有程序来调试 也不知道你的目标程序是怎样的
关键是找到类名和窗体标题