I am creating a network analysis tool and the first component I have started working on is a ping utility. I have it working fine but the one thing I want it to do is to ping like the DOS version. I have been looking at the Sleep, Pause, Timer, and Wait methods but can't exactly figure out which one I should be using and how to implement them. I am wanting to pause the code execution between pings for one second. How can I do this. Below is some of the code and the place I think the pause should occur.

For I = 1 To 4
    lstOutput.Items.Add("Reply from " & txtIPAddress.Text & " _
    " :bytes =" & size & " time" & retValue & "ms TTL=" & TTL)
     ' PAUSE EXECUTION HERE FOR ONE SECOND BEFORE EXECUTING
     ' ANOTHER PING.....
     retValue = Packet.Ping
Next I

Could someone show or direct me to a code snippet that would show me how to do this.

Thanks.

Jeff Armstrong
Sr. Systems Mgr
SBC Services, Inc.

__________________
Jeff Armstrong
Sr. Systems Mgr
SBC Services, Inc.

I feel silly answering your post, because I'm no developer - just an end-user who has done a fair amount of automation in Word and Excel. Anyway, I have had to sprinkle a lot of pauses through my code to allow Excel and Word time to process various commands relating to printing, opening files, activating views, and so on.

Fwiw, here's the procedure I use:

Public Sub DelayBySec(howLong as Integer)
Dim start as Single
start = Timer + howlong
Do While Timer < start
     DoEvents
Loop
End Sub

Cheers

ArtDecade

I've used something similar in VBA. Here is what I used:

Dim newHour, newMinute, newSecond, waitTime
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5 ' the number specifies the amount of time to wait
waitTime = TimeSerial(newHour, newMinute, newSecond)
' PERFORM SOME FUNCTION
Application.Wait waitTime ' pause code

The problem is I haven't been able to successfully convert this to VB.

Jeff Armstrong
Sr. Systems Mgr
SBC Services, Inc.

One line:

System.Threading.Thread.Sleep(5000)

5000 is the number of milliseconds you want it to sleep, in this case 5 seconds. Place this directly in front of the segment you wish to pause.

Note that you should probably also change the cursor to an hourglass prior to this code and change it back afterwards.

J