Jump to content

tamahome

Members
  • Posts

    2
  • Joined

  • Last visited

tamahome's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Just thought I'd share, and I can't post in example scripts. My first time using GuiTreeView.au3. #Include <GuiTreeView.au3> $title = "VLC media player 1.1.2 Setup" run("vlc-1.1.2-win32.exe") winwait("Installer Language", "Please select a language.") controlclick("Installer Language", "Please select a language.", "OK") winwait($title, "Welcome") controlclick($title, "Welcome", "&Next >") winwait($title, "License") controlclick($title, "License", "&Next >") winwait($title, "Choose Components") ; more reliable than sending arrow & space keystrokes $hWnd = ControlGetHandle($title, "Choose Components", _ "[CLASS:SysTreeView32]") ; uncheck $desktopItem = _GUICtrlTreeView_FindItem($hWnd, "Desktop Shortcut") _GUICtrlTreeView_ClickItem($hWnd, $desktopItem) ; uncheck $filetypeItem = _GUICtrlTreeView_FindItem($hWnd, "File type associations") _GUICtrlTreeView_ClickItem($hWnd, $filetypeItem) controlclick($title, "Choose Components", "&Next >") winwait($title, "Choose Install Location") controlclick($title, "Choose Install Location", "&Install") winwait($title, "Completing the VLC") controlcommand($title, "Completing the VLC", "&Run VLC media player 1.1.2", _ "uncheck") controlclick($title, "Completing the VLC", "&Finish") ; get rid of first run nag DirCreate("C:\Users\Default\AppData\Roaming\vlc") FileCopy("vlcrc", "C:\Users\Default\AppData\Roaming\vlc", 1)
  2. ; Here's how I did it: $res = "1600 by 1024 pixels" run("control desk.cpl") winwait("Display Properties") for $i = 1 to 4 controlcommand("Display Properties", "", "SysTabControl321", "TabRight") next winwait("Display Properties", "Settings") $controltext = controlgettext("Display Properties", "Settings", "Static8") while $controltext <> $res controlsend("Display Properties", "", "msctls_trackbar321", "{RIGHT}") $lastcontroltext = $controltext $controltext = controlgettext("Display Properties", "Settings", "Static8") if $lastcontroltext = $controltext then exitloop wend while $controltext <> $res ; try moving left controlsend("Display Properties", "", "msctls_trackbar321", "{LEFT}") $lastcontroltext = $controltext $controltext = controlgettext("Display Properties", "Settings", "Static8") if $lastcontroltext = $controltext then exitloop wend if $controltext <> $res then ; msgbox(4096, "bad", "bad", 5) exit(1) else ; msgbox(4096, "good", "good", 5) endif controlclick("Display Properties", "", "OK") winwait("Monitor Settings", "") controlclick("Monitor Settings", "", "&Yes")
×
×
  • Create New...