Ne ho voluto fare uno anch'io

Ma perchè non va?

Codice:

Public Class Form1
    Dim Logged As Boolean
    Dim rnd As New Random
    Dim Rand As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Errore, mancano username o password!", MsgBoxStyle.Critical, "Errore login")
        Else
            WebBrowser1.Document.GetElementById("Username").InnerText = TextBox1.Text
            WebBrowser1.Document.GetElementById("Password").InnerText = TextBox2.Text
            WebBrowser1.Document.GetElementById("LoginButton").InvokeMember("click")
            Logged = True
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("https://www.blurum.it/Web/Default.aspx?usr=asdf&remember=False&att=1")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Logged = True Then
            If WebBrowser1.DocumentText.Contains("Credenziali non corrette") Then
                MsgBox("Dati inseriti non validi. Riprovare inserendo i dati corretti," & _
                       "se non sei ancora registrato clicca sul label sottostante per registrarti.", _
                       MsgBoxStyle.Critical, "Errore login")
                TextBox2.Text = ""
                GroupBox2.Enabled = False
                GroupBox1.Enabled = True
            Else
                GroupBox2.Enabled = True
                GroupBox1.Enabled = False
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Avvia Bot" Then
            Button2.Text = "Ferma Bot"
            Timer1.Start()
        Else
            Button2.Text = "Avvia bot"
            Timer1.Stop()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim processo() As Process
        processo = Process.GetProcessesByName("iexplore", My.Computer.Name)
        Dim myProcesses() As Process
        Dim myProcess As Process
        myProcesses = Process.GetProcessesByName("iexplore")
        For Each myProcess In myProcesses
            myProcess.CloseMainWindow()
        Next
        Rand = rnd.Next(100, 1000)
        TextBox3.Text = Rand
        Rand = rnd.Next(100, 1000)
        TextBox3.Text = TextBox3.Text & Rand
        Rand = rnd.Next(100, 1000)
        TextBox3.Text = TextBox3.Text & Rand
        TextBox3.Text = TextBox3.Text & TextBox3.Text
        WebBrowser1.Document.GetElementById("txtSearch").InnerText = TextBox3.Text
        WebBrowser1.Document.GetElementById("ctrl_SearchControl_rptSearchEngines_ctl00_searchEngine").InvokeMember("click")
    End Sub

Il login funziona , i numeri a caso nella casella di testo del webbrowser li mette , ma non clicca quello schifoso tasto ò.ò

Molto probabilmente hai sbagliato l'id del button

Colgo l'occasione per dire che anche io ho un Blurum Bot pronto e che quindi se lo pubblicherò a breve non è in seguito all'uscita dell'altro qui sul fourm.
Oltre ad avere dei testimoni le date dei file in questo screen supporteranno la mia tesi

Originariamente Scritto da F.R.sesin

Molto probabilmente hai sbagliato l'id del button

Colgo l'occasione per dire che anche io ho un Blurum Bot pronto e che quindi se lo pubblicherò a breve non è in seguito all'uscita dell'altro qui sul fourm.
Oltre ad avere dei testimoni le date dei file in questo screen supporteranno la mia tesi

Il fatto è che non trovo l'id...