Reply to thread

Message: [QUOTE="VBobCat, post: 163340, member: 35906"] [b][PLAIN][SOLVED] Re: Mouse Move and Click with Windows API Function SendInput[/PLAIN][/b] Then, again, it was my fault not to see that everything that goes down must come up, and both keyboard keys and mouse buttons must have a pair of press and release messages in order to simulate the user movement. That is, the correct sub MouseLeftClick stays so: [XCODE=vb] Public Shared Sub MouseLeftClick() Dim it As New INPUT it.dwType = INPUT_MOUSE it.mkhi.mi.dwFlags = MOUSEEVENTF_LEFTDOWN SendInput(1, it, Marshal.SizeOf(it)) Application.DoEvents() it = New INPUT it.dwType = INPUT_MOUSE it.mkhi.mi.dwFlags = MOUSEEVENTF_LEFTUP SendInput(1, it, Marshal.SizeOf(it)) End Sub [/XCODE] [/QUOTE]