diff --git a/IPChanger.dpr b/IPChanger.dpr
new file mode 100644
index 0000000..737c241
--- /dev/null
+++ b/IPChanger.dpr
@@ -0,0 +1,14 @@
+program IPChanger;
+
+uses
+ Vcl.Forms,
+ Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TForm2, Form2);
+ Application.Run;
+end.
diff --git a/IPChanger.dproj b/IPChanger.dproj
new file mode 100644
index 0000000..f133b5f
--- /dev/null
+++ b/IPChanger.dproj
@@ -0,0 +1,982 @@
+
+
+ {13328EA8-CCAD-47CD-A94B-9239D5AF5CEF}
+ 19.5
+ VCL
+ True
+ Debug
+ Win32
+ 1
+ Application
+ IPChanger.dpr
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ .\$(Platform)\$(Config)
+ .\$(Platform)\$(Config)
+ false
+ false
+ false
+ false
+ false
+ System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ $(BDS)\bin\delphi_PROJECTICON.ico
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+ IPChanger
+
+
+ soapserver;IndySystem;vclwinx;fmx;vclie;DbxCommonDriver;bindengine;vcldb;IndyIPCommon;VCLRESTComponents;FireDACCommonODBC;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;vclFireDAC;bindcompvclwinx;bindcomp;FireDACCommon;IndyCore;RESTBackendComponents;bindcompfmx;bindcompdbx;inetdb;rtl;FireDACMySQLDriver;FireDACSqliteDriver;DbxClientDriver;FireDACADSDriver;RESTComponents;soapmidas;DBXSqliteDriver;vcl;vclactnband;IndyIPServer;dsnapxml;fmxFireDAC;dbexpress;dsnapcon;adortl;DBXMySQLDriver;VclSmp;inet;vclimg;vcltouch;FireDACPgDriver;FireDAC;fmxase;inetdbxpress;xmlrtl;tethering;dbrtl;bindcompvcl;dsnap;fmxdae;CloudService;FireDACMSAccDriver;CustomIPTransport;fmxobj;bindcompvclsmp;soaprtl;vcldsnap;DBXInterBaseDriver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+ 1033
+ $(BDS)\bin\default_app.manifest
+
+
+ soapserver;IndySystem;vclwinx;fmx;vclie;DbxCommonDriver;bindengine;vcldb;IndyIPCommon;VCLRESTComponents;FireDACCommonODBC;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;vclFireDAC;bindcompvclwinx;bindcomp;FireDACCommon;IndyCore;RESTBackendComponents;bindcompfmx;bindcompdbx;inetdb;rtl;FireDACMySQLDriver;FireDACSqliteDriver;DbxClientDriver;FireDACADSDriver;RESTComponents;soapmidas;DBXSqliteDriver;vcl;vclactnband;IndyIPServer;dsnapxml;fmxFireDAC;dbexpress;dsnapcon;adortl;DBXMySQLDriver;VclSmp;inet;vclimg;vcltouch;FireDACPgDriver;FireDAC;fmxase;inetdbxpress;xmlrtl;tethering;dbrtl;bindcompvcl;dsnap;fmxdae;CloudService;FireDACMSAccDriver;CustomIPTransport;fmxobj;bindcompvclsmp;soaprtl;vcldsnap;DBXInterBaseDriver;FireDACIBDriver;$(DCC_UsePackage)
+
+
+ DEBUG;$(DCC_Define)
+ true
+ false
+ true
+ true
+ true
+ true
+ true
+
+
+ false
+ PerMonitorV2
+ true
+ 1033
+ IPChanger_Icon.ico
+ C:\Users\Administrator\Downloads\favicon.png
+ C:\Users\Administrator\Downloads\favicon.png
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+ PerMonitorV2
+
+
+
+ MainSource
+
+
+
+ dfm
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+ Cfg_2
+ Base
+
+
+
+ Delphi.Personality.12
+ Application
+
+
+
+ IPChanger.dpr
+
+
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+
+
+
+
+
+ Assets\
+ Logo44x44.png
+ true
+
+
+
+
+ IPChanger.exe
+ true
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ classes
+ 64
+
+
+ classes
+ 64
+
+
+
+
+ res\xml
+ 1
+
+
+ res\xml
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\armeabi
+ 1
+
+
+ library\lib\armeabi
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\mips
+ 1
+
+
+ library\lib\mips
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-v21
+ 1
+
+
+ res\values-v21
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-ldpi
+ 1
+
+
+ res\drawable-ldpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-small
+ 1
+
+
+ res\drawable-small
+ 1
+
+
+
+
+ res\drawable-normal
+ 1
+
+
+ res\drawable-normal
+ 1
+
+
+
+
+ res\drawable-large
+ 1
+
+
+ res\drawable-large
+ 1
+
+
+
+
+ res\drawable-xlarge
+ 1
+
+
+ res\drawable-xlarge
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ 0
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .dll;.bpl
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .bpl
+
+
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ 0
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ True
+ False
+
+
+ 12
+
+
+
+
+
diff --git a/IPChanger.dproj.local b/IPChanger.dproj.local
new file mode 100644
index 0000000..8e2cd1f
--- /dev/null
+++ b/IPChanger.dproj.local
@@ -0,0 +1,9 @@
+
+
+
+ 2024/04/01 09:32:16.000.131,=Y:\Delphi 10.4 Project\Unit2.pas
+ 2024/04/01 09:34:16.000.292,Y:\Delphi 10.4 Project\Unit2.dfm=Y:\Delphi 10.4 Project\IPChanger\Unit2.dfm
+ 2024/04/01 09:34:16.000.292,Y:\Delphi 10.4 Project\Unit2.pas=Y:\Delphi 10.4 Project\IPChanger\Unit2.pas
+ 2024/04/01 09:34:22.000.042,Y:\Delphi 10.4 Project\Project1.dproj=Y:\Delphi 10.4 Project\IPChanger\IPChanger.dproj
+
+
diff --git a/IPChanger.identcache b/IPChanger.identcache
new file mode 100644
index 0000000..8324c7b
Binary files /dev/null and b/IPChanger.identcache differ
diff --git a/IPChanger.res b/IPChanger.res
new file mode 100644
index 0000000..1126ff5
Binary files /dev/null and b/IPChanger.res differ
diff --git a/IPChanger_Icon.ico b/IPChanger_Icon.ico
new file mode 100644
index 0000000..7b1775c
Binary files /dev/null and b/IPChanger_Icon.ico differ
diff --git a/Unit2.dfm b/Unit2.dfm
new file mode 100644
index 0000000..a2c0623
--- /dev/null
+++ b/Unit2.dfm
@@ -0,0 +1,906 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4Ethernet: TButton
+ Left = 16
+ Top = 24
+ Width = 113
+ Height = 33
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4EthernetClick
+ end
+ object BTNSetDNSEthernet: TButton
+ Left = 135
+ Top = 24
+ Width = 130
+ Height = 33
+ Caption = 'SET DNS'
+ TabOrder = 1
+ OnClick = BTNSetDNSEthernetClick
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 98
+ Width = 115
+ Height = 33
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ OnClick = BTNResetIPv4Click
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 98
+ Width = 128
+ Height = 33
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ OnClick = BTNResetDNSClick
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 137
+ Width = 115
+ Height = 25
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ object BTNSetIPv4WiFi: TButton
+ Left = 16
+ Top = 63
+ Width = 113
+ Height = 29
+ Caption = 'SET IPv4 To Wi-Fi'
+ Enabled = False
+ TabOrder = 5
+ end
+ object BTNSetDNSWiFi: TButton
+ Left = 135
+ Top = 63
+ Width = 130
+ Height = 29
+ Caption = 'SET DNS To Wi-Fi'
+ Enabled = False
+ TabOrder = 6
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ OnClick = Panel3Click
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 360
+ Top = 8
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 424
+ Top = 16
+ end
+end
diff --git a/Unit2.pas b/Unit2.pas
new file mode 100644
index 0000000..11a11d0
--- /dev/null
+++ b/Unit2.pas
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dns name="'+DNSInterface+'" source=static address=' + DNS2), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 add dnsservers name="'+DNSInterface+'" address=' + DNS1 + ' index=1'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/Win32/Debug/IPChanger.exe b/Win32/Debug/IPChanger.exe
new file mode 100644
index 0000000..f1ec9b2
Binary files /dev/null and b/Win32/Debug/IPChanger.exe differ
diff --git a/Win32/Debug/IPChanger_Icon.ico b/Win32/Debug/IPChanger_Icon.ico
new file mode 100644
index 0000000..7b1775c
Binary files /dev/null and b/Win32/Debug/IPChanger_Icon.ico differ
diff --git a/Win32/Debug/Unit2.dcu b/Win32/Debug/Unit2.dcu
new file mode 100644
index 0000000..eabbb40
Binary files /dev/null and b/Win32/Debug/Unit2.dcu differ
diff --git a/__history/Unit2.dfm.~22~ b/__history/Unit2.dfm.~22~
new file mode 100644
index 0000000..d852090
--- /dev/null
+++ b/__history/Unit2.dfm.~22~
@@ -0,0 +1,455 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 16
+ Top = 56
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 85
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 114
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 16
+ Top = 27
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 144
+ Top = 24
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 144
+ Top = 53
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 144
+ Top = 82
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 24
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 144
+ Top = 111
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~23~ b/__history/Unit2.dfm.~23~
new file mode 100644
index 0000000..f14dae9
--- /dev/null
+++ b/__history/Unit2.dfm.~23~
@@ -0,0 +1,463 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 16
+ Top = 56
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 85
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 114
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 16
+ Top = 27
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ TabOrder = 5
+ Text = 'TextIPv4Interface'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~24~ b/__history/Unit2.dfm.~24~
new file mode 100644
index 0000000..8bf3d9a
--- /dev/null
+++ b/__history/Unit2.dfm.~24~
@@ -0,0 +1,471 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~25~ b/__history/Unit2.dfm.~25~
new file mode 100644
index 0000000..368832b
--- /dev/null
+++ b/__history/Unit2.dfm.~25~
@@ -0,0 +1,472 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~26~ b/__history/Unit2.dfm.~26~
new file mode 100644
index 0000000..6d1ea1f
--- /dev/null
+++ b/__history/Unit2.dfm.~26~
@@ -0,0 +1,883 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Left = 464
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~27~ b/__history/Unit2.dfm.~27~
new file mode 100644
index 0000000..af7192a
--- /dev/null
+++ b/__history/Unit2.dfm.~27~
@@ -0,0 +1,884 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 113
+ Height = 41
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4Click
+ end
+ object BTNSetDNS: TButton
+ Left = 135
+ Top = 16
+ Width = 130
+ Height = 41
+ Caption = 'SET DNS'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 63
+ Width = 115
+ Height = 41
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 63
+ Width = 128
+ Height = 41
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 110
+ Width = 115
+ Height = 41
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 432
+ Top = 16
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 464
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~28~ b/__history/Unit2.dfm.~28~
new file mode 100644
index 0000000..e78e8a3
--- /dev/null
+++ b/__history/Unit2.dfm.~28~
@@ -0,0 +1,900 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4Ethernet: TButton
+ Left = 16
+ Top = 24
+ Width = 113
+ Height = 33
+ Caption = 'SET IPv4 To Ethernet'
+ TabOrder = 0
+ OnClick = BTNSetIPv4EthernetClick
+ end
+ object BTNSetDNSEthernet: TButton
+ Left = 135
+ Top = 24
+ Width = 130
+ Height = 33
+ Caption = 'SET DNS To Ethernet'
+ TabOrder = 1
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 98
+ Width = 115
+ Height = 33
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 98
+ Width = 128
+ Height = 33
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 137
+ Width = 115
+ Height = 25
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ object BTNSetIPv4WiFi: TButton
+ Left = 16
+ Top = 63
+ Width = 113
+ Height = 29
+ Caption = 'SET IPv4 To Wi-Fi'
+ TabOrder = 5
+ end
+ object BTNSetDNSWiFi: TButton
+ Left = 135
+ Top = 63
+ Width = 130
+ Height = 29
+ Caption = 'SET DNS To Wi-Fi'
+ TabOrder = 6
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 360
+ Top = 8
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 424
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~29~ b/__history/Unit2.dfm.~29~
new file mode 100644
index 0000000..ed20c08
--- /dev/null
+++ b/__history/Unit2.dfm.~29~
@@ -0,0 +1,901 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4Ethernet: TButton
+ Left = 16
+ Top = 24
+ Width = 113
+ Height = 33
+ Caption = 'SET IPv4 To Ethernet'
+ TabOrder = 0
+ OnClick = BTNSetIPv4EthernetClick
+ end
+ object BTNSetDNSEthernet: TButton
+ Left = 135
+ Top = 24
+ Width = 130
+ Height = 33
+ Caption = 'SET DNS To Ethernet'
+ TabOrder = 1
+ OnClick = BTNSetDNSEthernetClick
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 98
+ Width = 115
+ Height = 33
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 98
+ Width = 128
+ Height = 33
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 137
+ Width = 115
+ Height = 25
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ object BTNSetIPv4WiFi: TButton
+ Left = 16
+ Top = 63
+ Width = 113
+ Height = 29
+ Caption = 'SET IPv4 To Wi-Fi'
+ TabOrder = 5
+ end
+ object BTNSetDNSWiFi: TButton
+ Left = 135
+ Top = 63
+ Width = 130
+ Height = 29
+ Caption = 'SET DNS To Wi-Fi'
+ TabOrder = 6
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 360
+ Top = 8
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 424
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~30~ b/__history/Unit2.dfm.~30~
new file mode 100644
index 0000000..c4c0e12
--- /dev/null
+++ b/__history/Unit2.dfm.~30~
@@ -0,0 +1,902 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4Ethernet: TButton
+ Left = 16
+ Top = 24
+ Width = 113
+ Height = 33
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4EthernetClick
+ end
+ object BTNSetDNSEthernet: TButton
+ Left = 135
+ Top = 24
+ Width = 130
+ Height = 33
+ Caption = 'SET DNS'
+ TabOrder = 1
+ OnClick = BTNSetDNSEthernetClick
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 98
+ Width = 115
+ Height = 33
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 98
+ Width = 128
+ Height = 33
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 137
+ Width = 115
+ Height = 25
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ object BTNSetIPv4WiFi: TButton
+ Left = 16
+ Top = 63
+ Width = 113
+ Height = 29
+ Caption = 'SET IPv4 To Wi-Fi'
+ TabOrder = 5
+ end
+ object BTNSetDNSWiFi: TButton
+ Left = 135
+ Top = 63
+ Width = 130
+ Height = 29
+ Caption = 'SET DNS To Wi-Fi'
+ TabOrder = 6
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ OnClick = Panel3Click
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 360
+ Top = 8
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 424
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.dfm.~31~ b/__history/Unit2.dfm.~31~
new file mode 100644
index 0000000..025b8f9
--- /dev/null
+++ b/__history/Unit2.dfm.~31~
@@ -0,0 +1,905 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ BorderStyle = bsSingle
+ Caption = 'IP Changer v1 - SIRS - ISEKAI.ID'
+ ClientHeight = 493
+ ClientWidth = 757
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Icon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ Position = poMainFormCenter
+ TextHeight = 15
+ object Panel1: TPanel
+ Left = 0
+ Top = 8
+ Width = 467
+ Height = 49
+ Caption = 'APLIKASI GANTI IP - VERSI 1 - SIRS - ISEKAI.ID'
+ TabOrder = 0
+ end
+ object Panel2: TPanel
+ Left = 471
+ Top = 8
+ Width = 285
+ Height = 169
+ TabOrder = 1
+ object BTNSetIPv4Ethernet: TButton
+ Left = 16
+ Top = 24
+ Width = 113
+ Height = 33
+ Caption = 'SET IPv4'
+ TabOrder = 0
+ OnClick = BTNSetIPv4EthernetClick
+ end
+ object BTNSetDNSEthernet: TButton
+ Left = 135
+ Top = 24
+ Width = 130
+ Height = 33
+ Caption = 'SET DNS'
+ TabOrder = 1
+ OnClick = BTNSetDNSEthernetClick
+ end
+ object BTNResetIPv4: TButton
+ Left = 16
+ Top = 98
+ Width = 115
+ Height = 33
+ Caption = 'RESET IP TO DHCP'
+ TabOrder = 2
+ OnClick = BTNResetIPv4Click
+ end
+ object BTNResetDNS: TButton
+ Left = 137
+ Top = 98
+ Width = 128
+ Height = 33
+ Caption = 'RESET DNS TO DHCP'
+ TabOrder = 3
+ end
+ object BTNInterface: TButton
+ Left = 16
+ Top = 137
+ Width = 115
+ Height = 25
+ Caption = 'Check Interface List'
+ TabOrder = 4
+ OnClick = BTNInterfaceClick
+ end
+ object BTNSetIPv4WiFi: TButton
+ Left = 16
+ Top = 63
+ Width = 113
+ Height = 29
+ Caption = 'SET IPv4 To Wi-Fi'
+ Enabled = False
+ TabOrder = 5
+ end
+ object BTNSetDNSWiFi: TButton
+ Left = 135
+ Top = 63
+ Width = 130
+ Height = 29
+ Caption = 'SET DNS To Wi-Fi'
+ Enabled = False
+ TabOrder = 6
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = -2
+ Top = 133
+ Width = 467
+ Height = 170
+ Caption = 'Pengaturan IPv4'
+ TabOrder = 2
+ object Label3: TLabel
+ Left = 18
+ Top = 80
+ Width = 67
+ Height = 15
+ Caption = 'IPv4 Address'
+ end
+ object Label4: TLabel
+ Left = 16
+ Top = 109
+ Width = 93
+ Height = 15
+ Caption = 'IPv4 Subnet Mask'
+ end
+ object Label5: TLabel
+ Left = 16
+ Top = 138
+ Width = 111
+ Height = 15
+ Caption = 'IPv4 Default Gateway'
+ end
+ object Label6: TLabel
+ Left = 18
+ Top = 51
+ Width = 69
+ Height = 15
+ Caption = 'Profile Name'
+ end
+ object Label18: TLabel
+ Left = 14
+ Top = 22
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextIPv4Name: TEdit
+ Left = 150
+ Top = 48
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 0
+ TextHint = 'IPSIMRS-ANAS'
+ end
+ object TextIPv4Address: TEdit
+ Left = 150
+ Top = 77
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '192.168.1.2'
+ end
+ object TextIPv4Mask: TEdit
+ Left = 150
+ Top = 106
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ Text = '255.255.255.0'
+ TextHint = '255.255.255.0'
+ end
+ object BTNSaveIPv4: TButton
+ Left = 285
+ Top = 54
+ Width = 179
+ Height = 113
+ Caption = 'SIMPAN PENGATURAN IPv4'
+ TabOrder = 3
+ OnClick = BTNSaveIPv4Click
+ end
+ object TextIPv4Gateway: TEdit
+ Left = 150
+ Top = 135
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = '192.168.1.1'
+ end
+ object TextIPv4Interface: TEdit
+ Left = 150
+ Top = 19
+ Width = 129
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 5
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox3: TGroupBox
+ Left = -2
+ Top = 309
+ Width = 467
+ Height = 164
+ Caption = 'Pengaturan DNS'
+ TabOrder = 3
+ object Label7: TLabel
+ Left = 16
+ Top = 96
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 1'
+ end
+ object Label8: TLabel
+ Left = 16
+ Top = 133
+ Width = 57
+ Height = 15
+ Caption = 'IPv4 DNS 2'
+ end
+ object Label9: TLabel
+ Left = 14
+ Top = 59
+ Width = 83
+ Height = 15
+ Caption = 'IPv4 DNS Name'
+ end
+ object Label1: TLabel
+ Left = 16
+ Top = 27
+ Width = 81
+ Height = 15
+ Caption = 'Interface Name'
+ end
+ object TextDNSName: TEdit
+ Left = 113
+ Top = 56
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 0
+ TextHint = 'Google'
+ end
+ object TextDNS1: TEdit
+ Left = 113
+ Top = 90
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 1
+ TextHint = '8.8.8.8'
+ end
+ object TextDNS2: TEdit
+ Left = 113
+ Top = 130
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 2
+ TextHint = '8.8.4.4'
+ end
+ object BTNSaveDNS: TButton
+ Left = 285
+ Top = 60
+ Width = 179
+ Height = 92
+ Caption = 'SIMPAN PENGATURAN DNS'
+ TabOrder = 3
+ OnClick = BTNSaveDNSClick
+ end
+ object TextDNSInterface: TEdit
+ Left = 113
+ Top = 19
+ Width = 166
+ Height = 23
+ Alignment = taCenter
+ TabOrder = 4
+ TextHint = 'Ethernet or Wi-Fi'
+ end
+ end
+ object GroupBox4: TGroupBox
+ Left = 471
+ Top = 183
+ Width = 285
+ Height = 168
+ Caption = 'IPv4 Load Detail'
+ TabOrder = 4
+ object Label10: TLabel
+ Left = 16
+ Top = 46
+ Width = 69
+ Height = 15
+ Caption = 'Nama Profile'
+ end
+ object Label11: TLabel
+ Left = 16
+ Top = 78
+ Width = 63
+ Height = 15
+ Caption = 'Alamat IPv4'
+ end
+ object Label12: TLabel
+ Left = 16
+ Top = 107
+ Width = 53
+ Height = 15
+ Caption = 'Mask IPv4'
+ end
+ object Label13: TLabel
+ Left = 16
+ Top = 141
+ Width = 70
+ Height = 15
+ Caption = 'Gateway IPv4'
+ end
+ object Label17: TLabel
+ Left = 16
+ Top = 25
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadIPv4Name: TEdit
+ Left = 104
+ Top = 46
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ParentShowHint = False
+ ReadOnly = True
+ ShowHint = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Address: TEdit
+ Left = 104
+ Top = 75
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Mask: TEdit
+ Left = 104
+ Top = 104
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Gateway: TEdit
+ Left = 104
+ Top = 133
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadIPv4Interface: TEdit
+ Left = 104
+ Top = 17
+ Width = 169
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 4
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object GroupBox5: TGroupBox
+ Left = 471
+ Top = 345
+ Width = 285
+ Height = 144
+ Caption = 'DNS IPv4 Load Detail'
+ TabOrder = 5
+ object Label14: TLabel
+ Left = 16
+ Top = 64
+ Width = 58
+ Height = 15
+ Caption = 'Nama DNS'
+ end
+ object Label15: TLabel
+ Left = 16
+ Top = 93
+ Width = 32
+ Height = 15
+ Caption = 'DNS 1'
+ end
+ object Label16: TLabel
+ Left = 16
+ Top = 126
+ Width = 32
+ Height = 15
+ Caption = 'DNS 2'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 32
+ Width = 46
+ Height = 15
+ Caption = 'Interface'
+ end
+ object txtLoadDNSName: TEdit
+ Left = 88
+ Top = 60
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 0
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS1: TEdit
+ Left = 88
+ Top = 89
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 1
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNS2: TEdit
+ Left = 88
+ Top = 118
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 2
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ object txtLoadDNSInterface: TEdit
+ Left = 88
+ Top = 31
+ Width = 185
+ Height = 23
+ Alignment = taCenter
+ ReadOnly = True
+ TabOrder = 3
+ Text = 'N/A'
+ TextHint = 'N/A'
+ end
+ end
+ object Panel3: TPanel
+ Left = -2
+ Top = 63
+ Width = 467
+ Height = 64
+ TabOrder = 6
+ OnClick = Panel3Click
+ object BTNOpenIPv4: TButton
+ Left = 16
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile IPv4'
+ TabOrder = 0
+ OnClick = BTNOpenIPv4Click
+ end
+ object BTNOpenDNS: TButton
+ Left = 167
+ Top = 16
+ Width = 145
+ Height = 33
+ Caption = 'Buka Profile DNS'
+ TabOrder = 1
+ OnClick = BTNOpenDNSClick
+ end
+ object BTNHelp: TButton
+ Left = 318
+ Top = 16
+ Width = 131
+ Height = 33
+ Caption = 'Bantuan?'
+ TabOrder = 2
+ OnClick = BTNHelpClick
+ end
+ end
+ object OpenIPv4: TOpenDialog
+ Left = 360
+ Top = 8
+ end
+ object TaskDialog1: TTaskDialog
+ Buttons = <>
+ CustomFooterIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ CustomMainIcon.Data = {
+ 0000010001002020000001002000A81000001600000028000000200000004000
+ 0000010020000000000000100000130B0000130B0000000000000000000076B5
+ 5A0076B559026FB2510F74B459067EB8670370B3531173B4560A77B660055BA8
+ 391E5AA8391E6FB2540596C585015DA93C1A5BA83B1B89BE5302408AF607468D
+ F2105C9AF2025999F3035A99F3080769F500488EF20A488EF20E79AAF303468E
+ F3163785F4245194F30F0000FF00A5C6F00000000000000000000000000058A7
+ 370057A7371A4DA129B358A6364F55A433554EA22AC062AC434552A430844BA0
+ 26D14AA025D34FA22C865EA93F434CA128C94AA026D154A529573484F9412B7E
+ F4B93F8AF4243786F43E3182F4877AABF3062E80F4802E80F4963E89F4552A7E
+ F4CA287DF4D52B7FF4B83D88F42F3182F400F9FCA400000000000000000051A4
+ 2E0050A42D20479E22E055A5338D4BA026D14DA1299572B4580A57A5355257A6
+ 364851A32D81479E22EF56A635565AA739524BA028B34BA023BC418CDE40267C
+ F5E93786F44A2C7FF494257BF5EC408BF43A297DF4B72B7FF4A2428CF4323584
+ F4613B88F453277CF5EA2C7FF48D0052F700A2C6F700000000000000000051A4
+ 2E0050A42D20469E21E0499F24E8489F23F155A53367FFFFFF0062AB441D50A2
+ 2D71499F25CC489F24E755A534323C9810004AA028904BA125CD549BBE2A277D
+ F5D93484F48E287DF5D6267CF5F33182F499277CF4CE2C7FF47F81ACF1063685
+ F4562A7EF5AC257BF5F63081F47C005CF600A9C9F700000000000000000051A4
+ 2E0050A42D20479E22E251A32E8550A32D8E499F24E460AA402A4DA12A99489F
+ 23F14DA12A9557A636407DB86403278D00004AA028904BA126CE6BAB9518297D
+ F5BC267CF5F0297EF4C83584F47F267CF5ED257BF5F33383F4583786F44D267B
+ F5F52A7EF4BC3283F4604A90F3113986F400FFFFF400000000000000000051A4
+ 2E0051A42D20479E21E24FA22C9D4DA129A8499F24E75FA93F2C4DA1299D499F
+ 25E153A4316856A5345083BA6B02268C00004AA028904BA027CF85BF530E2A7E
+ F5982279F5FF2E81F4804B91F31E277CF5DA237AF5F53886F3373685F450267B
+ F5F53383F48C3886F466478FF318458EF3000000000000000000000000005BA9
+ 3B005BA93B1550A32C944FA22CA94FA22BA354A43259A7CD99025AA73A2F4DA1
+ 29A94CA128C251A32F7D73B35A063F99160051A32E6753A42F9394C92A083283
+ F550297EF4A33987F32C0004F6003182F46B2A7EF49C3F8BF3194D91F40E3081
+ F4872A7EF4C42E81F4AA418BF3273B88F300000000000000000000000000D6E5
+ D600D4E3D400EBF2ED02EAF2EA02F2F6F001D1E1CB00EAF1EA0046981E007DB7
+ 640578B55D0A8BC25301609CF7055B9AF41166A2E01569A4DC175E9DF3125D9D
+ F3106AA3F106FFFF6B005DA0E90075AFEC0176B1EA028BBCF2006DA6F2006EA6
+ F1035A99F10B6AA3F1050054F200ECF1F4000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00007EAFF500FFFFEF003283F4742A7EF5D0297EF5D0297EF5CF2A7EF5D0297E
+ F5CF3182F473FFFFBE0065A1F400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000068A3F30076ACF304297EF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF257BF5AD5596F103478FF400000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF267CF5AE629DF1035194F300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF2179
+ F5FF2B7FF4A0FFFFE80178ABF300000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000609FF2006BA6F104277DF5B22179F5FF2179F5FF2179F5FF2179F5FF237A
+ F5FD3383F4641974F500B1D0F500000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000063A0F3006EA8F204287DF5B22179F5FF2179F5FF2179F5FF2179F5FF2A7E
+ F5C1488FF316438CF40000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000F0EDEA006CA5F30079AAF00372A8F10870A8F10870A8F10870A8
+ F10870A8F10872A8F20C2A7EF5B42179F5FF2179F5FF2179F5FF277CF5DB3C88
+ F4381F78F30089BD71047CBA64087BBA62087BBA62087BBA62087BBA630883BB
+ 6D0472B55700D8D6D30000000000000000000000000000000000000000000000
+ 0000000000004E92F4004F93F40F3081F4922B7FF4BE2B7FF4BC2B7FF4BC2B7F
+ F4BC2B7FF4BC2B7FF4BE257BF5EC2179F5FF2179F5FF267CF5E43886F6476EB2
+ 340E51A32E674BA027AE4BA026BC4BA026BC4BA026BC4BA026BC4BA026BE4EA2
+ 2A9160AA400E5FA9400000000000000000000000000000000000000000000000
+ 000000000000458EF4004790F42A277CF5EA2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF247BF5F63584F66072B43E0F4EA1
+ 2AA0459D20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF479E
+ 22E658A6362658A6360000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2179F5FF2C7FF4A378A4FF0652A32F71459E
+ 20FC449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004890F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF257BF5EB3986F73973B8210D4AA026C7449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93D0000000000000000000000000000000000000000000000
+ 000000000000458FF4004790F42C267CF5EB2179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF2179F5FF2A7EF4AB7BA3FF0359A73525479E22E6449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E95FA93E285EA93C0000000000000000000000000000000000000000000000
+ 000000000000448DF400468EF427277CF5E62179F5FF2179F5FF2179F5FF2179
+ F5FF2179F5FF2179F5FF227AF5FF3282F4693388A90059A73728479E22E8449D
+ 1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF449D1EFF489F
+ 23E25BA739225AA7380000000000000000000000000000000000000000000000
+ 0000000000005093F4005596F4083484F45B2B7FF37B2C80F37A2C80F37A2C80
+ F37A2D80F379297EF4C1247AF5F73685F33E3D8DC40060AB4215499F24D1449D
+ 1EFF489F23E34CA1288D469E217A469E217B469E217B469E217B479E227D52A4
+ 2F5C71B355076DB1500000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6FC
+ FF000065F6002F81F584257BF5EE3B88F42B3D8AEC00FFFFFF004EA12A91459D
+ 1FFF51A32E73087F000086BD7100000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000EDF6
+ FF001974F5002F81F471257CF5EB3B89F4293A88F40052A32F0058A63730499F
+ 24DF50A32D6110850000A7CB9B00FAFCFA000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00002D7FF4003685F448267CF5E93384F3393082F30074B259000039000053A4
+ 316755A533856BAE4E4065AB45165DA83B00FFFFFF0000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000448CF300448DF3152A7EF4C93283F45B257BF400000000006FB1520068AD
+ 490768AD4A4461AA405754A3309265AB460D62A9410000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005E9DEE0077ACEE153685F47A3182F48B0000FB006DA5F300000000008EC0
+ 7800A8CB970266AC46154CA026C953A32F6D258B00008FC27800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003F8AEF004990EF3F458EF0563F8AF4755395F3165898F300000000000000
+ 000074B5590078B760064B9F25BA4CA025C86AAF4C0E69AE4A00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00003988EF003B88EF353183EFB25194F13574A8F30E68A2DE0076AEB3046DB0
+ 520A77B55C065BA6383A499E22E2499F23DC5EA93E1A5FA93F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00005095F0005296EF122D80EFC72C7FEFC33686EF553786EF534D93E54463AC
+ 404C53A32F984C9F26DC499E21F750A12B9775B35B076DAF4F00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000080B2F100096AF1003886F054297EF0EA267CEFFE2E80EFCF438CF02985C5
+ 000459A6362956A4324858A5353F66AB450E58A53500F1FAE800000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000065A1F1007CAEF2033C89EF453183EF873C89EF3D0000EA0079AD
+ F100000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000008000
+ 081F8000000F8000000F8208000F8008000F8008000F8008100FC700331FFFE0
+ 3FFFFFC01FFFFFC01FFFFFC01FFFFFC03FFFFFC03FFFF000407FE000003FE000
+ 003FE000003FE000003FE000003FE004003FE004003FFFC63FFFFFC63FFFFFC7
+ 0FFFFFC707FFFFC787FFFFC3C3FFFFC203FFFFC003FFFFE007FFFFE1FFFF}
+ RadioButtons = <>
+ Text = 'SIRS 2024'
+ Left = 424
+ Top = 16
+ end
+end
diff --git a/__history/Unit2.pas.~44~ b/__history/Unit2.pas.~44~
new file mode 100644
index 0000000..369c70a
--- /dev/null
+++ b/__history/Unit2.pas.~44~
@@ -0,0 +1,239 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ //ShellExecute(0, nil, 'cmd.exe', '/C netsh interface ipv4 set address name="Ethernet" static address=' + 'txtLoadIPv4Address.Text' + ' mask=' + '255.255.255.0' + ' gateway=' + '192.168.1.1', nil, SW_SHOW);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~45~ b/__history/Unit2.pas.~45~
new file mode 100644
index 0000000..071ab2f
--- /dev/null
+++ b/__history/Unit2.pas.~45~
@@ -0,0 +1,239 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="Ethernet" static ' + DNS1), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~46~ b/__history/Unit2.pas.~46~
new file mode 100644
index 0000000..c588924
--- /dev/null
+++ b/__history/Unit2.pas.~46~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="Ethernet" static ' + DNS1), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C etsh interface ipv4 set dnsservers name="Ethernet" static ' + DNS1), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~47~ b/__history/Unit2.pas.~47~
new file mode 100644
index 0000000..127f890
--- /dev/null
+++ b/__history/Unit2.pas.~47~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dns name="Ethernet" static ' + DNS1), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~48~ b/__history/Unit2.pas.~48~
new file mode 100644
index 0000000..1c62904
--- /dev/null
+++ b/__history/Unit2.pas.~48~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS1), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~49~ b/__history/Unit2.pas.~49~
new file mode 100644
index 0000000..051ef32
--- /dev/null
+++ b/__history/Unit2.pas.~49~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set set dnsservers name="Ethernet" source=static address=' + DNS1 +','+DNS2), nil, SW_SHOW);
+ //sleep(100);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~50~ b/__history/Unit2.pas.~50~
new file mode 100644
index 0000000..8cce628
--- /dev/null
+++ b/__history/Unit2.pas.~50~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dnsservers name="Ethernet" source=static address=' + DNS1 +','+DNS2), nil, SW_SHOW);
+ //sleep(100);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/C netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~51~ b/__history/Unit2.pas.~51~
new file mode 100644
index 0000000..2f78f00
--- /dev/null
+++ b/__history/Unit2.pas.~51~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dnsservers name="Ethernet" source=static address=' + DNS1 +','+DNS2), nil, SW_SHOW);
+ //sleep(100);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~52~ b/__history/Unit2.pas.~52~
new file mode 100644
index 0000000..7aff5b1
--- /dev/null
+++ b/__history/Unit2.pas.~52~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" source=static address=' + DNS1), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="Ethernet" static ' + DNS2 + ' index=2'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.
diff --git a/__history/Unit2.pas.~53~ b/__history/Unit2.pas.~53~
new file mode 100644
index 0000000..be79726
--- /dev/null
+++ b/__history/Unit2.pas.~53~
@@ -0,0 +1,241 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, IniFiles, ShellAPI;
+
+type
+ TForm2 = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ BTNSetIPv4Ethernet: TButton;
+ BTNSetDNSEthernet: TButton;
+ BTNResetIPv4: TButton;
+ BTNResetDNS: TButton;
+ GroupBox2: TGroupBox;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ TextIPv4Name: TEdit;
+ TextIPv4Address: TEdit;
+ TextIPv4Mask: TEdit;
+ BTNSaveIPv4: TButton;
+ TextIPv4Gateway: TEdit;
+ Label6: TLabel;
+ GroupBox3: TGroupBox;
+ Label7: TLabel;
+ Label8: TLabel;
+ TextDNSName: TEdit;
+ Label9: TLabel;
+ TextDNS1: TEdit;
+ TextDNS2: TEdit;
+ BTNSaveDNS: TButton;
+ GroupBox4: TGroupBox;
+ GroupBox5: TGroupBox;
+ Label10: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label13: TLabel;
+ txtLoadIPv4Name: TEdit;
+ txtLoadIPv4Address: TEdit;
+ txtLoadIPv4Mask: TEdit;
+ txtLoadIPv4Gateway: TEdit;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ txtLoadDNSName: TEdit;
+ txtLoadDNS1: TEdit;
+ txtLoadDNS2: TEdit;
+ Panel3: TPanel;
+ BTNOpenIPv4: TButton;
+ BTNOpenDNS: TButton;
+ BTNHelp: TButton;
+ OpenIPv4: TOpenDialog;
+ BTNInterface: TButton;
+ Label1: TLabel;
+ TextDNSInterface: TEdit;
+ txtLoadDNSInterface: TEdit;
+ Label2: TLabel;
+ Label17: TLabel;
+ txtLoadIPv4Interface: TEdit;
+ TextIPv4Interface: TEdit;
+ Label18: TLabel;
+ TaskDialog1: TTaskDialog;
+ BTNSetIPv4WiFi: TButton;
+ BTNSetDNSWiFi: TButton;
+ procedure BTNSaveIPv4Click(Sender: TObject);
+ procedure BTNSaveDNSClick(Sender: TObject);
+ procedure BTNOpenIPv4Click(Sender: TObject);
+ procedure BTNOpenDNSClick(Sender: TObject);
+ procedure BTNSetIPv4EthernetClick(Sender: TObject);
+ procedure BTNInterfaceClick(Sender: TObject);
+ procedure BTNHelpClick(Sender: TObject);
+ procedure BTNSetDNSEthernetClick(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ procedure BTNResetIPv4Click(Sender: TObject);
+ procedure BTNResetDNSClick(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+procedure TForm2.BTNHelpClick(Sender: TObject);
+var
+ Balloon: TTaskDialog;
+begin
+ Balloon := TTaskDialog.Create(Self);
+ Balloon.Caption := 'Aplikasi Ganti IP oleh SIRS';
+ //Balloon.Content := 'This is a message notification!';
+ //Balloon.Icon := LargeImageList.Images[0]; // Set your icon here
+ Balloon.Execute;
+end;
+
+procedure TForm2.BTNInterfaceClick(Sender: TObject);
+begin
+ShellExecute(0, nil, 'cmd.exe', '/K netsh interface ipv4 show config', nil, SW_SHOW);
+end;
+
+procedure TForm2.BTNOpenDNSClick(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadDNSInterface.Text := IniFile.ReadString('DNSCONFIG', 'DNSINTERFACE', '');
+ txtLoadDNSName.Text := IniFile.ReadString('DNSCONFIG', 'DNSNAME', '');
+ txtLoadDNS1.Text := IniFile.ReadString('DNSCONFIG', 'DNS1', '');
+ txtLoadDNS2.Text := IniFile.ReadString('DNSCONFIG', 'DNS2', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNOpenIPv4Click(Sender: TObject);
+var
+ OpenDialog: TOpenDialog;
+ IniFile: TIniFile;
+begin
+ OpenDialog := TOpenDialog.Create(Self);
+ try
+ OpenDialog.Filter := 'Ini Files (*.ini)|*.ini';
+ if OpenDialog.Execute then
+ begin
+ IniFile := TIniFile.Create(OpenDialog.FileName);
+ txtLoadIPv4Interface.Text := IniFile.ReadString('IPCONFIG', 'IPv4Interface', '');
+ txtLoadIPv4Name.Text := IniFile.ReadString('IPCONFIG', 'IPv4Name', '');
+ txtLoadIPv4Address.Text := IniFile.ReadString('IPCONFIG', 'IPv4Address', '');
+ txtLoadIPv4Mask.Text := IniFile.ReadString('IPCONFIG', 'IPv4Mask', '');
+ txtLoadIPv4Gateway.Text := IniFile.ReadString('IPCONFIG', 'IPv4Gateway', '');
+ end;
+ finally
+ end;
+end;
+
+procedure TForm2.BTNResetDNSClick(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dnsservers name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+
+end;
+
+procedure TForm2.BTNResetIPv4Click(Sender: TObject);
+var
+ IPv4Interface: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" source=dhcp'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSaveDNSClick(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./DNSConfig-'+TextDNSName.Text+'.ini');
+try
+ Ini.WriteString('DNSCONFIG', 'DNSINTERFACE', TextDNSInterface.Text);
+ Ini.WriteString('DNSCONFIG', 'DNSNAME', TextDNSName.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS1', TextDNS1.Text);
+ Ini.WriteString('DNSCONFIG', 'DNS2', TextDNS2.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSaveIPv4Click(Sender: TObject);
+var
+Ini: TIniFile;
+begin
+Ini := TIniFile.Create('./IPv4Config-'+TextIPv4Name.Text+'.ini');
+try
+ Ini.WriteString('IPCONFIG', 'IPv4Interface', TextIPv4Interface.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Name', TextIPv4Name.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Address', TextIPv4Address.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Mask', TextIPv4Mask.Text);
+ Ini.WriteString('IPCONFIG', 'IPv4Gateway', TextIPv4Gateway.Text);
+finally
+ Ini.Free;
+end;
+end;
+
+procedure TForm2.BTNSetDNSEthernetClick(Sender: TObject);
+var
+ DNSInterface: string;
+ // Predefined IP configuration (replace with desired values)
+ DNS1, DNS2: string;
+begin
+ DNSInterface := txtLoadDNSInterface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ DNS1 := txtLoadDNS1.Text;
+ DNS2 := txtLoadDNS2.Text;
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set dns name="'+DNSInterface+'" source=static address=' + DNS1), nil, SW_SHOW);
+ sleep(100);
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 add dnsservers name="'+DNSInterface+'" address=' + DNS2 + ' index=1'), nil, SW_SHOW);
+ //ShellExecute(0, nil, 'cmd.exe', PChar('/C ping ' + DNS1 + ' -t'), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.BTNSetIPv4EthernetClick(Sender: TObject);
+var
+ IPv4Interface: string;
+ // Predefined IP configuration (replace with desired values)
+ IPv4Address, IPv4Mask, IPv4Gateway: string;
+begin
+ IPv4Interface := txtLoadIPv4Interface.Text;
+
+ // Input validation (optional but recommended)
+ // Check if IPv4Interface is a valid network interface name
+
+ IPv4Address := txtLoadIPv4Address.Text;
+ IPv4Mask := txtLoadIPv4Mask.Text;
+ IPv4Gateway := txtLoadIPv4Gateway.Text;
+
+ // Build the command with string formatting for readability
+ ShellExecute(0, nil, 'cmd.exe', PChar('/K netsh interface ipv4 set address name="'+IPv4Interface+'" static address=' + IPv4Address + ' mask=' + IPv4Mask + ' gateway=' + IPv4Gateway), nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm2.Panel3Click(Sender: TObject);
+begin
+BTNSetIPv4WiFi.Hide;
+BTNSetDNSWiFi.Hide;
+end;
+
+end.