Mensajes

si se puede asi,pero la idea es no usar un control ocx externo,hay muchas formas,ponele como letra al textbox "Arial Unicode"

saludos.

Hola,es por los unicodes,busca en planet source code hay ejemplos de como aceptarlos...

saludos.

si funciona ese code yo lo habia probado hace mucho...

Hola,en Planet Source Code tenes algunos ejemplos de OCR,busca...

saludos.

anota,estoy aburrido a veces,puedo hacer esto..

como skullsp q solo quiere tener mas post

no creo que quiera tener mas post,si quiere tener mas post puede empezar a escribir boludeces en todos los otros subforos,pero no lo hace..

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

@ Kim

¿¿ No era que te lo habias comprado al visual basic ??,en el post anterior dijiste eso...

desnut,hombre,reviviste un post de 3 años  ,pregunta en uno nuevo...

Hola,mirate esto:

Buscar y filtrar registros en un Microsoft Hierarchical Flexgrid

saludos.

[este es el nombre de clase de la ventana padre llamada "Notepad":]

ahora preguntas eso,ya hace muchos post atras lo tendrias que haber preguntado,pero bueno mira hay muchisimas formas de saber el nombre de clase,pero la mas facil es con la aplicacion que viene con visual basic llamada Spy++...supongamos que yo quiero escribir automaticamente en el Bloc de Notas de windows sabiendo el nombre de clase del control que te permite escribir adentro,aca te hago una captura de como saque el nombre de la ventana para escribir con el Spy++:

este es el nombre de clase de la ventana padre llamada "Notepad":



este es el nombre del control dentro de la ventana donde se escribe llamado "Edit":



para saber los datos de la ventana tenes que arrastrar el "iconito" sobre una ventana y te va diciendo las partes que la forman,en este caso fijate que esta seleccionado el area de escritura del bloc de notas y al lado en la ventana estan los datos...

el handle es el numero(Long) que le asigna windows a cada ventana ,es como si fuera el nuero que identifica esa ventana,sabiendo eso,podes hacer un monton de cosas,cerrarla,moverla,resizarla,cambiar valores,etc....

el Class es el nombre de clase del control,o sea cada control tiene su nombre...ese es el que te tenes que fijar.....

haber ,haber...proba este codigo que medio lo arme.use 2 codigos distintos uno para centrar el mouse en un objeto y el otro para hacer click,lo uni en uno solo para que centre y haga click,probalo en un proyecto nuevo para que entiendas como funciona,pone un boton y un timer y este codigo:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lRect As RECT)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Sub CentrarYHacerClick(ByVal Objeto As Object)
Dim r As RECT, ret As Long
ret = GetWindowRect(Objeto.hwnd, r)
SetCursorPos r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
End Sub

Private Sub Command1_Click()
Call Beep
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call CentrarYHacerClick(Command1)
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

eso es para hacer click en un boton de tu aplicacion ,pero para hacer click en uno de aplciacion externa tenes que saber su nombre de clase y caption...para eso esta el que puso cobein...

saludos.