Xhack

Un forum dedicato all'hacking
 
IndiceIndice  PortalePortale  CalendarioCalendario  FAQFAQ  CercaCerca  RegistratiRegistrati  Lista UtentiLista Utenti  GruppiGruppi  Accedi  

Condividi | 
 

 [SOURCE]Web Search BETA

Andare in basso 
AutoreMessaggio
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Et : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: [SOURCE]Web Search BETA   Dom Ott 14, 2007 10:18 pm

CIAO AMICI, SONO DrA, SONO TORNAAAAATO!!!!!
Ho fatto questo programma stupidissimo( l'idea mi venuta l'estate ormai passata, non riuscivo a dormire) che cerca keywords nei migliori motori di ricerca e di video, beta perch i siti in cui cerca sono ancora pochi, ma poco male: basta consigliarmi qualche sito e io aggiorner lo script.
Ma ora passiamo al codice e alla sua descrizione:
PS:FUNZIONA ANCHE CON QUERY CON PIU' DI UNA KEYWORD(ES: CIAO CICCIO)

Codice:

;Una inputbox che chiede in che sito cercare...
$var = InputBox("Dove devo cercare?","LEGENDA(digitare il comando corrpisondente)" & @CRLF & @CRLF & @CRLF & "YOUTUBE=Cerca video su youtube" & @CRLF & @CRLF & "YOUTUBEPROFILE=visualizza profilo di youtube" & @CRLF & @CRLF & "METACAFE=cerca video su metacafe" & @CRLF & @CRLF & "GOOGLE=cerca qualcosa su google" & @CRLF & "IMG=cerca immagini su google"& @CRLF & "VIDEO=cerca video su google",""," ","-1","300","-1","-1")

;cerca video su metacafe
if $var =  'METACAFE' then
   
  $metacafe = InputBox('Cosa devo cercare?', 'Scrivi ci che vuoi cercare su Metacafe')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
;la progressbar tutta scena hihi :D
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)

  ShellExecute("http://www.metacafe.com/tags/"& $metacafe &"/")
  ProgressSet(100)
  ProgressOff()
elseif $var = 'YOUTUBE' then
   
   $youtube = InputBox('Cosa devo cercare?', 'Scrivi ci che vuoi cercare su youtube')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://it.youtube.com/results?search_query=" & $youtube & "&search=Cerca")
  ProgressSet(100)
  ProgressOff()
   elseif $var = 'YOUTUBEPROFILE' then
      
   $profile = InputBox('Cosa devo cercare?', 'Scrivi il nick che vuoi cercare su youtube')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il nick...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://it.youtube.com/profile?user="&$profile)
  ProgressSet(100)
  ProgressOff()
 elseif $var = 'GOOGLE' then
   
   $google = InputBox('Cosa devo cercare?', 'Scrivi quello che vuoi cercare su Google')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://www.google.it/search?hl=it&q="&$google&"&btnG=Cerca+con+Google&meta=")
  ProgressSet(100)
  ProgressOff()
 
elseif $var = 'VIDEO' then
   
   $video = InputBox('Cosa devo cercare?', 'Scrivi il video che vuoi cercare su Google')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google Video...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://video.google.it/videosearch?q="&$video)
  ProgressSet(100)
  ProgressOff()
 
  elseif $var = 'IMG' then
   $img = InputBox('Cosa devo cercare?', "Scrivi l' immagine che vuoi cercare su Google")
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google Immagini...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://images.google.it/images?hl=it&q="&$img&"&btnG=Cerca+immagini&gbv=2")
  ProgressSet(100)
  ProgressOff()
 
  elseif $var = $var then
   MsgBox(16, "Errore...", $var & " non un comando valido...")
   
    elseif $var = "" then
   MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
 
endif
Il codice da qui un po' un casino, ma vedrete che su SciTE molto leggibile, e scoprirete come fa ad eseguire le ricerche(un modo becero, ma originale afro hehe)
Dalla mia camera tutto, linea allo studio! Very Happy
PS:Anche se non conosco un motivo preciso per cui qualcuno debba farlo XD, vi prego di citare l'autore(DrA) se doveste postarlo su altri forum e/o pubblicarlo su altri siti, grazie.
PPS:Si possono postare anche programmi gi eseguiti?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:32 pm

