You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.6 KiB
77 lines
2.6 KiB
6 years ago
|
EnableExplicit
|
||
|
|
|
||
|
|
Global PBEx_ICMP
|
||
|
|
|
||
|
|
#PBEx_ICMP_Status_BadDestination = 11018
|
||
|
|
#PBEx_ICMP_Status_BadHeader = 11042
|
||
|
|
#PBEx_ICMP_Status_BadOption = 11007
|
||
|
|
#PBEx_ICMP_Status_BadRoute = 11012
|
||
|
|
#PBEx_ICMP_Status_DestinationHostUnreachable = 11003
|
||
|
|
#PBEx_ICMP_Status_DestinationNetworkUnreachable = 11002
|
||
|
|
#PBEx_ICMP_Status_DestinationPortUnreachable = 11005
|
||
|
|
#PBEx_ICMP_Status_DestinationProhibited = 11004
|
||
|
|
#PBEx_ICMP_Status_DestinationProtocolUnreachable = 11004
|
||
|
|
#PBEx_ICMP_Status_DestinationScopeMismatch = 11045
|
||
|
|
#PBEx_ICMP_Status_DestinationUnreachable = 11040
|
||
|
|
#PBEx_ICMP_Status_HardwareError = 11008
|
||
|
|
#PBEx_ICMP_Status_IcmpError = 11044
|
||
|
|
#PBEx_ICMP_Status_NoResources = 11006
|
||
|
|
#PBEx_ICMP_Status_PacketTooBig = 11009
|
||
|
|
#PBEx_ICMP_Status_ParameterProblem = 11015
|
||
|
|
#PBEx_ICMP_Status_SourceQuench = 11016
|
||
|
|
#PBEx_ICMP_Status_Success = 0
|
||
|
|
#PBEx_ICMP_Status_TimedOut = 11010
|
||
|
|
#PBEx_ICMP_Status_TimeExceeded = 11041
|
||
|
|
#PBEx_ICMP_Status_TtlExpired = 11013
|
||
|
|
#PBEx_ICMP_Status_TtlReassemblyTimeExceeded = 11014
|
||
|
|
#PBEx_ICMP_Status_Unknown = -1
|
||
|
|
#PBEx_ICMP_Status_UnrecognizedNextHeader = 11043
|
||
|
|
|
||
|
|
CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
|
||
|
|
PBEx_ICMP = OpenLibrary(#PB_Any, "PB.Ex_ICMP_x86.dll")
|
||
|
|
CompilerElseIf #PB_Compiler_Processor = #PB_Processor_x64
|
||
|
|
PBEx_ICMP = OpenLibrary(#PB_Any, "PB.Ex_ICMP_x64.dll")
|
||
|
|
CompilerEndIf
|
||
|
|
|
||
|
|
If PBEx_ICMP
|
||
|
|
Prototype SendICMPPing(Address.p-Unicode, Timeout, TTL, DontFragment, ErrorOutput)
|
||
|
|
Global SendICMPPing.SendICMPPing = GetFunction(PBEx_ICMP, "SendICMPPing")
|
||
|
|
Prototype GetICMPStatus(ErrorOutput)
|
||
|
|
Global GetICMPStatus.GetICMPStatus = GetFunction(PBEx_ICMP, "GetICMPStatus")
|
||
|
|
Prototype GetICMPIPAddress(Output, ErrorOutput)
|
||
|
|
Global GetICMPIPAddress.GetICMPIPAddress = GetFunction(PBEx_ICMP, "GetICMPIPAddress")
|
||
|
|
Prototype GetICMPRoundTripTime(ErrorOutput)
|
||
|
|
Global GetICMPRoundTripTime.GetICMPRoundTripTime = GetFunction(PBEx_ICMP, "GetICMPRoundTripTime")
|
||
|
|
Prototype GetICMPTTL(ErrorOutput)
|
||
|
|
Global GetICMPTTL.GetICMPTTL = GetFunction(PBEx_ICMP, "GetICMPTTL")
|
||
|
|
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
Global Output$ = Space(1024)
|
||
|
|
Global ErrorOutput$ = Space(128)
|
||
|
|
|
||
|
|
Define ICMPStatus
|
||
|
|
|
||
|
|
SendICMPPing("www.google.de", 1000, 128, 1, @ErrorOutput$)
|
||
|
|
ICMPStatus = GetICMPStatus(@ErrorOutput$)
|
||
|
|
If ICMPStatus = #PBEx_ICMP_Status_Success
|
||
|
|
GetICMPIPAddress(@Output$, @ErrorOutput$)
|
||
|
|
Debug "IP address: " + Output$
|
||
|
|
Debug "Time needed: " + GetICMPRoundTripTime(@ErrorOutput$)
|
||
|
|
Debug "TTL: " + GetICMPTTL(@ErrorOutput$)
|
||
|
|
Else
|
||
|
|
Debug "ICMP-Error: " + ICMPStatus
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
CloseLibrary(PBEx_ICMP)
|
||
|
|
|
||
|
|
; IDE Options = PureBasic 5.60 (Windows - x64)
|
||
|
|
; CursorPosition = 53
|
||
|
|
; FirstLine = 7
|
||
|
|
; EnableXP
|
||
|
|
; EnableUser
|
||
|
|
; Executable = PB.Ex_MSSQL.exe
|
||
|
|
; CompileSourceDirectory
|
||
|
|
; EnableCompileCount = 790
|
||
|
|
; EnableBuildCount = 7
|
||
|
|
; EnableUnicode
|