PureBasic Forums - English

This code was taken from this forum and worked well on PB 6.04 (x64).
Now I will not use LONG type variables on 64-bit systems.
Thank you all very much!

Hi guys, help me solve the problem.
There is a program:


Procedure.w Ping(lngDAddress.l, paramTimeOut=1000, paramCountPing=4)
Define ECHO.ICMP_ECHO_REPLY
Define lngHPort.l, lngResult.l
Define *buffer, CountPing;
Define strMessage.s = "Ping, ping, ping!!!"
Define CountMillSec.w=0, ColGoodPing.w ...