ASP_Volume2 Internet/ HTML #38290

Determine if Connected to Internet (even through network)

Name: Determine if Connected to Internet (even through network)
Brand: Planet Source Code
SKU: PSC-38290
Availability: InStock
Rating: 4.5 (340 reviews)
Author: Mike Dryden

Mike Dryden

★★★★★

4.8 · التحميلات: 2,341

Simple way to tell if a user is connected to the internet

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر

Public Sub CheckIfConnected()
 Winsock1.Close
 Winsock1.Connect "www.yahoo.com", 80
 
 While Winsock1.state <> sckConnected
  If Winsock1.state = sckError Then GoTo Offline
  DoEvents
 Wend
 
 MsgBox "Online"
 Winsock1.Close
 Exit Sub
Offline:
 MsgBox "Offline"
End Sub

التعليقات الأصلية (3)

مسترجع من Wayback Machine