我想通过VB自动使一个第三方程序登陆怎么做?

Question

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

Answer 1

用SendKeys()将密码之类的,摸似人工输入进去

Answer 2

可以找到窗口的句柄，再找到确定按钮的句柄，发送回车按键消息就可以了。
═══════════════════
http://www.egooglet.com 资料、源码下载http://bbs.j2soft.cn 论坛交流
═══════════════════

Answer 3

从别人那看来的,在窗口的第一个按钮下按回车,你可以自己改一下就可以了
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