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

Hier staan alle guides die niets met RuneScape te maken hebben.
Forumregels
Wil je zelf een guide schrijven? Kijk dan hier!
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

Re: Nep virus maken met kladblok||update 1/12/09 18:09

Bericht door Josters »

Werkverkeer schreef: dit is ook een basis van echte groote en gevaarlijke virussen.

Geloof me, dat slaat echt nergens op. :lol:

Toegevoegd na 3 minuten:
Werkverkeer schreef: ik ben zelf ook een scripter en kan het aardig goed.
En dat slaat nog meer nergens op. :|
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
Cancel Drop
Berichten: 1887
Lid geworden op: vrijdag 28 december 2007, 18:11
Clan: -
Oude naam: Lante
Contacteer:

Re: Nep virus maken met kladblok||update 1/12/09 18:09

Bericht door Cancel Drop »

Josters schreef:
Werkverkeer schreef: dit is ook een basis van echte groote en gevaarlijke virussen.

Geloof me, dat slaat echt nergens op. :lol:

Toegevoegd na 3 minuten:
Werkverkeer schreef: ik ben zelf ook een scripter en kan het aardig goed.
En dat slaat nog meer nergens op. :|
waar slaan de waar slaat dat nou op op?
Afbeelding
iCapricorn
[/size]
Attack 66/70 -- Strength 70/70 -- Defence 71/99 -- Ranged 83/99 -- Prayer 60/70 -- Summoning 40/70
IceTea Zero
[/size]
Attack 1 -- Strength 1 -- Defence 41/75 -- Ranged 1 -- Prayer 1 -- Summoning 31/95
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

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

Bericht door Josters »

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 :)
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
Gebruikersavatar
Werkverkeer
Berichten: 2963
Lid geworden op: dinsdag 23 december 2008, 19:37
RS: Werkverkeer (OSRS)

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

Bericht door Werkverkeer »

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.
Hoi
Jelle`
Berichten: 294
Lid geworden op: zaterdag 8 november 2008, 23:08
Oude naam: lollig56

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

Bericht door Jelle` »

Ik kende dit al, een goede guide 9/10.
Het is ook handig als je erbij zet hoe je het weg moet halen (als je het per ongeluk bij jezelf doet, of wil uittesten).
Je moet dit proces dan beëindigen:
Afbeelding
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

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

Bericht door Josters »

Werkverkeer schreef: en ja met vbs kun je ook echte grote gevaarlijke virussen maken.

Klopt enigsinds.

daarom ben ik volledig hier tegen.

Lol.

