VB制作的网页下载地址

答案:1 悬赏:20 手机版

解决时间 2021-05-17 01:20

提问者网友：喧嚣尘世
2021-05-16 18:40

我要个 VB 制作的网页最多 8个链接请高手帮忙制作一个感谢了

最佳答案

五星知识达人网友：未来江山和你
2021-05-16 19:27

获得网页中的超链接网址对一些网络编程很有用处,很多朋友都不会用,今天我就交给大家怎么才能在VB6.0中实现这个功能,首先新建一个工程,加入webbrowser和scriptlet控件(引用部件Microsoft HTMl object Library添加一个Listbox控件(用于存放读出的网址)命名为(listurl),个textbox()控件用于打开网址命名为txtsearchOption ExplicitDim UrlNow As IHTMLDocument2Private Sub CmdGeturl_Click() 'WebBrowser1.Stop 'Dim UrlNow On Error GoTo errordes Set UrlNow = WebBrowser1.Document If UrlNow Is Nothing Then MsgBox "当前页面没有链接", vbInformation, "注意" Else Dim UrlIndex As Long For UrlIndex = 0 To UrlNow.links.length - 1 ListUrl.AddItem UrlNow.links(UrlIndex) Next UrlIndex End If Exit Suberrordes: MsgBox "未知错误", vbCritical, "错误" End SubPrivate Sub Cmdstart_Click() WebBrowser1.Navigate2 txtSearch.Text End Sub这个就完具体请看我的博客: http://hi.baidu.com/qiupeng501/blog/item/1209fcc48d69a7c838db497a.html

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息