Mensajes

muchas gracias a todos.
saludos 


Sancho Mazorka   

porfavor que alguien me de el link de donde puedo najar la API - GUIDE que no al encuentro por favor desde ya muchas gracias.

Sancho Mazorka   

de donde me puedo bajar la api-guide.
muchas gracias

Sancho Mazorka   

alguno me puede dejar el link de donde puedo bajar la API-Guide ya la busque pero no la encuentro.
muchas gracias
Sancho Mazorka   

hola a todos, ya se que estoy un poco descolgado del tema pero bueno:

1: que es el API - Guide?

2:como hacen para entrar a la msdn, que siempre intento pero no se cual es ni qeu poner?

3: como hace que cuando meten links (como post) no aparezca la direccion si no que aparece ACA por ejemplo u otro nombre cualquiera

4:muchas gracias!!! 

Sancho Mazorka 

che mira este es uno que probando lo desarrolle solo necesitas poner un text y un boton 

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
    Dim frecuencia As Long
    frecuencia = CLng(text1.Text)
    APIBeep frecuencia, 500
End Sub
Sancho Mazorka 

muchachos gracias por todo su entusiasmo en ayudarme ya lo resolvi, me ayudo ZEALOT habia que colocarlo asi a esta parte nada mas, esto va en el servidor.

Código [Seleccionar] Expandir

winsock1.getdata coordenadas, vbstring

y tambien en:

Código [Seleccionar] Expandir

setcursorpos val(ok(0)), val(ok(1))

muchas gracias a NYlOn por todas las respuestas


Sancho Mazorka

ok man pasamela estoy ansioso, pero lo malo es que los graba yo lo quisiera en tiempo real.
pasamelos ahora plz

Sancho Mazorka

NYlOn eso no funciona me llegan coordenadas altas en X siempre anda entre la 120 y la 350, me da cuialquier cosa

NOTA: para que quede mejor les puse 2 jpg que van en el disco C:\ uno es verde y el otro es rojo mas o menos del tamaño de un icono un poco mayor. 

listo ahora lo posteo, pero creo que encontre el error cuando llegaban las variables me hacia error entonces intenete poner un on error resume next y vi que als coordenadas que llegaban no eran numeros si no que letras como que si los transformara a su codigo ASCII. Aca les dejo el codigo. no se poner imagenes asi que disculpen las molestias de no saberles decir donde va cada control 

-----------------------------------------------------------------------

ESTE ES EL CLIENTE

contiene -> 4 textbox, 2 timer, 1 winsock, 4 botones, 1 statusbar, 4 labels

timer 1 = 500 ms, enbaled true
timer2 = 100 ms, enabled false
winsock 1 = remoteport = 1001
winsock 1 = localport = 1001
statusbar 1 = 2 paneles, en el segundo va la hora

Código [Seleccionar] Expandir

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

Private Sub Command1_Click()
On Error GoTo s
Winsock1.Connect Text1.Text, Text2.Text
Exit Sub
s:
Winsock1.Close
MsgBox Error(Err), vbCritical, Error
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Command3_Click()
Timer2.Enabled = True
Picture1.Picture = LoadPicture("C:\verde.jpg")
End Sub

Private Sub Command4_Click()
Timer2.Enabled = False
Picture1.Picture = LoadPicture("c:\rojo.jpg")
End Sub

Private Sub Form_Load()
Winsock1.Close
Timer1_Timer
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Private Sub Text3_Change()
Dim cx As String
cx = Text3.Text
Winsock1.SendData cx
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Text4_Change()
Dim cy As String
cy = Text3.Text
Winsock1.SendData cy
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Timer2_Timer()
Dim Posicion As POINTAPI
GetCursorPos Posicion
Text3.Text = Posicion.X
Text4.Text = Posicion.Y
End Sub

Private Sub Winsock1_Close()
MsgBox "Socket cerrado"
End Sub

Private Sub Winsock1_Connect()
MsgBox "Conexion realizada"
End Sub

Private Sub Timer1_Timer()
estado = Winsock1.State
Select Case estado
  Case 0
   sb.Panels(1).Text = "Desconectado"
  Case 1
   sb.Panels(1).Text = "Abierto"
  Case 2
   sb.Panels(1).Text = "Escuchando..."
  Case 3
   sb.Panels(1).Text = "Pendiente"
  Case 4
   sb.Panels(1).Text = "Resolviendo Host..."
  Case 5
   sb.Panels(1).Text = "Host Resuelto"
  Case 6
   sb.Panels(1).Text = "Conectando..."
  Case 7
   sb.Panels(1).Text = "Conectado"
  Case 8
   sb.Panels(1).Text = "Conexion Cerrada"
  Case 9
   sb.Panels(1).Text = "Error"
End Select
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Numero: " & Number & " - Descripcion: " & Description, vbCritical, "Error critico"
Winsock1.Close
End Sub
-----------------------------------------------------------------------

ESTE ES EL SERVIDOR

contiene -> 3 textbox, 1 picture, 2 timer, 1 winscok, 1 boton, 1 statusbar, 3 labels

timer 1 =  500 ms, enabled = true
timer 2 = 1000 ms, enabled = true
winsock = localport = 1001
winsock = remoteport = 1001
statsubar = 2 paneles, segundo panel va la hora nomas

Código [Seleccionar] Expandir

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Private Sub textx_Change()
Dim x As String
x = Textx
y = Texty
SetCursorPos x, y
End Sub

Private Sub Textx_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub texty_Change()
Dim y As String
y = Texty
x = Textx
SetCursorPos x, y
End Sub

Private Sub Texty_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Timer1_Timer()
Dim estado As String
estado = Winsock1.State
Select Case estado
Case 0
sb.Panels(1).Text = "Desconectado"
Case 1
sb.Panels(1).Text = "Puerto abierto"
Case 2
sb.Panels(1).Text = "Acepta solicitud"
Case 3
sb.Panels(1).Text = "Conexion pendiente"
Case 4
sb.Panels(1).Text = "Problema con el Host"
Case 5
sb.Panels(1).Text = "Problema resuelto"
Case 6
sb.Panels(1).Text = "Conectando"
Case 7
sb.Panels(1).Text = "Conectado"
Case 8
sb.Panels(1).Text = "Cerrando conexion"
Case 9
sb.Panels(1).Text = "Error"
End Select
End Sub

Private Sub Timer2_Timer()
Picture1.Picture = LoadPicture("C:\rojo.jpg")
End Sub

Private Sub Winsock1_Close()
MsgBox "Socket cerrado"
End Sub

Private Sub Winsock1_Connect()
MsgBox "Conexion realizada"
End Sub

Private Sub Form_Load()
Winsock1.Listen
Text1.Text = Winsock1.LocalIP & ":" & Winsock1.LocalPort
Timer1_Timer
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim cx, cy As String
Winsock1.GetData cx
Winsock1.GetData cy
Textx.Text = cx
Texty.Text = cy
Picture1.Picture = LoadPicture("C:\verde.jpg")
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Numero: " & Number & " - Descripcion: " & Description, vbCritical, "Error critico"
End Sub
-----------------------------------------------------------------------


Sancho Mazorka