| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1096 人关注过本帖
标题:[求助]如何提取文本框内的信息
只看楼主 加入收藏
Eric_C
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-9
收藏
 问题点数:0 回复次数:10 
[求助]如何提取文本框内的信息
如题:包括(一个USERID 一个PASSWORD)

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

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

搜索更多相关主题的帖子: 文本 
2006-02-09 10:27
Eric_C
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-9
收藏
得分:0 
自己顶一下 刚才发的匆忙 现在把帖子稍微修饰了一下 呵呵~希望有人能指教啊

2006-02-09 12:54
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 
.........
USERID= text1.text
PASSWORD = text2.text

爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-02-09 12:55
Eric_C
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-9
收藏
得分:0 

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

TEXT2为1234(密码)

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

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

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


2006-02-09 13:08
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
看不明,可不可以写清楚一点阿

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2006-02-09 13:11
Eric_C
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-9
收藏
得分:0 
System.FixLogin 这一段是我使用的一个软件 调用它的登陆系统
后面2个引号里面的是登陆名和密码

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

2006-02-09 13:15
小伟的小伟
Rank: 1
等 级:禁止访问
帖 子:122
专家分:0
注 册:2006-1-25
收藏
得分:0 
这样只能用API了~
先获取句柄
然后再用SendMessage发送消息就可以了~
第一条是WM_GEtTEXTLENGH(获取长度)
第二条是WM_GETTEXT(获取文字)
获取句柄嘛~
十分简单
你可以用FindWindowEx两次~
或者GetCursorPos+WindowFromPoint用鼠标移动过去~就可以获取了~
2006-02-09 14:09
Eric_C
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-9
收藏
得分:0 
以下是引用小伟的小伟在2006-2-9 14:09:00的发言:
这样只能用API了~
先获取句柄
然后再用SendMessage发送消息就可以了~
第一条是WM_GEtTEXTLENGH(获取长度)
第二条是WM_GETTEXT(获取文字)
获取句柄嘛~
十分简单
你可以用FindWindowEx两次~
或者GetCursorPos+WindowFromPoint用鼠标移动过去~就可以获取了~

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


2006-02-09 14:48
小伟的小伟
Rank: 1
等 级:禁止访问
帖 子:122
专家分:0
注 册:2006-1-25
收藏
得分:0 
你说的那个应该不是自己的程序吧?
这是唯一的方法了-用API
2006-02-09 21:44
小伟的小伟
Rank: 1
等 级:禁止访问
帖 子:122
专家分:0
注 册:2006-1-25
收藏
得分:0 
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没有通过
研究一下
2006-02-09 22:09
快速回复:[求助]如何提取文本框内的信息
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017339 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved