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!
Jimmy
Berichten: 1876
Lid geworden op: zondag 21 december 2008, 12:07
Oude naam: Jimmytje

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

Bericht door Jimmy »

Kan iemand een script voor mij maken

dat een msgbox dan op de voorgrond blijft en als je em wegklikt dat ie dan de pc afsluit
text= als je op kruisje drukt sluit je pc af

et lukt niet :C
''When does a man die? When he is hit by a bullet? No! When he suffers a disease? No! When he ate a soup made out of a poisonous mushroom? No! A man dies when he is forgotten!''
Quaggmire
Berichten: 5804
Lid geworden op: zaterdag 30 januari 2010, 16:27
RS: Quaggmire (p2p)
Oude naam: Ghostclaws12
Contacteer:

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

Bericht door Quaggmire »

Jimmytje schreef:Kan iemand een script voor mij maken

dat een msgbox dan op de voorgrond blijft en als je em wegklikt dat ie dan de pc afsluit
text= als je op kruisje drukt sluit je pc af

et lukt niet :C
Moet je zelf maar experimenteren, we gaan niet tijd verspillen aan een saai scripte
En, dat kan niet
dan zou je kunnen doen ja/nee vraag nee= afsluiten enz en ja wat anders
Hulp nodig met je PC? Stuur me een PM met een budget en doeleinden, en ik help je graag.
Wat handige links:

Helpmij
Nationaal computerforum
Gast

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

Bericht door Gast »

Verwijderd
Quaggmire
Berichten: 5804
Lid geworden op: zaterdag 30 januari 2010, 16:27
RS: Quaggmire (p2p)
Oude naam: Ghostclaws12
Contacteer:

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

Bericht door Quaggmire »

David schreef:Slordige guide, sorry. Je maakt nogal wat fouten.

msgbox "hoi"
msgbox "dit is een virus"
msgbox "vind je het leuk?"
msgbox "Mag ik je computer afsluiten?" (scroll omlaag)"
msgbox "Of je cd laatje openen? (scroll omlaag)"
msgbox "Nouja dan doe ik het niet!"

Nou boeiend, we typen toch gewoon zelf automatisch " erachter
Als jij een guide zou hebben, of een van je guides als je er een hebt (geen idee) dan kan ik ook
allemaal minpunten verzinnen!
Hulp nodig met je PC? Stuur me een PM met een budget en doeleinden, en ik help je graag.
Wat handige links:

Helpmij
Nationaal computerforum
jelsi2
Berichten: 342
Lid geworden op: vrijdag 27 februari 2009, 17:15

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

Bericht door jelsi2 »

kheb er ook eentje gemaakt, kweet niet oft een goede is, er zitten geen gevaarlijke codes is...
In- of uitklappen •
msgbox"moet ge nu eens weten?"
msgbox"goed, 48 ,kijken e"
a=inputbox("Wat is je naam?")
msgbox "Jij hebt een naam! je naam is:"+a
msgbox"wacht maar eens af..."
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
msgbox"hehe, daar heb je niet van terug e!"
msgbox" ok nog eens:
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
if msgBox("zullen we er mee stoppen?", vbYesNo, "vraag") = vbYes then
msgbox "WTF, dat is schadelijk hoor"
else
msgbox "Ik had echt niet anders gedacht hoor:P!"
end if
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
msgbox"oei... dat klonk niet echt gezond volgens mij"
msgbox"het is:," & now & ",toch?"
Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Hello, how are you?"
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("Hello, I'm a big angry wizard")
wscript.sleep 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "dit"
WScript.Sleep 200
WshShell.SendKeys "is "
WScript.Sleep 150
WshShell.SendKeys "leuk,"
WshShell.SendKeys "he? "
WScript.Sleep 150
msgbox"kmoet gaan eten, dus is het gedaan met ons te amuseren :("
msgbox"je was heel enthousiast in het meevolgen van dit virus"
msgbox"na 10 tellen sluit ik je computer af, ok?"
msgbox"9"
msgbox"8"
msgbox"7"
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"0"
msgbox"byeee....."
Afbeelding
jelsi2
Berichten: 342
Lid geworden op: vrijdag 27 februari 2009, 17:15

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

Bericht door jelsi2 »

kan iemand deze verbeteren?

:
In- of uitklappen •
msgbox"moet ge nu eens weten?"
msgbox"goed kijken e"
a=inputbox("Wat is je naam?")
msgbox "Jij hebt een naam! je naam is:"+a
msgbox"wacht maar eens af..."
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
msgbox"hehe, daar heb je niet van terug e!"

