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

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

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

Private 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(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(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(ByVal message As String)
        
' MessageBox.Show(message, "大家好,这是窗体程序吗?")
        Dim t As New Form1
        t.Show()
    
End Sub



 
Private 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.net 2005实现自动登陆网页

终于把那个软件交出去了,逃了一个多月的课+损伤无数脑细胞+中途发烧一个星期。可见软件开发成本颇高。anyway,第一个版本总算交了出去。从一无所知到做出个雏形,也算对得起国家社会的培养了吧。用的平台是...

网页捕捉工具(WebCapture) VB.NET2005

  • 2009年02月12日 10:04
  • 228KB
  • 下载

.net平台简单的链接数据库SQL2005

  • 2009年11月25日 01:50
  • 223KB
  • 下载

VB.NET Socket5代理客户端链接 LHSocket5 Server源码

使用 ' 下面以来接代理访问土豆网为例可直接使用IP地址或域名方式进行代理 Dim VSocket As Net.Sockets.Socket = New Net.S...

VB.NET版ssl链接(工行查询接口的实现)

Imports System Imports System.Collections.Generic Imports System.Web Imports System.Text Imports Sys...
  • kyleing
  • kyleing
  • 2011年07月06日 13:40
  • 2085

彻底解决VB.NET获取网页源代码的问题

在解决这个问题之前,我一直很苦恼。在网上到处搜寻,都找不到相应的解决办法。网上,虽然有提及完全相同的问题的帖子,但是答案最后往往没有得到发帖人的肯定,或者帖子就此die在论坛中。为了解决我设计网络爬虫...

vb.net用来获取网页的类

Imports System.Net Imports System.IO Public Class HttpDriverClass HttpDriver     Public Function ...
  • ahstudy
  • ahstudy
  • 2011年11月28日 15:18
  • 437

Oracle10数据库与VB.net链接实例

  • 2016年10月27日 18:17
  • 69KB
  • 下载

VB.NET 与数据库的链接

  • 2011年12月27日 04:19
  • 92KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net2005 获取网页链接,并提示
举报原因:
原因补充:

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