VB调用网页后的问题，继续请教中。。

来源：百度知道 编辑：UC知道 时间：2024/06/04 08:42:53
这是我上次提问的问题，有点不全，系统大家补充下·
===========================================================
我是用WEBBROWSER控件实现调用指定的网页的！
代码如下
=======================
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.163.com"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub
==================================
现在问题是这样的：
1：我想在打开网页以后WebBrowser指定到网页的一个位置上！
例如：163上边的用户登陆你地方，我把WebBrowser画的和163上边用户登陆的大小一样！现在就是想WebBrowser1打开自己定位到用户登陆的位置上！应该怎么实现》
2：WebBrowser有没有我们IE上的后退，刷新之类功能的？
3：如何实现WebBrowser打开网页后，不用自己按鼠标，自动点击木一个按扭。例如163上的注册（假设点了注册以后没变化）我的意思就是说怎么实现自动点注册的按扭？
============================================

现在新遇到的问题

就是我在网页调用成功以后，网页上有个按钮 我向一直按它，我想到了shape控件，我想把shape控件画在那个网页的按钮上，点击shape控件，就相当于点了网页上的按钮了，不知道我这个想法可以实现不？期待大家为我解释！在这里先谢谢大家了！

用webbrowser打开网页后,网页内的所有元素你都可以通过代码来操作,
方法是:1.根据标记名(tagname)的和元素名name来找到元素,
2.给元素赋值或是执行相关的事件.

例1: 给username文本框内填充内容:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
if (LCase(doc.All(i).name)) = "username" then
Set tg = doc.All(i)
tg.value=text1.text
end if
End If
Next i
End Sub

例2: 找到提交按钮并点击
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
if (LCase(doc.All(i).type)) = "submit" then
Set tg = doc.All(i)
tg.click
end if
End If
Next i
End Sub

不能.你可