VB2010 สอบถามเรื่องการ Login web ต่างๆ

[thanasit55]

อาจารย์ครับ รบกวนถามต่อจากใน PM ครับ code ผมลองปรับจากของอาจารย์ดูจาก

Code: Select all

Try
                Dim theElementCollection As HtmlElementCollection
                theElementCollection = WebBrowser2.Document.All
                For Each curElement As HtmlElement In theElementCollection
                    If curElement.GetAttribute("OuterHtml").Contains("btn-update abs") Then
                        curElement.InvokeMember("click")
                        'MsgBox("it does the job")
                    End If
                Next
            Catch exc As Exception
                MsgBox(exc.Message)
            End Try

ครับ ปรับตัวปุ่มใน Contains("btn-login.png") ซึ่งในหน้า https://ini3netcafe.mygame.in.th/ipbonus หน้านี้นั้น จากการแงะดู source ของหน้าเว็บ ไม่สามารถ ระบุ ชื่อปุ่มได้ครับ มันมีแค่

Code: Select all

<li class="ip3"><div class="rel"><input type="text" class="box-ipbonus" maxlength="5" value="49.228.229.162">
<div class="btn-update abs" onClick="fn_ipbonus('49.228.229.162','update');"></div></div></li>

แค่นี้ครับ ซึ่งผมลองหา code จากเว็บนอกแล้ว โยลองทดสอบกับ code ที่กดจาก class โดยผมลองใช้ code นี้ครับ

Code: Select all

For Each element As HtmlElement In WebBrowser2.Document.GetElementsByTagName("input")
                If element.GetAttribute("class") = "btn-update abs" Then
                    element.InvokeMember("click")
                End If
            Next

ซึ่งเมื่อลอง run ดู เกิด error ครับที่ GetElementsByTagName("input")โดยแจ้งว่า "Object reference not set to an instance of an object." ครับผม

ขอรบกวนอาจารย์อีกครั้งนะครับ

[snasui]

ได้ลองปรับใช้ Code ที่โพสต์มาในโพสต์แรกแล้วยังครับ

ผมยกทั้งหมดมาอีกทีตามด้านล่าง

Code: Select all

Public Class Form1

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
        Else
            WebBrowser1.Document.GetElementById("inputID").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("inputPW").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
        End If

    End Sub
End Class

หากปรับแล้ว Code มีการ Error หรือไม่ แสดง Error ว่าอย่างไรครับ

[thanasit55]

ได้ลองปรับใช้ Code ที่โพสต์มาในโพสต์แรกแล้วยังครับ

ผมยกทั้งหมดมาอีกทีตามด้านล่าง

Code: Select all

Public Class Form1

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
        Else
            WebBrowser1.Document.GetElementById("inputID").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("inputPW").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
        End If

    End Sub
End Class

หากปรับแล้ว Code มีการ Error หรือไม่ แสดง Error ว่าอย่างไรครับ

หน้าเว็บนี้หลังจาก login แล้ว กดลิ้งมาหน้า

Code: Select all

 https://ini3netcafe.mygame.in.th/ipbonus

ซึ่งในหน้านี้ไม่ต้องกรอกอะไรแต่กดที่ปุ่ม update อันใดอันหนึ่ง แค่นั้นครับผมเลยใช้ code แค่

Code: Select all

WebBrowser2.Navigate("https://ini3netcafe.mygame.in.th/ipbonus")
WebBrowser2.Document.GetElementById("btn-update abs").InvokeMember("click")

ตาม code ที่ผมใช้ในโพสแรกครับโดยลองเปลี่ยนชื่อปุ่มดู ใตว่าใน source ของหน้าเว็บไม่ได้แสดงชื่อของปุ่มออกมาเลยครับมีแค่ class ซึ่ง class นั้นชื่อ btn-update abs ครับ หลังจากกด run เกิด error ตรง Click โดยแจ้งว่า "Object reference not set to an instance of an object" ครับ

ขอบคุณอาจารย์ มากครับ

[snasui]

ใน source ของหน้าเว็บไม่ได้แสดงชื่อของปุ่มออกมาเลยครับ

กรณีนี้ผมก็ช่วยไม่ได้เช่นกันครับ เพราะไม่ทราบว่า Object มันคืออะไร

แนวทางที่น่าจะลองทำต่อก็คงต้อง Loop เข้าไปถึง Object ของมันแต่ละตัวหากเจอตัวที่ใช่ค่อยคลิกครับ สำหรับตัวอย่างการ Loop ก็ตามที่ผมแนะนำไปแล้วในตอนคลิกปุ่ม Login ครับ

[thanasit55]

ใน source ของหน้าเว็บไม่ได้แสดงชื่อของปุ่มออกมาเลยครับ

กรณีนี้ผมก็ช่วยไม่ได้เช่นกันครับ เพราะไม่ทราบว่า Object มันคืออะไร

แนวทางที่น่าจะลองทำต่อก็คงต้อง Loop เข้าไปถึง Object ของมันแต่ละตัวหากเจอตัวที่ใช่ค่อยคลิกครับ สำหรับตัวอย่างการ Loop ก็ตามที่ผมแนะนำไปแล้วในตอนคลิกปุ่ม Login ครับ

ขอบคุณครับอาจารย์ เดี๋ยวลองทำดูครับผม