Mensajes

Hola:

Mira ya lo e encontrado, solo habia q leer un poco mas abajo xD

Código [Seleccionar] Expandir


Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Label1_Change()
MsgBox "hola"
End Sub


Private Sub Timer1_Timer()
Dim PT As POINTAPI
    GetCursorPos PT
    Label1.Caption = PT.X & "-" & PT.Y
End Sub

Ya esta cada vez q mueva el raton sale un msgbox 

Lo q le faltaba al code de gmf_321 era eso de:

Código [Seleccionar] Expandir

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Esto tb lo puedes adaptar pa cuando haga click y tal... la cosa es hecharle imaginacion xD

1S4ludo

Hola:

Disculpa, pensaba q te referias a otra cosa... xD

Eso q dices se puede hacer adaptando el code q a puesto gmf_321

Si pones en un timer la parte del codigo q dice:

Código [Seleccionar] Expandir

SetCursorPos("x", "y")

y estableces la con un if q cada vez q cambie salte un msgbox... Te pondria un ejemplo, pero es q me salta error de compilacion al usar esa linea... no se si es q esta mal o que, pero yo no le veo el fallo, me dice q falta un "=" 

Esa es la idea, ahora solo e keda adaptarlo 
1S4ludo

Hola:

Tines q usar una Api, mira aki te dejo un ejemplo (eso si, tienes q indicar las coordenadas)

Módulo:

Código [Seleccionar] Expandir

Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, ByVal Y As Integer)

Form:

Código [Seleccionar] Expandir

Private Sub Form_Load()
     X% = (Form1.Left + Command1.Left + Command1.Width / 2 + 60) / Screen.TwipsPerPixelX
     Y% = (Form1.Top + Command1.Top + Command1.Height / 2 + 360) / Screen.TwipsPerPixelY
     SetCursorPos X%, Y%
End Sub

Esto pondria el raton sobre un boton a la carga del formulario. Espero que sea esto lo q estas buscando

1S4ludo

Hola:

Yo suelo poner a mis procesos nombres como lsass, son basicos y si intentas cerrarlos windows no te deja...
Habre el admin de tareas, le vas dando a suprimir, y en los q te salga q no se puede matar, por q es un proceso fundamental de windows, pos ya sabes, le pones ese nombre al proceso de tu programa y ya

1S4ludo

Hola:

Hola 2 dudas con winsock. Primero, copie un simple ejemplo en otro ordenador que no hacia casi nada, solo que emplee Winsock y no iba pq faltaba el archivo MSWINSCK.ocx en el ordenador donde lo ejecute. Supongo que puedo copiarlo yo si quiero, pero si se lo tengo que mandar a alguien, tipo troyano, que puedo hacer?. Ahi alguna manera de incluir eso en el exe y que lo instale??.

Puedes hacer dos cosas, o bien usar la Api o usar un joiner q copie la ocx en C:\windows\system32. Tambien podrias hacer tu propio joiner en VB, es facil y sobre todo te keda indetectable.

Otra cosa, he echo unas pruebas de conexion CLIENTE/SERVIDOR con winsock tb y el problema es que creo el ejecutable del servidor y del cliente. Lo ejectuo desde el exe ambos y tal y todo bien. Cierro los programas y me doy cuenta que los programas despues de cerrarlos se quedan en memoria. Pq? yo creo que es por que ha abierto los puertos y tal pero no se como hacer para que se cierren y quede todo limpio. Los codigos empleados:

