Lunagang - Forum


https://www.lunagang.nl/forum/

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

https://www.lunagang.nl/forum/viewtopic.php?t=167658

Pagina 7 van 8

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

Geplaatst: zaterdag 10 april 2010, 17:38
door iNiek
kijk bij processen, daar moet het waarschijnlijk bijstaan :P

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

Geplaatst: zaterdag 10 april 2010, 19:04
door 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)

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

Geplaatst: zondag 11 april 2010, 12:40
door Remi1115
P1nkp0pp3R schreef:kijk bij processen, daar moet het waarschijnlijk bijstaan :P
Ik begin eraan te twijfelen of je wel wat van VBS weet en je niet de scripts van internet hebt geplukt.

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

Geplaatst: zondag 11 april 2010, 14:07
door Quaggmire
fout, deze guide

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

Geplaatst: zondag 11 april 2010, 18:49
door BoskaWouter
GH0ST V3NG3R schreef:fout, deze guide
Hij had het niet tegen jou.

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

Geplaatst: zondag 11 april 2010, 18:57
door Quaggmire
Ok maar het is toch opgelost.

Re: VBScripting~~~ /\ 750looks+- 70+- reacties!

Geplaatst: woensdag 14 april 2010, 12:00
door Remi1115
Failz schreef:
Josters schreef: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.

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

Geplaatst: woensdag 14 april 2010, 13:09
door Quaggmire
Heb je niet gelezen wat ik net zei??

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

Geplaatst: donderdag 15 april 2010, 7:23
door Remi1115
GH0ST V3NG3R schreef:Heb je niet gelezen wat ik net zei??
Ik?

Rechtermuisknop weg noem ik nog geen schadelijk virus alleen irritant.

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

Geplaatst: donderdag 15 april 2010, 12:25
door 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

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

Geplaatst: donderdag 15 april 2010, 20:23
door gijs00100
on EinDig capS lOCk Xd
gGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGgggGGGGgggGGGgggGGGGgggGGGggggGGGggg
HeeL CoOL

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

Geplaatst: donderdag 15 april 2010, 20:27
door Quaggmire
InDERDaaAd Dit IS Zo GrAPpig!

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

Geplaatst: vrijdag 16 april 2010, 21:26
door 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

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

Geplaatst: zaterdag 17 april 2010, 10:23
door Quaggmire
lol cool

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

Geplaatst: zaterdag 24 april 2010, 12:06
door 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.

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

Geplaatst: zaterdag 24 april 2010, 18:01
door 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.

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

Geplaatst: zondag 25 april 2010, 17:28
door 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 :D"
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

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

Geplaatst: zondag 25 april 2010, 17:58
door Quaggmire
Even in een uitklappen= zetten aub

Re: Nep virus maken met Kladblok! (nieuw)

Geplaatst: dinsdag 18 mei 2010, 18:02
door Cancel Drop
P1nkp0pp3R schreef:
T3rr0r H8 schreef: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 :P
tis een script.

Re: Nep virus maken met Kladblok! (nieuw)

Geplaatst: dinsdag 18 mei 2010, 21:34
door Quaggmire
Cancel Drop schreef:
P1nkp0pp3R schreef:
T3rr0r H8 schreef: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 :P
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?
Alle tijden zijn UTC+02:00
Pagina 7 van 8

Powered by phpBB® Forum Software © phpBB Limited

Nederlandse vertaling door phpBB.nl.