bravo dra, non mancheremo di postare il tuo nome se lo duplicheremo... fra poco mi sa che dovremmo farlo io e certain... abbiamo in mente una certa cosetta, giusto certain Wink
comunuqe comlimenti...
in che senso programmi gia eseguiti?

_________________
L'unico computer sicuro, un computer spento.

Nel software esiste sempre almeno un bug, generalmente localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:40 pm

confermo dark..
ancora un po' di tempo e...

comunque bravo DrA93,
vedo che abbiamo trasformato i nostri membri in programmatori di autoit veri e propri , ne dark?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:42 pm

ebbene si, da anni e anni che aspetto questo momento... ora.. Sad sono commosso... sigh sigh

comunque bravo Dra

_________________
L'unico computer sicuro, un computer spento.

Nel software esiste sempre almeno un bug, generalmente localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:54 pm

possiamo assere fieri dei nostri membri(a parte uno dark...
indovina chi??? indizio: gli piacciono i pokemon...)
Torna in alto Andare in basso
Visualizza il profilo
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Et : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 7:33 pm

:DGrazie!!Very Happy
Hehe, avete trasformato met(anzi, tutto il forum) forum in crackerz Very Happy
PS:ho un'idea megaLOLlosa!!!
Un argomento un cui ci divertiamo a scrivere volutamente lamerate che vanno spostate in discarica!!!Troppo divertente!!Che ne dite?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 1:28 pm

bah... credo che dovremmo aspettare che qualcuno ci parli di queste lamerate ma non facendolo apposta, ma che gli arrivino dal cuore... voi non sapete che bello per un admin vedere ste cose, perche il puntatore del mouse si muove irrimediabilmente verso "sposta in discarica"... una sensazione che ognuno di noi dovrebbe provare almeno una volta nella vita...

_________________
L'unico computer sicuro, un computer spento.

Nel software esiste sempre almeno un bug, generalmente localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:32 pm

giusto dark,
@DrA93 la progress bar tutta scena davvero!!!!
comunque ci hai risparmiato di spiegare un argomento(se qualcuno dovesse fare un progress bar non solo per scena)
Torna in alto Andare in basso
Visualizza il profilo
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Et : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:42 pm

Citazione :
bah... credo che dovremmo aspettare che qualcuno ci parli di queste lamerate ma non facendolo apposta, ma che gli arrivino dal cuore... voi non sapete che bello per un admin vedere ste cose, perche il puntatore del mouse si muove irrimediabilmente verso "sposta in discarica"... una sensazione che ognuno di noi dovrebbe provare almeno una volta nella vita...
Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing
Hehe, dovr aprire un forum e attirare uno,due lamer da Eurohackers!!

@certaindeath: io non ho mai fatto uso utile di progressbar!!!!!! Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing
Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:57 pm

indiciamo n concorso "chi porta pi lamer su xhack!!!" Very Happy Very Happy Very Happy Very Happy Very Happy
P.S. solo uno scherzo,non prendetemi sul serio, non vogliamo ritrovarci invasi da lamer!

comunque, DrA, la progress bar serve se devi farci delle istruzioni complicate e che richiedono tempo(e non sleep come nel tuo programma)
in questo modo:

istruzione complicata;
progresset(numero);
istruzione complicata;
progresset(numero)

comunque leggendo il tuo commento vedo che l'hai gi capito...
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mer Ott 17, 2007 6:34 pm

allora chiariamo un po' di cose: intanto, evitiamo l'uso esagerato di smile come Very Happy Very Happy Very Happy Very Happy Very Happy solo perch sono gratis... adesso le metto a pagamento cosi vediamo quanto le usate Laughing
poi, certain.. perch non far venire qui un lamerotto oni tanto, cos ci facciamo due risate?
preleviamo qualcuno da eurohackers o da geky chan e lo forziamo ad iscriversi da noi e cosi poi ci fa un po'di richieste lamere, a turno do i privilegi di admin a qualcuno e cosi prova l'ebrezza di buttare in discarica e di bannere.. non una buona idea:?:
io la trovo ottima... ah, il prossimo lamero che arriva mio, ho gia preso il ticket, se ne volete bannare uno mettetevi in fila... Laughing lol!

