Jak vytvořit vlastního mluvícího kouzelníka.

Je to lehký jak facka! :)

Tento kod ani nemusím vysvětlovat a po chvíli ho pochopíte sami ;)

Code:

StrText = InputBox("odpoví! ("Ahoj, jsem Merlin a umím mluvit jen anglicky. :)")

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 StrText

Wscript.Sleep 3000

objVoice.Speakstream objFile

Set objVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Rate = 1

objVoice.Speak strText

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Odkaz ke stažení: Download

Heslo: 12345     !!!

Jak potrolit kámoše falešným virem, se spožděním které simuluje mazání :)
Kod dole zkopírujte do poznámkovýho bloku a uložte s příponou .vbs !!!

Vysvětlivky:
 Okno:       X=MsgBox("Text", čísla od 0 do 4, zkoušejte je měnit než se vám to bude líbit + 16,32,48,64 to samý"Jméno okna")

Zpoždění: WScript.Sleep (třeba) 1000  - 1 sekunda = 1000

Code:
 X=MsgBox("Byl nalezen virus! Chcete ho smazat?",3+16,"Virus")
X=MsgBox("Tento virus nejde smazat. Byl aktivován.",2+16,"Virus aktivován")
X=MsgBox("Mažu složku WINDOWS...",0+64,"Mažu ti data")
WScript.Sleep 5000
X=MsgBox("Smazání bylo dokončeno.",0+16,"Dokončeno")
X=MsgBox("Chcete odeslat svoje hesla hackerům?",4+16,"Chcete odelsat hesla hackerům?")
X=MsgBox("Je to jedno, odešlu je...",0+16,"Je to jedno.")
WScript.Sleep 8000
X=MsgBox("Tvoje hesla byla úspěšně poslána hackerům.",1+64,"Dokončeno")
X=MsgBox("Chcete smazat všechna data?",4+48,"Smazat data?")
X=MsgBox("Do toho ti nic není..!",0+16,"Do toho ti nic není!")
X=MsgBox("Mažu tvoje data...",0+16,"Mažu data")
WScript.Sleep 10000
X=MsgBox("Tvoje data byly úspěšně smazány.",0+16,"Dokončeno")
X=MsgBox("Chceš smazat BIOS?",4+16,"Smazat BIOS?")
X=MsgBox("Smažeme ho...",0+16,"Smažeme ho")    
X=MsgBox("Probíhá mazání BIOSu...",0+64,"mažu BIOS")
WScript.Sleep 3000
X=MsgBox("Byl úspěšně smazán. Nyní prosím restartuj svůj PC. :)",0+48,"Restart, prosím")
X=MsgBox("Sranda! :D I am kidding...",0+64,"I am kidding...")

Pokud vám to nejede, zde je download: http://uloz.to/xg1tUmv/nej-hra-vbs
Heslo: 12345

PS: Pokusím se vám najít converter souborů do EXE :)        

Vítej na stránce Mega Hacker :)

Budou zde různý návody :)

A to hlavně typu jak si udělat srandu z kamarádů atd. :)