http://www.purebasic.com
https://www.purebasic.fr/english/
It has the same names on other installations as it's just the filename of the executable (see System32 folder)...Code: Select all
IncludePath "C:\Program Files (x86)\PureBasic\"
XIncludeFile "COMatePLUS.pbi"
Procedure.s Ping_Status_Code(pingcode.i)
Select pingcode
Case 0
Ping_Stat$ = "Success"
Case 11001
Ping_Stat$ = "Buffer Too Small"
Case 11002
Ping_Stat$ = "Destination Net Unreachable"
Case 11003
Ping_Stat$ = "Destination Host Unreachable"
Case 11004
Ping_Stat$ = "Destination Protocol Unreachable"
Case 11005
Ping_Stat$ = "Destination Port Unreachable"
Case 11006
Ping_Stat$ = "No Resources"
Case 11007
Ping_Stat$ = "Bad Option"
Case 11008
Ping_Stat$ = "Hardware Error"
Case 11009
Ping_Stat$ = "Packet Too Big"
Case 11010
Ping_Stat$ = "Request Timed Out"
Case 11011
Ping_Stat$ = "Bad Request"
Case 11012
Ping_Stat$ = "Bad Route"
Case 11013
Ping_Stat$ = "TimeToLive Expired Transit"
Case 11014
Ping_Stat$ = "TimeToLive Expired Reassembly"
Case 11015
Ping_Stat$ = "Parameter Problem"
Case 11016
Ping_Stat$ = "Source Quench"
Case 11017
Ping_Stat$ = "Option Too Big"
Case 11018
Ping_Stat$ = "Bad Destination"
Case 11032
Ping_Stat$ = "Negotiating IPSEC"
Case 11050
Ping_Stat$ = "General Failure"
Default
Ping_Stat$ = "Unknown"
EndSelect
ProcedureReturn Ping_Stat$
EndProcedure
Procedure.s PING_Info(ping_address.s)
Define.COMateObject objWMIService, PINGInfo
sysPINGInfo.COMateEnumObject
strComputer.s = "."
strTarget$ = ping_address
objWMIService = COMate_GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
If objWMIService
sysPINGInfo = objWMIService\CreateEnumeration("ExecQuery('Select * from Win32_PingStatus Where Address= $0027" + strTarget$ +"$0027')")
If sysPINGInfo
PINGInfo = sysPINGInfo\GetNextObject()
While PINGInfo
PING_StatusCode$ = Ping_Status_Code(PINGInfo\GetIntegerProperty("StatusCode"))
PING_ProtocolAddress$ = PINGInfo\GetStringProperty("ProtocolAddress")
PING_ResponseTime$ = Str(PINGInfo\GetIntegerProperty("ResponseTime"))
PING_ResponseTimeToLive$ = Str(PINGInfo\GetIntegerProperty("ResponseTimeToLive"))
PING_Get_Info$ = "Ping Status: " + PING_StatusCode$ + " Protocol Address: " + PING_ProtocolAddress$ + " Response Time (ms): " + PING_ResponseTime$ + " Response Time To Live (ms): " + PING_ResponseTimeToLive$
PINGInfo\Release()
PINGInfo = sysPINGInfo\GetNextObject()
Wend
sysPINGInfo\Release()
EndIf
objWMIService\Release()
Else
MessageRequester("Error", "PINGInfoInfo")
EndIf
ProcedureReturn PING_Get_Info$
EndProcedure
Debug PING_Info("www.google.com")I could, but it adds bloat to my app just to do a "ping" (it adds 53 KB to my exe size; no thanks!). Besides, I wasn't really being specific to "ping", but more about the subject of this thread in general.em_uk wrote:Why not use COMatePLUS and do the the ping almost internally?
Not every country has the same standards, not even for math. One example is how to express floating point numbers. In US you use the point "." to separate the integer part and the fraction part. In germany we use comma and we even call it Fließkommanummer, which is translated: floating comma number.Zach wrote: International standards and all.
Kind of like how a plus sign + means the same thing in math no matter what language you speak
Fließkommazahl.Thorium wrote:In germany we use comma and we even call it Fließkommanummer, which is translated: floating comma number.
Yeah. Why did this outsiders that left Europe 500 years ago for going to the "new land"c4s wrote:There is also the metric vs. non-metric system and whatnot.
Ahh, OK, thx. I just wondered because i had seen a documentary that showed firstZach wrote:The Metric system was not devised until 1790, and not officially established until 1800. It is only 211 years old, not even as old as the United States.
