วนลูปเช็ค Web Page ต้องทำยังไงครับ?

[Taksaporn]

อยากทราบว่า มีการทำloop ยังไงให้ VBA เช็ค ว่าเมื่อหน้าเว็บ แสดงขึ้นมาแล้ว ให้ทำการ หยุดการทำงานของ Timer
ตอนนี้ผมกำลังทำการ เข้าเว็บ แบบ Auto ซึ่งมีการ booting อยู่ในโปรแกรม แล้ว ให้ Timer ทำงาน แล้วเช็คจนกว่า จะกลับมาหน้าเว็บ เดิม
มีวิธีไหนเช็คได้มั่งครับ ตอนโปรแกรมทำงานก็มีอาการค้างด้วยครับ ใช้ Application.DoEvents() มาช่วยก็ช่วยไม่ได้

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

[snasui]

ตัวอย่างการ Start, Stop Timer ลองดูที่นี่ครับ http://vb.net-informations.com/gui/timer-vb.htm

ลักษณะการทำงานคือเมื่อเกิด Event ใด ๆ แล้วให้ Procedure Timer ถูก Start > ใน Procecure Timer ให้ทำการตรวจสอบค่าใดตามต้องการหากเมื่อพบว่าได้ตามเป้าหมายแล้วค่อย Stop Timer เช่นนี้ครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่าน ดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบน สำหรับกระทู้นี้ผมแก้ให้แล้วครับ

[Taksaporn]

Code: Select all

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

Timer1.Stop()

End If

[snasui]

ลองดูตัวอย่าง Code ที่ Link นี้ครับ http://stackoverflow.com/questions/3275 ... -in-vb-net

[Taksaporn]

ขอลองศึกษา 2วันไม่ได้ เดี๋ยวกลับมาใหม่ครับ 5555
ขอบคุณครับ