Home > other >  VBA if use ChangeWindowMessageFilter the API function
VBA if use ChangeWindowMessageFilter the API function

Time:09-24

BGG=ShellExecute (0, "Open", "D: \ SinoTrans exe," vbNullString, vbNullString, 1) '

IOTHER (1.) and Delay 3 seconds Delay 5000 'reboot your system
H (0)=IWINDOW (1). FindWindow (" WindowsForms10. Window. 8. App3 ", "Logon SinoTrans operation system")

H (1)=IWINDOW (1). FindWindowEx (h (0), 0, "WindowsForms10. STATIC. App3", "Login name:")
R=IWINDOW (1). GetWindowRect (h (1))
L=IWINDOW (1). GetWindowCenter (h (1))
H (2)=IWINDOW (1) WindowFromPoint (R - R (0), (2) + L (0), L (1)) 'input account start

IOTHER (1). The Delay of 1000

I=SendMessage (h (2), the WM_SETTEXT, ByVal 0 & amp; End, ByVal chenjin) 'input account


H (3)=IWINDOW (1). WindowFromPoint (R - R (0), (2) + L (0), R (3) - (1) R (1) + L) 'input password to
IOTHER (1). The Delay of 1000
I2=SendMessage (h (3), the WM_SETTEXT, ByVal 0 & amp; , ByVal laizi7021) 'end of the input password



H (4)=IWINDOW (1). FindWindowEx (h (0), 0, "WindowsForms10. BUTTON. App3", "Login")
IOTHER (1). The Delay of 1000
Called IMESSAGE -- (1). LeftButtonDown h (4) 'click the LOGIN button to enter the system
Called IMESSAGE -- (1). LeftButtonUp h (4)

-- -- -- -- -- -- -- -- -- using the API function ShellExecute opens an EXE, successfully opened the login screen, and enter the account number and password, but formal log in
Tip: call target abnormal happens, not the object led | use set to an instance of an object, then checked the because WINDOWS UIPI affected, so I want to ask how to
Add sending messages in the VBA white list, when to open the EXE correctly initialized, thank you,


  • Related