|Kn0k| DorK AbuSer, dopo tanto tempo il ritorno ^^

« Older   Newer »
  Share  
lknokl
CAT_IMG Posted on 30/4/2008, 15:26     +1   -1




E dopo tanto tempo esce un mio programma al limite della decenza :P
Ha due funzioni: Effettuare la ricerca del file desiderato attraverso una google dork (il formato lo sceglierete voi)
e quando avrete trovato il link bastera inserirlo nel programma insieme al nome con cui vorrete salvarlo e lui ve lo scarichera piu velocemente che utilizzando un browser e soprattutto in background!
sicuramente piu comodo che entrare in IE, copia incolla del link, salva oggetto con nome, ecc..... :P
Potete scaricare l'exe da QUI
eccovi il sorgente

CODICE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|Kn0k D0rK Abu5eR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;by |Kn0k;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Vieni a trovarmi: http://autoit.forumcommunity.net/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#include <guiconstants.au3>
#include <ie.au3>
$form=GUICreate("|Kn0k Dork Abuser",500,100)
$mnu=GUICtrlCreateMenu ("Menů")
$mnu1=GUICtrlCreateMenuItem("Cerca un file",$mnu)
$mnu2=GUICtrlCreateMenuItem("Scarica il file",$mnu1)
$mnu3=GUICtrlCreateMenuItem("Chiudi",$mnu2)
$presentazione=guictrlcreatelabel("Clicca sul Menů per scegliere il programma da utilizzare",110,35)


GUISetState(@SW_SHOW)

while 1
       $form=guigetmsg()
       
       switch $form
               case $mnu1
                       guisetstate (@SW_hide)
                       $form2=GUICreate ("Cerca Un File",500,100)
                       $bottone=GUICtrlCreateButton("Cerca il file selezionato",350,35)
       $label=GUICtrlCreateLabel ("Nome File: ",30,25,80,30)
       $nome=inputbox("Nome File","Inserisci il nome del file che stai cercando","Solo il nome senza estensione!")
       $estensione=inputbox("Estensione del file","Inserisci l'estensione del file","esempio .mp3")
       $input=GUICtrlCreateInput($nome,100,20,220,20)
       $label2=GUICtrlCreateLabel ("Estensione: ",30,55,80,30)
       $input2=GUICtrlCreateInput($estensione,100,55,220,20)
       guisetstate (@sw_show)
       while 2
               $form2=guigetmsg()
               switch $form2
                       case $bottone
                               _IECreate("http://www.google.it")
                               send("intitle:index of ("&$estensione&") "&$nome)
                               send("{ENTER}")
                               case $GUI_EVENT_CLOSE
                               sleep (2000)
                       case $GUI_EVENT_MINIMIZE
                               guisetstate (@SW_MINIMIZE)
               EndSwitch
       WEnd
       
                               
                       case $mnu2
                               guisetstate (@sw_hide)
                               $form3=GUICreate ("Scarica Un File",500,100)
                       $bottone3=GUICtrlCreateButton("Scarica il file selezionato",350,35)
       $label3=GUICtrlCreateLabel ("Url: ",30,25,80,30)
       $url=inputbox("Url","Inserisci l'url del file","esempio: http:\www.paperino.itquack.txt")
       $nomefile=inputbox("Nome del file", "Nome con cui vuoi salvare il file compresa l'estensione","esempio: ciao.mp3")
       $input=guictrlcreateinput(@desktopdir&""&$nomefile,100,55,220,20)
       $input=GUICtrlCreateInput($url,100,20,220,20)
       guisetstate(@SW_SHOW)
       
       while 3
               $form3=guigetmsg()
               switch $form3
                       case $bottone3
                               InetGet($url,@desktopdir & "" &$nomefile)
                               msgbox(0,"Finito","Download Finito")
                               exit
                               case $GUI_EVENT_CLOSE
                               sleep (2000)
                       case $GUI_EVENT_MINIMIZE
                               guisetstate (@SW_MINIMIZE)
               EndSwitch
       WEnd
       
       
case $mnu3
       $ex=msgbox(1,"sicuro di voler uscire?","esci?")
       if $ex=1 Then
               Exit
               EndIf
       
       

EndSwitch
WEnd


p.s. non mi assumo responsabilitŕ riguardo a uso illegale dell'applicazione da parte di chi vorra utilizzarla (esempio violazione dei diritti d'autore)
 
Top
I.Ren
CAT_IMG Posted on 30/4/2008, 15:48     +1   -1




facciamo progressi eh? ottimo lavoro!
 
Top
lknokl
CAT_IMG Posted on 30/4/2008, 16:54     +1   -1




Gia che ci sei chiedi umilmente il tuo aiuto....come potrei fare secondo te un URL dalla barra degli indirizzi...ti spiego meglio
praticamente con il mio programma ti fa apparire le pagine da cui puoi scaricare....quando l'utente trova quello ke vuole mi piacerebbe che schiacciasse un tasto (fai tipo il tasto home) e in automatico parta il programma di scaricamento...per far questo pero ho bisogno di vedere la pagina che l'utente sta visualizzando...quindi riuscire a ottenere l'indirizzo dalla barra degli indirizzi....
si potrebbe fare con mouse move ma funzionerebbe solo sul mio pc e sugli altri no xD
 
Top
I.Ren
CAT_IMG Posted on 30/4/2008, 21:17     +1   -1




CITAZIONE
Gia che ci sei chiedi umilmente il tuo aiuto....come potrei fare secondo te un URL dalla barra degli indirizzi...ti spiego meglio
praticamente con il mio programma ti fa apparire le pagine da cui puoi scaricare....quando l'utente trova quello ke vuole mi piacerebbe che schiacciasse un tasto (fai tipo il tasto home) e in automatico parta il programma di scaricamento...per far questo pero ho bisogno di vedere la pagina che l'utente sta visualizzando...quindi riuscire a ottenere l'indirizzo dalla barra degli indirizzi....

CITAZIONE
si potrebbe fare con mouse move ma funzionerebbe solo sul mio pc e sugli altri no xD

nn č vero! basta orientarsi cn '@desktopwidth' e '@desktopheight'
 
Top
lknokl
CAT_IMG Posted on 1/5/2008, 10:15     +1   -1




Intendi tipo per ogni risoluzione dargli coordinate diverse?č bella lunga cosi!
 
Top
x-flea
CAT_IMG Posted on 1/5/2008, 10:38     +1   -1




ottimo programma!
 
Top
I.Ren
CAT_IMG Posted on 1/5/2008, 10:51     +1   -1




CITAZIONE
Intendi tipo per ogni risoluzione dargli coordinate diverse?č bella lunga cosi!

no! tipo fai:

CODICE
mousemove (@desktopwidth-100,@desktopheight-40)
 
Top
Biondo1992
CAT_IMG Posted on 2/5/2008, 22:54     +1   -1




fico il programma!!ora lo provo
 
Top
7 replies since 30/4/2008, 15:26   296 views
  Share