Snasui Excel Forum

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

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: 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

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: Select all

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

Code: Select all

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