Эксперт
Покинул форум
Сообщений всего: 1837
Дата рег-ции: Март 2017
Репутация: -2
|
В данной теме: Тут
Есть пример, я хочу разобрать именно в нем ЧАСЫ.
Пример из INITDIALOG (Отобразить)messagebox ("а тут основной код.");
INITDIALOG
{
// Тут добавить код который будет выполняться до запуска графической оболочки...
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
sendcontrol(STATIC_0, "Текущее время");
sendcontrol(CHECK_0, 1); //Ставим галку
sendcontrol(EDIT_0, format(Hour)+":"+format(Minute)+":"+format(Second));
sendcontrol(COMBO_0, 0, "Теперь пункт такой"); //меняем название пункта в списке по номеру
sendcontrol(COMBO_0, "Выбор строки 2", "А этот по имени такой"); //меняем название пункта в списке по названию
messagebox ("Данные контролов изменены");
}
CREATE_INTERFACE
{
DIALOG "Название окна" 237 180 //РазмерX РазмерY
BUTTONSCRIPT "Запустить" 125 121 100 25 //ПозицияX ПозицияY РазмерX РазмерY
//Добавление контролов управления ......
STATIC_0 "Статичный текст" 10 10 90 18 //ПозицияX ПозицияY РазмерX РазмерY
EDIT_0 "Текст по умолчанию" 105 8 120 18 //ПозицияX ПозицияY РазмерX РазмерY
CHECK_0 0 /*Выключена*/ "Включить опцию" 10 130 105 18 //ПозицияX ПозицияY РазмерX РазмерY
COMBO_0 0 /*Начальный выбор*/ "Выбор строки 1" | "Выбор строки 2" | "Выбор строки 3" 10 40 212 200 //ПозицияX ПозицияY РазмерX РазмерY_выпадающий список
}
Как сделать, что бы часы работали непрерывно? т.е при запуски граф. оболочки часы шли в реальном времени и не останавливались.
(Добавление)
007wan пишет: А да еще вопрос...
как сделать если individualcode введен верно, например, это будет число 12345
, то выполняется скрипт, а если не верно, то скрипт не будет выполняется и перейдет к началу граф. оболочки. В том загвоздка на разных компах разные индивидуалки, а я хочу что бы вводишь свой индив. ключ со своего компа и программа выполняет скрипт, а если другой компа, то другой и программа проверяет введенный ключ.
Поясню еще по подробнее: есть комп1 и комп2, у компа1 индивид. ключ будет 12345, а у компа2 индивид. ключ будет 54321, в бот записываем 12345-верно значит скрипт выполняется, а иначе- не выполняется. если этот же ключ введем на компе2, то он не будет верный, т.к у каждого компа разные индивидуальные ключи, придется ввести 54321- тогда будет верный.
Я просто хочу, что бы не было повторений, т.е один ключ на все компы, вот что у меня получилось:
CODE:if (getcontrol(EDIT_1)=="12345")// это для моего компа к примеру.
external(INT, "my_message", "MessageBoxA", "user32.dll")
my_message(0, "верно!", "Mini", 0);
//запуск скрипта...
else//иначе
external(INT, "my_message", "MessageBoxA", "user32.dll")
my_message(0, "не верно!", "Mini", 0);
//возвращается к граф. оболочки.
Может лучше как-то так сделать?
если individualcode равен тому, который стоит сейчас на данном компе, то выполняется скрипт, а если нет, то....
Я пробовал, вот что получилось:
CODE:
if (getcontrol(EDIT_1)==individualcode())//как-т так вроде
external(INT, "my_message", "MessageBoxA", "user32.dll")
my_message(0, "верно!", "Mini", 0);
else
external(INT, "my_message", "MessageBoxA", "user32.dll")
my_message(0, "не верно!", "Mini", 0);
(Добавление)
007wan пишет: Почему-то не верно
он выполняет это как мало, все в кучу, даже то что было после else и перед.(Отредактировано автором: 09 Апреля, 2017 - 11:25:39) |