VB如何把信息添加到其他程序 高手进来

来源：百度知道 编辑：UC知道 时间：2024/05/12 17:54:48
比如我想用两个文本框textbox,把信息添加到QQ的帐号密码的框上然后执行登陆程序

现在已经手头上有两份源代码在 分数给我
加Q发源码

Dim QQPath$, TMPath$, QQGAMEPath$, arg$, LoginType$

Private Sub Check2_Click()
Check1.Enabled = Not CBool(Check2.Value)
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "腾迅QQ"
LoginType = QQPath & "qq.exe"
Case "腾迅TM"
LoginType = TMPath & "TMShell.exe"
Case "QQ游戏大厅"
LoginType = QQGAMEPath & "QQGAME.exe"
Case "珊瑚虫QQ"
LoginType = openfile(Me)
End Select
End Sub

Private Sub Command1_Click()
If IsNumeric(Text1.Text) And Text1.Text <> "" And Text2.Text <> "" And Len(Text1.Text) > 4 And Len(Text2.Text) > 5 Then
vfilepath = disStr(opendir(Me))
If vfilepath <> "" Then
arg = "/START QQUI