Call a Sub or Command

hobbit666 · December 20th, 2006, 09:44 AM

Right i have a form with two button a text box and a few labels. Button one when clicked pings a computer and displays the resault in the text box. Button two when clicked send a telnet command and reboots my server.

These are working fine. But i have now added a count down timer to the form (5mins). What i want to happen is when the timer gets down to 0 i want it to run the ping. So will i need to type out the ping command again in the timer_tick section or can i place this:-

Code:

Private Sub btnPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPing.Click


        If My.Computer.Network.Ping("10.50.50.217") Then
            lblDisplay.Text = "Server pinged successfully."
            Count = 0
            lblcount.Text = Count

        Else
            lblDisplay.Text = "Ping request timed out."
            Count = Count + 1
            lblcount.Text = Count

        End If

    End Sub

into a command/procedure and then call it from the button click and when the timer gets to zero.

e.g.

Code:

Private Sub btnPing_Click

call [ping_command]

end sub

and

Private Sub Timer_tick

If Counter = 0 then call [ping_command]

end sub

Or what ever the command(s) would be?

hobbit666 · December 20th, 2006, 09:46 AM

for your information here is the complete VB code i have so far

Code:

Public Class Form1

    Dim Count As Integer
    Dim Counter As Integer

    Private WithEvents w3sock As Socket.TCP
    Private Sub Form1_Laod(ByVal sender As System.Object, ByVal ByVal_e As System.EventArgs) Handles MyBase.Load
        w3sock = New Socket.TCP

        Timer1.Enabled = True

    End Sub


    Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
        On Error GoTo ErrorHandler

        w3sock.TimeOut = 5000
        w3sock.DoTelnetEmulation = True
        w3sock.TelnetEmulation = "TTY"
        w3sock.Host = "10.50.50.253:23"
        w3sock.Open()

        w3sock.WaitFor("login:")
        w3sock.SendLine("netscreen")
        w3sock.WaitFor("password:")
        w3sock.SendLine("surestore")
        w3sock.WaitFor("> ")
        w3sock.SendLine("reset")
        w3sock.WaitFor("[n] ")
        w3sock.SendLine("y")
        w3sock.WaitFor("In Reset")
        w3sock.Close()

        Exit Sub

ErrorHandler:
        MsgBox(Err.Description, MsgBoxStyle.Critical, "Error Detected")
        Err.Clear()
        w3sock.Close()
    End Sub

    Private Sub btnPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPing.Click


        If My.Computer.Network.Ping("10.50.50.217") Then
            lblDisplay.Text = "Server pinged successfully."
            Count = 0
            lblcount.Text = Count

        Else
            lblDisplay.Text = "Ping request timed out."
            Count = Count + 1
            lblcount.Text = Count

        End If

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Counter = 0 Then
            Counter = 300

        Else
            Counter = Counter - 1
        End If
        lbltimer.Text = Counter

    End Sub


End Class

hobbit666 · December 21st, 2006, 11:22 AM

Found the solution nice and simple