Mi ultima Creacion... [+ codigo Fuente]

[HNAFE]

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

[HNAFE]

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, "http://es.wikipedia.org", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.google.com.co", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.usaelputogoogle.com", vbNullString, vbNullString, 1
End Sub

Private Sub Command8_Click()
ShellExecute Me.hwnd, vbNullString, "http://tools.google.com/firefox/toolbar/bundle/intl/es/?ai=BLt_C9wvARZfDF4ykhASt5rm4B9Ge8heV_pOXAsWNtwEAEAEgh6bmBVCCrIj6-_____8BYKvh5IGwBpgBAKABtZXI_QOyARBuZXRjb25zdWx0YXMuY29tyAEC2gEmaHR0cDovL25ldGNvbnN1bHRhcy5jb20vZm9yby9pbmRleC5waHCAAgGoAwM&gclid=CMTp-LfaiYoCFQ-9VAodKRx1QA", vbNullString, vbNullString, 1
End Sub

Private Sub Command11_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.google.com/intl/xx-hacker/", vbNullString, vbNullString, 1
End Sub

'Desde aki Comienza lo de Hack
Private Sub Command12_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=585.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command13_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=45.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command14_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=86.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command15_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=481.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command16_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://foro.portalhacker.net/index.php/topic,23982.0.html", vbNullString, vbNullString, 1
End Sub

Private Sub Command17_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=224.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command18_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://foro.portalhacker.net/index.php/topic,24838.0.html", vbNullString, vbNullString, 1
End Sub

Private Sub Command19_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=539.0", 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, "http://es.wikipedia.org/wiki/Software", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, "http://es.wikipedia.org/wiki/Software", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
ShellExecute Me.hwnd, vbNullString, "http://es.wikipedia.org/wiki/Tarjeta_madre", vbNullString, vbNullString, 1
End Sub

Private Sub Command4_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.trucoswindows.net/conteni7id-40-Limpieza-de-la-PC.html", vbNullString, vbNullString, 1
End Sub

Private Sub Command5_Click()
ShellExecute Me.hwnd, vbNullString, "http://netconsultas.com/foro/index.php?topic=821.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command6_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/articulo/memddr_1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command7_Click()
ShellExecute Me.hwnd, vbNullString, "http://es.wikipedia.org/wiki/Computador", vbNullString, vbNullString, 1
End Sub

Private Sub Command8_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/articulo/ram2000a.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command9_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/diccio/index.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command10_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/actualiz/actfund.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command11_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/articulo/notic8a.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command12_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/actualiz/actbios1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command13_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/quees/tsonido1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command14_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/actualiz/actdd1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command15_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/quees/tsonido1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command16_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/quees/almacen1.htm", vbNullString, vbNullString, 1
End Sub

Private Sub Command17_Clic k()
ShellExecute Me.hwnd, vbNullString, "http://www.conozcasuhardware.com/quees/escaner1.htm", 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, "http://es.wikipedia.org/wiki/Software", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.netconsultas.com/foro/index.php?topic=768.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command3_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.rapidshare.com/files/9987089/scrgrb11.zip", vbNullString, vbNullString, 1
End Sub

Private Sub Command4_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.rapidshare.com/files/10994762/aresregular200_installer.exe", vbNullString, vbNullString, 1
End Sub

Private Sub Command5_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=328.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command6_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=447.0", vbNullString, vbNullString, 1
End Sub

Private Sub Command7_Click()
   ShellExecute Me.hwnd, vbNullString, "http://www.netconsultas.com/foro/index.php?board=43.0", vbNullString, vbNullString, 1
End Sub



Eso es Todo el Code

$4!u2 HNAFE $4!u2

[shadow.darknesses]

ta bueno lo baje
, me podrias explicar esto xfaa
ShellExecute Me.hwnd, vbNullString, "http://www.megaprog.com/forum/index.php?topic=224.0", 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...