Jump to content

bymax

Member
  • Posts

    6
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Turkey

Posts posted by bymax

  1. Turkish for windows but I did not pull to the left to check correct

    sory speak english bad :(

    ; Author: Andrew Calcutt, wazer

    ; Last Edited: 09/12/2009

    ; Script Function: Adds Quick Launch Toolbar

    ;------------------------------------------------------------------

    ;Unlock Taskbar

    _ToggleTaskbarLock()

    ;Create Quicklaunch Toolbar

    _TaskToolbarWin7("Shell:Quick Launch")

    ;Get Quick Launch current postion

    While 1

    Sleep(100)

    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")

    If Not @error Then ExitLoop

    WEnd

    $TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)

    ;Hide "Quick Launch" toolbar text

    MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)

    Send("{DOWN}{DOWN}{DOWN}{ENTER}")

    ;Hide "Quick Launch" toolbar title

    MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)

    Send("{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")

    ;Move "Quick Launch" toolbar

    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")

    $TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")

    MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)

    ;Move "Current Apps" bar

    $CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]")

    MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0)

    ;Lock Taskbar

    _ToggleTaskbarLock()

    Func _TaskToolbarWin7($toolbardir)

    MouseClick("right", 0, @DesktopHeight)

    Send("{DOWN}{RIGHT}{UP}{ENTER}")

    WinWaitActive("Yeni Araç Çubuğu")

    ControlSetText("Yeni Araç Çubuğu", "", "Edit1", $toolbardir)

    ControlClick("Yeni Araç Çubuğu", "", "Button1")

    EndFunc ;==>_TaskToolbarWin7

    Func _ToggleTaskbarLock()

    MouseClick("right", 0, @DesktopHeight)

    Send("{UP}{UP}{ENTER}")

    EndFunc ;==>_ToggleTaskbarLock

  2. I tried to use "FireGeier's Unattended Vista Guided" site but couldn't manage it.

    Can anyone help me about, how to make or force "vlite's autounattended.xml" to accept my Regtweaks.reg in "sourses\install" folder.?

    Sorry about my bad English.

    Enclosed are "my Regtweaks.reg" and "my vlite - unattended.xml"

    Please feel free if you want to make any change in my files :)

    myfiles.rar

×
×
  • Create New...