Jump to content

Anyone figure out IconPackager 3.0a Silently?


Powerhouse

Recommended Posts

  • 1 month later...

  • 2 weeks later...

Bring back an old topic... :D

True, it's not a new version, but with the Autoit script for 2.5, the theme doesn't get installed. So I was wondering if anyone has gotten a them to install using Autoit?

Here is the Autoit code that doesn't work correctly...

; Install New Default Theme
$search = FileFindFirstFile ( @ScriptDir & "\Theme\*.iptheme" )
If $search = -1 Then $search = FileFindFirstFile ( @ScriptDir & "\Theme\*.ip" )
If $search = -1 Then $search = FileFindFirstFile ( @ScriptDir & "\Theme\*.theme" )
If $search <> -1 Then
Do
Sleep ( 250 )
Until FileExists( $DL_1 & "\IconPackager.exe" ) = 1

Run ( $DL_1 & "\IconPackager.exe" )
WinWaitActive ( "IconPackager" )
WinSetTitle ( "IconPackager" , "" , "IP Menu" )
While 1
$theme = FileFindNextFile ( $search )
If @error Then ExitLoop

ControlClick ( "IP Menu" , "" , "Button7" )
Send ( '{DOWN}{ENTER}' )

WinWaitActive ( "Install Package" )
Send ( @ScriptDir & "\Theme\" & $theme & "{ENTER}" )

WinWaitActive ( "IP Menu" )
ControlClick ( "IP Menu" , "" , "Button5" )
Sleep ( 250 )
If WinExists ( "IconPackager" ) Then
ControlClick ( "IconPackager" , "" , "Button2" )
ControlClick ( "IconPackager" , "" , "Button1" )
EndIf
$Title_1 = WinGetTitle("")
ControlClick ( $Title_1 , "" , "Button1" )
Sleep ( 250 )
If WinExists ( "IconPackager" ) Then
ControlClick ( "IconPackager" , "" , "Button3" )
ControlClick ( "IconPackager" , "" , "Button1" )
EndIf
Wend
FileClose ( $search )
EndIf

Wish I was better at Autoit, but I just can't figure this out.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...