Tad писал(а):
у меня не работаетУ меня работает...
Только я бы не стал хранить логин/пароль в открытую, ибо можно открыть exe_шник в том же блокноте (если запкован, предварительно распаковав), найти текст о неверном вводе и рядышком обнаружить заветное...
Можно использовать не сами логины/пароли, а их HashSum (защитой это не назовешь, но все-таки).
И судя по:
qazd писал(а):
и куда вставлять ссылку на прогутребуется запускать отдельное прилложение.
Вот чуть переделанный вариант:
Add(MainForm,2953706,658,252)
{
Width=262
Height=120
Color=-16777215
BorderStyle=6
DragForm=0
Position=1
}
Add(Edit,1593883,308,238)
{
Left=70
Top=10
Width=180
Color=-16777215
Font=[MS Sans Serif,8,1,16777215,1]
Text="user"
}
Add(Edit,12996056,357,238)
{
Left=70
Top=30
Width=180
Color=-16777215
Font=[MS Sans Serif,8,1,16777215,1]
Text="pass"
}
Add(Label,7102031,252,203)
{
Left=30
Top=10
Width=30
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="Login:"
}
Add(Label,8682868,252,217)
{
Left=5
Top=35
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="Password:"
}
Add(Button,8087888,252,301)
{
Left=5
Top=90
Width=245
Color=-16777206
Font=[MS Sans Serif,8,1,0,1]
Caption="Start"
link(onClick,3679571:doString,[])
}
Add(FormatStr,3679571,329,301)
{
Mask="%1<:>%2"
link(onFString,7594975:doHashsum,[])
link(Str1,1593883:Text,[(335,285)(314,285)])
link(Str2,12996056:Text,[(342,285)(363,285)])
}
Add(StrList,16205029,420,259)
{
Strings=#32:99CDDBC7C3C061EE5881F09D0C548E72|32:789BB28ED667E031C76C16B0CD14432C|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,9628082:doCompare,[])
}
Add(Hashsum,7594975,371,301)
{
link(onResult,16205029:doGetIndex,[])
}
Add(WinExec,8084295,588,273)
{
FileName="notepad.exe"
link(onExec,9600782:doWork2,[])
link(FileName,138064:Text,[])
}
Add(Message,7007874,539,112)
{
Message="Wrong login or password!"
Caption="Error"
link(onMessage,9600782:doWork1,[(641,118)])
}
Add(Edit,138064,588,217)
{
Left=70
Top=60
Width=180
Text="mspaint.exe"
}
Add(DoData,3361052,539,273)
{
link(onEventData,8084295:doExec,[])
}
Add(Label,6973626,252,238)
{
Left=40
Top=65
Width=25
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="File:"
}
Add(hcVisualText,15513200,406,119)
{
Lines=#13:Существующие:|11:user - pass|13:user1 - pass1|24:------------------------|25:В StrList можно добавлять|23:Хэш-суммы других связок|12:login<:>pass|
Width=95
Height=130
}
Add(hcVisualText,11298349,546,154)
{
Lines=#27:Путь к "основной" программе|
Width=74
Height=53
}
Add(If_else,9628082,469,266)
{
Op2=Integer(-1)
link(onTrue,7007874:doMessage,[(520,272)(520,118)])
link(onFalse,3361052:doData,[])
}
Add(HubEx,9600782,637,273)
{
link(onEvent,2953706:doClose,[])
}