Vai tev patīk izjokot draugus vai vecākus? Šis noteikti uz viņiem atstās iespaidu! Nenodara nekādu kaitējumu datoram.
Atver notepad.
Iekopē X=MsgBox("apraksts",0+16,"virsraksts")
Spied file - save as...
Labākais datora pranks!1
47
0
Ieraksti faila nosaukumu beigās pieliekot .vbs
Jums parādīsies jauna ikona unuz tās uzklikšķinot redzēsiet šādu logu. Pieleca kā tas notiek? Tad taisīsim paši savu pranka vīrusu! 
Tātad, paskaidrošu kā tas notiek. Atgriezīsimies pie sākotnējā koda X=MsgBox("apraksts",0+16,"virsraksts")
Jūs varat rakstīt sekojošos ciparus ''0'' vietā (tie nozīmē, kādas pogas būs zem ziņojuma):
0 = OK
1 = OK / Cancel
2 = Abort / Retry / Ignore
3 = Yes / No / Cancel
4 = Yes / No
5 = Retry / Cancel
Tālāk jūs varat rakstīt sekojošos ciparus ''16'' vietā (tie nozīmē kāds apzīmējums rādīsies pie ziņojuma):
16 = Sarkanais krustiņš
32 = Jautājuma zīme
48 = Brīdinājuma zīme
64 = Informācijas zīme
Tas, kuru pogu jūs nospiežat neietekmē tālāko darbību. Ja ziņojums tiek aizvērts, tad tas automātiski pāriet uz nākamo ziņojumu.
Nu tad taisam augšā! Kopējiet sākotnējo kodu vairākas reizes aiz katra spiežot ''enter'' un rakstiet ko gribat!
Reklāma
Šādi izskatās mans fails. Zemāk kods, ko varat iekopēt:
X=MsgBox("Nevar atvērt. Vai salabot?",1+16,"Error")
X=MsgBox("Salabots",0+64,"Salabots")
X=MsgBox("Uzmanību! Atrasts vīruss!",0+16,"Virus detected")
X=MsgBox("Dzēš sistēmas failus...",0+64,"Working...")
X=MsgBox("Deleting windows...",0+64,"Working...")
X=MsgBox("Installing trojan horse...",0+64,"Installing...")
X=MsgBox("CRITICAL ERROR",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("",0+16,"ERROR")
X=MsgBox("Just a parnk bro :D Nav vīrusa! Varbūt...",0+16,"LOL")
Tālāk spiežam file - save
Pagaidām ikona izskatās šāda, tādēļ uztaisīsim lai kāds uz to varētu uzķerties.
Spiežam labo klikšķi uz ikonas un izvēlamies Send to - Desktop (create shortcut)
Tālāk uz desktopa jums parādīsies vēlviena tāda pati ikona. Tālāk nomainam šīs ikonas nosaukumu uz piemēram ''counter strike''.
Atrodam googles attēlos atbilstošu ikonu un lejupielādējam.
Spiežam labo klikšķi uz ikonas Properties - shortcut - change icon - browse- izvēlamies lejupielādēto ikonu un spiežam apply.
Šāds ir rezultāts. Counter strike vietā varat uztaisīt interneta pārlūka ikonu vai jebko, uz kā varētu uzķerties.
Nu tad no sākuma ietestējam paši un tad skatamies drauga vai vecāku reakciju 
Reklāma
Tev patiks šie raksti
