Mensajes

[el_c0c0]

el unico que mas o menos contesto bien fue el_c0c0, usa las apis RegistrerHotKey y UnregitrerHotKey, que no necesitas Timers, pero si estas preguntando que es una api, que es un modulo, que es esto..que es lo otro, eso no es para preguntarlo aca, mejor te lees un manual, de visual basic , ya sean 1000 paginas, pero te va a hacer bien, y cuando vengas al foro a preguntar, ya vas a tener la base y vas a entender mas las respuestas que te damos, porque sino es preguntar, preguntar y nada de hacer.

saludos.

si... peroooooooooooo....
para q pregunto si me van a  manda  a leer un libro????

me estas jodiendo yo no programe la api te mostre cual y como usarla si no te pondria el codigo fuente de la api

Me alegro de que te alla servido

ya se pa , te toy tomando el pelo...  

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) Then
If GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
End If
End Function

listo ya  funciona gracias a todos por contestar
en especial a nuestro amigo agus0 de microsoft que programo la api q hizo ewsto posible

upss disculpa,no sabia que vos habias programado la api...

pero mas alla de eso... tu api falla por n "desbordamiento"

q nose que es todavia

Código [Seleccionar] Expandir

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) * GetAsyncKeyState(vbKeyControl) <> 0 Then
MsgBox "apretaste A"
End If
End Function


hice esta "cosa" la funcion quey se repite en un lop dentro de un timer... aparentemente la chota esta anda pero... al precionar las teclas  "ctrl + a" me tira una ventana de error "Error 6 en tiempo de ejecucion: Desbordamiento"

agradecería q alguien me digera q significa y q causa el error

saludos

asf
[youtube=425,350]http://www.youtube.com/watch?v=WYIRyDB4v9M[/youtube]

aver dejenme ver si entendi..

lo q tamos haciendo es incluir una DLL, una API del SO a nuestro programa
y utilisamos una funcion de esa DLL para poder leer el teclado
¿me equivoco?

se...
entiendo lo del timer
pero cuando ablamos de modulos...
¿que son los modulos?
y si quiero dejarlo en el formulario al codigo que define las cosas...
¿que procedimiento sigo?

Hola es facil con GetAsyncKeyState

ejemplo de Ctrl+a

En un Modulo (*.bas)

Código [Seleccionar] Expandir


Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


en un Form

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_Control) * GetAsyncKeyState(VK_A) <> 0 Then
MsgBox "Apretaste CTRL+A"
End If
End Sub


entonces... lo que dise el segundo codigo es q dentro del loop se use la funcion  "GetAsyncKeyState" para leer las teclas precionadas

no me anda ese codigo...

y el primero ni me lo pudo interpretar el editor

si lo que quieres hacer es q el programita VB haga peticiones a la pagina,resiva los datos pedidos y los almasene en una base de datos...

tienes primero y prinsipal conocer el protocolo HTTP (Protocolo de Transferencia de Hiper Texto) por sus siglas en ingles

con eso sabras como "estructurar" la consulta para q tu programa pueda solisitar la informacion requerida y tambien para que e programa pueda encontrar la informacion  requerida entre el quilombo de cabeseraras texto y resto de ***** q sera enviddo junto a la lo q realmente buscas

y listo