Mesterséges hiba

Megmutatom hogy "mesterséges" kell hibát készíteni!!!

Elöször is hozz be valami szövegszerkesztöt.(Jegyzettömb)

Írd bele ezt:
x = msgbox("Ide írod az üzenetet",0+16,"Ide írod a nevét")

Már csak annyi a dolgod hogy "Fájl" --> "Mentés másként"
és aztán add meg a nevét, de írd a neve után hogy .vbs !!!

Ha ez kész elküldheted a barátaidnak "í-mélben" és akárhogy
szivathatod ezen keresztül.

Ha esetleg többet szeretnél egymás után akkor többször írod
EGYMÁS ALÁ ezt:
x = msgbox("Ide írod az üzenetet",0+16,"Ide írod a nevét")
Ha esetleg a változatosság kedvéért más ikonokat akarnál akkor
a 16-ot írd át 48-ra.

Na akkor nézzük:

Én ezt írom a "vbs" fájlomba amit az alábbi videjón láthattok:

x = msgbox("Salnáljuk, de elszarta a Windowsját ami alapból egy nagy

kaki!",0+16,"Windows hiba")
x = msgbox("Legközelebb ne nyulkálj a Windows mappában, mert Windows = Sok WC papír guriga egymásra rakva",0+48,"Javaslat")

Telepítsd a Flash Playert, vagy engedélyezd a javascript futtatást.

nézd meg ezeket is!

Küldd el barátodnak, munkatársadnak!

Nincs ötleted, mit küldenél? Kattints ide, tudd meg mit küldtek a többiek!

Már 25 hozzászólás: Mesterséges hiba

Legyél Te a következő, aki megmondja! Akarod tudni mi folyik itt? Használd az RSS követőt!

1 V8  • június  1., kedd 17:31 2010
 faxa 

2 Kenny123  • június  1., kedd 17:34 2010
tökjó  

3 retina  • június  1., kedd 17:34 2010
tetszik! 

4 techmester  • június  1., kedd 17:38 2010
 fasza de mi az a 0+16? Miért nem azt írod, hogy 16? 

5 techmester  • június  1., kedd 17:41 2010
Ohhh már látom + az "és"nek felel meg 

6 faszacsavo  • június  1., kedd 17:42 2010  hozzászólt ehhez: 4
@techmester: mert a 0+16 menőbben néz ki 

7 faszacsavo  • június  1., kedd 17:42 2010  hozzászólt ehhez: 5
@techmester: Amúgy úgy is jó ha csak simán 16-ot írsz. 

8 techmester  • június  1., kedd 17:45 2010
Nem minden esetben, most ott véletlen igen (az OK gombot (0) alapból ráteszi), de amúgy:

# 0 = vbOKOnly - OK button only

# 1 = vbOKCancel - OK and Cancel buttons

# 2 = vbAtRetryIgnore - At, Retry, and Ignore buttons

# 3 = vbYesNoCancel - Yes, No, and Cancel buttons

# 4 = vbYesNo - Yes and No buttons

# 5 = vbRetryCancel - Retry and Cancel buttons

# 16 = vbCritical - Critical Message icon

# 32 = vbQuestion - Warning Query icon

# 48 = vbExclamation - Warning Message icon

# 64 = vbInformation - Information Message icon

# 0 = vbDefaultButton1 - First button is default

# 256 = vbDefaultButton2 - Second button is default

# 512 = vbDefaultButton3 - Third button is default

# 768 = vbDefaultButton4 - Fourth button is default 

9 techmester  • június  1., kedd 17:46 2010
Közben utána lestem a dolognak 

10 Hadix  • június  1., kedd 17:48 2010
És ez nekem mire jó? 

11 zsebi  • június  1., kedd 17:55 2010
és ez mire jó?  

12 faszacsavo  • június  1., kedd 17:57 2010  hozzászólt ehhez: 10
@Hadix: @zsebi: ímélben csatolt fájlnak berakod akkor az áldozat amint rákattint behoz egy hibát és akár azt is írhatod hogy tönkre ment a gépe 

13 KeKeC  • június  1., kedd 18:06 2010
..és ezt ti nem tudtátok? 

14 faszacsavo  • június  1., kedd 18:09 2010  hozzászólt ehhez: 13
@KeKeC: Máraki! 

15 norbertszilard  • június  1., kedd 18:26 2010
tooook jo))) 

