website.bas

支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件防修改监控功能

Attribute VB_Name = "WebSite"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/20
'描    述：界面清爽VB版高级专业防火墙 Ver 2.0.3
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
                                                                               ByVal lpOperation As String, _
                                                                               ByVal lpFile As String, _
                                                                               ByVal lpParameters As String, _
                                                                               ByVal lpDirectory As String, _
                                                                               ByVal nShowCmd As Long) As Long
Public Sub OpenWebsite(strWebsite As String)
'Opens default web browser to defined website
'Usage Example: OpenWebsite("http://www.mywebsite.com")
    If ShellExecute(&O0, "Open", strWebsite, vbNullString, vbNullString, SW_NORMAL) < 33 Then
        If Err.Number Then
            Select Case Err.Number
            Case 31
                MsgBox "No Association Found for HTTP Addresses. A Web Browser Should be Installed or Reinstalled.", 48
            Case 2, 3
                MsgBox "The '" & strWebsite & "' File or Path was Not Found.", 48
            Case Is <= 32
                MsgBox "An error occurred attempting to open '" & strWebsite & "' (ShellExecute code " & Err.Number & ").", 16
            End Select
        End If
    End If
End Sub