Редактировалось 1 раз(а), последний 2017-03-03 10:05:16

Гость Что троян делать собрался

Редактировалось 1 раз(а), последний 2017-03-03 10:05:16

[code:1]Add(MainForm,1648340,56,35) {
Left=20
Top=105
Width=230
Height=77
Caption="Form1"
}
Add(WinEnum,8140307,182,84)
{
Point(ClassName)
link(onFindWindow,9596800:doNext,[])
link(Caption,10689151:Text,[])
}
Add(Edit,10689151,182,35)
{
Left=10
Top=10
Width=155
Text="Form2"
}
Add(Counter,9596800,238,84)
{
Max=2
}
Add(Timer,3403599,56,98)
{
link(onTimer,12371399:doEvent1,[])
}
Add(Hub,12371399,112,98)
{
OutCount=3
link(onEvent1,9596800:doReset,[])
link(onEvent2,8140307:doFind,[(173,111)(173,97)])
link(onEvent3,9628157:doEvent,[(173,118)(173,139)])
}
Add(IndexToChanel,9628157,238,133)
{
Point(Index)
link(onEvent1,895892:doOn,[])
link(onEvent2,895892:doOff,[])
link(Index,9596800:Count,[])
}
Add(LED,895892,301,126)
{
Left=175
Top=14
Width=15
Height=15
Enabled=1
ColorOn=32768
ColorOff=65280
Value=0
}[/code:1]

Ну вот одна схема на обе проги имена сам пропишиш
Galkov а процессы могут и не иметь форм
[code:1]Add(MainForm,4113066,21,105) {
Left=20
Top=105
}
Add(EnumProcess,13035522,217,91)
{
Point(doFindName)
Point(onFind)
link(onFind,11445138:doReset,[(264,104)(264,202)])
}
Add(Timer,16705026,21,175)
{
Interval=500
link(onTimer,5844130:doEvent1,[])
}
Add(DoData,11680851,147,112)
{
Data=String(Project2.exe)
link(onEventData,13035522:doFindName,[])
}
Add(Hub,5844130,84,175)
{
OutCount=3
link(onEvent1,11680851:doData,[(131,181)(131,118)])
link(onEvent2,11445138:doNext,[])
link(onEvent3,8026929:doCompare,[(205,195)(205,237)])
}
Add(If_else,8026929,280,231)
{
Type=2
Op2=Integer(1)
link(onTrue,4341535:doMessage,[])
link(Op1,11445138:Count,[])
}
Add(Counter,11445138,280,182)
{
Max=9999
}
Add(Message,4341535,350,231)
{
Message="Процесс завершон"
}
Add(InfoTip,6683242,119,84)
{
Info=#12:Имя процесса|
Width=85
Height=74
}
[/code:1]

Редактировалось 1 раз(а), последний 2017-03-03 10:05:17