如题：包括（一个USERID 一个PASSWORD）

最近赶着做项目实在没时间看VB 望有知道的请指教 谢谢

[此贴子已经被作者于2006-2-9 12:53:46编辑过]

自己顶一下 刚才发的匆忙 现在把帖子稍微修饰了一下 呵呵~希望有人能指教啊

.........
USERID= text1.text
PASSWORD = text2.text

谢谢你的解答但是好象我试不出来帮我看看哪出错了好么
比如我设置了TEXT1为ADMIN （用户名）

TEXT2为1234（密码）

TEXT1 TEXT2可以随时输入
那个我设置一个登陆按钮
Private Sub CommandButton1_Click()

System.FixLogin "Text1.TEXT", "Text2.TEXT"

End Sub
可是实现不了登陆功能，这是为什么？

看不明,可不可以写清楚一点阿

System.FixLogin 这一段是我使用的一个软件 调用它的登陆系统
后面2个引号里面的是登陆名和密码

我现在需要做2个文本框 提取里面的字符作为登陆名和密码
然后点击一个设置的按钮实现登陆功能
Private Sub CommandButton1_Click()
是这个软件默认的按钮点击程序

这样只能用API了～
先获取句柄
然后再用SendMessage发送消息就可以了～
第一条是WM_GEtTEXTLENGH（获取长度）
第二条是WM_GETTEXT（获取文字）
获取句柄嘛～
十分简单
你可以用FindWindowEx两次～
或者GetCursorPos＋WindowFromPoint用鼠标移动过去～就可以获取了～

天！看着好复杂 不是很懂 没学过VB 能不能说简单点

你说的那个应该不是自己的程序吧？
这是唯一的方法了－用API

Option Explicit

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 EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBB
Const EM_GETLINE = &HC4

Private Sub cmd_Click()
Dim astr As String
Dim l As Long, iLineY As Long

astr = Space(1024)
l = SendMessage(Text2.Text, EM_LINEINDEX, -1, 0)
iLineY = SendMessage(Text2.Text, EM_LINEFROMCHAR, l, 0)
l = SendMessage(Text2.Text, EM_GETLINE, iLineY, ByVal astr)
Text1.Text = CStr(astr)
End Sub

Private Sub Form_Load()

End Sub

你试试～
在Text2中输入句柄～
我测试了VB和Delphi的程序都可以～VC没有通过
研究一下