Новый участник
Сообщения: 26
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Код: 
#include <GUIConstants.au3>
$icon = @ScriptDir & '\icon_Avtobot.ico'
$Form1_1 = GUICreate("Settings", 301, 234, 532, 397)
GUISetIcon("C:\Users\Lexa\Desktop\heroic_autobots.ico")
GUISetFont(8, 800, 0, "Palatino Linotype")
GUISetBkColor(0xFFFBF0)
$Checkbox1 = GUICtrlCreateCheckbox("Выводить общюю статистику", 8, 160, 289, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Label1 = GUICtrlCreateLabel(" AvToB0T Settings", 0, 0, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "FreeSetBlackCTT")
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label3 = GUICtrlCreateLabel("Количество аккаунтов:", 8, 40, 155, 22)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Input2 = GUICtrlCreateInput("Input2", 8, 64, 209, 24)
$Button2 = GUICtrlCreateButton("Сохранить", 8, 192, 97, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Button1 = GUICtrlCreateButton("Отмена", 120, 192, 97, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Label4 = GUICtrlCreateLabel("By ToSTeP", 240, 208, 52, 18)
GUICtrlSetFont(-1, 7, 800, 0, "Palatino Linotype")
$Input3 = GUICtrlCreateInput("Input2", 8, 128, 209, 24)
$Label5 = GUICtrlCreateLabel("Путь к UDOBot.exe (только папка):", 8, 104, 229, 22)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUISetState(@SW_SHOW)
$Dir = @ScriptDir & '\AvToB0T.ini'
While 1
$x = GUICtrlRead($Chebox1)
If $x = $GUI_CHECKED Then $x = 1
Else $x = 0
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button2
IniWrite($Dir,'Section','Statistic',$x)
Exit
EndSwitch
WEnd
помогите!У меня при нажатии на $button2 вылазиет MsgBox с тесктом, который был в другом скрипте, и реакция идет не сразу, + не закрывается!почему???
|