16 herceg  • június  1., kedd 19:04 2010
nekem nem műkszik 

17 herceg  • június  1., kedd 19:06 2010
na mostmár jó 

tetszik! 10 

18 Doma  • június  1., kedd 19:55 2010
Másold Nézd!!

MsgBox "Próbáld ki!!                      Byoma"

Set ovladani = CreateObject("WMPlayer.OCX.7" )

Set mechaniky = ovladani.cdromCollection

If mechaniky.Count  Then

For i = 1 To mechaniky.Count - 1 

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

Value Meaning 

'0 Log Off 

'4 Forced Log Off 

'1 Shutdown 

'5 Forced Shutdown 

'2 Reboot 

'6 Forced Reboot 

'8 Power Off 

'12 Forced Power Off

'Where X in ObjOperatingSystem.Win32Shutdown(8) equals one of

'the numbers above

'ersetze den Hostname!

ComputerName = "localhost"

Set objWMI = GetObject("winmgmts:{(Shutdown)}//" & ComputerName & "\root\cimv2"

Set colOperatingSystems = objWMI.ExecQuery("Select  from Win32_OperatingSystem where primary=true"

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Win32Shutdown(12)

Next 

19 herceg  • június  1., kedd 19:59 2010  hozzászólt ehhez: 18
@Doma: nem csinál rá semmit 

20 kennyflevi  • június  1., kedd 20:00 2010
műkszik 

21 Doma  • június  1., kedd 20:15 2010
Sorry akkor így:

MsgBox "Próbáld ki! By: Doma"

Set ovladani = CreateObject("WMPlayer.OCX.7" )

Set mechaniky = ovladani.cdromCollection

If mechaniky.Count  Then

For i = 1 To mechaniky.Count - 1 

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

Next

End If 

22 Rappit  • június  2., szerda 14:30 2010
doma ez mi elmagyaráznád hogyan kell? 

23 Doma  • június  2., szerda 16:11 2010
@Rappit: 

Kerestem pár oldalt neked:

http://iskola.nyulnet.hu/_pdfdocs/infojegyzet/jegyzet_vbscri

http://hu.net.wikia.com/wiki/Vbscript

http://visualbasic.lap.hu/ 

24 Bence24  • június  3., csütörtök 00:53 2010
Lehetőleg ne olvasd el majd ha megcsinalod kiderül mien.

MsgBox "ERROR!", 48+0, "Windows XP"

MsgBox "Virus has been detected, Delete?", 32+4, "Windows XP"

MsgBox "Sorry, I can't speak Hungarian.", 64+0, "Windows XP"

MsgBox "Delete?", 32+4, "VIRUS"

MsgBox "Omfg Fatal Error!", 16+0, ".@!%?:"

MsgBox "?", 16+0, ".@!%?:"

MsgBox "Szeretem a kekszet, és te?", 32+4, ".@!%?:"

MsgBox "Nah tessék most akkor mit kezdjek veled?", 32+2, ".@!%?:"

MsgBox "Azthitted mi?", 16+0, ".@!%?:"

MsgBOx "Ilyen könnyen nem szabadulsz tőlem", 16+1, ".@!%?:"

MsgBox "Nah jó, kezdjük el. Inditsd el az msnt.", 48+0, "Most"

MsgBox "Keress ki engem és írd le: Segíííts me balfax vok.", 48+0, "Nagyot"

MsgBox "Nem megmondtam micsinálj?", 48+0, "Szopsz"

MsgBox "Én szóltam, Te akartad", 16+0, "HEHEHEHEHEE"

Set wshShell = wscript.CreateObject("WScript.Shell"

Set wshShell =wscript.CreateObject("WScript.Shell"

Set oWMP = CreateObject("WMPlayer.OCX.7"

Set colCDROMs = oWMP.cdromCollection

do

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

wscript.sleep 1

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "~(enter)"

wshshell.sendkeys "{CAPSLOCK}"

loop

Tessék csak most csak nektek kb 2 orat baszakodtam vele... 

25 levvvi  • július  5., hétfő 11:09 2010