VBFWorm Test

[Jacob Roman]

::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

Is it working