首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

小弟我想通过VB自动使一个第三方程序登陆如何做

2012-04-11 
我想通过VB自动使一个第三方程序登陆怎么做?有一个第三方程序,当机器启动时用户名和密码都输好了,如果人工

我想通过VB自动使一个第三方程序登陆怎么做?
有一个第三方程序,当机器启动时用户名和密码都输好了,如果人工做只需要点击它的确定按钮就可以了,现在用程序怎么实现这一功能,

[解决办法]
用SendKeys()将密码之类的,摸似人工输入进去
[解决办法]
可以找到窗口的句柄,再找到确定按钮的句柄,发送回车按键消息就可以了。


═══════════════════
http://www.egooglet.com 资料、源码下载

http://bbs.j2soft.cn 论坛交流
═══════════════════
[解决办法]
从别人那看来的,在窗口的第一个按钮下按回车,你可以自己改一下就可以了
Dim ExeWinCaption As String
ExeWinCaption = "Setup of RealProducer Plus " '此处为你想要控制的程序名称,就是能在任务栏里显示出来的那个
Dim tWnd As Long, bWnd As Long, nextWnd As Long
Dim MyStr As String
tWnd = FindWindow(vbNullString, ExeWinCaption) '寻找指定标题的窗口
nextWnd = 0
Do While tWnd <> 0
MyStr = String(1001, Chr$(0))
bWnd = FindWindowEx(tWnd, nextWnd, "BUTTON ", vbNullString)
'遍历该窗口中的所有 "BUTTON "控件
If bWnd = 0 Then Exit Sub
GetWindowText bWnd, MyStr, 1000 '取得此控件的Caption或Text属性
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
If MyStr= "&Accept > " then '判断是否为你想要的控件
AppActivate ExeWinCaption '激活应用程序窗口并将输入焦点移入此窗口中
SendKeys "{enter} ", True
Exit Sub
End If
Loop



[解决办法]
记得我有写过一个过程,那个帖主是想自动登录QQ

你搜一下吧...........

热点排行