Simulate Keyboard Input & Moving the Mouse in vbs

Simulate Keyboard Input & Moving the Mouse in VBS File! A plugin for use in the command line will appear soon!
Info: [Windows Keyboard+Mouse functions v.1.0]
Plugins: None
Code:

‘CODE START
‘SendKeys
Dim Ws: Set Ws = WScript.CreateObject(“WScript.Shell”)
Dim sk: sk = InputBox(“Keys for simulating insertion:”)
Ws.SendKeys sk
‘SendKeys
‘SetMousePosition
Dim Excel: Set Excel = WScript.CreateObject(“Excel.Application”)
Dim x: x = InputBox(“Coordinates x (Width in pixels):”) ‘x co
Dim y: y = InputBox(“Coordinates y (Height in pixels):”) ‘y co
Excel.ExecuteExcel4Macro “CALL(“”user32″”,””SetCursorPos””,””JJJ””,” & x & “,” & y & “)”
‘SetMousePosition
‘CODE END

Save as .vbs

Download: http://www.mediafire.com/file/ple1q3sy1m8tv4g/Windows+Keyboard+Mouse+functions.vbs