Windows 7 Hızlı Başlat

[bymax]

Windows 7 de malum hızlı başlat yok ancak manuel olarak ayarlıyoruz benim istedigim bu olayı katılımsız hale gelmesi yani dvd ye koydugumda otomotik kurulup restart ettigimde hızlı baslatın yerine gelmesi acaba bu sekilde getirecek bi arkadas varmıdır simdiden teşekkurler

not:benim soyledigim hızlı baslat xp ve vistadaki hızlı baslat tır aynısını win 7 icin olması

[bymax]

Boyle bir scripts buldum ama exe halinede getirdim tıklıyorum herseyi yapıyor yanlız sonda sag taraftaki çizgiyi sol tarafa cektiremedim bide line 17 diye bir hata veriyor anlayan bi arkadas varmıdır kodun neresinde yanlış var yada denemek isteyenler icinde exe yapılmış hali asagidaki linkte veriyorum

Please register to see this content.

; AutoIt Version: 3.3.0.0
; 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
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
MsgBox(0, "AutoIt", "Yeni Araç Çubuğu Ekle")
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()
$value = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")
If $value = 0 Then
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
EndIf
EndFunc;==>_ToggleTaskbarLock