Tarih: 14/08/2023

VBA İnternet Kontrol (var mı/yok mu)

Bilgisayar internete bağlı mı değil mi bunu anlamak için bir yöntem….

Dim strResult As String
 
Sub internetkontrol()
 
Dim objPing As Object
Dim objStatus As Object
 
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
ExecQuery("Select * from Win32_PingStatus Where Address = 'www.google.com'")
 
For Each objStatus In objPing
Select Case objStatus.StatusCode
Case 0: strResult = "1"
Case Else: strResult = "0"
End Select
Next
 
Set objPing = Nothing
 
End Sub

Kolay gele…

Excel VBA

InternetControl

VBA İnternet Kontrol (var mı/yok mu)

İlk Yorumu Siz Yapın

Bir yanıt yazın Yanıtı iptal et