| Usuario |
Wiiiiii |
Fenris
60 Mensaje(s)
|
| Enviado - 2/8/2004 |
| |
Hola gente, hace un tiempo hice un programa de exploracion remota de directorios, esta lindo, funciona bien, salvo por algunos errores pavos, pero bueno, se puede bajar de http://cablemodem.fibertel.com.ar/gobblin
ahora lo que etsoy haciendo es otra version.
que es mas o menos como el winvnc,
el problema es: mando que simule las teclas,
pero me llegan repetidas, por ej mando "hola" y llega "hoolla"
como lo puedo arreglar?
el cod es el sig: recive el dato
If InStr(1, VncDatos, "<downteclado>") Then
tTeclado = Split(VncDatos, "<downteclado>")
For tec = LBound(tTeclado) To UBound(tTeclado)
Tecla = Mid(tTeclado(tec), 1, InStr(tTeclado(tec), "!"))
If Tecla = "" Then
Else
Tecla = Left(Tecla, Len(Tecla) - 1)
Simular_Teclado Tecla, True
End If
Next
End If
If InStr(1, VncDatos, "<upteclado>") Then
tTeclado = Split(VncDatos, "<upteclado>")
For tec = LBound(tTeclado) To UBound(tTeclado)
Tecla = Mid(tTeclado(tec), 1, InStr(tTeclado(tec), "¡"))
If Tecla = "" Then
Else
Tecla = Left(Tecla, Len(Tecla) - 1)
Simular_Teclado Tecla, False
End If
Next
End If
Sub Simular_Teclado(ByVal Tecla As String, ByVal Presionado As Boolean)
Select Case Presionado
Case Presionado = True
Form1.Caption = Form1.Caption + Tecla
keybd_event Tecla, 0, 0, 0
Case Presionado = False
keybd_event Tecla, 0, KEYEVENTF_KEYUP, 0
End Select
End Sub
desde ya muchas gracias al valiente que me conteste
|
| |
|
frankkhan
46 Mensaje(s)
|
| Enviado - 2/8/2004 |
| |
mira pues no te entiendo mucho el codigo pero si te veo algunos errores p.e. en el select case algo 'tenes:
case algo=true
etc
solo tendria que ser
select case algo 'tenes:
case true
etc
y aparte no se si te servirian mejor los eventos keyup keydown y el sendkeys para hacer lo que queres(que no se que es), cualquier onda mandame un mensaje talvez me explicas mejor lo que queres |
| |
|
Fenris
60 Mensaje(s)
|
| Enviado - 2/8/2004 |
| |
gracias! n_n, ya lo solucione, use un "If"
si viste el prog de la pagina, lo que quiero hacer ahora es un estilo winvnc
ya puedo mover el mouse, simular las teclas
y ahora me voy a rebanar el cerebro en como hacer para mandar imagenes del escritorio, etc etc
como el WinVnc
|
| |
|
|
|
