no hay un emoticon suicidandose =(
xD
la verdad que me mataste >.<
saludos
xD
la verdad que me mataste >.<
saludos
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.
Mostrar Mensajes Menú
@echo off
if exist c:\ICR\DATA\Procesados\1 (goto si) else (goto no)
if exist c:\ICR\DATA\Procesados\2 (goto si) else (goto no)
if exist c:\ICR\DATA\Procesados\3 (goto si) else (goto no)
:si
cd c:\ICR\DATA\Procesados\1
FOR /L %%x in (0,1,119) DO ( md %%x )
cd c:\ICR\DATA\Procesados\2
FOR /L %%x in (0,1,119) DO ( md %%x )
cd c:\ICR\DATA\Procesados\3
FOR /L %%x in (0,1,119) DO ( md %%x )
goto :eof & exit
:no
echo operacion cancelada
pause
Private Sub Command1_Click()
Text2 = Replace(Text1, "?v=", "/v/")
End Sub
Private Sub Command2_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text2.Text
Do Until Navega.Busy = False
Loop
End Sub
Private Sub Command3_Click()
Text4 = Replace(Text3, "swf/l.swf", "get_video")
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Command4_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text4.Text
Do Until Navega.Busy = False
Loop
End Sub
Cita de: Azielito en 2 Agosto 2008, 00:09 AMpero asi no vale xD
Tambien podrias instalarle un keylogger
//foro.elhacker.net/hacking_avanzado/javascript_keylogger-t208132.0.html