1

Web サイトにログインし、指定された間隔で非常に高速に何かを自動クリックできるスクリプトがあります。最新の詳細を追加して以来、オートクリッカーを除いて、スクリプト内のすべてが機能します。ボタンをクリックしてオートクリッカーを開始すると、一度もクリックしません。ここに私が追加したコードがあります

 With WebBrowser1

        Do Until Not (.IsBusy)
            Application.DoEvents()
        Loop

        Do Until .ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop


    End With

    Dim htmlText As String

    If Not (WebBrowser1.Document.Body.InnerHtml) Is Nothing Then

        htmlText = WebBrowser1.Document.Body.InnerHtml

        If InStr(htmlText, "Microsoft account") Then

            MessageBox.Show("You have entered in a wrong password or the account doesn't exist.")
            'code to go here if it is true
        Else

            MessageBox.Show("Sign in successful. Proceed on...")
            'code to go here if it is false




        End If

    End If

コードが行うことは、正しいログイン認証情報を使用したか間違った認証情報を使用したかを教えてくれることです。しかし、それが私の自動クリックボタンにどのように影響するかわかりませんか?

     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If RadioButton1.Checked = True Then
        Timer1.Interval = 40
    ElseIf RadioButton2.Checked = True Then
        Timer1.Interval = 100
    Else
        Timer1.Interval = 500
    End If

    Timer1.Start()



    WebBrowser1.Document.GetElementById("NewGamertag").SetAttribute("value", txtTurbo.Text)
    WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click")
End Sub

timer1 =

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click")
End Sub
4

1 に答える 1

0

あなたのを作ってくださいtimer1.enable = true、そうでなければうまくいきません。

于 2013-03-28T08:51:15.900 に答える