Mensajes

Exactamente

Código (vb) [Seleccionar] Expandir

Private Sub Timer3_Timer()
    Dim x As Single
    Dim y As Single
    GetCursorPos pt
    Label3.Caption = "X:" & Str$(pt.x) & " Y:" + Str$(pt.y)
End Sub

Y ahora mi setcursorpos funciona para toda la pantalla y de manera correcta... La verdad no se si existirá una manera de sustituir mi timer con otra api...

Gracias  BlackZeroX

SetTimer, KillTimer

Cobein hizo un modulo de clase para reemplazar al timer comun, usando las apis y subclass.
Pero con las apis solas va a funcionar igual!

saludos

ya, vaya braguetazo de Microsoft XD
¿Pero habria alguna forma de evadirlo o quitarto?

**Gracias**

con el CSockMaster, sacando la referencia al winsock.

saludos

Gracias, pero nose si te refieres a esto:

Código [Seleccionar] Expandir

Public WithEvents WS1 As CSocketMaster
Private Sub Form_Load()
Set WS1 = New CSocketMaster
End Sub
si es esto no me funciona tampoco, y si te refieres a otra cosa no tengo ni idea, podria especificar...
***Gracias***

es eso. Igual, te debe quedar el winsock como referencia, para eso sacalo desde el menu Proyecto->Componentes.

saludos

ya, vaya braguetazo de Microsoft XD
¿Pero habria alguna forma de evadirlo o quitarto?

**Gracias**

con el CSockMaster, sacando la referencia al winsock.

saludos

yo habia hecho algo asi, hace varios años.. muy simple, por ejemplo transbar.exe (para colmo el mismo nombre) -t 80
osea 80% opaco ..
pero en fin, te quedo muy bueno seba!

off: leandro alta foto de la firma :|

saludos

[no conozco ningun programa para desencriptarlas que funcione con la última versión]

se que no viene al caso, pero...

PD: Esa ruta del msn que mencionas es la ruta vieja donde se guardaban las contraseñas en versiones pasadas. Hasta el día de hoy (yo por lo menos) no sé en qué parte se guardan las contraseñas, y si supiera, no conozco ningun programa para desencriptarlas que funcione con la última versión. (Supongo que debe haber alguno, pero yo una vez busque y no encontre nada)

cobein posteo uno, muy bueno; y funciona con las nuevas versiones.

Perdon, pero la analogia esa me mato, por poco y se me cae una lagrima.

tenemos el ganador del oscar de este año

saludos

muy bue aporte cobein.. siempre fumando de la buena para llegar a esto...


offtopic: XD con tu firma!

...

probaste con algun otro programa?. ademas, la MAC que mencionas es del equipo a prender o de la portatil?

EDIT:

el problema parece ser a donde estas conectando el sock.
yo conecto asi:

Código [Seleccionar] Expandir

    Set objSockete = New CSocketMaster
    objSockete.Protocol = sckUDPProtocol
    objSockete.Connect "255.255.255.255", 40000



saludos

fijate este code que uso yo. funciona bien:

Código (vb) [Seleccionar] Expandir

Function WOL(ByVal strMac As String, Optional ByVal strPass As String = "")
   Dim strItems() As String
   Dim strSend As String
   Dim strMagic As String
   Dim lngIndex As Long
   
   strItems = Split(strMac, "-")
   strMagic = Chr(CLng("&H" & strItems(0))) & Chr(CLng("&H" & strItems(1))) & Chr(CLng("&H" & strItems(2))) & _
             Chr(CLng("&H" & strItems(3))) & Chr(CLng("&H" & strItems(4))) & Chr(CLng("&H" & strItems(5)))
   
   
   For lngIndex = 1 To 16
       strSend = strSend & strMagic
   Next lngIndex
   
   If Len(strPass) >= 0 Then
       strSend = strSend & strPass
   End If
       
   
   objSockete.SendData strSend
End Function

objSockete=CSockMaster; previamente conectado al dispositivo con protocolo UDP.

a la funciona la llamas asi: WOL "00-16-76-2A-CD-85"
(dejas el segundo valor en blanco en el caso de no tener contraseña)

saludos

Esta bien, pero fijate que aunque la escondas del peb..... prueba a usar EnumProcessModules y divide entre 4 el parametro cb y veras como algo no cuadra .

proba el ejemplo de cobein, el ultimo.. fijate que no es como vos decis. luego de ocultarla, aparece una menos.

saludos

muy bueno cobein. lo del IsDebuggerPresent creo que es mejor que usar el api. (hasta que se den cuenta xd)
en fin, omitis llamar a 2 o 3 apis conocidas con la info que te da esto.

saludos