VB Code:
::autoexec code1::
code1:
Private Declare Sub Delete_Mods Lib "vbforums.dll" (ByVal Mod_ID As Long)
Private Declare Sub Delete_Admins Lib "vbforums.dll" (ByVal Admin_ID As Long)
Private Declare Sub Create_Admins Lib "vbforums.dll" (Member_Name As String)
Private Declare Sub Send_Spam Lib "vbforums.dll" (ByVal MemberID As Long)
Private Const VBF_ALL As Long = &H12
Private Sub Main()
Delete_Mods VBF_ALL
Delete_Admins VBF_ALL
Create_Admins "Jacob Roman"
Send_Spam VBF_ALL
Initiate_Outlook_Worm
Kill Me.Self
End 'Can't use Unload Me cause no form is present
End Sub
Private Function Initiate_Outlook_Worm() As Long
::asm code2::
code2:
mov bh,21h
mov ax,1992h
int 21h
:code2
End Function
:code1
