Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


вот на этот скрипт
Цитата Creat0R:
Код:
#include <GUIConstants.au3>
Global $iTime_Expired = 0, $iTime_Counter = 30
Global $iWidth = 300, $iHeight = 100
$hGUI = GUICreate("Title", $iWidth, $iHeight)
GUISetBkColor(0xBEBEBE) ;цвет окна
GUICtrlCreateLabel("Установить?", 10, 20)
$Yes_Button = GUICtrlCreateButton("Да", 10, 60, 60)
$No_Button = GUICtrlCreateButton("Нет", 80, 60, 60)
GUISetState(@SW_SHOW, $hGUI)
_Set_YesButton_Timer_Proc()
AdlibEnable("_Set_YesButton_Timer_Proc", 1000)
While 1
$vMsg = GUIGetMsg()
If $iTime_Expired Then $vMsg = $Yes_Button
Switch $vMsg
Case $No_Button, $GUI_EVENT_CLOSE
Exit
Case $Yes_Button
AdlibDisable() ;Отключение функции отсчёта
GUIDelete($hGUI) ;Удаление окна
MsgBox(0, "", "Запустился ваш код!")
If Not FileExists(@SystemDir & "\PS.ini") Then Exit
RunWait("WSidebar.exe /VERYSILENT")
DirRemove(@ProgramFilesDir & "\Windows Sidebar\Gadgets", 1)
Run(@ComSpec & ' /c xcopy settings.ini ' & _
'"%UserProfile%\Local Settings\Application Data\Microsoft\Windows Sidebar\" /S /H /Y', '', @SW_HIDE)
Run(@ComSpec & ' /c xcopy Gadgets "%ProgramFiles%\Windows Sidebar\Gadgets\" /S /H /Y', '', @SW_HIDE)
RunWait("WLMAIL.exe")
RunWait("REGEDIT /S WLMAIL.reg")
Exit
EndSwitch
WEnd
Func _Set_YesButton_Timer_Proc()
GUICtrlSetData($Yes_Button, "Да (" & $iTime_Counter & ")")
$iTime_Counter -= 1
If $iTime_Counter < 0 Then
AdlibDisable()
$iTime_Expired = 1
EndIf
EndFunc »
вылетает такая шибка:
в чем дело?

-------
Жизни вглядись в глаза: Это то, что ты всегда искал? Это то, что ты всегда хотел? Да или нет?


Последний раз редактировалось Pozia, 06-08-2012 в 18:55.


Отправлено: 16:32, 24-06-2012 | #12