Comment creer un VBS ou un executable àpartir d'un VBS

[system32]

Salut, je vais vous expliquez comment assembler simplement une application.

Tout d'abort, écrire un script, dans un fichier bloc-note, par exemple :

Code: Tout sélectionner

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 1
loop


Ensuite, vous avez le choix entre deux options :

Soit vous utilisez iexpress, qui se trouve dans Windows > System32
pour lier le script avec des options du genre "redémarrer l'ordinateur", en général, c'est pour les scripts compliqué,et pour créer des *.exe .

Soit vous avez pas envie de vous embêter, et vous enregistrez votre fichier sur votre bureau (ou autre...) et puis vous renommez l'extension en *.VBS Vous faites "OK" au message, puis vous double-cliquez sur le fichier pour voir le résultat !

Et voilà !!!

[Cclleemm]

Merci,
cette petite astuce m'a l'air pas mal du tout !
Par contre je n'ai aps pu tester, je n'ai pas windows.

En tout cas ça faisais longtemps que je n'avais pas vu de tutos de toi, merci

[system32]

De rien !!!

Heu... j'ai oublié de préciser, vous avez besoin de windows pour utiliser cette "application".

Autre point à savoir : Pour terminer l'application, vous pouvez killer le processus plutôt que de redémarrer l'ordinateur, comme certain de mes copains ont fait...

Je travaille (bien grand mot =) sur un autre scrip, du genre de ta mauvaise blague Clément, tu sais le code qui fait beugger le navigateur (pour ceux qui connaissent pas, vous pouvez cliquerICI, mais à vos risques et perils... =).

Le voici :

Code: Tout sélectionner

Set wshShell = wscript.CreateObject("WScript.Shell")
do
Dim msg, sapi
msg="Ceci est un virus qui va te pourrir la vie... "
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
wscript.sleep 50
loop


Voilà voilà !!!
Au fait, on ne peut pas enregistrer de *.vbs sur le forum, et pour ce sujet, ça aurai pu être sympa...

[boulledogue]

Hier j'ai testé plein de trucs en VBS que j'ai testé sur internet, c'est vraiment génial!
Tu connais des tutoriaux spécifiques et bien faits pour apprendre bien et rapidement le VBS?
Merci à toi pour le partage, alors que nous ne sommes pas sur un forum d'informatique, c'était pas forcément gagné pour que je laisse le topic!

[system32]

^^

Encore un petit code qui peut être sympa si vous voulez embêter des gens

Code: Tout sélectionner

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "http://www.google.fr"
loop

PS : Le même script, en encore plus embêtant (restons poli) à enlever :

Code: Tout sélectionner

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "http://system32.onlc.fr/index.php?page=4"
loop

[dada]

coul le code sources merci qui ? System 32