百度贴吧自动登录问题

[coffee54676]

点击登录，跳出登录对话框。
我用spy4win查看

用户名代码为：<INPUT class=pv:username id=PassInputUsername0 name=username>
密码代码为： <INPUT class=pv:password id=PassInputPassword0 type=password value="" name=password>

可是这些代码不存在于网页源码中，似乎登录对话框并不是窗口，用document属性查找INPUT登录的话会有错误
请问知道用户名 、密码。如何能用WebBrowser自动登录百度贴吧

[cbm6666]

aa = "cbm666" '你的ID
bb = "123456" '你的密码
WebAddr = "http://passport.baidu.com/?login&username=" & aa & "&u=http://post.baidu.com/f?kw=vb"

[cbm6666]

最理想的方法还得使用窗口检测 免得网络塞车 窗口延迟了弹出

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim StartTm&, aa$, bb$, WebAddr$
Dim ie As Object
Private Sub Command1_Click()
aa = "cbm666" '你的ID
bb = "123456" '你的密码
WebAddr = "http://passport.baidu.com/?login&username=" & aa & "&u=http://post.baidu.com/f?kw=vb"
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate WebAddr
'我用延时3秒, 但严谨些的话 可以在此再加上网页窗口是否已存在 再 SendKeys
'否则大不了再点击一次 Command1
Call DelayCycle(3000)
SendKeys bb & Chr(13)
End Sub

Public Sub DelayCycle(Optional Dtm As Long)
On Error Resume Next
StartTm = GetTickCount
Do
DoEvents
Loop Until GetTickCount >= StartTm + Dtm
End Sub

[神马被哪个妞占用了呢]

晕了，发帖机？

[coffee54676]

谢谢cbm666，原来知道直接递交链接可以，不知道如何递交，现在知道了。
不过 登录对话框 问题还没有解决，有知道的吗

[cbm6666]

登录对话框 问题还没有解决??

登录对话框 上面代码不是能弹出来吗？ 难道你弹不出来？

[coffee54676]

谢谢，您的代码我明白了，对我也有帮助。
我的意思是还想知道，如果不在https://passport.baidu.com/?login登录，而是在任何一个贴吧登录，会弹出登录窗口，如何把用户名 、密码发送到那个窗口。（即不用提交链接登录的方式）