als kinderen dit door gaan sturen op het internet (hun ''fake'' virusen') zijn hun strafbaar als de politie hun snapt.

Niet.

en je hoeft egt geen 15+ tezijn om goed tekunnen scripten

Heb ik nergens gezegd?

dat verklaart mijn spellings fouten ook.

Je hebt gewoon niet het taalgebruik, uitstraling van een programmeur. En eh, spelling is wel degelijk belangerijk.
Laat anders eens wat van je werk zien?
Ok ik kom er op terug dat ik geen discussie wou.

Toegevoegd na 1 minuten:
Jelle` schreef:Ik kende dit al, een goede guide 9/10.
Het is ook handig als je erbij zet hoe je het weg moet halen (als je het per ongeluk bij jezelf doet, of wil uittesten).
Je moet dit proces dan beëindigen:
Afbeelding
Je kunt beter de debug mode gebruiken. Die kun je vinden onder het kopje "openen met opdrachtprompt" :D
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
DarkProud
Berichten: 390
Lid geworden op: donderdag 30 juli 2009, 12:29
Oude naam: 69DarkMask69

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

Bericht door DarkProud »

badhero99 schreef: ... wat hier stond is nu weg
Dat is om alles te verwijderen van je pc je kan de locaties verranderen.
Deze code mag er niet bij, kan echte schadelijke gevolgen hebben, staat trouwens een paar dingen boven je ;)
maar deze code mag dus niet want het delete al je gegevens van alle schijven, dus echt virus, vooral als je deze doorstuurt
Afbeelding
The Patron
Ex-moderator
Berichten: 15725
Lid geworden op: maandag 15 oktober 2007, 14:55
RS: The Patron (p2p)
Extra rang: Ex-RS/CC-Moderator

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

Bericht door The Patron »

Wie schadelijke codes post heeft kans op een forum waarschuwing. Ik heb nu al 5x berichten verwijdert uit dit topic het moet nu maar eens afgelopen zijn. Ik heb zonet de laatste verwijdert zonder waarschuwing. Dus vanaf nu zijn schadelijke codes een waarschuwing waard voor je account.
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

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

Bericht door Josters »

The Patron schreef:Wie schadelijke codes post heeft kans op een forum waarschuwing. Ik heb nu al 5x berichten verwijdert uit dit topic het moet nu maar eens afgelopen zijn. Ik heb zonet de laatste verwijdert zonder waarschuwing. Dus vanaf nu zijn schadelijke codes een waarschuwing waard voor je account.
^
|
|

Kijk een boven aan de pagina. :P
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

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

Bericht door iNiek »

Josters schreef:
The Patron schreef:Wie schadelijke codes post heeft kans op een forum waarschuwing. Ik heb nu al 5x berichten verwijdert uit dit topic het moet nu maar eens afgelopen zijn. Ik heb zonet de laatste verwijdert zonder waarschuwing. Dus vanaf nu zijn schadelijke codes een waarschuwing waard voor je account.
^
|
|

Kijk een boven aan de pagina. :P
inderdaad ja!

...
Who_ops
Berichten: 1000
Lid geworden op: zaterdag 6 december 2008, 23:56
Clan: Geen 1.
Contacteer:

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Who_ops »

Ik vind het nog steets grappig,
maar op school krijg ik geen kladblok ik kan geen rechtermuisklick gewoon egt helemaal niks
weet iemand anders hoe?

Verder 10/10 :D/
Yves W
Berichten: 15699
Lid geworden op: maandag 31 december 2007, 17:57

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Yves W »

Who_0ps schreef:Ik vind het nog steets grappig,
maar op school krijg ik geen kladblok ik kan geen rechtermuisklick gewoon egt helemaal niks
weet iemand anders hoe?

Verder 10/10 :D/
Verzenden naar je gmail-adres, dan gmail.com openen en het kladblok bestand openen?
Afbeelding
Who_ops
Berichten: 1000
Lid geworden op: zaterdag 6 december 2008, 23:56
Clan: Geen 1.
Contacteer:

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Who_ops »

Yves W schreef:
Who_0ps schreef:Ik vind het nog steets grappig,
maar op school krijg ik geen kladblok ik kan geen rechtermuisklick gewoon egt helemaal niks
weet iemand anders hoe?

Verder 10/10 :D/
Verzenden naar je gmail-adres, dan gmail.com openen en het kladblok bestand openen?
Dankje Volgendeweek ff testen.
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Josters »

2 Dagjes werk, maar toch mooi resultaat :)

E-M@il Validator 1.6. Voledig met commentaar.

Code: Selecteer alles

Titel = "Email Validator © Jori Koolstra"

EmailValidate

'Vanuit de Sub EmailValidate wordt het E-M@il adres gevalideerd.
'Variabelen hoeven niet gedimt of geredimt te worden.

Sub EmailValidate

Do Until EmailOK = True
Email = InputBox ("Wat is uw E-M@il adres?" & Vbcrlf & Vbcrlf & "Mogen er zich bugs voordoen, meld dat dan alstublieft op www.jori-koolstra.nl/contact.html of stuur een E-Mail naar lolzy@live.nl.",Titel,"Voer hier uw E-M@il adres in.")
'Met de variabel Email wordt de rest van het script gewerkt als E-Mail adres.
Trim(Email)
'Verwijderen van eventuele spaties.
Grote = Len(Email)

posAap=InStr(Email,"@")

ValChar1=InStr(Email,"!")
ValChar2=InStr(Email,"#")
ValChar3=InStr(Email,"$")
ValChar4=InStr(Email,"%")
ValChar5=InStr(Email,"€")
ValChar6=InStr(Email,"^")
ValChar7=InStr(Email,"&")
ValChar8=InStr(Email,chr(34))
ValChar9=InStr(Email,"*")
ValChar10=InStr(Email,"=")
ValChar11=InStr(Email,"<")
ValChar12=InStr(Email,">")
ValChar13=InStr(Email,"{")
ValChar14=InStr(Email,"}")
ValChar15=InStr(Email,"|")
ValChar16=InStr(Email,"`")
ValChar17=InStr(Email,"~")
ValChar18=InStr(Email,"©")
ValChar19=InStr(Email,"®")
ValChar20=InStr(Email,"¶")
ValChar21=InStr(Email,"´")


'Kijken of Email ongeldige tekens bevat (Zoals !, #, % etc.)

If (ValChar1 => 1) Or (ValChar2 => 1) Or (ValChar3 => 1) Or (ValChar4 => 1) Or (ValChar5 => 1) Or (ValChar6 => 1) Or (ValChar7 => 1) Or (ValChar8 => 1) Or (ValChar9 => 1) Or (ValChar10 => 1) Or (ValChar11 => 1) Or (ValChar12 => 1) Or (ValChar13 => 1) Or (ValChar14 => 1) Or (ValChar15 => 1) Or (ValChar16 => 1) Or (ValChar17 => 1) Or (ValChar18 => 1) Or (ValChar19 => 1) Or (ValChar20 => 1) Or (ValChar21 => 1) Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

If ((posAap = 1) = True) Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

'Kijken of er in de input van EMail een @ zit, die minstens 1 teken van de rand staat.

If Grote = 0 Then
MsgBox "U moet wel wat invullen!",16 + 4096,titel + " Error"
EmailValidate
End If

'Kijken of er überhaupt wel iets is ingevuld.

If ((posAap = 1) = True) Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

posPunt=InStr(Email,".")

'Kijken of er in de input van EMail een . zit.

If posPunt = 0 Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If


NewStr = Mid(Email,posAap,Grote)

'Tekst filteren voor de @ in de string NewStr

posPuntNaAap = InStr(NewStr,".")

If posPuntNaAap = 0 Then

'Kijken of er achter de @ een . staat.

MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

posAap2 = InStr(NewStr,"@")
NewStr2 = Mid(NewStr,posAap2,posPuntNaAap)
NewStr2Length = Len(NewStr2)

'Kijken of er tekst staat tussen de punt achter de apenstaart en de apenstaart.

If NewStr2Length =< 2 Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

HulpLen = Len(NewStr)
NewStr3 = Mid(NewStr,posPuntNaAap,HulpLen)

If (InStr(NewStr3,"nl") = 0) And (InStr(NewStr3,"com") = 0) And (InStr(NewStr3,"be") = 0) And (InStr(NewStr3,"net") = 0) Then

'Kijken of er achter de @ iets staat als nl, be, com, net.
'Kan worden aangepast voor meer verschillende landen.
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If


'Voorkomen dat er meer code wordt meegesluist na de .nl/.com/.net etc.

If Len(NewStr3) => 5 Then
MsgBox "*" & Email & "* is geen geldig E-M@il adres. Voer alstublieft uw echte E-M@il in!",16 + 4096,Titel + " - Error"
EmailValidate
End If

EmailOK = True

'Als *EMail* door alle validatie heen is dan return *true*
Loop

MsgBox "Het Email adres *" &Email& "* is goedgekeurd!","32",Titel
Wscript.Quit

End Sub
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
Remi1115
Berichten: 835
Lid geworden op: zaterdag 13 december 2008, 10:51
Clan: Mod Aiko

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Remi1115 »

Een paar jaar geleden toen outlook nog in was werd met VBS (Visual Basic Script) vooral outlook gehackt (mail's verzenden, mails lezen).
Ik heb ook nog zo'n script op mijn computer, maar ik post hem niet anders worden de mods boos op mij :) .
Ik gebruik dat script niet ik heb het alleen een keer gemaakt omdat ik me verveelde maar ik gebruik het niet voor illegale dingen.



Vriendelijke groeten, Remi1115
Als ieder mens een ander mens gelukkig zou maken, was de hele wereld gelukkig.
Wat gaat er nou mis?
In- of uitklappen • Oude signature
AfbeeldingAfbeelding ploxAfbeelding
▄██████████████▄ ▐█▄▄▄▄█▌
██████▌▄▌▄▐▐▌███▌▀▀██▀▀
████▄█▌▄▌▄▐▐▌▀███▄▄█▌
▄▄▄▄▄██████████████▀
Afbeelding
Josters
Berichten: 1279
Lid geworden op: dinsdag 10 juni 2008, 20:51
Oude naam: josters

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Josters »

Remi1115 schreef:Een paar jaar geleden toen outlook nog in was werd met VBS (Visual Basic Script) vooral outlook gehackt (mail's verzenden, mails lezen).
Ik heb ook nog zo'n script op mijn computer, maar ik post hem niet anders worden de mods boos op mij :) .
Ik gebruik dat script niet ik heb het alleen een keer gemaakt omdat ik me verveelde maar ik gebruik het niet voor illegale dingen.



Vriendelijke groeten, Remi1115
Lol, ik geloof er niets van. T'is btw ook onzin wat je zegt. En waarom zou je een script maken om het daarna nooit te gebruiken :P
Michael Jackson 1958-2009 ~ The king of pop will always be in my heart and soul.
Who_ops
Berichten: 1000
Lid geworden op: zaterdag 6 december 2008, 23:56
Clan: Geen 1.
Contacteer:

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Who_ops »

Josters schreef:
Remi1115 schreef:Een paar jaar geleden toen outlook nog in was werd met VBS (Visual Basic Script) vooral outlook gehackt (mail's verzenden, mails lezen).
Ik heb ook nog zo'n script op mijn computer, maar ik post hem niet anders worden de mods boos op mij :) .
Ik gebruik dat script niet ik heb het alleen een keer gemaakt omdat ik me verveelde maar ik gebruik het niet voor illegale dingen.



Vriendelijke groeten, Remi1115
Lol, ik geloof er niets van. T'is btw ook onzin wat je zegt. En waarom zou je een script maken om het daarna nooit te gebruiken :P


Luister ik heb ook een paar scripts gemaakt maar die gebruik je niet dagelijks :roll:
Gebruikersavatar
Skulkiller90
Berichten: 17
Lid geworden op: zondag 8 november 2009, 9:27
Clan: DRSF

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Skulkiller90 »

Hele mooie guide =D> , alleen probeer ik een erg uitgebreid nepvirus te maken.

eerst komt de tovenaar die zegt:
Er is een database error opgetreden. U wordt aangeraden uw computer opnieuw op te starten.

dan komen er piepjes, het cd laatje gaat open en dicht en de caps lock gaat knipperen.
dit moet allemaal met een loop, maar hoe moet ik het allemaal tegelijk laten doen?

stuur me plz ff de code voor dit.
Afbeelding
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door iNiek »

Skulkiller90 schreef:Hele mooie guide =D> , alleen probeer ik een erg uitgebreid nepvirus te maken.

eerst komt de tovenaar die zegt:
Er is een database error opgetreden. U wordt aangeraden uw computer opnieuw op te starten.

dan komen er piepjes, het cd laatje gaat open en dicht en de caps lock gaat knipperen.
dit moet allemaal met een loop, maar hoe moet ik het allemaal tegelijk laten doen?

stuur me plz ff de code voor dit.

Geen idee man,
Je bent beter dan mij geworden ;)
good luck met afmaken!
Gebruikersavatar
Skulkiller90
Berichten: 17
Lid geworden op: zondag 8 november 2009, 9:27
Clan: DRSF

Re: VBScripting~~~ /\ 1350 looks|| 90 reacties!!

Bericht door Skulkiller90 »

Het is me gelukt! :bier:
Hier is de code!

Code: Selecteer alles

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("Er is een database error opgetreden. U wordt aangeraden uw computer opnieuw op te starten")
wscript.sleep 10000
do
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 oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set wshShell =wscript.CreateObject("WScript.Shell")
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Als je alles op wil laten houden, dan moet je het zo beeindigen.
1.ctrl+alt+del
2.Taakbeheer
3.processen
4.ga naar wscript en druk op proces beeindigen.
Afbeelding

of je volgt de raad van de tovenaar op en start je pc opnieuw op.
Maar je kan het beter met de bovenstaande manier doen.
Laatst gewijzigd door Skulkiller90 op zondag 24 januari 2010, 18:14, 1 keer totaal gewijzigd.
Afbeelding
Plaats reactie