LB Booster - Network "Ping" Check

LB Booster

Programming

BASIC code examples (Moderator: Richard Russell)

Network "Ping" Check

« Previous Topic | Next Topic »

Pages: 1

Author

Topic: Network "Ping" Check (Read 860 times)

Mystic
Junior Member

member is offline
Avatar

Gender:

Posts: 53

Re: Network "Ping" Check
« Reply #3 on: Aug 4^th, 2015, 7:17pm »

Looks like this just checks if the computer you're on can connect to the internet.

I need to ping specific machines to see if they are connected...

Logged

- Rick

Richard Russell
Administrator

member is offline

Posts: 1348

Re: Network "Ping" Check
« Reply #4 on: Aug 4^th, 2015, 9:09pm »

on Aug 4^th, 2015, 7:17pm, Mystic wrote:

Looks like this just checks if the computer you're on can connect to the internet.
I need to ping specific machines to see if they are connected...

The MSDN page I linked to in my reply states explicitly: "If lpszUrl is non-NULL, the host value is extracted from it and used to ping that specific host". Do I assume you've tried it and it doesn't work?

Richard.

Logged

Mystic
Junior Member

member is offline
Avatar

Gender:

Posts: 53

Re: Network "Ping" Check
« Reply #5 on: Aug 4^th, 2015, 11:11pm »

on Aug 4^th, 2015, 9:09pm, Richard Russell wrote:

Do I assume you've tried it and it doesn't work?

No assuming... I'll write some code and play with it. I was going by...

"Allows an application to check if a connection to the Internet can be established."

Thanks again...

Logged

- Rick

Mystic
Junior Member

member is offline
Avatar

Gender:

Posts: 53

Re: Network "Ping" Check
« Reply #6 on: Sep 10^th, 2015, 9:51pm »

Here's my not so elegant solution I threw together.

I'm sure many of you will snicker at my coding, but it's working for now.

Code:

[pingMachine]
    ' Create a batch file with the ping information...
    success = 0
    pingReply = 0
    success$ = ""
    OPEN "gather.bat" FOR OUTPUT AS #batch
        PRINT #batch, "@echo off"
        pingLine$ = "ping " + addressUrl$ + " > pingresults.dat"
        PRINT #batch, pingLine$
    CLOSE #batch
    GOSUB [pauseProgramShort]
    RUN "gather.bat", HIDE
    GOSUB [pauseProgram]
' Printing out ping file for testing...
    OPEN "pingresults.dat" FOR INPUT AS #pingDisplay
        WHILE NOT(EOF(#pingDisplay)<>0)
            LINE INPUT #pingDisplay, printPingLine$
            IF LEFT$(printPingLine$, 10) = "Reply from" success = success + 1
            PRINT printPingLine$
        WEND
    CLOSE #pingDisplay
    IF success >= 3 THEN
        pingReply = 1
        success$ = addressUrl$ + " SUCCESS"
        PRINT success$
        PRINT "=================================================================="
    END IF
    PRINT
    ' If there is no reply let the program know that there is activity during this hour...
    IF pingReply = 0 THEN activity = 1
RETURN

Logged

- Rick

Pages: 1


« Previous Topic \| Next Topic »