Private Sub Continue_Click() If PingIP( 192.168.1.2 ) Then loading.Show Else MsgBox 无法与服务器取得连接，请与管理员取得联系。 , vbOKOnly, 报错 Unload sign End If End Sub -Private Sub Continue_Click() If PingIP( 192.168.1.2 ) Then loading

IP地址自动切换内外网,切换IP地址为：192 168 2 208 192 168 1 208()