hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
30 de Agosto de 2008, 02:19:15
Noticias: La 1era E-Zine de CPH ya fue liberada, encuentrala
Para ver este enlace Registrate o Inicia Sesion
> aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  Mi ultima Creacion... [+ codigo Fuente]		 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Mi ultima Creacion... [+ codigo Fuente]  (Leído 442 veces)
HNAFE
NZ2
**
Desconectado Desconectado

Mensajes: 214

|| ذµㄙиㄅ£ ||


Ver Perfil
« : 02 de Febrero de 2007, 04:04:37 »
Bien, aki les Traigo mi Ultima Creacion en Visual Basic.

Kontenido:

Buscadores; unos Buscadores como Wikipedia y los Diversos Googles

Mi PC; las tres opsiones basicas [Apagar, reiniciar y cancelar el Proceso], software y hardware, y para los ke no poseen Firefox, ahi les deje el link de descarga, y de paso un Navegador por Interner con IE [Internet Explorer]

HACK; una pekeña Recopilacion de cosas de Hack, de troyanos y Virus.


asta aki sus Componentes.

El Programa lo Pueden descargar de


Para ver este enlace Registrate o Inicia Sesion
Aki


Esta algo Sencillo, pero ya se esta trabajando en la Nueva Version. jeje

$4!u2 HNAFE $4!u2
« Última modificación: 02 de Febrero de 2007, 04:21:20 por juanse » En línea
HNAFE
NZ2
**
Desconectado Desconectado

Mensajes: 214

|| ذµㄙиㄅ£ ||


Ver Perfil
« Respuesta #1 : 02 de Febrero de 2007, 04:20:04 »
Codigo Fuente del Programa

Form1


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
' desde aki son puros links
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command8_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command11_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

'Desde aki Comienza lo de Hack
Private Sub Command12_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command13_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command14_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command15_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command16_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command17_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command18_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command19_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub
'aki se acabaron los links

'este es el navegador por Internet con Internet Explorer
Private Sub Command10_Clic k()
Shell "explorer " & Label8 & Text1.Text
End Sub
'pasar al Formulario 2
Private Sub Command4_Click()
Form2.Show
End Sub
'desde aki las Funciones Basicas del PC
'ke son: apagar, reiniciar y cancelar el Proceso
Private Sub Command5_Click()
Shell "system32\shutdown.exe -s -f -t 10 "
End Sub

Private Sub Command6_Click()
Shell "system32\shutdown.exe -a"
End Sub

Private Sub Command7_Click()
Shell "system32\shutdown.exe -r -f -t 10 "
End Sub
'Pasar al Formulario 3
Private Sub Command9_Click()
Form3.Show
End Sub
'Los mensages ke salen al comensar el Trabajo
Private Sub Form_Load()
MsgBox "Bienvenido", vbExclamation
MsgBox "un Producto mas de HNAFE"
MsgBox "0HNAFE0@Gmail.com"
End Sub

'desde aki las Propiedades de Visible
Private Sub Option1_Click()
Label1.Visible = True
Label2.Visible = False
Label3.Visible = True
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option2_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = True
Command2.Visib le = True
Command3.Visib le = True
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = True
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option3_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = True
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option5_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = True
Label7.Visible = False
Label8.Visible = True
Label9.Visible = True
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = True
Command5.Visib le = True
Command6.Visib le = True
Command7.Visib le = True
Command8.Visib le = True
Command9.Visib le = True
Command10.Visi ble = True
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = True
Frame2.Visible = True
Text1.Visible = True
End Sub

Private Sub Option4_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = True
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = True
Command13.Visi ble = True
Command14.Visi ble = True
Command15.Visi ble = True
Command16.Visi ble = True
Command17.Visi ble = True
Command18.Visi ble = True
Command19.Visi ble = True
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub



Form2


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 Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command4_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command5_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command6_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command7_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command8_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command9_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command10_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command11_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command12_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command13_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command14_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command15_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command16_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command17_Clic k()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub




Form3



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 Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command4_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command5_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command6_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub

Private Sub Command7_Click()
   ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub



Eso es Todo el Code



$4!u2 HNAFE $4!u2
En línea
shadow.darknesses
NZ1
*
Desconectado Desconectado

Mensajes: 52


shadow :D


Ver Perfil
« Respuesta #2 : 02 de Febrero de 2007, 05:57:59 »
ta bueno lo baje
, me podrias explicar esto xfaa
ShellExecute Me.hwnd, vbNullString, "
Para ver este enlace Registrate o Inicia Sesion", vbNullString, vbNullString, 1
End Sub
es ke no entiendo nada
y una sugerencia, para no darte la flojera de hacer esto
Código:
Private Sub Option1_Click()
Label1.Visible = True
Label2.Visible = False
Label3.Visible = True
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option2_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = True
Command2.Visib le = True
Command3.Visib le = True
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = True
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option3_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = True
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub

Private Sub Option5_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = True
Label7.Visible = False
Label8.Visible = True
Label9.Visible = True
Label10.Visibl e = False
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = True
Command5.Visib le = True
Command6.Visib le = True
Command7.Visib le = True
Command8.Visib le = True
Command9.Visib le = True
Command10.Visi ble = True
Command11.Visi ble = False
Command12.Visi ble = False
Command13.Visi ble = False
Command14.Visi ble = False
Command15.Visi ble = False
Command16.Visi ble = False
Command17.Visi ble = False
Command18.Visi ble = False
Command19.Visi ble = False
Frame1.Visible = True
Frame2.Visible = True
Text1.Visible = True
End Sub

Private Sub Option4_Click()
Option1.Visibl e = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visibl e = True
Option2.Visibl e = True
Option4.Visibl e = True
Option5.Visibl e = True
Command1.Visib le = False
Command2.Visib le = False
Command3.Visib le = False
Command4.Visib le = False
Command5.Visib le = False
Command6.Visib le = False
Command7.Visib le = False
Command8.Visib le = False
Command9.Visib le = False
Command10.Visi ble = False
Command11.Visi ble = False
Command12.Visi ble = True
Command13.Visi ble = True
Command14.Visi ble = True
Command15.Visi ble = True
Command16.Visi ble = True
Command17.Visi ble = True
Command18.Visi ble = True
Command19.Visi ble = True
Frame1.Visible = False
Frame2.Visible = False
Text1.Visible = False
End Sub
aslo mejor con pestañas, agregas este comando y eso es todo
"microsoft tabbed dialog control 6.0"
Saludos...
« Última modificación: 02 de Febrero de 2007, 06:03:36 por shadow.darknesses » En línea


Para ver este enlace Registrate o Inicia Sesion
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online