Código [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Prueva a ver asi, deberia descargarse el form. Tambien puede ser q tu aplicacionj tenga mas de un formulario y se kede cargado en memori, para cerrar todos los formularios al cerrar el principal pones unload + nombreForm.
Esto lo pones en el evento form unload del formulario principal y ya.

1S4ludo

Hola:

Lo primero una aclaracion a cerca del funcionamiento de los chats un poco decentillos:

Creo q funcionan asi: Existe un solo servidor y los usuarios tiene ckientes q se conectan a él (tipo messenger) El servidor se encarga de administrar las combersaciones.

Si tu solamente kieres hacer un caht entre dos personas no te hace falta todo esto, con dos aplicaciones como las q estas haciendo ahora te sobra. 

En cuanto a lo del fallo puede q este aki:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
rpt = MsgBox(datos, vbOKOnly)
End Sub

Sustitulle la ultima linea por

Código [Seleccionar] Expandir

msgbox datos,vbokonly,"CHAT"
A ver si asi te llegan.

Para q los dos programas puedan interactuar tiene q poner el evento ws_DataArrival en ambos.

Mira te improviso ahora en un momen un chat para dos pc's:

Código [Seleccionar] Expandir

'La parte de q se conecten y tal la pones como la tuya por ejemplo
'q es siempre lo mismo
'lst es un listbox, ws el winsock, txtMensaje el textbox donde
'escribimos lo q vamos a mandar y cmdMandar el boton donde
'le damos para enviar


Código [Seleccionar] Expandir

Dim nick As String

Private Sub cmdMandar_Click()
lst.AddItem (nick & " dice:")
lst.AddItem (txtMensaje.Text)
ws.SendData "nk" & nick & " dice:"
ws.SendData "co" & txtMensaje.Text
txtMensaje.Text = ""
End Sub

Private Sub Form_Load()
nick = InputBox("Introduce nick", nick)
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
ws.GetData datos

If Left(datos, 2) = "nk" Then
    lst.AddItem (Mid(datos, 3))
End If

If Left(datos, 2) = "co" Then
    lst.AddItem (Mid(datos, 3))
End If

End Sub

Esto lo tienes q incluir en los dos, despues solo te keda poner tb a los dos a la escuxa de un puerto en el formload (por si alguien te kiere hablar) y añadir un boton en el q te puedas conectar a una ip q tienes q escribir en un text box o algo asi    (por supuesto esto tb en los dos), digo dos pero con este metodo puedes hablar con todas las personas q kieras, siempre q conozcas su ip, eso si, si kieres q se pueda hablar con varias a la vez tienes q hacer una matriz de controles ws... Si kieres q haga esto dale a buscar, WarGhost tenia por ahi un code muy weno pa esto, y si no pos posteas aki y te intentamos ayudar

Espero q te sea util y q funcione, por q lo acabo de escribir, ni sikiera lo e provado xDDDDD pero vamos q tiene pinta de haberme kedado muy chulo, no te parece????

1S4ludo

bien, gracias.
Lo que pasa que yo pensaba que cogiendo algun codigo fuente por ahi ya estaria jeje
Lo vei bastante facil 

Si, pero seguramente el codigo q cojas sera detectado por los AV, y si no sabes como modificarlo, pos olvidate...

Si solo kieres un keylogger pasa el themida a alguno q ya este echo y te keda indetectable...
Para mas informacion le das a

1S4ludo

Ya pero me refiero a otras funciones y eso,por cierto hendrix,no se si estan bien tus calculos pero RAIZ de algo no es lo mismo que dividirlo por 2,enfin gracias por responder.

Los calculos de Hendrix son impecables, solo q a puesto * em vez de ^  xD mira te lo pongo para todo numero a ver si asi lo entiendes mejor:

n√(X^z) = X ^ (z/n)

Traduzco  la raiz enesima de un numero cualkiera (X) elevado a cualkier potencia (z) es igual a dixo numero elevado al exponente entre n es decir --> (z/n)
Ejemplos:

Código [Seleccionar] Expandir

2√5 = 5 ^ (1/2)
5√(10^2) = 10 ^ (2/5)

Despues de mi clase de mates me despido jajaja
1S4ludo

Hola:

Mira esta linea:

Código [Seleccionar] Expandir

On Error GoTo fallo

Solamente si se produce un error en el programa (en este caso q el usuario le de a cancelar) salta a la linea indicada, en este ejemplo es fallo.
Creo q era eso lo q preguntabas

1S4ludo

Hola!!

Ahora mismo venia a contarte q porfin habia encontrado el problema xDD pero veo q lo has encontrado tu antes jajaja

Sorry

De sorry nada, todos nos ekivocamos xDD y me has ayudado muxo 
De nuevo gracias WarGhost, ahora modifico esa funcion, acabo la transferencia de archivos y ya dentro de poco publico (espero q os guste  )

1S4ludo