Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,119,140)
{
 Width=301
 Height=208
 Color=16711115
 Caption="Running LAN"
 BorderStyle=1
 Position=1
 link(onCreate,5306808:doWork1,[])
}
Add(Label,11417141,189,196)
{
 Left=25
 Top=24
 Width=69
 Height=17
 Color=16711115
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Version OS"
 AutoSize=1
 Alignment=1
}
Add(ComboBox,7613252,119,182)
{
 Left=110
 Top=20
 Width=145
 Height=21
 Font=[Consolas,12,1,0,204]
 TabOrder=1
 Strings=#0:|10:Windows XP|13:Windows Vista|9:Windows 7|9:Windows 8|10:Windows 10|
 ReadOnly=0
 link(onClick,5306808:doWork2,[(167,195)(167,167)])
}
Add(ChildPanel,5306808,189,154)
{
 link(onEvent1,2953706:doClose,[(233,160)(233,130)(107,130)(107,167)])
}
BEGIN_SDK
  Add(EditMulti,12525074,21,21)
  {
   EventCount=1
   WorkCount=2
   Width=552
   Height=368
   VOffset=14
   link(doWork1,9896615:doFor,[])
   link(doWork2,14195743:doEvent1,[(33,48)(33,174)])
  }
  Add(Panel,3087181,77,161)
  {
   Left=5
   Top=50
   Width=288
   Height=127
   Color=16711115
   Visible=1
   Point(doVisible)
  }
  Add(Label,13891932,77,91)
  {
   Left=9
   Top=21
   Width=60
   Height=60
   Color=16711115
   Font=[MS Sans Serif,8,1,16711680,1]
   Caption="IP:


Gateway:"
   AutoSize=1
   Alignment=1
  }
  Add(Button,2139603,140,189)
  {
   Left=93
   Top=89
   Width=155
   Height=25
   Font=[MS Sans Serif,8,1,0,1]
   TabOrder=10
   Caption="PERFORM"
   link(onClick,4957520:doString,[])
  }
  Add(WinExec,641047,378,329)
  {
   Param="
"
   FileName="cmd"
   Mode=10
   link(FileName,5024716:Var2,[])
  }
  Add(FormatStr,4957520,196,189)
  {
   DataCount=8
   Mask="netsh interface ip set address name="Подключение по локальной сети" source=static addr=%5.%6.%7.%8 mask=255.255.255.224 
 netsh interface ip set address name="Подключение по локальной сети" gateway=%1.%2.%3.%4 gwmetric=0
 netsh interface ip set dns name="Подключение по локальной сети" source=static addr=static 217.24.176.230 register=PRIMARY
 netsh interface ip add dns name="Подключение по локальной сети" addr=217.24.177.2 index=2
 pause
 exit"
   Point(FString)
   link(onFString,16692613:doString,[])
   link(Str1,3867692:Var2,[])
   link(Str2,15650622:Var2,[])
   link(Str3,12732574:Var1,[(216,166)])
   link(Str4,10502546:Var1,[(223,159)])
   link(Str5,12021943:Var1,[(230,152)])
   link(Str6,9275494:Var1,[(237,145)])
   link(Str7,15772308:Var1,[(244,138)])
   link(Str8,10010703:Var1,[(251,131)])
  }
  Add(FormatStr,16692613,462,189)
  {
   DataCount=8
   Mask="netsh interface ipv4 set address "Подключение по локальной сети" static %5.%6.%7.%8 255.255.255.224 %1.%2.%3.%4
 netsh interface ipv4 set dnsserver "Подключение по локальной сети" static 217.24.176.230
 netsh interface ipv4 add dnsserver "Подключение по локальной сети" 217.24.177.2 index=2
 pause
 exit"
   Point(FString)
   link(onFString,2230391:doEvent1,[(536,195)(536,368)(144,368)(144,314)])
   link(Str1,3867692:Var3,[(468,180)])
   link(Str2,15650622:Var3,[(475,173)])
   link(Str3,12732574:Var3,[(482,166)])
   link(Str4,10502546:Var3,[(489,159)])
   link(Str5,12021943:Var3,[(496,152)])
   link(Str6,9275494:Var3,[(503,145)])
   link(Str7,15772308:Var3,[(510,138)])
   link(Str8,10010703:Var2,[])
  }
  Add(IndexToChanel,4359008,77,231)
  {
   Count=6
   link(onEvent2,35950:doWork1,[])
   link(onEvent3,79227:doWork2,[])
   link(onEvent4,2905368:doWork2,[])
   link(onEvent5,4049039:doWork2,[])
   link(onEvent6,4049039:doWork3,[(130,272)])
  }
  Add(Hub,14195743,42,168)
  {
   link(onEvent1,3087181:doVisible,[])
   link(onEvent2,4359008:doEvent,[(64,181)(64,237)])
  }
  Add(GetIndexData,5963387,196,238)
  {
   link(Data1,4957520:FString,[])
   link(Data2,16692613:FString,[(209,230)(468,230)])
  }
  Add(ChanelToIndex,35950,140,238)
  {
   link(onIndex,5963387:doIndex,[])
  }
  Add(HubEx,79227,126,245)
  {
   link(onEvent,35950:doWork2,[])
  }
  Add(HubEx,4049039,126,259)
  {
   Angle=3
   link(onEvent,2905368:doWork3,[])
  }
  Add(HubEx,2905368,126,252)
  {
   Angle=3
   link(onEvent,79227:doWork3,[])
  }
  Add(StrList,6141260,301,287)
  {
   link(FileName,5024716:Var1,[(314,271)])
  }
  Add(Hub,2230391,154,308)
  {
   OutCount=6
   link(onEvent1,3947919:doCharset,[])
   link(onEvent3,6141260:doSave,[])
   link(onEvent5,641047:doShellExec,[])
   link(onEvent6,12525074:onEvent1,[(551,349)(551,41)])
  }
  Add(VisualStrings,16357554,395,238)
  {
  }
  Add(GetDataEx,5024716,378,266)
  {
   link(Data,16357554:Text,[(384,261)(401,261)])
  }
  Add(ComboBox,5302019,371,56)
  {
   Left=73
   Top=15
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=2
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,9924791,413,49)
  {
   Left=125
   Top=15
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=3
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,15110243,455,42)
  {
   Left=177
   Top=15
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=4
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,8972911,308,63)
  {
   Left=229
   Top=55
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=9
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,9381682,182,84)
  {
   Left=73
   Top=55
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=6
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,4115346,224,77)
  {
   Left=125
   Top=55
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=7
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,3905625,266,70)
  {
   Left=177
   Top=55
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=8
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(ComboBox,14817968,497,35)
  {
   Left=229
   Top=15
   Width=52
   Height=21
   Font=[Consolas,12,1,0,204]
   TabOrder=5
   Text=""
   ReadOnly=0
   Point(EditText)
  }
  Add(For,9896615,77,35)
  {
   End=255
   link(onEvent,1599436:doEvent1,[])
  }
  Add(Hub,1599436,147,35)
  {
   OutCount=8
   link(onEvent1,14817968:doAdd,[])
   link(onEvent2,15110243:doAdd,[])
   link(onEvent3,9924791:doAdd,[])
   link(onEvent4,5302019:doAdd,[])
   link(onEvent5,8972911:doAdd,[])
   link(onEvent6,3905625:doAdd,[])
   link(onEvent7,4115346:doAdd,[])
   link(onEvent8,9381682:doAdd,[])
  }
  Add(GetDataEx,3867692,196,175)
  {
   link(Data,9381682:EditText,[])
  }
  Add(GetDataEx,15650622,203,168)
  {
   link(Data,4115346:EditText,[(209,133)(244,133)])
  }
  Add(GetDataEx,12732574,280,161)
  {
   link(Data,3905625:EditText,[])
  }
  Add(GetDataEx,10502546,322,154)
  {
   link(Data,8972911:EditText,[])
  }
  Add(GetDataEx,12021943,385,147)
  {
   link(Data,5302019:EditText,[])
  }
  Add(GetDataEx,9275494,427,140)
  {
   link(Data,9924791:EditText,[])
  }
  Add(GetDataEx,15772308,469,133)
  {
   link(Data,15110243:EditText,[])
  }
  Add(GetDataEx,10010703,511,126)
  {
   link(Data,14817968:EditText,[])
  }
  Add(Charset,3947919,196,308)
  {
   Type=1
   link(onCharset,6141260:doText,[])
   link(Text,5963387:Var,[])
  }
END_SDK