VB6实现网络连通检测

PrivateSubForm_Load() IfIsConnected=TRUEThen MsgBox(“您已经连通了Internet!”) EndIf IfIsConnected=FALSEThen MsgBox(“您尚未连通Internet!”) EndIf EndSub   OptionExplicit /*有关的API声明和定义*/ PublicDeclareFunctionRasEnum
相关文章
相关标签/搜索