BorderGame
Blurum Bot - By Me! - Versione stampabile

+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+--- Discussione: Blurum Bot - By Me! (/Thread-Blurum-Bot-By-Me)



Blurum Bot - By Me! - Lawliet - 03-03-2012 03:02 PM

Sto creando un piccolo ma grande bot per blurum, testatelo per me! :O
Ditemi se ha problemi, se si provvederò a rimuoverli!


Download QUI!



RE: Blurum Bot - By Me! - alessio1999x - 03-03-2012 03:05 PM

che cos'è blurum? 0.o


RE: Blurum Bot - By Me! - Lawliet - 03-03-2012 03:12 PM

Usa il "Cerca" del forum scrivendo Blurum e impara :O


RE: Blurum Bot - By Me! - Tandoji/Arma-san - 03-03-2012 03:30 PM

@[Lawliet] questo bot cosa fa?


RE: Blurum Bot - By Me! - Lawliet - 03-03-2012 03:32 PM

Fa delle ricerche casuali su blurum(con google, yahoo e bing) e ti da punti! :O


RE: Blurum Bot - By Me! - Tandoji/Arma-san - 03-03-2012 03:56 PM

@[Lawliet] Non funziona D: nn cerca , oppure sn io che devo scrivere un numero preciso in Timer millisecondi?


RE: Blurum Bot - By Me! - CarlKox - 03-03-2012 04:59 PM

Usa il login da form creando 2 textbox e un button1 e sul button1 carichi il seguente listato..

Try
WebBrowser1.Document.GetElementById("ctrl_LoginControl$loginView$c01$RPLogin$LoginView$Username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("ctrl_LoginControl$loginView$c01$RPLogin$LoginView$Password").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("ctrl_LoginControl$loginView$c01$RPLogin$LoginView$LoginButton").InvokeMember("click")
TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
Catch ex As Exception
msgbox("Errore")
End Try

per la funzione bot ti serve minimo un listbox e un button che ti carichi i file da textbox cosi non ti ammazzi la vita a scrivere miliardi di parole da codice ma lasci all'utente la possibilita di crearsi le proprie liste (o di scaricarsele da internet) inoltre le ricerche non si possono ripetere 2 volte quindi se cerchi una volta "banana" non puoi ricercare la seconda volta "banana" perchè non ti darà nessun punteggio...

inoltre per le ricerche devi usare un altra tecnica..
non voglio criticare il tuo lavoro, lo sai ti stimo XD, prendi il tutto come un consiglio luca
per fare il login mi sono ammazzato la vita .-.


RE: Blurum Bot - By Me! - тυттσмαχ - 03-03-2012 08:04 PM

bisogna studiarsi bene il codice sorgente..perchè il tasto vai cambia

ctrl_TrackUrlControl$6fa1f423-4500-4a0d-bd1d-afacc7e2986e
ctrl_TrackUrlControl$888cabbe-3614-4779-a2f4-1969902d4aaf
non capisco Sad


RE: Blurum Bot - By Me! - CarlKox - 03-03-2012 08:58 PM

(03-03-2012 08:04 PM)aleeeeeee Ha scritto:  bisogna studiarsi bene il codice sorgente..perchè il tasto vai cambia

ctrl_TrackUrlControl$6fa1f423-4500-4a0d-bd1d-afacc7e2986e
ctrl_TrackUrlControl$888cabbe-3614-4779-a2f4-1969902d4aaf
non capisco Sad
a momenti esco quindi saro breve

si deve caricare un controllo della barra di ricerca che carichera il value da una textbox.text o da qualsiasi altra fonte e poi con un InvokeMember carichi lo script di ricerca...

io e nikolas ci siamo bloccati qui perchè io dovevo staccare.. mo vi saluto
bye


RE: Blurum Bot - By Me! - 'Hayabusa00 - 03-03-2012 10:13 PM

Insomma ci devi stare tu davanti al pc per bottare? o.0


RE: Blurum Bot - By Me! - CarlKox - 04-03-2012 01:09 AM

con quello di luca no e quello che vorremo fare io e niko se ci riusciamo nemmeno Big Grin
io sto usando un bot che costa 5 euro (ho circa 30h per testarlo) ma è molto bello e quasi quasi davvero lo compro .-.
anzi ... se riuscirei a bypassare il primo form non dovrei comprarlo 01


RE: Blurum Bot - By Me! - тυттσмαχ - 04-03-2012 01:10 AM

Codice PHP:
Dim contatore As Integer 0
        
'SCRIVO LA PRIMA PAROLA DELLA LISTBOX
        WebBrowser1.Document.GetElementById("ctrl_SearchControl$txtSearch").SetAttribute("value", ListBox1.Items(contatore))
        '
PREMO INVIO
        SendKeys
.Send("{ENTER}")
        
'aspetto un secondo
        Sleep(1000)
        '
RIMUOVO LA PAROLA (COSì DA NON RISCRIVERLAe alla fine salverò il file txt
        ListBox1
.Items.Remove(contatore)
        
'AUMENTO IL CONTATORE DI 1 COSì DA SELEZIONARE LA PAROLA SUCCESSIVA
        contatore += 1 
se lo metto tutto dentro
Codice PHP:
DO UNTIL i 400
LOOP 

si blocca