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,[])
}