FC Auto-Logger, Per quelli come me che non hanno voglia di loggare a mano XD

« Older   Newer »
  Share  
riki107
icon6  CAT_IMG Posted on 7/9/2012, 00:06     +1   -1




Ehi guys :D
Ho creato questo script, il titolo parla da se :D
SPOILER (clicca per visualizzare)
CODICE
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         riki107 (Riccardo Salerno)

Script Function:
       Auto-Logger per FC

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;GUI Include e Variabili

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $General = GUICreate("Forum Auto-Logger", 592, 317, 192, 124)
Global $fileref = @ScriptDir&"\data log.rpf"
Global $MenuItem1 = GUICtrlCreateMenu("Info")
Global $MenuItem2 = GUICtrlCreateMenuItem("Join Us", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenuItem("Autore", $MenuItem1)
Global $UrlGroup = GUICtrlCreateGroup("URL", 24, 16, 225, 129)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $SiteURL = GUICtrlCreateInput("Inserisci il sottodominio... (Es. autoit)", 40, 56, 185, 21)
Global $CheckLog = GUICtrlCreateCheckbox("Rimani loggato", 76, 92, 121, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $BrowserGroup = GUICtrlCreateGroup("Browser", 27, 152, 537, 65)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $RadioExplorer = GUICtrlCreateRadio("Internet Explorer", 40, 184, 137, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioFirefox = GUICtrlCreateRadio("Mozilla Firefox", 189, 184, 129, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioSafari = GUICtrlCreateRadio("Safari", 330, 184, 65, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioChrome = GUICtrlCreateRadio("Google Chrome", 407, 184, 129, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Vai = GUICtrlCreateButton("Va' pigrone! Va' e logga per tutti noi!!! ;)", 27, 232, 537, 41)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $DataGroup = GUICtrlCreateGroup("Dati", 304, 16, 257, 129)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $NickInput = GUICtrlCreateInput("Inserisci il tuo nickname...", 320, 56, 225, 21)
Global $PassInput = GUICtrlCreateInput("Inserisci la tua password...", 320, 92, 225, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit

               Case $MenuItem3
                       MsgBox(0, "Info", "Script creato da riki107 (Riccardo Salerno)"&@CRLF&"                  rikisale@gmail.com")
                       
               Case $MenuItem2
                       ShellExecute("http://www.autoit.forumcommunity.net/")
                       
               Case $Vai
                       _Vai()
       EndSwitch
WEnd

Func _Vai()
       
FileOpen($fileref, 2)

FileWrite($fileref, GUICtrlRead($NickInput)&@CRLF&GUICtrlRead($PassInput)&@CRLF)

If GUICtrlRead($CheckLog) = $GUI_CHECKED Then
       FileWrite($fileref, "1"&@CRLF)
ElseIf GUICtrlRead($CheckLog) = $GUI_UNCHECKED Then
       FileWrite($fileref, "0"&@CRLF)
EndIf

Global $dom = "http://www."&GUICtrlRead($SiteURL)&".forumcommunity.net/?act=Login&CODE=00"

If GUICtrlRead($RadioExplorer) = $GUI_CHECKED Then
       _IElogin()
ElseIf GUICtrlRead($RadioFirefox) = $GUI_CHECKED Then
       _FFlogin()
ElseIf GUICtrlRead($RadioSafari) = $GUI_CHECKED Then
       _SafLogin()
ElseIf GUICtrlRead($RadioChrome) = $GUI_CHECKED Then
       _ChromeLogin()
Else
       MsgBox(0, "Errore", "Seleziona un browser")
EndIf

EndFunc

Func _IElogin()

Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $ExplorerPath = @ProgramFilesDir&"\Internet Explorer\iexplore.exe"

ShellExecute($ExplorerPath, $dom)

Sleep(7000)

MouseClick("left", @DesktopWidth-200)
Sleep(2000)
Send("{TAB}")
Send($fnick)
Send("{TAB}")
Send($fpass)
Send("{TAB}")

If $check = 0 Then
       Send("{DOWN}")
EndIf

Send("{TAB}")
Send("{ENTER}")

FileClose($fileref)

Exit
EndFunc

Func _FFlogin()
       
Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $fHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
Global $FExe = RegRead($fHKLM & "\" & RegRead($fHKLM, "CurrentVersion") & "\Main", "PathToExe")

ShellExecute($FExe, $dom)

Sleep(7000)

MouseClick("left", @DesktopWidth-200)
Sleep(2000)
Send("{TAB}")
Send($fnick)
Send("{TAB}")
Send($fpass)
Send("{TAB}")

If $check = 0 Then
       Send("{DOWN}")
EndIf

Send("{TAB}")
Send("{ENTER}")

FileClose($fileref)

Exit
EndFunc

Func _SafLogin()
       
Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Apple Computer, Inc.\Safari"
Global $Sexe = RegRead($sHKLM, "BrowserExe")
       
ShellExecute($Sexe, $dom)

Sleep(7000)

MouseClick("left", @DesktopWidth-200)
Sleep(2000)
Send("{TAB}")
Send($fnick)
Send("{TAB}")
Send($fpass)
Send("{TAB}")

If $check = 0 Then
       Send("{DOWN}")
EndIf

Send("{TAB}")
Send("{ENTER}")

FileClose($fileref)

Exit
EndFunc

Func _ChromeLogin()

Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $chromepath = @ProgramFilesDir&"\Google\Chrome\Application\chrome.exe"

ShellExecute($chromepath, $dom)

Sleep(7000)

MouseClick("left", @DesktopWidth-200)
Sleep(2000)
Send("{TAB}")
Send($fnick)
Send("{TAB}")
Send($fpass)
Send("{TAB}")

If $check = 0 Then
       Send("{DOWN}")
EndIf

Send("{TAB}")
Send("{ENTER}")

FileClose($fileref)

Exit
EndFunc


Si lo so, in alcuni punti è incasinato e/o ripetitivo, ma lo preferisco così XD

Enjoy :')

EDIT: Aggiornato, adesso si può scegliere il browser e se rimanere loggati o meno... Si può anche scegliere il dominio, nel caso si voglia andare direttamente in un altro sito :D

Un solo problema, non so come fare con IE... non ho usato la UDF perché mi dava casini... Se qualche anima pia mi aiuta gliene sarò eternamente grato :')
Tolto il download, mi secca compilare qualcosa che cambierò di nuovo XD attendo risposte e segnalazioni :)

Edited by riki107 - 7/9/2012, 20:04
 
Top
»Master
CAT_IMG Posted on 7/9/2012, 04:20     +1   -1




Bravo, funziona, ma non ho capito l'utilità xD
Ancora di più se hai il login automatico da FC lol
E ci sono alcuni errori sul source xD
 
Top
riki107
CAT_IMG Posted on 7/9/2012, 10:47     +1   -1




Gli errori poi li aggiusto.. XD
A che serve? Serve quando hai la bradipite e sei su un'altro pc/browser XD dai, dimmi che ti diverti ad aprire browser, URL e dati vari XD almeno scrivi solo i dati ed é fatta XD oggi cerco di aggiustarlo, magari ampliandolo con ForumFree, permettendo di cambiare sito e scegliendo se rimanere loggati o no... e infine permettendo il multiaccount (tipo se ho un account su FF e uno su FC)... e se trovo le UDF potrei adattarlo ad ogni browser, levando quell'odioso sleep per il caricamento della pagina ;) (Tanto lo so che dopo i primi dieci minuti mi blocco XD)
Anyway dove sono gli errori?
 
Top
»Master
CAT_IMG Posted on 7/9/2012, 17:18     +1   -1




CITAZIONE (riki107 @ 7/9/2012, 11:47) 
Gli errori poi li aggiusto.. XD
A che serve? Serve quando hai la bradipite e sei su un'altro pc/browser XD dai, dimmi che ti diverti ad aprire browser, URL e dati vari XD almeno scrivi solo i dati ed é fatta XD oggi cerco di aggiustarlo, magari ampliandolo con ForumFree, permettendo di cambiare sito e scegliendo se rimanere loggati o no... e infine permettendo il multiaccount (tipo se ho un account su FF e uno su FC)... e se trovo le UDF potrei adattarlo ad ogni browser, levando quell'odioso sleep per il caricamento della pagina ;) (Tanto lo so che dopo i primi dieci minuti mi blocco XD)
Anyway dove sono gli errori?

Beh, se sei su un computer, aprire il browser, cercare il tuo programma, scaricarlo, usarlo e mettere i dati è un po più lento xD
Controlla i FileOpen() e FileClose(), a quanto ne ho visto sono tutti usati incorrettamente :)
 
Top
riki107
CAT_IMG Posted on 7/9/2012, 17:30     +1   -1




E se lo tieni in una pen drive? :troll: bho poi vedo XD anche perché lo sto rifacendo :) ho levato FF e il multiaccount perché hanno lì hanno la fottutissima barra in alto D:
 
Top
»Master
CAT_IMG Posted on 7/9/2012, 17:47     +1   -1




CITAZIONE (riki107 @ 7/9/2012, 18:30) 
E se lo tieni in una pen drive? :troll: bho poi vedo XD anche perché lo sto rifacendo :) ho levato FF e il multiaccount perché hanno lì hanno la fottutissima barra in alto D:

asd su chrome funziona
 
Top
riki107
CAT_IMG Posted on 7/9/2012, 19:03     +1   -1




Aggiornato (attendo risposta per il problema con IE u.u) :)
Il codice è altamente impreciso, ora lo aggiusto

EDIT: Allora, il codice che c'è in spoiler nel primo post lo lascio per questo che sto per postare qui sotto mi da problemi... O.o
Sembra una barzelletta: quello impreciso funziona e quello impreciso no... Il problema è (ovviamente) nella parte di ogni funzione che va da

CODICE
Sleep(7000)
...
FileClose($fileref)


perché ho cercato di renderlo più preciso prendendo ControlFocus, GUICtrlSetData e ControlClick... Sicuramente ho sbagliato i parametri che ho dato... Qualcuno potrebbe aiutarmi? HELP :fuuu:
(Qui c'é il codice errato)
SPOILER (clicca per visualizzare)
CODICE
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         riki107 (Riccardo Salerno)

Script Function:
       Auto-Logger per FC

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;GUI Include e Variabili

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $General = GUICreate("Forum Auto-Logger", 592, 317, 192, 124)
Global $fileref = @ScriptDir&"\data log.rpf"
Global $MenuItem1 = GUICtrlCreateMenu("Info")
Global $MenuItem2 = GUICtrlCreateMenuItem("Join Us", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenuItem("Autore", $MenuItem1)
Global $UrlGroup = GUICtrlCreateGroup("URL", 24, 16, 225, 129)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $SiteURL = GUICtrlCreateInput("Inserisci il sottodominio... (Es. autoit)", 40, 56, 185, 21)
Global $CheckLog = GUICtrlCreateCheckbox("Rimani loggato", 76, 92, 121, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $BrowserGroup = GUICtrlCreateGroup("Browser", 27, 152, 537, 65)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $RadioExplorer = GUICtrlCreateRadio("Internet Explorer", 40, 184, 137, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioFirefox = GUICtrlCreateRadio("Mozilla Firefox", 189, 184, 129, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioSafari = GUICtrlCreateRadio("Safari", 330, 184, 65, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $RadioChrome = GUICtrlCreateRadio("Google Chrome", 407, 184, 129, 17)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Vai = GUICtrlCreateButton("Va' pigrone! Va' e logga per tutti noi!!! ;)", 27, 232, 537, 41)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
Global $DataGroup = GUICtrlCreateGroup("Dati", 304, 16, 257, 129)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
Global $NickInput = GUICtrlCreateInput("Inserisci il tuo nickname...", 320, 56, 225, 21)
Global $PassInput = GUICtrlCreateInput("Inserisci la tua password...", 320, 92, 225, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit

               Case $MenuItem3
                       MsgBox(0, "Info", "Script creato da riki107 (Riccardo Salerno)"&@CRLF&"                  rikisale@gmail.com")
                       
               Case $MenuItem2
                       ShellExecute("http://www.autoit.forumcommunity.net/")
                       
               Case $Vai
                       _Vai()
       EndSwitch
WEnd

Func _Vai()
       
FileOpen($fileref, 2)

FileWrite($fileref, GUICtrlRead($NickInput)&@CRLF&GUICtrlRead($PassInput)&@CRLF)

If GUICtrlRead($CheckLog) = $GUI_CHECKED Then
       FileWrite($fileref, "1"&@CRLF)
ElseIf GUICtrlRead($CheckLog) = $GUI_UNCHECKED Then
       FileWrite($fileref, "0"&@CRLF)
EndIf

Global $dom = "http://www."&GUICtrlRead($SiteURL)&".forumcommunity.net/?act=Login&CODE=00"

If GUICtrlRead($RadioExplorer) = $GUI_CHECKED Then
       _IElogin()
ElseIf GUICtrlRead($RadioFirefox) = $GUI_CHECKED Then
       _FFlogin()
ElseIf GUICtrlRead($RadioSafari) = $GUI_CHECKED Then
       _SafLogin()
ElseIf GUICtrlRead($RadioChrome) = $GUI_CHECKED Then
       _ChromeLogin()
Else
       MsgBox(0, "Errore", "Seleziona un browser")
EndIf

EndFunc

Func _IElogin()

Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $ExplorerPath = @ProgramFilesDir&"\Internet Explorer\iexplore.exe"

ShellExecute($ExplorerPath, $dom)

Sleep(7000)

ControlFocus("", "", "[CLASS:forminput; NAME:UserName]")
Sleep(200)
Send($fnick)
Sleep(200)
ControlFocus("", "", "[CLASS:forminput; NAME:PassWord]")
Sleep(200)
Send($fpass)
Sleep(200)
ControlFocus("", "", "[ID:CookieDate1; CLASS:Radio; NAME:CookieDate]")


If $check = 0 Then
       GUICtrlSetData(-1, "1")
EndIf

ControlFocus("", "", "[CLASS:forminput; NAME:submit]")
ControlClick ( "", "", "[CLASS:forminput; NAME:submit]", "right", "1")

FileClose($fileref)

Exit
EndFunc

Func _FFlogin()
       
Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $fHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
Global $FExe = RegRead($fHKLM & "\" & RegRead($fHKLM, "CurrentVersion") & "\Main", "PathToExe")

ShellExecute($FExe, $dom)

Sleep(7000)

ControlFocus("", "", "[CLASS:forminput; NAME:UserName]")
Sleep(200)
Send($fnick)
Sleep(200)
ControlFocus("", "", "[CLASS:forminput; NAME:PassWord]")
Sleep(200)
Send($fpass)
Sleep(200)
ControlFocus("", "", "[ID:CookieDate1; CLASS:Radio; NAME:CookieDate]")


If $check = 0 Then
       GUICtrlSetData(-1, "1")
EndIf

ControlFocus("", "", "[CLASS:forminput; NAME:submit]")
ControlClick ( "", "", "[CLASS:forminput; NAME:submit]", "right", "1")

FileClose($fileref)

Exit
EndFunc

Func _SafLogin()
       
Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Apple Computer, Inc.\Safari"
Global $Sexe = RegRead($sHKLM, "BrowserExe")
       
ShellExecute($Sexe, $dom)

Sleep(7000)

ControlFocus("", "", "[CLASS:forminput; NAME:UserName]")
Sleep(200)
Send($fnick)
Sleep(200)
ControlFocus("", "", "[CLASS:forminput; NAME:PassWord]")
Sleep(200)
Send($fpass)
Sleep(200)
ControlFocus("", "", "[ID:CookieDate1; CLASS:Radio; NAME:CookieDate]")


If $check = 0 Then
       GUICtrlSetData(-1, "1")
EndIf

ControlFocus("", "", "[CLASS:forminput; NAME:submit]")
ControlClick ( "", "", "[CLASS:forminput; NAME:submit]", "right", "1")

FileClose($fileref)

Exit
EndFunc

Func _ChromeLogin()

Global $fnick = FileReadLine($fileref, 1)
Global $fpass = FileReadLine($fileref, 2)
Global $check = FileReadLine($fileref, 3)

Global $chromepath = @ProgramFilesDir&"\Google\Chrome\Application\chrome.exe"

ShellExecute($chromepath, $dom)

Sleep(7000)

ControlFocus("", "", "[CLASS:forminput; NAME:UserName]")
Sleep(200)
Send($fnick)
Sleep(200)
ControlFocus("", "", "[CLASS:forminput; NAME:PassWord]")
Sleep(200)
Send($fpass)
Sleep(200)
ControlFocus("", "", "[ID:CookieDate1; CLASS:Radio; NAME:CookieDate]")


If $check = 0 Then
       GUICtrlSetData(-1, "1")
EndIf

ControlFocus("", "", "[CLASS:forminput; NAME:submit]")
ControlClick ( "", "", "[CLASS:forminput; NAME:submit]", "right", "1")

FileClose($fileref)

Exit
EndFunc


Edited by riki107 - 7/9/2012, 23:27
 
Top
riki107
CAT_IMG Posted on 9/9/2012, 19:33     +1   -1




HELP UP :')
 
Top
riki107
CAT_IMG Posted on 12/9/2012, 09:25     +1   -1




UP :fuuu:
 
Top
riki107
CAT_IMG Posted on 17/9/2012, 17:37     +1   -1




UP
 
Top
riki107
CAT_IMG Posted on 19/9/2012, 19:56     +1   -1




E di nuovo UP...
 
Top
riki107
CAT_IMG Posted on 22/9/2012, 18:08     +1   -1




UP T_T
 
Top
riki107
CAT_IMG Posted on 25/9/2012, 23:03     +1   -1




Ri-UP
 
Top
12 replies since 7/9/2012, 00:06   243 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity