Fájlok kitörlése VBS programozás segítségével
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:
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 2
WshShell.SendKeys "{Ide írd me a kitörölendő fájlnak a kezdőbetüjét!}"
WScript.Sleep 60
If (i mod 2) Then WScript.Sleep 200
Next -
Címkék:
fájl törlés vbs programozás számítástechnika
Programozás Pascalban: Külső fájl indítása Pascalon keresztül
FlamingClaw
Nem szabályos szerkezetű fájl manipulálása
FlamingClaw
Egyszerű, szöveg-ablakos VBS programok készítése
Horbalesz
Programozás Pascalban: Fájlkezelés - 7. rész, Menü készítése az eljárásokhoz
FlamingClaw
Programozás Pascalban: Fájlkezelés - 6. rész, Fájl törlése a merevlemezről
FlamingClaw
Programozás Pascalban: Fájlkezelés - 5. rész, Átnevezés
FlamingClaw
Programozás Pascalban: Fájlkezelés - 4. rész, Szöveg csatoló eljárás
FlamingClaw
Programozás Pascalban: Fájlkezelés - 3. rész, Fájl olvasó eljárás
FlamingClaw
Programozás Pascalban: Fájlkezelés - 2. rész, Fájlkészítő eljárás
FlamingClaw
Programozás Pascalban: Fájlkezelés - 1. rész, Alapok
FlamingClaw
Turbo Pascal: Forrásfájlok társítása a Pascalhoz
FlamingClaw
Hogyan hozzunk létre láthatatlan mappát Windowsban?
Szoki333
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ó
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)
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