Excel Forum

Code: Select all

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Reboot.Click

        void_reboot()
        'void_Timer() หยุดทำงานเมื่อ Reboot
        void_Timer()
        Application.DoEvents()


    End Sub

 Sub void_reboot()

        boxStatus.Items.Clear()
        boxStatus.Items.Add("Please... Wait Rebootting")

        WebBrowser1.Navigate(TextBox3.Text)
        wait(1)
        WebBrowser1.Document.GetElementById("login_login_button").InvokeMember("Click")
        wait(1)
        WebBrowser1.Document.GetElementById("nav_settings_link").InvokeMember("Click")
        wait(1)
        WebBrowser1.Document.GetElementById("settings_utilities_link").InvokeMember("Click")
        wait(1)
        WebBrowser1.Document.GetElementById("settings_utilitiesReboot_button").InvokeMember("Click")
        wait(1)
        WebBrowser1.Document.GetElementById("popup_apply_button").InvokeMember("Click") 'ปุ่มกดตกลง เพื่อ rebootting
        'Application.DoEvents()

        boxStatus.Text = " Load Program...Complete."

    End Sub

Code: Select all

'ผมติดปัญหา ในการเช็ค ว่า 
WebBrowser1.Navigate(TextBox3.Text)'ตัวนี้มันกลับมาแสดงอีกครั้งหรือ ยัง 
if ในนี้จะต้องใส่อะไร เพื่อเช็ค ให้มันเช็คจนกว่าจะเจอ แล้วให้ Then
ทำข้างในนี้ 

Timer1.Stop()

End If