Un Chercheur De Fichiers

[Invité ___]

La programmation sous Windows c'est pas sorcier la preuve :

un chercheur de fichiers que j'ai en partie réalisé en VbScript fonctionnant sous IE6 qui vous permettra de tout trouver avec google.

Bien sûr vous pouvez modifier le programme à votre guise puisqu'il est gratuit.

dim wsh,query,filetype,time

set wsh = WScript.CreateObject("WScript.Shell")

query=Inputbox("Entrez votre recherche." & vbCrLF & "Si ok sur rien Google Express se fermera.","Google Express")

if query<>"" then

filetype=inputbox ("Entrez le type de fichier que vous cherchez."& vbCrLF & "Si ok sur rien Google Express se fermera.","Google Express","mp3")

if filetype<>"" then

time=msgbox("Possedez vous un modem haut debit ?",vbYesNoCancel,"Google Express")

if time > 5 then

if (time=vbyes) then

   time=5000

else

   time=64000

end if

msgbox "Une fois la page de google chargée, SURTOUT ne toucher à rien."& vbCrLF & vbCrLF & "Attendre alors que le message de confirmation""Recherche effectuée"""&vbCrLF &"soit affiché pour explorer les liens trouvés par Google.",vbexclamation,"Google Express"

wsh.run "iexplore"

wsh.appactivate "iexplore"

WScript.Sleep(1000)

wsh.sendkeys "{TAB}"

wsh.sendkeys "www.google.fr"

wsh.sendkeys "{ENTER}"

WScript.Sleep(time)

wsh.sendkeys "? intitle:index.of ? "

wsh.sendkeys query

wsh.sendkeys " "

wsh.sendkeys filetype

wsh.sendkeys "{ENTER}"

msgbox "Recherche effectuée",vbInformation,"Google Express"

end if

end if

end if

Recopiez le texte ci-dessus(entre les Quotes) dans le block-notes et sauvegardez comme:

GoogleExpress.vbs

Au moment de la sauvegarde du fichier cliquer sur le menu déroulant Type et choisir "Tous Fichiers" et dans "Nom du fichier" tapez : GoogleExpress.vbs

Attention il faut que l'extention du fichier soit bien ".vbs" et non pas ".txt"

Si vous n'arrivez pas à changer l'extention .txt en .vbs je vous conseille ce graticiel qui va grandement vous aider:

Change Extension

http://home.nordnet.fr/~pmdevigne/

téléchargement:

http://home.nordnet.fr/~pmdevigne/programm...ChangeExtension

--------------------------------------------------------------------------------------------

Mode d'emploi de GoogleExpress

Double-cliquez sur le fichier GoogleExpress.vbs et suivre les instructions affichée à l'écran.

Il faut parametrer éventuellement votre Anti-virus pour qu'il accepte de lancer ce fichier VbScript.

--------------------------------------------------------------------------------------------

Si vous êtes interressé par le VbScript voici deux cours en PDF:

Introduction au langage VBScript

Site

http://www.ccim.be/ccim328/vb/index.htm

Cours(pdf)

http://www.ccim.be/ccim328/vb/download.htm

Apprendre le VB Script (cours complet)

Site

http://shiva.istia.univ-angers.fr/~tahe/re...s/vbscript.html

Cours(pdf)

http://shiva.istia.univ-angers.fr/~tahe/re...s/vbscript.html

;)

[Invité papic]

pas trop au point ton truc j'ai tapé cheminot , lui me valide mp3.

bref je vois pas trop l'intérêt de ton fichier, sur firefox avec l'onglet google c'est plus rapide ;)

[Invité ___]

pas trop au point ton truc j'ai tapé cheminot , lui me valide mp3.

bref je vois pas trop l'intérêt de ton fichier, sur firefox  avec l'onglet google c'est plus rapide

<{POST_SNAPBACK}>

Salut papic

L'intérêt de ce fichier et de trouver les fichiers cachés dans les répertoires index qui ne sont pas accessibles directement par google.

En général si on est malin on peut faire des découvertes interessantes.

Si il t'a mis l'extention mp3(par défaut) c'est que tu n'a pas mis l'extention du fichier que tu recherchais à la question :

"Entrez le type de fichier que vous cherchez".

Exemple :

je recherche un produit Norton:

à la question "Entrez votre recherche." je tape "Norton"

à la question "Entrez le type de fichier que vous cherchez"

au lieu du "Mp3" affiché par défaut remplace le par "rar".

Google va t'afficher alors tous les résultats qu'il aura trouvé dans les répertoires cachés à toi d'explorer ce qui t'interesse.

Bien sûr tu pourrais le faire directement sous Google en tapant dans la barre de recherche:

? intitle:index.of ? + le nom du fichier à rechercher mais il va te sortir tous les fichiers avec toutes les extentions possibles.

Mon programme limite les recherches à une seule extention de fichier.

De toutes façons c'est un exemple pour prouver que la programmation c'est facile sous Windows.

Tu peut changer l'extention par défaut en modifiant la ligne du fichier( sous bloc-note):

filetype=inputbox ("Entrez le type de fichier que vous cherchez."& vbCrLF & "Si ok sur rien Google Express se fermera.","Google Express","mp3")

Tu changes "mp3" par l'extention que tu désires avoir par défaut.

;)

[Invité papic]

ok maintenant c'est plus clair et sa fonctionne :bye: