vb.net2005 获取网页链接,并提示

原创 2007年10月04日 23:00:00

=用按钮设置WEBBROWSER的内容================================

Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
Dim s As String = _
      
"<html><body>Please enter your name:<br/>" & _
      
"<input type='text' name='userName'/><br/>" & _
      
"<a href='http://www.microsoft.com' name='t'>continue</a>" & _
      
"</body></html>"
        s 
= "<a href='http://www.163.com' >aaaaaaaaaaa</a><br><a href=""#b"">bbbbbbbbbbbb</a><br><a href=""http://www.baidu.com"" >百度</a><br>"
        
'Me.WebBrowser1.Navigate("http://localhost/z.asp")
        WebBrowser1.DocumentText = s
    
End Sub

 

=在Navigating获取URL===================================

   

 Private Sub WebBrowser1_Navigating()Sub WebBrowser1_Navigating(ByVal sender As ObjectByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating

        
Dim document As System.Windows.Forms.HtmlDocument = WebBrowser1.Document

        
If e.Url.ToString.IndexOf("baidu">= 1 Then
            e.Cancel 
= True
            
MsgBox("baidu域名")
            
Dim s As New Form2
            s.Show()
        
End If
        
If e.Url.ToString.IndexOf("163">= 1 Then
            e.Cancel 
= True
            
MsgBox("163域名")
        
End If
        
If e.Url.ToString.IndexOf("#b">= 1 Then
            e.Cancel 
= True
            
MsgBox("自定义链接")
        
End If
        
'   If document IsNot Nothing And document.All("userName") IsNot Nothing And _
        '      String.IsNullOrEmpty(document.All("userName").GetAttribute("value")) Then
        '  e.Cancel = True

        
'  MsgBox("You must enter your name before you can navigate to " & e.Url.ToString())
        '  End If
       
    
End Sub
 

 

=在WebBrowser1_NewWindow防止用户使用SHIFT跳出新窗口======================================

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        e.Cancel 
= True
    End Sub

 

 =================方法二=========================================================

   Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        
' Me.WebBrowser1.Navigate("http://localhost/z.asp")

        WebBrowser1.AllowWebBrowserDrop 
= False
        WebBrowser1.IsWebBrowserContextMenuEnabled 
= False
        WebBrowser1.WebBrowserShortcutsEnabled 
= False
        WebBrowser1.ObjectForScripting 
= Me
        
'  只有在完成调试后才将ScriptErrorsSuppressed属性设定成True。


        WebBrowser1.ScriptErrorsSuppressed 
= True

        WebBrowser1.DocumentText 
= _
            
"<html><head><script>" & _
            
"function sayhi(message) { alert(message); }" & _
            
"</script></head><body><a href=""#"" target=_blank onclick=""window.external.SayHello('这是在 Script 指令代码中调用窗体 SayHello 程序')"">程序链接</a></html>"
    
End Sub


   
Public Sub SayHello()Sub SayHello(ByVal message As String)
        
' MessageBox.Show(message, "大家好,这是窗体程序吗?")
        Dim t As New Form1
        t.Show()
    
End Sub



 
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Document.InvokeScript(
"sayhi", _
                   
New String() {"这是在窗体程序代码中调用 Script 函数 SayHi"})
    
End Sub

vb.net2005 网页自动填写并提交

if request("B1")="提交" thenresponse.write "姓名:"&request("Name")end if%>  请填写下面表单注册(*项为必添项)  *姓名  *昵称 ...
  • cooldidi1
  • cooldidi1
  • 2007年10月03日 11:17
  • 1120

【搜索引擎Jediael开发笔记3】使用HtmlParser提取网页中的链接

1、相关资料 官方文档:http://htmlparser.sourceforge.net/samples.html API:http://htmlparser.sourceforge.net/jav...
  • jediael_lu
  • jediael_lu
  • 2014年05月20日 20:50
  • 6486

页面引入动态获取到的css和js链接地址

node.js 可以先读取完数据再加载页面 router.get('/', function (req, res) {   var myCSS="http://ww.XXXX.com/in...
  • qq_33008701
  • qq_33008701
  • 2017年02月16日 16:03
  • 612

python获取网页上所有链接

import urllib2 #获取源码的函数,urllib3更换 urllib.request.urlopen(url).read() return urllib2.urlopen(...
  • u013045370
  • u013045370
  • 2016年11月10日 20:41
  • 1308

Android 获取网页的视频链接

10.16  青岛      阴       近来,想取某网站的视频做数据源,经别人帮忙爬取了视频链接后发现,视频的连接会在1--2小时后就失效了。经研究发现,每次打开包含视频链接的网页,网页内的视频...
  • a1021508536
  • a1021508536
  • 2016年10月16日 10:31
  • 2497

正则表达式获取网页链接

设计目的要使获取的资源尽可能的被直接利用,以提高后续程序运行的效率。网页上的链接主要可以分为两类:1. 链接2. 图片链接 首先来分析链接,该链接基本可以分为以下四种情况:1 普通链接链接到外部网页...
  • zijuan
  • zijuan
  • 2009年04月01日 11:00
  • 8096

提取网页中的超链接

using System; using System.Xml; using System.Text; using System.Net; using System.IO; using System.C...
  • 21aspnet
  • 21aspnet
  • 2007年03月24日 17:04
  • 4052

c++ 获取一个网页下所有子链接

获取网址下子链接的地址: -------- #include #include #include #include #include using namespace std; int m...
  • faral
  • faral
  • 2014年02月12日 11:59
  • 1029

获取网页链接

public void fetchLink() { String url = "http://www.hainan.net"; try { Document doc = Jsoup.conn...
  • zkwniky
  • zkwniky
  • 2017年05月09日 22:45
  • 81

python爬虫:抓取页面上的超链接

Beautiful Soup 是一个可以从HTML或XML文件中提取数据的Python库.它能够通过你喜欢的转换器实现惯用的文档导航,查找,修改文档的方式.Beautiful Soup会帮你节省数小时...
  • xtingjie
  • xtingjie
  • 2017年07月14日 14:24
  • 3585
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net2005 获取网页链接,并提示
举报原因:
原因补充:

(最多只允许输入30个字)