modül içerisine
Kod:
Public Function siteaktifmi(site As String)
Const OpenAsASCII = 0
Const FailIfNotExist = 0
Const ForReading = 1
Dim objShell, objFSO, sTempFile, fFile
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sTempFile = objFSO.GetSpecialFolder(2).ShortPath & "\" & objFSO.GetTempName
objShell.Run "%comspec% /c ping.exe -n 2 -w 500 " & site & ">" & sTempFile, 0, True
Set fFile = objFSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist, OpenAsASCII)
Select Case InStr(fFile.ReadAll, "TTL=")
Case 0
siteaktifmi = False
Case Else
siteaktifmi = True
End Select
fFile.Close
objFSO.DeleteFile (sTempFile)
Set objFSO = Nothing
Set objShell = Nothing
End Functionağdaki bilgissayar adı ne ise burada "asm"
Kod:
Private Sub Komut0_Click()
If siteaktifmi("asm") = True Then
Me.Metin4.Value = "Siteye Erişiminiz Vardır."
Else
Me.Metin4.Value = "Siteye Erişiminiz Yoktur."
End If
End Sub
[code]