窗口加一个WebBrowser1，执行如下代码：

WebBrowser1.Navigate "http://192.168.0.1"
SendKeys "USER"
SendKeys "{TAB}"
SendKeys "PASSWORD"
SendKeys "{ENTER}"

在打开网页后，会弹出一个对话框，让用户输入用户名和密码，这些代码就是想自动登陆


可是问题出现了，这些模拟按键消息无法传递给弹出的登陆窗口！为什么？是因为弹出对话框没有得到焦点？怎么才能解决这个问题？高手请指点！

Private Sub Form_Activate()
WebBrowser1.Navigate "http://192.168.0.1"
Text1.SetFocus 或者 SendKeys "{TAB}" 当不知道网页上的控件名时.
SendKeys "USER"
SendKeys "{TAB}"
SendKeys "PASSWORD"
SendKeys "{ENTER}"
End Sub

[此贴子已经被作者于2006-6-8 17:27:33编辑过]

我试过了，还是不行，程序根本无法把焦点切换到弹出的登陆对话框上！
于是我就想起了API，我这样写：
Call PostMessage(GetDesktopWindow, &H100, &HD, 0)
但是还是不行！弄得我很郁闷，各位帮忙！