HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуФорма после закрытия снова открывается ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 41
Рейтинг: -3
#1: 2015-08-16 19:28:23 ЛС | профиль | цитата
Сделал форму регистрации программы
после ввода правильного пароля (или если стоит галочка при совпадении сохраненного хэша)
форма авторизации она должна закрываться,
но после закрытия она еще раз открывается
В чем может быть проблема
ЗЫ: по умолчанию
логин й
пароль ц

code_36152.txt

залил в архиве, а то в code_36152.txt что-то с кодировкой не то (может только у меня так)
http://hiasm.com/forum_serv.php?q=56&id=4002
карма: 1

0
файлы: 1code_36152.txt [7.5KB] [234]
Ответов: 16884
Рейтинг: 1239
#2: 2015-08-16 22:49:42 ЛС | профиль | цитата
.....
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 41
Рейтинг: -3
#3: 2015-08-17 16:41:41 ЛС | профиль | цитата
сколько не неределываю - только все ломается,
у меня уже мозг не варит
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#4: 2015-08-17 17:57:10 ЛС | профиль | цитата
Вот так изначально должна смотреться твоя схема
kirill_1.gif
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1kirill_1.gif [4.5KB] [401]
Ответов: 1841
Рейтинг: 370
#5: 2015-08-17 18:02:11 ЛС | профиль | цитата

карма: 1
Альтернативная сборка HiAsm 4.
0
Ответов: 9906
Рейтинг: 351
#6: 2015-08-17 18:15:24 ЛС | профиль | цитата
Кажется, Tad вступил в секту "наскальной живописи". Нипочем коды не хочет выкладывать
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#7: 2015-08-17 20:23:06 ЛС | профиль | цитата
Galkov,
PK.Kirill(в программке) писал(а):
В целях безопасности пароль не должен совпадать с паролем для входа в игру
У него только на ввод пароля используется >50 элементов.
Игры пишут высококлассные спецы.
Как я могу выложить схему ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 41
Рейтинг: -3
#8: 2015-08-18 16:11:26 ЛС | профиль | цитата
Tad писал(а):
Вот так изначально должна смотреться твоя схема

Получается в переменной Pass хранится хэш из КонфигурацииОборудования+Логин,
Внутри окна происходит проверка переменной Pass и свежевичисленного хэша
и если написать в конфиг файле RemPass=1 то прога будет открываться без пароля, что не есть хорошо.

Tad писал(а):
Игры пишут высококлассные спецы.

