VB如何在操作网页? 10
我想用VB在网页中操作,动作比较简单,就是在网页中的一个输入口输入几个文字,然后点确定,感觉像发帖机,但不需要像发帖机那么复杂,请教教如何做...
我想用VB在网页中操作,动作比较简单,就是在网页中的一个输入口输入几个文字,然后点确定,感觉像发帖机,但不需要像发帖机那么复杂,请教教如何做
展开
3个回答
展开全部
用VB打开网页有多种方法:
方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。
Shell 函数,
执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
Private Sub Command2_Click()
Shell "explorer.exe http://www.xxxx.com"
End Sub
方法2)使用WebBrowser直接建立浏览器。
在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能,包括:
Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件,它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.xxx.com"
End Sub
方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。
Shell 函数,
执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
Private Sub Command2_Click()
Shell "explorer.exe http://www.xxxx.com"
End Sub
方法2)使用WebBrowser直接建立浏览器。
在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能,包括:
Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件,它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.xxx.com"
End Sub
展开全部
Dim vDoc, vTag As Object
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "这里写你输入口的标签" Then
Set vTag = vDoc.All(i)
If vTag.id = "查源码,找id或者type之类的,想精确点,就再加个条件" Then vTag.value=“要输入的数据”
End If
Next i
End Sub
点击按钮的话,一样的,只要把方法改成vtag.click
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "这里写你输入口的标签" Then
Set vTag = vDoc.All(i)
If vTag.id = "查源码,找id或者type之类的,想精确点,就再加个条件" Then vTag.value=“要输入的数据”
End If
Next i
End Sub
点击按钮的话,一样的,只要把方法改成vtag.click
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是程序中就找到窗口句柄 如果是标准网页 就要看你想用怎样的方式实现了 是用控件还是直接调用IE ?
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询