Mensajes

No es necesario tener instalado el net beans?

[Karcrack]

Karcrack tienes razón. En realidad caption lee correctamente el valor. La verdad no se porque a el no le funcionará, recién lo he probado y rula bien.

Gracias Karcrack.

Bajaste JRE y SDK?

No entendi la parte de si es o no VB 6.0. Te recomendaría que tratases este tema en .net si llegara a ser vs2008.

En cuanto a tu problema... estás abriendo el archivo de tipo proyecto?... haz intentado abrir el form unicamente?

Creo que no es posible.
Mira el siguiente https://foro.elhacker.net/telefonia_movil/llamadas_privadas_o_numero_oculto_ayuda-t168551.0.html

hook global (WH_MOUSE_LL)

Exactamente cobein a eso me refería gracias. Ya estaré comentando.

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

Muchas gracias BlackZeroX... Eso explica tal vez mi otra duda

pero resulta que la posición obtenida por mi getcursorpos la obtiene del formulario y no de la pantalla

Ahora lo pruebo.

Para no abrir otro thread... Utilizo este procedimiento para obtener una posicion guardada en un textfile para luego ubicar mi mouse en esa posición, pero resulta que la posición obtenida por mi getcursorpos la obtiene del formulario y no de la pantalla, ya que el setcursorpos difiere uno 10x X 10y  

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Open "C:\posicion.txt" For Input As #1
Dim s_linea As String, s_file As String
Do Until EOF(1)
Line Input #1, s_linea
s_file = s_file + s_linea + vbCrLf
Loop
Close #1
f_posx = Mid(s_file, 4, 3)
f_posy = Mid(s_file, 11, 3)
i_posx = Val(f_posx)
i_posy = Val(f_posy)
Dim RT_val As Long
RT_val = SetCursorPos(i_posy, i_posx)
End Sub

Hola... Estoy en un proyecto donde utilizo la función mencionada, con el fin de mostrar en una etiqueta la posición exacta del mouse a medida que se va moviendo. El problema es que lo utilizo de la siguiente manera:

Código (vb) [Seleccionar] Expandir

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   GetCursorPos pt
   Label3.Caption = "X:" & Str$(pt.x) & " Y:" + Str$(pt.y)
End Sub

Ciertas veces, es medio "lenta" la letura y cuando muevo el mouse tarda un segundo y medio en refrescar. Será mejor colocar un timer?