if msgBox("zullen we er mee stoppen?", vbYesNo, "vraag") = vbYes then
msgbox "WTF, dat is schadelijk hoor"
else
msgbox "Ik had echt niet anders gedacht hoor:P!"
end if
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
msgbox"oei... dat klonk niet echt gezond volgens mij"
msgbox"het is:," & now & ",toch?"
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("Hello, I'm a big angry wizard")
wscript.sleep 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "dit"
WScript.Sleep 200
WshShell.SendKeys "is "
WScript.Sleep 150
WshShell.SendKeys "leuk,"
WScript.Sleep 150
WshShell.SendKeys "he?"
WScript.Sleep 150
WshShell.SendKeys "of niet?"
WScript.Sleep 150
WshShell.SendKeys "ik "
WScript.Sleep 150
WshShell.SendKeys "hoop "
WScript.Sleep 150
WshShell.SendKeys "voor "
WScript.Sleep 150
WshShell.SendKeys "jou "
WScript.Sleep 150
WshShell.SendKeys "van "
WScript.Sleep 150
WshShell.SendKeys "wel... "
WScript.Sleep 150
WshShell.SendKeys "geen "
WScript.Sleep 150
WshShell.SendKeys "nood, "
WScript.Sleep 150
WshShell.SendKeys "het "
WScript.Sleep 150
WshShell.SendKeys "is "
WScript.Sleep 150
WshShell.SendKeys "bijna "
WScript.Sleep 150
WshShell.SendKeys "gedaan. "
WScript.Sleep 150
WshShell.SendKeys "denk "
WScript.Sleep 150
WshShell.SendKeys "ik "
WScript.Sleep 150
WshShell.SendKeys "toch... "
WScript.Sleep 150
WshShell.SendKeys "anders "
WScript.Sleep 150
WshShell.SendKeys "heb "
WScript.Sleep 150
WshShell.SendKeys "jij "
WScript.Sleep 150
WshShell.SendKeys "een "
WScript.Sleep 150
WshShell.SendKeys "probleem "
WScript.Sleep 150
WshShell.SendKeys "he ! "
WScript.Sleep 150
WshShell.SendKeys "nu "
WScript.Sleep 150
WshShell.SendKeys "nog "
WScript.Sleep 150
WshShell.SendKeys "het "
WScript.Sleep 150
WshShell.SendKeys "onze-vader "
WScript.Sleep 150
WshShell.SendKeys "Libera nos, quaesumus, Domine, ab omnibus malis,"
da propitius pacem in diebus nostris,"
Verlos ons, Heer, van alle kwaad,"
geef vrede in onze dagen,"
dat wij gesteund door Uw barmhartigheid,"
vrij mogen zijn van zonde,"
en beveiligd tegen alle onrust."
Hoopvol wachtend"
op de komst van Jezus, Messias, Uw Zoon.,"
WAARNA DE GELOVIGEN ANTWOORDEN MET :
Quia tuum est regnum,"
et potestas, et gloria"
in saecula."
Want van U is het koninkrijk"
en de kracht en de heerlijkheid"
WScript.Sleep 150 in eeuwigheid. Amen."
WshShell.SendKeys "leuk he? "
WScript.Sleep 150
msgbox"heb jij effe geluk...
msgbox" moet ik anders je harde schijven even wissen?
msgbox" kan leuk zijn...
msgbox"kmoet gaan eten, dus is het gedaan met ons te amuseren :("
msgbox"je was heel enthousiast in het meevolgen van dit virus"
msgbox"na 10 tellen sluit ik je computer af, ok?"
msgbox"9"
msgbox"8"
msgbox"7"
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"0"
msgbox"byeee....."
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
alvast bedankt
Afbeelding
Timie 100000
Berichten: 55
Lid geworden op: dinsdag 8 april 2008, 18:18
RS: Burned Ice (p2p)
Clan: Veritas Vincit

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

Bericht door Timie 100000 »

een programma openen staat er niet bij?
en dit ook nog

Code: Selecteer alles

X = msgbox ("Je tekst", 1024, "De titel ")
je kan 1024 en de tekst/titel naargelang smaak aanpassen!

Code: Selecteer alles

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("kladblok.exe")
opent kladblok, heel interessant voor iemand die automatisch op msn inlogt en kan je combineren met die andere die naam veranderd

Code: Selecteer alles

path = "C:\New"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If
maakt een nieuwe map aan in c:\, je kan experimenteren en de locatie/naam veranderen

Code: Selecteer alles

vbOKOnly=alleen ok
vbOKCancel=is ok en annulieren
vbYesNo=ja en nee
vbAbortIgnoreRetry=Geeft de Afbreken, Nogmaals en Negeren knoppen
vbRetryCancel=Geeft de knoppen Nogmaals en Annuleren
nog wat dieper in op vbYesNo
of

Code: Selecteer alles

0=alleen ok
1=is ok en annulieren
4=ja en nee
2=Geeft de Afbreken, Nogmaals en Negeren knoppen
5=Geeft de knoppen Nogmaals en Annuleren
ook bedankt voor de nieuwe codes, ik zal ze met respect (mis)bruiken
Afbeelding
Training hunter: 71
Quaggmire
Berichten: 5804
Lid geworden op: zaterdag 30 januari 2010, 16:27
RS: Quaggmire (p2p)
Oude naam: Ghostclaws12
Contacteer:

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

Bericht door Quaggmire »

Kan je een plaatje bij deze scripts doen?
Dus bijv een msgbox met een plaatje?
Hulp nodig met je PC? Stuur me een PM met een budget en doeleinden, en ik help je graag.
Wat handige links:

Helpmij
Nationaal computerforum
Scary Riyl
Berichten: 59
Lid geworden op: dinsdag 30 augustus 2011, 15:59
RS: Scari riyl (p2p)

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

Bericht door Scary Riyl »

waarom werkt de wizard niet
kan iemand mij hier misschien wee helpen
Afbeelding
Afbeelding
Afbeelding
robin super5
Berichten: 29
Lid geworden op: vrijdag 29 juni 2012, 16:22
Clan: just fun

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

Bericht door robin super5 »

Nice guide dit kende ik al van "Maak je eigen klik hier niet" Maar toch nice van pc klepje open en dicht! =D>
Afbeelding
Plaats reactie