Mensajes

pero este GEOMEDIA es un programa?? se descarga?? donde?? 

aparte de todo lo que dijeron....esta mal coloreado....

Hola,primero explicame que es GeoMedia porque ni idea...

como te dijeron solo compara si el top o el left son iguales y ahi realiza lo que vos necesites...

este no es el foro de .NET!!!!!!

esta bien pero ,para que usar FSO??

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Dim Archivo As String
Dim Num As Integer
Dim Linea As String
Archivo = "c:\archivo.txt"
fnum = FreeFile
Open Archivo For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, Linea
List1.AddItem Linea
Loop
End Sub


saludos.

si tenes la fuente correspondiente,podes escribir hasta con caracteres chinos o los que quieras...

1- Este metodo encapsulado se puede implementar para controlar cualquier programa?

no es para programas, sino para ventanas simplemente,vos podes insertar ventanas...por ejemplo podes insertar una ventana aunque esta no sea programa,por ejemplo el escritorio de windows...

2- Alguna forma de leer las "respuestas" del programa que es controlado?

si lo podes hacer mientras el programa no esta incrustado ,lo vas a poder hacer cuando lo este...pero no entendi mucho a "respuestas" podrias poner un ejemplo...

saludos.

[SetCursorPos]

Hola si la hay, digamos vos queres mandar click del mouse...aca te dejo un ejemplo...

Código (vb) [Seleccionar] Expandir

Option Explicit
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

Public Sub MouseLeftClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub

Private Sub Form_Load()
SetCursorPos 50, 800
Call MouseLeftClick(50, 800)
End Sub

con eso posicionas el mouse con la api SetCursorPos y despues generas un clic derecho...si tenes una resolucion de 1024x768 este ejemplo generaria un click en el boton inicio de windows....

saludos.

[GetTickCount()]

tambien podes usar GetTickCount() ,y esto evita que se te trabe toda la aplicación como sucede con Sleep...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Dim retraso As Long
MsgBox "1"
retraso = 5000 + GetTickCount&
While retraso >= GetTickCount&
   DoEvents
Wend
MsgBox "2"
End Sub

saludos.