VBScripting~~~ /\ 1600 looks 100 reacties!~~

[iNiek]

kijk bij processen, daar moet het waarschijnlijk bijstaan

[Quaggmire]

Dus nu ben ik de l@L, en behalve die rechtermuisknop zijn ook de bureaublad icoontjes weg (had ik al gezegd dus zeg dat maar niet)

[Remi1115]

kijk bij processen, daar moet het waarschijnlijk bijstaan

Ik begin eraan te twijfelen of je wel wat van VBS weet en je niet de scripts van internet hebt geplukt.

[Quaggmire]

fout, deze guide

[BoskaWouter]

fout, deze guide

Hij had het niet tegen jou.

[Quaggmire]

Ok maar het is toch opgelost.

[Remi1115]

Ik geloof niet dat hij ook maar een programeertaal kent. Ik kan het natuurlijk mis hebben, maar aan zijn posts en spelling te zien...
Bovendien is dit alles behalfe de bassis om virusen te maken. Als je echt virusen wil maken moet je Assembler (Low level coding) leren.

Ik heb niet zo veel zin om dit topic te ruïneren met een discussie, dus als je verder wilt discuseren graag maar dan wel in PB

ik heb het bericht nog al snel getypt.
en ja met vbs kun je ook echte grote gevaarlijke virussen maken.
daarom ben ik volledig hier tegen.
als kinderen dit door gaan sturen op het internet (hun ''fake'' virusen') zijn hun strafbaar als de politie hun snapt.
en daar staat een hoge boete op.
---

en je hoeft egt geen 15+ tezijn om goed tekunnen scripten
dat verklaart mijn spellings fouten ook.
maar dit topic is eigenlijk het zelfde als ''hoe rol je een jointje'' van een tijdje geleden.
dat mog ook niet want je bracht mensen op het slechte pad.
en dat doe je hier mee ook.

VBS virussen kunnen inderdaad erg schadelijk zijn maar als je een betaalde virus scanner hebt dan worDT (!) het meestal wel verwijderd.

Ik zat in de eerste bij iemand in de klas die op zijn negende al websitejes maakte(ook met php) dus 15 hoeft niet.

[Quaggmire]

Heb je niet gelezen wat ik net zei??

[Remi1115]

Heb je niet gelezen wat ik net zei??

Ik?

Rechtermuisknop weg noem ik nog geen schadelijk virus alleen irritant.

[Quaggmire]

Als je goed kan lezen (en dat zit er bij jouw niet in) heb je gelezen dat het al is opgelost
dus doe niet zo moeilijk met je spamm

[gijs00100]

on EinDig capS lOCk Xd
gGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGggg
HeeL CoOL

[Quaggmire]

InDERDaaAd Dit IS Zo GrAPpig!

[gijs00100]

In- of uitklappen •

if msgBox("zal ik een melige grap vertellen?", vbYesNo, "vraag") = vbYes then

msgbox "ok hier komt XD"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "er komt een man bij de bakker{enter}"
WScript.Sleep 1000
WshShell.SendKeys "en die vraagt: heeft u worteltjestaart?{enter}"
WScript.Sleep 1000
WshShell.SendKeys "de bakker zegt: nee dat heb ik niet{enter}"
WScript.Sleep 1000
WshShell.SendKeys "DE VOLGENDE DAG{enter}{enter}"
WScript.Sleep 1000
WshShell.SendKeys "de man komt opnieuw de winkel binnen en vraagt weer:heeft u worteljestaart?{enter}"
WScript.Sleep 1000
WshShell.SendKeys "en de bakker zegt opnieuw: nee dat heb ik niet{enter}"
WScript.Sleep 1000
WshShell.SendKeys "nu denkt de bakker laat ik is worteltjestaart bakken voor die man{enter}"
WScript.Sleep 1000
WshShell.SendKeys "de volgende dag komt de man binnen en vraagt weer: heeft u worteltjestaart?{enter}"
WScript.Sleep 1000
WshShell.SendKeys "de bakker zegt: ja meneer{enter}"
WScript.Sleep 1000
WshShell.SendKeys "dan zegt de man vies hé{enter}"
WScript.Sleep 1000
WshShell.SendKeys "bakker *not amused*"
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("wazaaaaaaaa leuke grape hé")
wscript.sleep 10000
else
msgbox "achja saai humorloos persoon"
end if
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

home made XD nier rare dingen openen wanneer ie typt

[Quaggmire]

lol cool

[Rotje]

Hoe maak ik deze ongedaan? Heb wscript al beëindigd, maar kan nu nog steeds niks terug plaatsen. (ook na re-boot niet)

Code: Selecteer alles

 Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop","1"

Gaat om het bureaublad leeg maken.

[Quaggmire]

Rechtermuisknop -> pictogrammen schikken op ofzo
anders kijk ik wel ff.

Toegevoegd na 3 minuten:

oke heb hem.
volg dit op:


1. Open kladblok
2. zet alles wat hieronder dikgedrukt is erin:

@ECHO OFF
IF EXIST log.txt DEL log.txt
ECHO Deleting Registry Values>>log.txt
REG.EXE DELETE "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoViewContextMenu" /f>NUL
REG.EXE DELETE "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDesktop" /f>NUL
IF NOT ERRORLEVEL 1 ECHO "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer : NoViewContextMenu" deleted successfully>>log.txt
IF NOT ERRORLEVEL 1 ECHO "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer : NoDesktop" deleted successfully>>log.txt
IF ERRORLEVEL 1 ECHO "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer : NoViewContextMenu" not deleted>>log.txt
IF ERRORLEVEL 1 ECHO "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer : NoDesktop" not deleted>>log.txt
START NOTEPAD.EXE log.txt
DEL %0

4. Sla dit op in C:/ (je harde schijf ofzoiets), bestandsnaam DEL.BAT
5. Sluit je pc af en ga in veilige modus (type in als je vista hebt type je in start bij zoeken msconfig en dan krijg je een soort popupje, dan ga je naar het tablad computer opstarten, dan onderaan links vink je opstarten in veilige modus aan en dan zorgen dat daaronder minimaal aangevinkt is, dan toepassen (rechtsonder) en dan ok.)
6. Open het bestandje DEL.BAT of log.txt dat er staat (bij C:/ waar je hem opgeslagen hebt)
7. Kopier die text die je krijgt in je volgende bericht en ga start je pc op in normale modus (weer naar die msconfig, dan gewoon bij het eerste tabblad opstarten in normale modus aanklikken, toepassen en dan ok)
8. Dan als het goed is doet alles het weer.


Pfff eindelijk.

[Jimmy]

In- of uitklappen •

a=inputbox("het is:," & now & ",toch?")
msgbox "nee want in de tijd dat je antwoordde zijn we al een paar sec verder"
msgbox "omdat je de vraag fout had crasht je pc"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
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
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Your Computer is crashing"
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","internet "
msgbox "En wat ben je dan?", 4096, Virus
Set shl = CreateObject("Wscript.shell")
shl.run "http://piv.pivpiv.dk/"
do
msgbox "Jij bent een idioot", 4096, "En wat ben je dan?"
loop

zelf gemaakt ja uber fail

[Quaggmire]

Even in een uitklappen= zetten aub

[Cancel Drop]

Hier zijn al best veel guides overgeweest...
Ik weet niet hoever je het wilt gaan uitbreiden, maar zolang het niet wordt dat hij bijv. de C schijf wist, uitschakelt en dat alles in de opstart volgorde van Windows zet, is het nog niet echt een virus .
Maar gl met afmaken. (Als je wilt kan ik je miss wel helpen, pb maar als je hulp nodig heb.)
Oja, je kan er misschien nog even bij zetten dat dit VBS of VB Script(ing) heet.

Het is ook een nep virus

tis een script.

[Quaggmire]

Hier zijn al best veel guides overgeweest...
Ik weet niet hoever je het wilt gaan uitbreiden, maar zolang het niet wordt dat hij bijv. de C schijf wist, uitschakelt en dat alles in de opstart volgorde van Windows zet, is het nog niet echt een virus .
Maar gl met afmaken. (Als je wilt kan ik je miss wel helpen, pb maar als je hulp nodig heb.)
Oja, je kan er misschien nog even bij zetten dat dit VBS of VB Script(ing) heet.

Het is ook een nep virus

tis een script.

Wat boeit dat nou, het gaat om het idee en wat het is, dat een woordje nou anders is is toch ook niet zo bijzonder?