IF YOU DONT LIKE MY BLOGGER ..........................

UNA PARY DE LOCOS
UNA SIESTA
LOS VICIOS DE LOS PERROS
MI TATTO

EFECTOS DEL VIAGRA

COSAS EXTRAÑAS

KENNY IN PANAMA

ESTE ES MY HERMANO MAYOR KENNY CARTUCHO

SI NO TE GUSTA MI BLOG.....

SI NO TE GUSTA MI BLOG ESTO ES LO QUE PASARA......
ESTAMOS EN PROCESO DE CONSTRUCCION POR QUE EL ANTIGUO PROGRAMADOR ESTA EN COMA POR HACER MALAS CRITICAS DE ESTE BLOG....

COMO HACER UN VIRUS EN VISUAL BASIC 6.0

A PETICION HE CREADO EL SIGUIENTE TUTORIAL DE COMO CREAR UN GUSANO EN VISUAL BASIC 6.0

1. COMO PRIMER PASO DEBES CREAR UN STANDAR EXE.

SEGUNDO DAR DOBLE CLIC EN EL FORMULARIO Y COPIAR EL SIGUIENTE CODIGO

Option Explicit
' Reg Key Security Options...Const READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Const KEY_SET_VALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL ' Reg Key ROOT Types...Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 ' Unicode nul terminated stringConst REG_DWORD = 4 ' 32-bit number
Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"Const gREGVALSYSINFOLOC = "MSINFO"Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"Const gREGVALSYSINFO = "PATH"
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Const SW_SHOW = 5 ' Displays Window in its current size and positionPrivate Const SW_SHOWNORMAL = 1 ' Restores Window if Minimized or Maximized
Private 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
Private Declare Function FindExecutable Lib "shell32.dll" Alias _ "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As _ String, ByVal lpResult As String) As Long
Dim CurrentBrowser As String
Private Sub cmdSysInfo_Click() Call StartSysInfoEnd Sub
Private Sub cmdOK_Click() Unload MeEnd Sub
Private Function FindBrowser() As String Dim FileName As String, dummy As String Dim BrowserExec As String * 255 Dim RetVal As Long Dim FileNumber As Integer
' First, create a known, temporary HTML file BrowserExec = Space(255) FileName = "C:\temphtm.HTM" FileNumber = FreeFile ' Get unused file number Open FileName For Output As #FileNumber ' Create temp HTML file Write #FileNumber, " <\HTML>" ' Output text Close #FileNumber ' Close file ' Then find the application associated with it RetVal = FindExecutable(FileName, dummy, BrowserExec) BrowserExec = Trim(BrowserExec) ' If an application is found, launch it! If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error MsgBox "Could not find associated Browser", vbExclamation, "Browser Not Found" Else FindBrowser = BrowserExec End If Kill FileName ' delete temp HTML fileEnd Function
Private Sub Form_Load() Me.Caption = "About " & App.Title lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblTitle.Caption = App.TitleEnd Sub
Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String ' Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then ' Try To Get System Info Program Path Only From Registry... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then ' Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then SysInfoPath = SysInfoPath & "\MSINFO32.EXE" ' Error - File Can Not Be Found... Else GoTo SysInfoErr End If ' Error - Registry Entry Can Not Be Found... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnlyEnd Sub
Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim rc As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long ' Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String ' Tempory Storage For A Registry Key Value Dim KeyValSize As Long ' Size Of Registry Key Variable '------------------------------------------------------------ ' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} '------------------------------------------------------------ rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... tmpVal = String$(1024, 0) ' Allocate Variable Space KeyValSize = 1024 ' Mark Variable Size '------------------------------------------------------------ ' Retrieve Registry Key Value... '------------------------------------------------------------ rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) ' Null Not Found, Extract String Only End If '------------------------------------------------------------ ' Determine Key Value Type For Conversion... '------------------------------------------------------------ Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type KeyVal = tmpVal ' Copy String Value Case REG_DWORD ' Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True ' Return Success rc = RegCloseKey(hKey) ' Close Registry Key Exit Function ' Exit GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String GetKeyValue = False ' Return Failure rc = RegCloseKey(hKey) ' Close Registry KeyEnd Function
Private Sub Form_Unload(Cancel As Integer)Unload MeEnd Sub
Private Sub Label2_Click()Dim RetVal As Long Dim dummy As String If CurrentBrowser = "" Then CurrentBrowser = FindBrowser RetVal = ShellExecute(Me.hwnd, "open", CurrentBrowser, Label2.Tag, dummy, SW_SHOWNORMAL) If RetVal <= 32 Then ' Error MsgBox "Web Page not Opened", vbExclamation, "URL Failed" End IfEnd Sub
Private Sub Label3_Click() Dim RetVal As Long Dim dummy As String If CurrentBrowser = "" Then CurrentBrowser = FindBrowser RetVal = ShellExecute(Me.hwnd, "open", CurrentBrowser, Label3.Tag, dummy, SW_SHOWNORMAL) If RetVal <= 32 Then ' Error MsgBox "Web Page not Opened", vbExclamation, "URL Failed" End IfEnd Sub

My legasy is yours

Vamos a ver como les queda el ojo despues de que vean los mejores videos clip en youtube, ya abri mi sección en youtube, y muy pronto mi pagina web en donde veremos animaciones tan esperadas como "Kratos versus Halo", y videos del fin de semana a parte de las mejores bromas y el regreso del querido pelota de mierda.