发个刚刚写的简易网页填表模块

社区服务
高级搜索
猴岛论坛电脑百科发个刚刚写的简易网页填表模块
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
5个回复

发个刚刚写的简易网页填表模块

楼层直达
无名神棍

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


刚刚写了个搜狐的博客注册器,干脆弄了个简易的填表模块,因为注册搜狐博客就要这两个,我也就只写了这两个
人面不知何处去,桃花依旧笑春风。
601715774

ZxID:13646877

等级: 列兵
举报 只看该作者 5楼  发表于: 2010-11-26 0
法国面具男丶

ZxID:13377058

等级: 大将

举报 只看该作者 4楼  发表于: 2010-11-21 0
不错哈!
岛国老师全集.zip[点击下载]   (958.4 K) 下载次数814572 累计下载获得 DB 985452刀
无名神棍

ZxID:11878243

等级: 大尉
事了拂衣去,深藏身与名。
举报 只看该作者 地板   发表于: 2010-11-03 0
突然发现。。。因为我一开始学VB时候看的教程的原因。。。所以习惯性的带了个UCASE...TAG参数请输入大写字母。。。

或者把
If UCase(MyDoc.All(i).TagName) = Tag Then
改成
If MyDoc.All(i).TagName = Tag Then
人面不知何处去,桃花依旧笑春风。
夏无蝶

ZxID:10666759

等级: 元老
配偶: benq12
To0oTo0o------------------小蝶

举报 只看该作者 板凳   发表于: 2010-11-03 0
谢谢分享。。。

看表格也不想看字符。。

i丶哎哟喂o

ZxID:8383265

等级: 贵宾
配偶: Stranger。
    ◇◆  蛋疼〃菊花痒

举报 只看该作者 沙发   发表于: 2010-11-03 0
杀花 俺不懂


« 返回列表
发帖 回复