VB6實現網絡連通檢測

PrivateSubForm_Load() IfIsConnected=TRUEThen MsgBox(「您已經連通了Internet!」) EndIf IfIsConnected=FALSEThen MsgBox(「您尚未連通Internet!」) EndIf EndSub   OptionExplicit /*有關的API聲明和定義*/ PublicDeclareFunctionRasEnum
相關文章
相關標籤/搜索