VB 自动输入用户名密码，求教

想编写一个自动登陆路由器的程序，网页提交方式已经会了，但是弹出式用户密码框不会，求高人帮助。 
问题补充：我要的是VB代码，编程方法，其他回答请绕道。谢谢
有人叫我用 http://用户名:密码@网址 或者 http://用户名:密码@IP 这样的形式，我试了不行的。

我后来用获取句柄和类的方式，最多只能获取整个弹出窗口的句柄和类等，下面的输入框的类和句柄得不到(用SPY可以得到,但是句柄每次打开都在变,所以不能指定)，直接用POST和SEND方式不能发送，不知道是不是我方法有问题，求高手帮忙.

7 个解决方案

#1

直接模拟发送键盘按键消息吧！

#2

Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1)   ' 运行计算器。
AppActivate ReturnValue    ' 激活计算器。
For I = 1 To 100   ' 设置计数循环。
   SendKeys I & "{+}", True   ' 按下按键给计算器
Next I   ' 将所有 I 值相加。
SendKeys "=", True   ' 取得总合。
SendKeys "%{F4}", True   ' 按 ALT+F4 关闭计算器。

或者改用AutoHotKey软件的脚本实现

#3

senkeys 没有用

postmessage
sendmessage 
都没用..

#4

http://topic.csdn.net/t/20061224/14/5252514.html

#5

现在我已经找到输入的方法了，确定按钮也可以点了，但是问题又来了，，无论哪里的确定，只要出现就被点击。。。

一下是点击确定的代码：
       lHwnd是弹出窗口的句柄,BM_CLICK=&HF5
        mHwnd = FindWindowEx(lHwnd, ByVal 0&, "Button", "确定")
       SendMessage mHwnd, BM_CLICK, 0, 0

完全搞不懂。。

#6

哈哈，搞懂了，取的类有问题，WINDOWS里面到处都是#32770的类，我把标题条件加进去就好了。
谢谢各位回答

#7

引用 4 楼 veron_04 的回复:

http://topic.csdn.net/t/20061224/14/5252514.html

这个有用，给分