_________________
L'unico computer sicuro, un computer spento.

Nel software esiste sempre almeno un bug, generalmente localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
abe93
membro importante
membro importante
avatar

Numero di messaggi : 205
Et : 25
Localizzazione : Piacenza
Data d'iscrizione : 18.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mer Ott 17, 2007 7:37 pm

oh io sono il secondo veeee non dimenticatevi di me....
Torna in alto Andare in basso
Visualizza il profilo http://www.abe93.altervista.org
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Et : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Ott 18, 2007 4:39 pm

Io sono il terzooooo!!!!
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Ott 18, 2007 6:26 pm

vabbe, allora io mi riprenoto come quarto....

_________________
L'unico computer sicuro, un computer spento.

Nel software esiste sempre almeno un bug, generalmente localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 29, 2007 2:24 pm

davvero un bel programma(un po' inutile...)
trovo solo un errore:
Citazione :

elseif $var = $var then
MsgBox(16, "Errore...", $var & " non un comando valido...")

elseif $var = "" then
MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
se fai cos, se non scrivi niente ti dice comunque "non un comando valido".
dovresti invece fare cos:
Codice:

elseif $var=""  then
    MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
else
    MsgBox(16, "Errore...", $var & " non un comando valido...")
cos, se non scrivi nulla ti dice "scrivi qualcosa", se scrivi un comando invalido dice "non un comando valido". cos si toglie un (minuscolo) bug
Torna in alto Andare in basso
Visualizza il profilo
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Nov 15, 2007 8:55 pm

ho accorciato sensibilmente lo script di web search.
Codice:

$var=InputBox("Dove devo cercare?","LEGENDA(digitare il comando corrpisondente)" & @CRLF & @CRLF & @CRLF & "YOUTUBE=Cerca video su youtube" & @CRLF & @CRLF & "YOUTUBEPROFILE=visualizza profilo di youtube" & @CRLF & @CRLF & "METACAFE=cerca video su metacafe" & @CRLF & @CRLF & "GOOGLE=cerca qualcosa su google" & @CRLF & "IMG=cerca immagini su google"& @CRLF & "VIDEO=cerca video su google",""," ","-1","300","-1","-1")
$ric=InputBox("Cosa devo cercare?","inserisci cosa vuoi cercare")
ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
For $progr=10 to 90 Step 10
   Sleep(300)   
   ProgressSet($progr)
Next
If $var="youtube" Then
   ShellExecute("http://it.youtube.com/results?search_query=" & $ric & "&search=Cerca")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="metacafe" Then
   ShellExecute("http://www.metacafe.com/tags/"&$ric&"/")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="youtubeprofile" Then
   ShellExecute("http://it.youtube.com/profile?user="&$ric)
   ProgressSet(100)
   ProgressOff()
ElseIf $var="google" Then
   ShellExecute("http://www.google.it/search?hl=it&q="&$ric&"&btnG=Cerca+con+Google&meta=")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="img" Then
   ShellExecute("http://images.google.it/images?hl=it&q="&$ric&"&btnG=Cerca+immagini&gbv=2")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="video" Then
   ShellExecute("http://video.google.it/videosearch?q="&$ric)
   ProgressSet(100)
   ProgressOff()
ElseIf $var="" Then
   MsgBox(0,"Cretino...","Scrivi qualcosa,scemo...")
Else
   MsgBox(0,"Non valido!","Comando non valido!")
EndIf
dettaglio: quando lo compili, la differenza di pi o meno un kb...
P.S. come hai fatto a mettere l'icona con la cinepresa? dove l'hai pescata?
Torna in alto Andare in basso
Visualizza il profilo
Contenuto sponsorizzato




MessaggioTitolo: Re: [SOURCE]Web Search BETA   

Torna in alto Andare in basso
 
[SOURCE]Web Search BETA
Torna in alto 
Pagina 1 di 1

Permessi di questa sezione del forum:Non puoi rispondere agli argomenti in questo forum
Xhack :: Programmazione :: Autoit-
Vai verso: