Fájlok kitörlése VBS programozás segítségével
Készítette: interful
2010. október 14. 10:44:02 - 6274 megtekintés
  • Fájlok törlésének módját mutatom meg VBS programozás használatával.

  • Amire szükségünk van

    számítógép

  • Fájlok kitörlése VBS programozás segítségével

    Az alábbi kódot használjuk:<br /> Set WshShell = WScript.CreateObject("WScript.Shell")<br /> For i = 0 to 2<br /> WshShell.SendKeys "{Ide írd me a kitörölendő fájlnak a kezdőbetüjét!}"<br /> WScript.Sleep 60<br /> <br /> If (i mod 2) Then WScript.Sleep 200<br /> Next

  • Címkék:

    fájl törlés vbs programozás számítástechnika
Kapcsolódó videók Hozzászólások
marci010101 - 12 éve, 4 hónapja

Szerintetek mi lesz, ha kombinálom a hibaüzenetet és a trójai vírust???
Ez a kód működne?
x=msgbox ("Vírus vagyok, és megszálltam a gépedet!" ,0+16, "Vírushiba")
shutdown -s -t 50 -c

robert102 - 14 éve, 1 hónapja

Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 2
WshShell.SendKeys "{delete}"
WScript.Sleep 60
WshShell.SendKeys "{enter}"
WScript.Sleep 60
If (i mod 2) Then WScript.Sleep 200
Next

Készíts egy új szöveges dokumentumot, írd bele a fönti szöveget.
Mentsd a fájlt akármi.vbs névre! És kész is.

De sajnos ez se sok mindenre jó

kevin005 - 14 éve, 1 hónapja

Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 2
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
If (i mod 2) Then WScript.Sleep 200
Next

KIcsit felturbóztam
Hozz létre egy új jegyzettömböt nevezd át q-ra hozz létre még egyet az pedig qu-ra. Nagyon király O)

interful - 14 éve, 1 hónapja

Ízlések és pofonok! 8)

xkoti - 14 éve, 1 hónapja

nem tom sztem nem volt valami érdekes

Tovább