发个刚刚写的简易网页填表模块_电脑百科

ZxID：11878243

等级: 大尉

事了拂衣去，深藏身与名。

举报只看楼主使用道具楼主发表于: 2010-11-02 0

这是写文本框里内容的，第一个参数是WEBBROWSER组件，第二个是TAG（比如INPUT，大部分都是），第三个是TAG的类型（text之类），第四个是TAG的名称（第三个参数的对应表单名称），第五个是写入的内容

Public Sub WriteValue(YourWeb As WebBrowser, ByVal Tag As String, ByVal TagsType As String, ByVal TagsName As String, ByVal WebValue As String)
Dim MyDoc, MyTag
Set MyDoc = YourWeb.Document
For i = 0 To MyDoc.All.length - 1
If UCase(MyDoc.All(i).TagName) = Tag Then
Set MyTag = MyDoc.All(i)
If MyTag.Type = TagsType Then
If MyTag.Name = TagsName Then
MyTag.Value = WebValue
End If
End If
End If
Next
End Sub

这是点击按钮的，第一个还是组件，第二个还是TAG...第三个也是类型，第四个是按钮标题

Public Sub Click(YourWeb As WebBrowser, ByVal Tag As String, ByVal TagsType As String, ByVal TagsValue As String)
Dim MyDoc, MyTag
Set MyDoc = YourWeb.Document
For i = 0 To MyDoc.All.length - 1
If UCase(MyDoc.All(i).TagName) = Tag Then
Set MyTag = MyDoc.All(i)
If MyTag.Type = TagsType And MyTag.Value = TagsValue Then
MyTag.Select
MyTag.Click
End If
End If
Next
End Sub

刚刚写了个搜狐的博客注册器，干脆弄了个简易的填表模块，因为注册搜狐博客就要这两个，我也就只写了这两个