VBScript and autoit.

I've read the Groups here and found that you can use AutoIt within
VBScripts. But what is required.

Do I first need to do something like:
Set oAutoIt = CreateObject("AutoItX.Control")

and register the AutoIT dll.

So when I want to call a feature like AutoITs BlockInput(0) and
SplashText( ) how should I call it.

oAutoit.BlockInput(0)

oAutoit.SplashText()

is that the way to call it?

Can someone please advise.........


Thanks in advance.......

Fosco
Mon Nov 07 20:46:40 CST 2005

<pmiffy2005@yahoo.com>

download autotix3.dll :
http://www.autoitscript.com/autoit3/files/beta/autoitx/

start run regsvr32 fullpath\AutoItX3.dll (enter)

copy e paste this in a vbs file for testing :

Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
set oShell = CreateObject("WScript.Shell")
oAutoIt.ClipPut "Notepad"
text = oAutoIt.ClipGet()
WScript.Echo "Clipboard contains:" & text
oShell.run text

--
Fosco

Fosco
Mon Nov 07 20:46:55 CST 2005

<pmiffy2005@yahoo.com>

AutoItX3 BETA
-------------
http://www.hiddensoft.com/autoit3/files/unstable/autoitx/

(VBScript)
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

Note new control name of "AutoItX3.Control"


Methods are:
------------
AutoItSetOption ( "option", param )
BlockInput ( flag )
CDTray ( "drive", "status" )
ClipGet ( )
ClipPut ( "value" )
ControlClick ( "title", "text", "classnameNN" [, button] [, clicks]] )
ControlCommand ( "title", "text", "classnameNN", "command", "option" )
ControlDisable ( "title", "text", "classnameNN")
ControlEnable ( "title", "text", "classnameNN" )
ControlFocus ( "title", "text", "classnameNN" )
ControlGetFocus ( "title" [, "text"] )
ControlGetPosX ( "title", "text", "classnameNN" )
ControlGetPosY ( "title", "text", "classnameNN" )
ControlGetPosHeight ( "title", "text", "classnameNN" )
ControlGetPosWidth ( "title", "text", "classnameNN" )
ControlGetText ( "title", "text", "classnameNN" )
ControlHide ( "title", "text", "classnameNN" )
ControlMove ( "title", "text", "classnameNN", x, y [, width [, height]] )
ControlSend ( "title", "text", "classnameNN", "string" [, flag] )
ControlSetText ( "title", "text", "classnameNN", "new text" )
ControlShow ( "title", "text", "classnameNN" )
IniDelete ( "filename", "section", "key" )
IniRead ( "filename", "section", "key", "default" )
IniWrite ( "filename", "section", "key", "value" )
IsAdmin ( )
MouseClick ( "button" [, x, y [, clicks [, speed ]]] )
MouseClickDrag ( "button", x1, y1, x2, y2 [,speed] )
MouseDown ( "button" )
MouseGetCursor ( )
MouseGetPosX ( )
MouseGetPosY ( )
MouseMove ( x, y [, speed] )
MouseUp ( "button" )
Opt( "option", param )
PixelGetColor ( x , y )
PixelSearch ( left, top, right, bottom, color [, shade-variation] [, step]] )
ProcessClose ( "process" )
ProcessExists ( "process" )
ProcessWait ( "process" [, timeout] )
ProcessWaitClose ( "process" [, timeout] )
RegDeleteKey ( "keyname" )
RegDeleteVal ( "keyname", ["valuename"] )
RegRead ( "keyname", "valuename" )
RegWrite ( "keyname", "valuename", "type", "value" ) // Type is REG__SZ, REG_DWORD, etc.
Run ( "filename" [, "workingdir" [, flag]] )
RunAsSet ( ["user", "domain", "password"] )
RunWait ( "filename" [, "workingdir" [, flag]] )
Send ( "keys" [, flag] )
Shutdown ( code )
Sleep ( delay )
StatusbarGetText ( "title" [, "text" [, part]] )
ToolTip ( "text" [, x, y] )
URLDownloadToFile ( "URL", "filename" )
WinActivate ( "title" [, "text"] )
WinActive ( "title" [, "text"] )
WinClose ( "title" [, "text"] )
WinExists ( "title" [, "text"] )
WinGetCaretPosX ( )
WinGetCaretPosY ( )
WinGetClassList ( "title" [, "text"] )
WinGetClientSizeHeight ( "title" [, "text"] )
WinGetClientSizeWidth ( "title" [, "text"] )
WinGetHandle ( "title" [, "text"] )
WinGetPosX ( "title" [, "text"] )
WinGetPosY ( "title" [, "text"] )
WinGetPosHeight ( "title" [, "text"] )
WinGetPosWidth ( "title" [, "text"] )
WinGetState ( "title" [, "text"] )
WinGetText ( "title" [, "text"] )
WinGetTitle ( "title" [, "text"] )
WinKill ( "title" [, "text"] )
WinMenuSelectItem ( "title", "text", "item" [, "item" [, "item" [, "item" [, "item" [, "item" [, "item"]]]]]] )
WinMinimizeAll ( )
WinMinimizeAllUndo ( )
WinMove ( "title", "text", x, y [, width [, height]] )
WinSetOnTop ( "title", "text", flag )
WinSetState ( "title", "text", flag )
WinSetTitle ( "title", "text", "newtitle" )
WinWait ( "title" [, "text" [, timeout]] )
WinWaitActive ( "title", ["text"], [timeout] )
WinWaitClose ( "title" [, "text" [, timeout]] )
WinWaitNotActive ( "title" [, "text" [, timeout]] )

'It's for an Italian OS change it :

Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.Run ( "Notepad")
oAutoIt.WinWaitActive "Senza nome - Blocco note", "", 5
oAutoIt.WinMenuSelectItem "Senza nome - Blocco note", "", "&File" ,"&Apri"
's =oAutoIt.WinGetPosWidth ("Apri" )
oAutoIt.sleep("300")
x =oAutoIt.WinGetPosX ("Apri" )
y =oAutoIt.WinGetPosY ("Apri" )
msgbox x&" "&y
--
Fosco