Jump to content

Search the Community

Showing results for tags 'ObjGet'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Announcements and Site News
    • Administration
  • AutoIt v3
    • AutoIt Help and Support
    • AutoIt Technical Discussion
    • AutoIt Example Scripts
  • Scripting and Development
    • Developer General Discussion
    • Language Specific Discussion
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • AutoIt Team
    • Beta
    • MVP
  • AutoIt
    • Automation
    • Databases and web connections
    • Data compression
    • Encryption and hash
    • Games
    • GUI Additions
    • Hardware
    • Information gathering
    • Internet protocol suite
    • Maths
    • Media
    • PDF
    • Security
    • Social Media and other Website API
    • Windows
  • Scripting and Development
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • Forum FAQ
  • AutoIt

Calendars

  • Community Calendar

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Member Title


Location


WWW


Interests

Found 11 results

  1. The below code will cause AutoIt to hard crash after 18+/- seconds with the error: -1073741819 Sometimes the method succeeds 2+/- seconds, most the time not. I just updated to AutoCAD2016 and I am getting a high failure rate with my scripts. Class ID of the target application is AfxMDIFrame110u I updated SciTE to see if that would help but it did not. ConsoleWrite("AutoIt Ver: " & @AutoItVersion & @CRLF) ConsoleWrite(@OSVersion& " " & @OSArch & @CRLF) ConsoleWrite("Build: " & @OSBuild & @CRLF) ConsoleWrite(@OSServicePack & @CRLF) ConsoleWrite(@OSType & @CRLF) $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") $oAcad = ObjGet("","AutoCAD.application") If @error Then MsgBox( 0 , "" , "Failed") Exit Else ConsoleWrite("-Line: " & @ScriptLineNumber & @CRLF & "$oAcad: " & IsObj($oAcad) & @CRLF) EndIf Func MyErrFunc() ; Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _ ; "err.description is: " & @TAB & $oMyError.description & @CRLF & _ ; "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ ; "err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _ ; "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ ; "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ ; "err.source is: " & @TAB & $oMyError.source & @CRLF & _ ; "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ ; "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ; ) ConsoleWrite(@CRLF & @CRLF & "We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext & @CRLF & @CRLF _ ) Local $err = $oMyError.number If $err = 0 Then $err = -1 $g_eventerror = $err ; to check for after this function returns EndfuncAutoIt Ver: 3.3.12.0 WIN_7 X64 Build: 7601 Service Pack 1 WIN32_NT !>23:21:10 AutoIt3.exe ended.rc:-1073741819 +>23:21:10 AutoIt3Wrapper Finished. >Exit code: 3221225477 Time: 18.86AutoIt Ver: 3.3.12.0 WIN_7 X64 Build: 7601 Service Pack 1 WIN32_NT -Line: 14 $oAcad: 1 +>23:23:50 AutoIt3.exe ended.rc:0 +>23:23:50 AutoIt3Wrapper Finished. >Exit code: 0 Time: 1.995
  2. So I'm trying to do some as400 automation and hit a wall when trying to get a COM object. The code on line 8 is failing, the as400.ws file opens with PCSWS.exe so I tried using that as the file path too but that didn't work either. Any and all help is greatly appreciated! $file = "C:\Users\Rhidlor\Desktop\as400.ws" If Not FileExists($file) Then MsgBox(0, "Error", "Error finding file") Exit EndIf $object = ObjGet($file) If @error Then MsgBox(0, "Error", "Error getting object") Exit EndIf $object.SendKeys("05")
  3. Hy All, again I got a question. I try to convert wmic PATH Win32_videocontroller GET adapterram i tried to to it like in this example but my knoledge is not good enough Local $oWMI = ObjGet("winmgmts:root\CIMV2") Local $oDisks = $oWMI.ExecQuery("select * from WIN32_DiskDrive") So i tired Local $oWMI = ObjGet("winmgmts:root\CIMV2") Local $oGMRam= $oWMI.ExecQuery("Win32_videocontroller") $Memory=$oGMRam.adapterram but this does not work. I like to understand what i need to do?
  4. Lets say I open 12 Excel workbooks and use _Excel_BookList to get a list of this open workbooks. It can take the function up to 45 seconds to return the result. Each call to ObjGet takes longer then the previous one while incrementing the index: I searched the forum but only found some threads from 2008 discussing the processing of the ROT (Running Objects Table). Does someone have an idea how to enhance this function (some miraculous WinAPI calls ...)? #include <Excel.au3> Local $oExcel = _Excel_Open() Global $iTimer = TimerInit() Global $aWorkbooks = _Excel_BookListEX() ConsoleWrite("Runtime for _Excel_BookList: " & TimerDiff($iTimer) & @CRLF) Func _Excel_BookListEX($oExcel = Default) ; Error handler, automatic cleanup at end of function Global $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc_RT") #forceref $oError Local $aBooks[1][3], $iIndex = 0 If IsObj($oExcel) Then If ObjName($oExcel, 1) <> "_Application" Then Return SetError(1, 0, 0) Local $iTemp = $oExcel.Workbooks.Count ReDim $aBooks[$iTemp][3] For $iIndex = 0 To $iTemp - 1 $aBooks[$iIndex][0] = $oExcel.Workbooks($iIndex + 1) $aBooks[$iIndex][1] = $oExcel.Workbooks($iIndex + 1).Name $aBooks[$iIndex][2] = $oExcel.Workbooks($iIndex + 1).Path Next Else If $oExcel <> Default Then Return SetError(1, 0, 0) Local $oWorkbook, $sCLSID_Workbook = "{00020819-0000-0000-C000-000000000046}" While True $iTimerList = TimerInit() $oWorkbook = ObjGet("", $sCLSID_Workbook, $iIndex + 1) If @error Then ExitLoop ConsoleWrite("ObjGet for instance " & $iIndex + 1 & ": " & TimerDiff($iTimerList) & @CRLF) ReDim $aBooks[$iIndex + 1][3] $aBooks[$iIndex][0] = $oWorkbook $aBooks[$iIndex][1] = $oWorkbook.Name $aBooks[$iIndex][2] = $oWorkbook.Path $iIndex += 1 $oWorkbook = 0 WEnd EndIf Return $aBooks EndFunc ;==>_Excel_BookListEX
  5. Good Morning Everyone and Happy Friday! First - of course: Thanks to everyone in AutoIT - You help systems administrators and programmers everywhere get help to folks that need it with fluid automation I can personally say that you've helped literally thousands of people I've distribute exe's too. Amazing work, you've saved so many of us all time, redundancy and pain. You've quite honestly given many folks their time back... On with the questions then... Having real trouble getting this OutlookEX UDF to work... getting "Error creating a connection to Outlook. @error = 1, @extended = -2147221164" I see from previous issues that means "The error code stands for '80040154 Class not registered'. Means: The class is unknown to the user running the script. I assume you use the system account to run the script in the task scheduler?" I'm running the script from SciTE #AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y #RequireAdmin #include <OutlookEX.au3> Global $oOutlook = _OL_Open() If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended) ; ***************************************************************************** ; Example 1 ; Send a html mail to the current user. ; Add an attachment and set importance to high. ; ***************************************************************************** Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.Name _OL_Wrapper_SendMail($oOutlook, $sCurrentUser, "", "", "TestSubject", "Body<br><b>fett</b> normal.", @ScriptDir & "\_OL_Wrapper_SendMail.au3", $olFormatHTML, $olImportanceHigh) If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Error sending mail. @error = " & @error & ", @extended: " & @extended) MsgBox(64, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Mail successfully sent to user '" & $sCurrentUser & "'!") _OL_Close($oOutlook)Using Windows 7 x64 and Outlook 2013. Thanks Everyone! Also... getting error... Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.Name Global $sCurrentUser = $oOutlook^ ERROR ...using the following sample code taken from this forum. #AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #AutoIt3Wrapper_AU3Check_Stop_OnWarning=N #include <File.au3> #include <GUIConstants.au3> #include <GuiButton.au3> #include <GUIConstantsEx.au3> #include <GUIToolTip.au3> #include <Array.au3> #include <Constants.au3> #include <Date.au3> #include <WinAPIFiles.au3> #include <ScreenCapture.au3> #include <OutlookEX.au3> #include <WinAPIFiles.au3> Global $iFileName, $Form1_1 Global $oOutlook = _OL_Open() GLobal $sTo = "emailaddress@gmail.com;" $Form1_1 = GUICreate("System Information", 1083, 638, 182, 114) GUISetState(@SW_SHOW) If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended) $iFileName = @DesktopDir & "\Utility Screenshot - " & @MON & "." & @MDAY & "." & @YEAR & " - (" & @HOUR & "." & @MIN & "." & @SEC & ").jpg" _ScreenCapture_CaptureWnd($iFileName, $Form1_1) Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.Name _OL_Wrapper_SendMail($oOutlook, $sTo, "", "", "Configuration Utility Screenshot", "Attached please find the Configuration Utilty Screenshot.<br>Automatically sent via the Configuration Utlity<br>Thank you, <br>" & $sCurrentUser, $iFileName, $olFormatHTML, $olImportanceHigh) If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Error sending mail. @error = " & @error & ", @extended: " & @extended) MsgBox(64, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Mail successfully sent to user '" & $sCurrentUser & "'!") _OL_Close($oOutlook)*** I have a separate login for MS Outlook 2013 because I have multiple ID's *** Do I have to run it as the current mailbox user??? Thanks again!
  6. Hi All, I've coded the small script below, but it can't seem to get the instance of Windows Media player as it keeps going to @error, I've not used com objects before so any assistance would be appreciate. I already have WMP open and minimised. I retrieved "WMPlayerApp" from the AutoIT info tool, I've included a copy below. I'm using these sources: https://msdn.microsoft.com/en-us/library/dd564085.aspx https://msdn.microsoft.com/en-us/library/dd564018.aspx $oWMP = ObjGet("", "WMPlayerApp") If @error Then MsgBox(0, "Can't get WMP", "Couldn't connect to the WMP instance") Exit EndIf $wmpPlayState = $oWMP.playState MsgBox(0, "Play State", $wmpPlayState) $wmpSongName = $oWMP.currentMedia.name MsgBox(0, "Play State", $wmpSongName) I've also seen references to the below, but I want to get an existing open WMP: ObjCreate("wmplayer.OCX") and have looked at the WMP.udf but can't see how it will do either of the functions I've coded above.
  7. HI I am wanting to know what my CPU temp is but don't know what object to use. I don't relay know how objget works so would not know where to start. I have seen people integrate things like windows speech to text into their scripts but don't know how they know what object to use! How do I find the right object? And how dose it work? Thanks Jacob
  8. For years, I have been running a script using ObjGet to open an Excel workbook but, after upgrading from Win7 to Win10, ObjGet is now returning with an error. The only way I can get it to work on Win10 is to actually open the workbook manually myself and then run the script.
  9. Before upgrading to AutoIt v.3.3.10.2, I had no problems using ObjGet, but now I get a "0x80020006 Unknown name" COM error. I'm running Windows 7 and the object to which I'm trying to attach is PowerTermPro.Document, which worked fine previously, but not so much now. 1. Does anyone know why this error would occur and how to fix it? 2. Also, are there any tools available to see which objects are available in the running object table (ROT) and possibly see their ProgID and/or CLSID?
  10. Let's say I have multiple PowerTerm Pro windows open. Global $oObj = ObjGet("", "PowerTermPro.Document") ; <-- Production command works ok for the first instance only Global $oObj = ObjGet("", "PowerTermPro.Document", 1) ; <-- Beta command gives COM Error: 0x80020006 Unknown name. Can anyone shed any light on this? How can I get access to multiple objects of the same class?
  11. Well I asked it before in an other topic but no one replies there so I thought I'll start it as a seperate topic. Edit: I now noticed some of them are methods and others properties, can I both use methods and get properties?
×
×
  • Create New...