網絡編程的五大

Visual Basic 6.0（以下簡稱VB 6）以其強大的功能為廣大軟件開發人員所喜愛，被用來開發各種應用程序。隨著Internet的迅猛發展，VB6在絡方面的應用開發也越來越多。本文介紹筆者在實際編程開發中總結的5個技巧，希望能為進行絡開發的朋友們提供一點參考。

連通檢測

許多應用程序常常需要在程序中直接進行聯操作，以便進行一些必要的處理（如注冊和幫助等），這就要求我們在程序中建立某些連接。很多軟件在不知用戶是否聯的情況下就啟動瀏覽器查找址，結果只能查出一錯誤頁，既浪費用戶時間又沒有任何效果。如果應用程序在查找頁之前能自動判斷用戶是否已經聯，就會節約許多時間，提高程序運行效率。

下面是實現絡連通檢測的VB 6代碼：

Private Sub Form_Load()

If IsConnected = TRUE Then

MsgBox (\"您已經連通了Internet!\")

End If

If IsConnected = FALSE Then

MsgBox (\"您還沒有連通 Internet!\")

End If

End Sub

Option Explicit

/＊有關的API聲明和定義＊/

Public Declare Function RasEnumConnections Lib \"l\" Alias \"RasEnumConnectionsA\" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long

Public Declare Function RasGetConnectStatus Lib \"l\" Alias \"RasGetConnectStatusA\" (ByVal hRasCon As Long, lpStatus As Any) As Long

/＊常數和變量的設定＊/

Public Const RAS95_MaxEntryName = 256

Public Const RAS95_MaxDeviceType = 16

Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95

dwSize As Long

hRasCon As Long

szEntryName(RAS95_MaxEntryName) As Byte

szDeviceType(RAS95_MaxDeviceType) As Byte

szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

Public Type RASCONNSTATUS95

dwSize As Long

RasConnState As Long

dwError As Long

szDeviceType(RAS95_MaxDeviceType) As Byte

szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

/＊函數IsConnected返回連通的狀態，如果為True則表示已連通＊/

Public Function IsConnected() As Boolean

Dim TRasCon(255) As RASCONN95

Dim lg As Long

Dim lpcon As Long

美國軍隊將設法對利比里亞抗擊埃博拉疫情的斗爭做出大幅調整。一個由3000名軍人組成的美國團隊不會參與埃博拉患者的治療工作 Dim RetVal As Long

Dim Tstatus As RASCONNSTATUS95

TRasCon(0).dwSize = 412

lg = 256 ＊ TRasCon(0).dwSize

RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)

If RetVal 0 Then

MsgBox \"錯誤\"

Exit Function

End If

Size = 160

RetVal = RasGetConnectStatus(TRasCon(0).hRasCon,Tstatus)

If sConnState = ＆H2000 Then

IsConnected = TRUE

Else

IsConnected = FALSE

End If

End Function