Игру уже написали высококлассные спецы,
я пишу что-то вроде шпаргалки для игры (типа справочник/помощник)
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#9: 2015-08-18 18:36:03 ЛС | профиль | цитата
PK.Kirill писал(а):
и если написать в конфиг файле RemPass=1 то прога будет открываться без пароля, что не есть хорошо.
Зачем тогда ты придумал s.ini
Запомнить nik - ещё куда ни шло.
А зачем запоминать RemPass=0 и Pass=E3A0EE2469556386DEFF67A4F744C80A ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 41
Рейтинг: -3
#10: 2015-08-18 18:53:08 ЛС | профиль | цитата
Если вместо onCreate Событие брать с кнопки - то все работает
почему так? 
Add(MainForm,2953706,210,161)
{
 Point(onClose)
 Point(doVisible)
 link(onCreate,15948029:doLoad,[])
 link(onClose,15948029:doSave,[])
 AddHint(14,18,44,16,)
 AddHint(18,9,33,13,Width)
}
Add(GVarContainer,15948029,266,175)
{
 Section="Settings"
 FileName="s.ini"
 VarList=#3:Nik|7:RemPass|4:Pass|
}
Add(DoData,2376093,147,189)
{
 Data=Integer(1)
 link(onEventData,5426833:doCaption,[(190,195)(190,251)])
}
Add(ChildForm,8129453,322,175)
{
 FirstUsage=0
 link(onEvent1,2376093:doData,[(366,181)(366,154)(114,154)(114,195)])
 link(onEvent2,2953706:doClose,[(367,188)(367,221)(198,221)(198,188)])
}
BEGIN_SDK
  Add(EditMulti,10450974,21,21)
  {
   EventCount=2
   WorkCount=2
   DataCount=1
   Width=1021
   Height=725
   link(doWork1,3719505:doEvent1,[(28,27)(28,55)])
  }
  Add(MainForm,11092590,637,49)
  {
   Left=35
   Top=105
   Width=254
   Height=231
   Color=11660286
   Point(doShowModal)
  }
  Add(Label,5637907,14,119)
  {
   Left=15
   Top=25
   Width=26
   Height=17
   Caption="Имя"
  }
  Add(Label,11440770,14,168)
  {
   Left=15
   Top=50
   Width=42
   Height=17
   Caption="Пароль"
  }
  Add(Edit,13607090,182,168)
  {
   Left=105
   Top=50
   Width=120
   TabOrder=2
   Hint="Введите пароль, выданный Or Г0Л0ДНЫЙ для входа в программу.
 Внимание! В целях безопасности пароль не должен совпадать с паролем для входа в игру"
   Text=""
   Password=0
   link(onEnter,8302172:doEvent1,[(230,181)(230,426)])
  }
  Add(CheckBox,6987956,154,266)
  {
   Left=15
   Top=80
   Width=90
   TabOrder=4
   Caption="Запомнить"
  }
  Add(Button,5017123,196,427)
  {
   Left=165
   Top=80
   TabOrder=3
   Caption="Вход"
   link(onClick,8302172:doEvent2,[])
  }
  Add(GlobalVar,8676419,364,21)
  {
   Name="Nik"
  }
  Add(GlobalVar,8937893,616,497)
  {
   Name="Pass"
  }
  Add(GlobalVar,16346722,70,224)
  {
   Name="RemPass"
   link(onValue,13689332:doCompare,[])
  }
  Add(DoData,15826744,364,49)
  {
   link(onEventData,10612756:doText,[])
   link(Data,8676419:Var,[])
  }
  Add(Hashsum,10357219,483,420)
  {
   link(onResult,15334606:doValue,[])
  }
  Add(FormatStr,2087197,357,420)
  {
   Mask="%1%2"
   link(onFString,15770362:doEvent1,[])
   link(Str1,13607090:Text,[(363,214)(188,214)])
   link(Str2,14021900:Var1,[(370,215)])
  }
  Add(StrList,12340340,609,364)
  {
   Strings=#32:44242677AC2A0B2FFC410BE9E4F42CD8|
  }
  Add(ArrayEnum,155946,623,427)
  {
   link(onItem,9047277:doWork2,[])
   link(Array,12340340:Array,[])
  }
  Add(Memory,15334606,532,420)
  {
  }
  Add(If_else,9984870,693,427)
  {
   link(onTrue,7170642:doEvent1,[])
   link(onFalse,1405183:doCompare,[(733,440)(733,510)])
   link(Op2,639837:Var3,[(706,408)(636,408)(636,464)])
  }
  Add(Hub,7170642,742,427)
  {
   OutCount=3
   link(onEvent1,10450974:onEvent1,[(899,433)(899,27)])
   link(onEvent2,2790062:doData,[])
   link(onEvent3,11092590:doClose,[(845,447)(845,128)(605,128)(605,76)])
  }
  Add(DoData,2790062,770,434)
  {
   PColor(onEventData,16711680)
   link(onEventData,16346722:doValue,[(808,440)(808,329)(62,329)(62,230)])
   link(Data,6987956:Checked,[(776,366)(160,366)])
  }
  Add(Hub,3719505,35,49)
  {
   OutCount=3
   link(onEvent1,15826744:doData,[])
   link(onEvent2,15397540:doData,[(56,62)(56,272)])
   link(onEvent3,4340236:doCompare,[(84,69)(84,83)])
  }
  Add(DoData,15397540,70,266)
  {
   link(onEventData,1117412:doConvert,[])
   link(Data,13327383:Var2,[])
  }
  Add(If_else,13689332,168,224)
  {
   Op2=Integer(1)
   link(onTrue,2450993:doEvent1,[(208,230)(208,342)])
  }
  Add(If_else,4340236,119,77)
  {
   Type=5
   Op2=Integer(1)
   PColor(onTrue,56320)
   link(onTrue,11684437:doWork2,[])
   link(onFalse,4337067:doEvent1,[(202,90)(202,104)])
   link(Op1,13327383:Var3,[(125,65)(113,65)(113,250)])
  }
  Add(GetDataEx,13327383,70,245)
  {
   link(Data,16346722:Var,[])
  }
  Add(Hub,2450993,217,336)
  {
   link(onEvent1,1322816:doWork2,[])
   link(onEvent2,14092328:doData,[(271,349)(271,503)])
  }
  Add(DoData,14092328,546,497)
  {
   link(onEventData,8937893:doValue,[])
   link(Data,639837:Var2,[])
  }
  Add(HubEx,1322816,266,336)
  {
   link(onEvent,10525562:doWork1,[])
  }
  Add(GetDataEx,14021900,427,210)
  {
   link(Data,10612756:Text,[])
  }
  Add(Hub,4337067,224,98)
  {
   link(onEvent1,1322816:doWork1,[(270,104)])
   link(onEvent2,10758011:doData,[(468,111)(468,265)])
  }
  Add(Hub,15770362,420,420)
  {
   link(onEvent1,5406855:doWork2,[])
   link(onEvent2,155946:doEnum,[])
  }
  Add(HubEx,5406855,462,420)
  {
   link(onEvent,10357219:doHashsum,[])
  }
  Add(GetDataEx,639837,546,459)
  {
   Angle=3
   link(Data,15334606:Value,[(538,464)])
  }
  Add(HubEx,9047277,672,427)
  {
   link(onEvent,9984870:doCompare,[])
  }
  Add(DoData,6747572,301,175)
  {
   link(onEventData,8676419:doValue,[(349,181)(349,27)])
   link(Data,14021900:Var3,[(307,163)(442,163)(442,215)])
  }
  Add(Hub,8302172,245,420)
  {
   InCount=2
   link(onEvent1,2087197:doString,[])
   link(onEvent2,6747572:doData,[(280,433)(280,181)])
  }
  Add(Message,932212,798,490)
  {
   Message="Введена неверная пара логин/пароль. Убедитесь верно ли установлен язык ввода, не включена ли клавиша CAPS LOCK."
   Caption="Ошибка"
   Icon=1
   link(onMessage,13312957:doNext,[])
   link(Caption,13312957:Count,[(811,478)(829,478)(829,534)(846,534)])
  }
  Add(Edit,10612756,427,49)
  {
   Left=105
   Top=20
   Width=120
   Text="Г0Л0ДНЫЙ"
  }
  Add(Convertor,1117412,112,266)
  {
   Mode=1
   link(onResult,6987956:doCheck,[])
  }
  Add(DoData,10758011,553,259)
  {
   link(onEventData,9047277:doWork1,[(676,265)])
   link(Data,8937893:Var,[(559,247)(591,247)(591,523)(622,523)])
  }
  Add(If_else,1405183,742,504)
  {
   Op2=Integer(1)
   link(onTrue,932212:doMessage,[(786,510)(786,496)])
   link(onFalse,2164602:doMessage,[])
   link(Op1,6358240:Value,[(748,210)(545,210)])
  }
  Add(Message,2164602,903,511)
  {
   Message="Программа не зарегистрирована на данном компьютере.
Введите логин и пароль, выданный вам при получении программы."
   Caption="Ошибка"
   Icon=1
   PColor(onMessage,56320)
   link(onMessage,11684437:doWork3,[(943,517)(943,152)(291,152)])
  }
  Add(HubEx,11684437,287,77)
  {
   PColor(onEvent,56320)
   link(onEvent,16242409:doData,[])
  }
  Add(Memory,6358240,539,77)
  {
   link(onData,11092590:doShowModal,[])
  }
  Add(DoData,16242409,497,77)
  {
   Data=Integer(1)
   link(onEventData,6358240:doValue,[])
  }
  Add(CounterEx,13312957,840,490)
  {
   Max=5
   Direct=1
   Default=4
   Point(onThroughMin)
   link(onThroughMin,10450974:onEvent2,[(957,503)(957,34)])
  }
  Add(MultiElement,10525562,427,336)
  {
   @Hint=#10:HardwareID|
   link(onEvent1,5406855:doWork1,[(466,342)])
   link(Data1,14021900:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,7486133,21,21)
    {
     EventCount=1
     WorkCount=1
     DataCount=1
     link(doWork1,6790622:doInfo,[(31,27)(31,62)])
    }
    Add(ProcInfo,13023386,140,56)
    {
     Point(ProcessorId)
     link(onInfo,1824562:doData,[])
    }
    Add(DiskInfo,512727,238,56)
    {
     Point(SerialNumber)
     link(onInfo,7556131:doString,[(288,62)(288,108)(86,108)(86,153)])
    }
    Add(MotherBoardInfo,6790622,42,56)
    {
     Point(SerialNumber)
     link(onInfo,9834750:doData,[])
    }
    Add(FormatStr,7556131,126,147)
    {
     DataCount=4
     Mask="%1%2%3%4"
     Point(FString)
     link(onFString,7486133:onEvent1,[(240,153)(240,27)])
     link(Str1,6790622:SerialNumber,[(132,117)(76,117)])
     link(Str2,13023386:ProcessorId,[(139,117)(174,117)])
     link(Str3,512727:SerialNumber,[(146,117)(272,117)])
     link(Str4,7486133:Data1,[(153,84)(27,84)])
    }
    Add(DoData,1824562,189,56)
    {
     Data=String(C:)
     link(onEventData,512727:doInfo,[])
    }
    Add(DoData,9834750,98,56)
    {
     Data=String(CPU0)
     link(onEventData,13023386:doInfo,[])
    }
  END_SDK
END_SDK
Add(Button,5426833,238,245)
{
 Left=200
 Top=80
 Caption="Вход"
 Point(doCaption)
 link(onClick,8129453:doWork1,[(310,251)(310,181)])
}
Add(ViewSHA,329504,455,98)
{
 Width=289
 Height=184
}
BEGIN_SDK
  Add(MainForm,7668793,105,49)
  {
   Point(onClose)
   Point(doVisible)
   link(onCreate,12251293:doLoad,[])
   link(onClose,12251293:doSave,[])
   AddHint(14,18,44,16,)
   AddHint(18,9,33,13,Width)
  }
  Add(GVarContainer,12251293,161,63)
  {
   Section="Settings"
   FileName="s.ini"
   VarList=#3:Nik|7:RemPass|4:Pass|
   link(onLoad,12487505:doWork1,[])
  }
  Add(DoData,263429,42,77)
  {
   Data=Integer(1)
   link(onEventData,7668793:doVisible,[])
  }
  Add(ChildForm,12487505,217,63)
  {
   FirstUsage=0
   link(onEvent1,263429:doData,[(256,69)(256,37)(23,37)(23,83)])
   link(onEvent2,7668793:doClose,[(262,76)(262,109)(93,109)(93,76)])
  }
  BEGIN_SDK
    Add(EditMulti,16149856,21,21)
    {
     EventCount=2
     WorkCount=2
     DataCount=1
     Width=1021
     Height=725
     link(doWork1,11678258:doEvent1,[(28,27)(28,55)])
    }
    Add(MainForm,8094789,637,49)
    {
     Left=35
     Top=105
     Width=254
     Height=231
     Color=11660286
     Point(doShowModal)
    }
    Add(Label,3286225,14,119)
    {
     Left=15
     Top=25
     Width=26
     Height=17
     Caption="Имя"
    }
    Add(Label,12025331,14,168)
    {
     Left=15
     Top=50
     Width=42
     Height=17
     Caption="Пароль"
    }
    Add(Edit,4381587,182,168)
    {
     Left=105
     Top=50
     Width=120
     TabOrder=2
     Hint="Введите пароль, выданный Or Г0Л0ДНЫЙ для входа в программу.
 Внимание! В целях безопасности пароль не должен совпадать с паролем для входа в игру"
     Text=""
     Password=0
     link(onEnter,8668177:doEvent1,[(230,181)(230,426)])
    }
    Add(CheckBox,13148022,154,266)
    {
     Left=15
     Top=80
     Width=90
     TabOrder=4
     Caption="Запомнить"
    }
    Add(Button,2568634,196,427)
    {
     Left=165
     Top=80
     TabOrder=3
     Caption="Вход"
     link(onClick,8668177:doEvent2,[])
    }
    Add(GlobalVar,13506351,364,21)
    {
     Name="Nik"
    }
    Add(GlobalVar,7427372,616,497)
    {
     Name="Pass"
    }
    Add(GlobalVar,9054370,70,224)
    {
     Name="RemPass"
     link(onValue,179996:doCompare,[])
    }
    Add(DoData,15297926,364,49)
    {
     link(onEventData,1038301:doText,[])
     link(Data,13506351:Var,[])
    }
    Add(Hashsum,3000282,483,420)
    {
     link(onResult,16459154:doValue,[])
    }
    Add(FormatStr,10822902,357,420)
    {
     Mask="%1%2"
     link(onFString,3108956:doEvent1,[])
     link(Str1,4381587:Text,[(363,214)(188,214)])
     link(Str2,15852763:Var1,[(370,215)])
    }
    Add(StrList,6407621,609,364)
    {
     Strings=#32:44242677AC2A0B2FFC410BE9E4F42CD8|
    }
    Add(ArrayEnum,1508897,623,427)
    {
     link(onItem,12964399:doWork2,[])
     link(Array,6407621:Array,[])
    }
    Add(Memory,16459154,532,420)
    {
    }
    Add(If_else,10069757,693,427)
    {
     link(onTrue,13529881:doEvent1,[])
     link(onFalse,9294723:doCompare,[(733,440)(733,510)])
     link(Op2,3647452:Var3,[(706,408)(636,408)(636,464)])
    }
    Add(Hub,13529881,742,427)
    {
     OutCount=3
     link(onEvent1,16149856:onEvent1,[(899,433)(899,27)])
     link(onEvent2,1693879:doData,[])
     link(onEvent3,8094789:doClose,[(845,447)(845,128)(605,128)(605,76)])
    }
    Add(DoData,1693879,770,434)
    {
     PColor(onEventData,16711680)
     link(onEventData,9054370:doValue,[(808,440)(808,329)(62,329)(62,230)])
     link(Data,13148022:Checked,[(776,366)(160,366)])
    }
    Add(Hub,11678258,35,49)
    {
     OutCount=3
     link(onEvent1,15297926:doData,[])
     link(onEvent2,9458830:doData,[(56,62)(56,272)])
     link(onEvent3,4627893:doCompare,[(84,69)(84,83)])
    }
    Add(DoData,9458830,70,266)
    {
     link(onEventData,2777701:doConvert,[])
     link(Data,7485399:Var2,[])
    }
    Add(If_else,179996,168,224)
    {
     Op2=Integer(1)
     link(onTrue,3936308:doEvent1,[(208,230)(208,342)])
    }
    Add(If_else,4627893,119,77)
    {
     Type=5
     Op2=Integer(1)
     PColor(onTrue,56320)
     link(onTrue,4720595:doWork2,[])
     link(onFalse,16101819:doEvent1,[(202,90)(202,104)])
     link(Op1,7485399:Var3,[(125,65)(113,65)(113,250)])
    }
    Add(GetDataEx,7485399,70,245)
    {
     link(Data,9054370:Var,[])
    }
    Add(Hub,3936308,217,336)
    {
     link(onEvent1,12014790:doWork2,[])
     link(onEvent2,11355785:doData,[(271,349)(271,503)])
    }
    Add(DoData,11355785,546,497)
    {
     link(onEventData,7427372:doValue,[])
     link(Data,3647452:Var2,[])
    }
    Add(HubEx,12014790,266,336)
    {
     link(onEvent,3686935:doWork1,[])
    }
    Add(GetDataEx,15852763,427,210)
    {
     link(Data,1038301:Text,[])
    }
    Add(Hub,16101819,224,98)
    {
     link(onEvent1,12014790:doWork1,[(270,104)])
     link(onEvent2,666596:doData,[(468,111)(468,265)])
    }
    Add(Hub,3108956,420,420)
    {
     link(onEvent1,5042390:doWork2,[])
     link(onEvent2,1508897:doEnum,[])
    }
    Add(HubEx,5042390,462,420)
    {
     link(onEvent,3000282:doHashsum,[])
    }
    Add(GetDataEx,3647452,546,459)
    {
     Angle=3
     link(Data,16459154:Value,[(538,464)])
    }
    Add(HubEx,12964399,672,427)
    {
     link(onEvent,10069757:doCompare,[])
    }
    Add(DoData,16673233,301,175)
    {
     link(onEventData,13506351:doValue,[(349,181)(349,27)])
     link(Data,15852763:Var3,[(307,163)(442,163)(442,215)])
    }
    Add(Hub,8668177,245,420)
    {
     InCount=2
     link(onEvent1,10822902:doString,[])
     link(onEvent2,16673233:doData,[(280,433)(280,181)])
    }
    Add(Message,7490485,798,490)
    {
     Message="Введена неверная пара логин/пароль. Убедитесь верно ли установлен язык ввода, не включена ли клавиша CAPS LOCK."
     Caption="Ошибка"
     Icon=1
     link(onMessage,7353939:doNext,[])
     link(Caption,7353939:Count,[(811,478)(829,478)(829,534)(846,534)])
    }
    Add(Edit,1038301,427,49)
    {
     Left=105
     Top=20
     Width=120
     Text="Г0Л0ДНЫЙ"
    }
    Add(Convertor,2777701,112,266)
    {
     Mode=1
     link(onResult,13148022:doCheck,[])
    }
    Add(DoData,666596,553,259)
    {
     link(onEventData,12964399:doWork1,[(676,265)])
     link(Data,7427372:Var,[(559,247)(591,247)(591,523)(622,523)])
    }
    Add(If_else,9294723,742,504)
    {
     Op2=Integer(1)
     link(onTrue,7490485:doMessage,[(786,510)(786,496)])
     link(onFalse,15352399:doMessage,[])
     link(Op1,3865850:Value,[(748,210)(545,210)])
    }
    Add(Message,15352399,903,511)
    {
     Message="Программа не зарегистрирована на данном компьютере.
Введите логин и пароль, выданный вам при получении программы."
     Caption="Ошибка"
     Icon=1
     PColor(onMessage,56320)
     link(onMessage,4720595:doWork3,[(943,517)(943,152)(291,152)])
    }
    Add(HubEx,4720595,287,77)
    {
     PColor(onEvent,56320)
     link(onEvent,6330016:doData,[])
    }
    Add(Memory,3865850,539,77)
    {
     link(onData,8094789:doShowModal,[])
    }
    Add(DoData,6330016,497,77)
    {
     Data=Integer(1)
     link(onEventData,3865850:doValue,[])
    }
    Add(CounterEx,7353939,840,490)
    {
     Max=5
     Direct=1
     Default=4
     Point(onThroughMin)
     link(onThroughMin,16149856:onEvent2,[(957,503)(957,34)])
    }
    Add(MultiElement,3686935,427,336)
    {
     @Hint=#10:HardwareID|
     link(onEvent1,5042390:doWork1,[(466,342)])
     link(Data1,15852763:Var2,[])
    }
    BEGIN_SDK
      Add(EditMulti,9215146,21,21)
      {
       EventCount=1
       WorkCount=1
       DataCount=1
       link(doWork1,8866272:doInfo,[(31,27)(31,62)])
      }
      Add(ProcInfo,9980405,140,56)
      {
       Point(ProcessorId)
       link(onInfo,6066303:doData,[])
      }
      Add(DiskInfo,9056110,238,56)
      {
       Point(SerialNumber)
       link(onInfo,7420284:doString,[(288,62)(288,108)(86,108)(86,153)])
      }
      Add(MotherBoardInfo,8866272,42,56)
      {
       Point(SerialNumber)
       link(onInfo,7561299:doData,[])
      }
      Add(FormatStr,7420284,126,147)
      {
       DataCount=4
       Mask="%1%2%3%4"
       Point(FString)
       link(onFString,9215146:onEvent1,[(240,153)(240,27)])
       link(Str1,8866272:SerialNumber,[(132,117)(76,117)])
       link(Str2,9980405:ProcessorId,[(139,117)(174,117)])
       link(Str3,9056110:SerialNumber,[(146,117)(272,117)])
       link(Str4,9215146:Data1,[(153,84)(27,84)])
      }
      Add(DoData,6066303,189,56)
      {
       Data=String(C:)
       link(onEventData,9056110:doInfo,[])
      }
      Add(DoData,7561299,98,56)
      {
       Data=String(CPU0)
       link(onEventData,9980405:doInfo,[])
      }
    END_SDK
  END_SDK
  Add(Button,5312327,133,133)
  {
   Left=200
   Top=80
   Caption="Вход"
   Point(doCaption)
  }
  Add(InfoTip,13166899,14,7)
  {
   Info=#39:Так окно авторизации открывается 2 раза|
   Width=253
   Height=18
  }
END_SDK
Add(InfoTip,4187775,119,98)
{
 Info=#38:Так окно авторизации открывается 1 раз|40:Если стоит "Запомнить" то не открывается|22:Все как и должно быть |
 Width=253
 Height=46
}
Add(InfoTip,13625634,133,322)
{
 Info=#39:Как сделать, чтобы работало без кнопки?|
 Width=547
 Height=46
}
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#11: 2015-08-18 19:48:31 ЛС | профиль | цитата
PK.Kirill писал(а):
ну это чтоб человек получил программу, логин и пароль
PK.Kirill писал(а):
блин чето слишком сложно както все замутил
Бумага, карандаш и резинка в помощь.
Add(MainForm,13543541,413,196)
{
 Visible=1
 Position=1
 Point(onClose)
 Point(doVisible)
 Point(doSetFocus)
 link(onCreate,15948029:doLoad,[])
 link(onClose,15948029:doSave,[])
}
Add(GVarContainer,15948029,476,210)
{
 Section="Settings"
 FileName="s.ini"
 VarList=#3:Nik|7:RemPass|4:Pass|
 link(onLoad,15024430:doTimer,[(523,216)(523,190)(212,190)(212,216)])
}
Add(DoData,2376093,336,224)
{
 Data=Integer(1)
 link(onEventData,10868152:doEvent1,[])
}
Add(ChildForm,8129453,273,210)
{
 FirstUsage=0
 link(onEvent1,2376093:doData,[(317,216)(317,230)])
 link(onEvent2,13543541:doClose,[])
}
BEGIN_SDK
  Add(EditMulti,10450974,21,21)
  {
   EventCount=2
   WorkCount=2
   DataCount=1
   Width=1021
   Height=725
   link(doWork1,3719505:doEvent1,[(28,27)(28,55)])
  }
  Add(MainForm,11092590,637,49)
  {
   Left=35
   Top=105
   Width=254
   Height=231
   Color=11660286
   Position=1
   Point(doShowModal)
  }
  Add(Label,5637907,14,119)
  {
   Left=15
   Top=25
   Width=26
   Height=17
   Caption="Имя"
  }
  Add(Label,11440770,14,168)
  {
   Left=15
   Top=50
   Width=42
   Height=17
   Caption="Пароль"
  }
  Add(Edit,13607090,161,378)
  {
   Left=105
   Top=50
   Width=120
   TabOrder=2
   Hint="Введите пароль, выданный Or Г0Л0ДНЫЙ для входа в программу.
 Внимание! В целях безопасности пароль не должен совпадать с паролем для входа в игру"
   Text=""
   Password=0
   link(onEnter,8302172:doEvent1,[(230,391)(230,426)])
  }
  Add(CheckBox,6987956,154,266)
  {
   Left=15
   Top=80
   Width=90
   TabOrder=4
   Caption="Запомнить"
  }
  Add(Button,5017123,196,427)
  {
   Left=165
   Top=80
   TabOrder=3
   Caption="Вход"
   link(onClick,8302172:doEvent2,[])
  }
  Add(GlobalVar,8676419,364,21)
  {
   Name="Nik"
  }
  Add(GlobalVar,8937893,616,497)
  {
   Name="Pass"
  }
  Add(GlobalVar,16346722,70,224)
  {
   Name="RemPass"
   link(onValue,13689332:doCompare,[])
  }
  Add(DoData,15826744,364,49)
  {
   link(onEventData,10612756:doText,[])
   link(Data,8676419:Var,[])
  }
  Add(Hashsum,10357219,483,420)
  {
   link(onResult,15334606:doValue,[])
  }
  Add(FormatStr,2087197,385,420)
  {
   Mask="%1%2"
   link(onFString,15770362:doEvent1,[])
   link(Str1,13607090:Text,[(391,415)(167,415)])
   link(Str2,14021900:Var1,[(398,215)])
  }
  Add(StrList,12340340,609,364)
  {
   Strings=#32:44242677AC2A0B2FFC410BE9E4F42CD8|
  }
  Add(ArrayEnum,155946,623,427)
  {
   link(onItem,9047277:doWork2,[])
   link(Array,12340340:Array,[])
  }
  Add(Memory,15334606,532,420)
  {
  }
  Add(If_else,9984870,693,427)
  {
   link(onTrue,7170642:doEvent1,[])
   link(onFalse,1405183:doCompare,[(733,440)(733,510)])
   link(Op2,639837:Var3,[(706,408)(636,408)(636,464)])
  }
  Add(Hub,7170642,742,427)
  {
   OutCount=3
   link(onEvent1,10450974:onEvent1,[(899,433)(899,27)])
   link(onEvent2,2790062:doData,[])
   link(onEvent3,11092590:doClose,[(845,447)(845,128)(605,128)(605,76)])
  }
  Add(DoData,2790062,770,434)
  {
   PColor(onEventData,16711680)
   link(onEventData,16346722:doValue,[(808,440)(808,329)(62,329)(62,230)])
   link(Data,6987956:Checked,[(776,366)(160,366)])
  }
  Add(Hub,3719505,35,49)
  {
   OutCount=3
   link(onEvent1,15826744:doData,[])
   link(onEvent2,15397540:doData,[(56,62)(56,272)])
   link(onEvent3,4340236:doCompare,[(84,69)(84,83)])
  }
  Add(DoData,15397540,70,266)
  {
   link(onEventData,1117412:doConvert,[])
   link(Data,13327383:Var2,[])
  }
  Add(If_else,13689332,168,224)
  {
   Op2=Integer(1)
   link(onTrue,2450993:doEvent1,[(208,230)(208,342)])
  }
  Add(If_else,4340236,119,77)
  {
   Type=5
   Op2=Integer(1)
   PColor(onTrue,56320)
   link(onTrue,11684437:doWork2,[])
   link(onFalse,4337067:doEvent1,[(202,90)(202,104)])
   link(Op1,13327383:Var3,[(125,65)(113,65)(113,250)])
  }
  Add(GetDataEx,13327383,70,245)
  {
   link(Data,16346722:Var,[])
  }
  Add(Hub,2450993,217,336)
  {
   link(onEvent1,1322816:doWork2,[])
   link(onEvent2,14092328:doData,[(271,349)(271,503)])
  }
  Add(DoData,14092328,546,497)
  {
   link(onEventData,8937893:doValue,[])
   link(Data,639837:Var2,[])
  }
  Add(HubEx,1322816,266,336)
  {
   link(onEvent,10525562:doWork1,[])
  }
  Add(GetDataEx,14021900,427,210)
  {
   link(Data,10612756:Text,[])
  }
  Add(Hub,4337067,224,98)
  {
   link(onEvent1,1322816:doWork1,[(270,104)])
   link(onEvent2,10758011:doData,[(468,111)(468,265)])
  }
  Add(Hub,15770362,434,420)
  {
   link(onEvent1,5406855:doWork2,[])
   link(onEvent2,155946:doEnum,[])
  }
  Add(HubEx,5406855,462,420)
  {
   link(onEvent,10357219:doHashsum,[])
  }
  Add(GetDataEx,639837,546,459)
  {
   Angle=3
   link(Data,15334606:Value,[(538,464)])
  }
  Add(HubEx,9047277,672,427)
  {
   link(onEvent,9984870:doCompare,[])
  }
  Add(DoData,6747572,301,378)
  {
   link(onEventData,8676419:doValue,[(349,384)(349,27)])
   link(Data,14021900:Var3,[(307,163)(442,163)(442,215)])
  }
  Add(Hub,8302172,245,420)
  {
   InCount=2
   link(onEvent1,2087197:doString,[])
   link(onEvent2,6747572:doData,[(280,433)(280,384)])
  }
  Add(Message,932212,798,490)
  {
   Message="Введена неверная пара логин/пароль. Убедитесь верно ли установлен язык ввода, не включена ли клавиша CAPS LOCK."
   Caption="Ошибка"
   Icon=1
   link(onMessage,13312957:doNext,[])
   link(Caption,13312957:Count,[(811,478)(829,478)(829,534)(846,534)])
  }
  Add(Edit,10612756,427,49)
  {
   Left=105
   Top=20
   Width=120
   Text="Г0Л0ДНЫЙ"
  }
  Add(Convertor,1117412,112,266)
  {
   Mode=1
   link(onResult,6987956:doCheck,[])
  }
  Add(DoData,10758011,553,259)
  {
   link(onEventData,9047277:doWork1,[(676,265)])
   link(Data,8937893:Var,[(559,247)(591,247)(591,523)(622,523)])
  }
  Add(If_else,1405183,742,504)
  {
   Op2=Integer(1)
   link(onTrue,932212:doMessage,[(786,510)(786,496)])
   link(onFalse,2164602:doMessage,[])
   link(Op1,6358240:Value,[(748,210)(559,210)])
  }
  Add(Message,2164602,903,511)
  {
   Message="Программа не зарегистрирована на данном компьютере.
Введите логин и пароль, выданный вам при получении программы."
   Caption="Ошибка"
   Icon=1
   PColor(onMessage,56320)
   link(onMessage,11684437:doWork3,[(943,517)(943,152)(291,152)])
  }
  Add(HubEx,11684437,287,77)
  {
   PColor(onEvent,56320)
   link(onEvent,16242409:doData,[])
  }
  Add(Memory,6358240,553,77)
  {
   link(onData,11092590:doShowModal,[])
  }
  Add(DoData,16242409,497,77)
  {
   Data=Integer(1)
   link(onEventData,6358240:doValue,[])
  }
  Add(CounterEx,13312957,840,490)
  {
   Max=5
   Direct=1
   Default=4
   Point(onThroughMin)
   link(onThroughMin,10450974:onEvent2,[(957,503)(957,34)])
  }
  Add(MultiElement,10525562,427,336)
  {
   @Hint=#10:HardwareID|
   link(onEvent1,5406855:doWork1,[(466,342)])
   link(Data1,14021900:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,7486133,21,21)
    {
     EventCount=1
     WorkCount=1
     DataCount=1
     link(doWork1,6790622:doInfo,[(31,27)(31,62)])
    }
    Add(ProcInfo,13023386,140,56)
    {
     Point(ProcessorId)
     link(onInfo,1824562:doData,[])
    }
    Add(DiskInfo,512727,238,56)
    {
     Point(SerialNumber)
     link(onInfo,7556131:doString,[(288,62)(288,108)(86,108)(86,153)])
    }
    Add(MotherBoardInfo,6790622,42,56)
    {
     Point(SerialNumber)
     link(onInfo,9834750:doData,[])
    }
    Add(FormatStr,7556131,126,147)
    {
     DataCount=4
     Mask="%1%2%3%4"
     Point(FString)
     link(onFString,7486133:onEvent1,[(240,153)(240,27)])
     link(Str1,6790622:SerialNumber,[(132,117)(76,117)])
     link(Str2,13023386:ProcessorId,[(139,117)(174,117)])
     link(Str3,512727:SerialNumber,[(146,117)(272,117)])
     link(Str4,7486133:Data1,[(153,84)(27,84)])
    }
    Add(DoData,1824562,189,56)
    {
     Data=String(C:)
     link(onEventData,512727:doInfo,[])
    }
    Add(DoData,9834750,98,56)
    {
     Data=String(CPU0)
     link(onEventData,13023386:doInfo,[])
    }
  END_SDK
END_SDK
Add(InfoTip,4187775,322,133)
{
 Info=#38:Так окно авторизации открывается 1 раз|40:Если стоит "Запомнить" то не открывается|22:Все как и должно быть |
 Width=253
 Height=46
}
Add(Timer,15024430,224,210)
{
 Interval=100
 Enable=1
 AutoStop=1
 link(onTimer,8129453:doWork1,[])
}
Add(Hub,10868152,378,224)
{
 link(onEvent1,13543541:doVisible,[])
 link(onEvent2,13543541:doSetFocus,[])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 41
Рейтинг: -3
#12: 2015-08-19 13:42:45 ЛС | профиль | цитата
Все-таки не совсем понятно почему так происходит.

Нестандартное решение с таймером, но работает как часы
Спасибо.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#13: 2015-08-19 13:54:41 ЛС | профиль | цитата
PK.Kirill писал(а):
Нестандартное решение с таймером

Тут проблема зарыта в MainForm 
procedure THIMainForm.Load;begin
  _hi_OnEvent(_event_onCreate);
  Control.Visible := _prop_Visible;
end;
У тебя не отрабатывала строчка
Control.Visible := _prop_Visible;
А Timer эту возможность ей даёт.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:PK.Kirill
Ответов: 41
Рейтинг: -3
#14: 2015-08-20 17:02:04 ЛС | профиль | цитата
Благодарю за разъяснение, мое любопытство удовлетворено.

тоесть если Timer тупо заменить на Thread (FastStop=True)
,то все также будет работать
карма: 1

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#15: 2015-08-20 17:16:47 ЛС | профиль | цитата
PK.Kirill писал(а):
тоесть если Timer тупо заменить на Thread (FastStop=True)
,то все также будет работать

Можно, но зачем? Лучше уж тогда DefferedEvent поставить
карма: 22

0
15
ФорумыПомощь по пакетуФорма после закрытия снова открывается ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика