Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE

Cara Membaca Menulis dan Menghapus Registry Key Bajakan
Jum'at, 30 September 2016 - www.indoblog.me Tutorial ini merupakan tutorial Dasar Pemograman Delphi Tentang Implementasi Save, Edit, Delete dan Replace string di Registry Editor System Operasi Wndows dan silahkan langsung disimak tips Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE dan untuk delphi XE sendiri ada perbedaan dengn delphi 7 dan hanya saja pada tutorial ini admin akan bahas tentang dengan delphi 7 saja.

Mungkin anda pernah membuat file save dan edit maupun delete dengan inifiles, tapi tahukah bahwa regenerasi inifiles adalah registry dan dari hasil uji berapa spek yang digunakan oleh registry dan inifiles memang secara signifikan memiliki perbedaan bahkan dengan penggunaan registry lebih hemat ram komputer kita ketimbang menggunakan type inifiles.

Baca Juga: Cara Membaca Registry Public Key Pada Tunnel SSH Bitvise

Pada tutorial ini admin tidak membuat file registry windows pada form yang benar-benar kosong karena kebetulan admin menambahkan konsep ini pada sebuah software dan program yang sudah jadi yaitu pada sebuah tunneling ssh (bitvise) tapi saya asumsikan anda telah menambahkan 7 edit dan 1 buah combobox pada form delphi anda, oh iya konsep ini tidak harus selalu diterapkan pada aplikasi yang mengharuskan installer system/windows, karena contoh tutorial ini diterapkan pada aplikasi portable.

1. Biasa Buka bahasa program delphi anda lalu Pada langkah pertama silahkan tambahkan dulu uses Registry perhatikan tulisan Registry pada gambar dibawah ini;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

2. Kemudian tambahkan kode Reg : Tregistry; diatas public declarations , contohnya bisa sahabat perhatikan gambar bawah saja.

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

3. Langkah selanjutnya pada form create atau klik saja form utamanya kemudian masukan kode dibawah ini, tujuan dari form oncreate adalah ketika form di create maka file registry akan dibaca.

procedure TForm1.FormCreate(Sender: TObject);
var Value:string;
begin
 Reg := Tregistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
  Value:='\Software\Twitty Client\Server';
  try
    try
      Reg.OpenKey(Value, false);
      Edit1.text  :=Reg.ReadString('Host');
      Edit2.text  :=Reg.ReadString('Port');
      Edit3.text  :=Reg.ReadString('Username');
      Edit4.text  :=Reg.ReadString('Password');
      except on ERegistryException do
      ShowMessage('Server Read Error !');
    end;
  finally
    Reg.CloseKey;
  end;
  Value:='\Software\Twitty Client\Proxy Settings';
  try
    try
      Reg.OpenKey(Value, false);
      Edit5.text  :=Reg.ReadString('Server');
      Edit6.text  :=Reg.ReadString('Port');
      ComboBox1.text  :=Reg.ReadString('Proxy Type');
      except on ERegistryException do
      ShowMessage('Proxy Read Error !');
    end;
  finally
    Reg.CloseKey;
  end;
end;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

4. Yang keempat lalu silahkan klik Button1 atau button yang terpisah atau button tunggal agar terlihat jelas hasilnya, lalu masukan kode dibawah ini, yang dibawah ini fungsinya sebagai writenya atau menulis kode ulangnya atau replace kode/config sebelumnya;

procedure TForm1.Button2Click(Sender: TObject);
var Value:string;
begin
 Value:='\Software\Twitty Client\Server';
         try
            Reg.OpenKey(Value,true);
            Reg.WriteString('Host',Edit1.text);
            Reg.WriteString('Port',Edit2.Text);
            Reg.WriteString('Username',Edit3.text);
            Reg.WriteString('Password',Edit4.Text);
          finally
            Reg.CloseKey;
          end;
 Value:='\Software\Twitty Client\Proxy Settings';
         try
            Reg.OpenKey(Value,true);
            Reg.WriteString('Server',Edit5.text);
            Reg.WriteString('Port',Edit6.Text);
            Reg.WriteString('Proxy Type',ComboBox1.text);
          finally
            Reg.CloseKey;
          end;
    MessageDlg('Config Save Success !', mtInformation,[mbOk], 0);
end;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

5. Kemudian silahkan run hasilnya, kemudian silahkan coba masuk ke RUN > WINDOWS > ketik REGEDIT lalu masuk ke HKEY_CURRENT_USER > Software\Twitty Client maka hasilnya akan nampak seperti pada gambar dibawah ini;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

6. Penjelasan tambahan; Twitty Client bisa anda ganti dengan nama aplikasi yang anda miliki dan nama Server dan Proxy Settings bisa anda ganti juga sesuai dengan nama directory yang ingin dan akan anda buat, dan yang terpenting read writenya sama saja dan silahkan dipelajari kembali, jika anda kendala silahkan ditanyakan saja. :D

Oh iya jika kebetulan anda menambahkan komponen checkbox dan radiobutton silahkan gunakan readbool/writebool saja bukan readstring/writestring karena komponen tersebut bukan bertype string simplenya begitu saja.

Ok guys sekian tutorial Singkat kali ini Tentang Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE Terbaru 2016 semoga bisa menjadi anda sebagai calon programmer handal dan berguna bagi orang lain, Wassalam.

Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi

Panduan Dasar Pemograman Delphi Terbaru 2016
Jum'at, 30 September 2016 - www.indoblog.me Perkembangan tekhnologi memang semakin menarik untuk dipelajari baik dari segi manfaat dan kegunaannya maupun yang lainnya dan salah satu topik yang menarik yang akan dibahas kali ini adalah tentang Bagaimana Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi , Kenapa kita harus membaca dan menulis ulang kodenya, seperti yang kita ketahui bahwa aplikasi terbaik adalah yang tidak memakan reseources ram dan contohnya adalah penggunaan inifiles sebenarnya lebih ringan menggunakan registry langsung dalam penyimpanan datanya, tetapi kesalahan dalam pengeditan registry juga bisa berakibat fatal pada system operasi kita.

Dalam sebuah induk komputer registry bisa dibilang database utamanya komputer karena hampir semua pengaturan otaknya ada disana diibaratkan manusia, registry itu otaknya manusia, bahkan yang paling fatal adalah ketika virus menginfeksi registry bahkan kegagalan registry bisa mengakibatkan system failure dan harus instal ulang jika sampai tidak bisa di restore.

Baca Juga: Cara Membuat Password Char Di Delphi Mudah dan Simple

Disini admin ingin berbagi tentang membaca registry yang digunakan oleh aplikasi bitvise terutama untuk penyimpanan hostkeynya, untuk masuk registry silahkan pada windows ketik saja "regedit" dan disini admin akan berikan gambaran mudah-mudahan ada yang mau meneruskan implementasi ini terutama bagi yang hobi ngoprek internet gratis :D

Untuk pengujiannya silahkan buka delphi anda lalu tambahkan uses Registry, kemudian silahkan tambahkan variable baseRegistry : String; pada form utama lalu kemudian silahkan tambahkan kode dibawah ini tepat dibawah {$R *.dfm}

Function ReadRegistry (regKey,fieldTeks : String) : string;
Var
Reg : TRegistry;
path : String;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\Bitvise\HostKeys';
if OpenKey(regKey,true) then
begin
if ValueExists(fieldTeks) then
result := ReadString(fieldTeks)
end
else
CloseKey;
end;
end;

Procedure WriteRegistry(keyReg,fieldTeks,valueTeks : String);
Var
Reg : TRegistry;
path : String;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\Bitvise\HostKeys';
if OpenKey(keyReg,true) then
Writestring(fieldTeks,valueTeks)
else
CloseKey;
end;
end;

Kemudian silahkan pada oncreate form utama silahkan masukan kode dibawah ini; yang dimana ini adalah fungsi untuk membacanya;

baseRegistry := ReadRegistry('\Software\Bitvise\HostKeys','HostKeys -hostKeyMD5='' -hostKeyBB='' -hostKeyFile=''  ');

Kemudian pada pembacaaannya anda bisa panggil lewat button atau lewat kondisi yang lainnya tergantung pola yang anda inginkan tetapi admin taruhlah dengan button saja;

WriteRegistry('\Software\Bitvise\HostKeys','HostKeys -hostKeyMD5='' -hostKeyBB='' -hostKeyFile='' ',baseRegistry);

Yang anda harus perhatikan adalah 3 kode dibawah ini, ketika anda pertama kali login bitvise maka anda akan menemukan 3 kode dibawah ini dan silahkan dikembangkan kembali.

-hostKeyMD5='ISI KODE'
-hostKeyBB=ISI KODE'
-hostKeyFile=ISI KODE'

Sumber Referensi Tulisan: bitvise.com/files/sftpc-v6.00-usage.txt

Baca Juga: Cara Membuat File Regsitry Sendiri Pada System Operasi Windows Dengan Delphi

Hanya Itu dulu info dengan Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi semoga bermanfaat dan membantu dan selamat bereksperimen ria and happy coding.

Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise)

Jum'at , 30 September 2016 - www.indoblog.me Kali ini Mimin Hanya Mau shareing Tentang Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise) Terbaru 2016, tutorial ini lebih tepatnya adalah kelanjutan dari tutorial sebelumnya yaitu Contoh Kode Program Save Edit Otomatis di Delphi oke dan yang dimana bagi anda yang kebetulan ingin membuat kode program agar setiap teks yang tertulis pada edit bisa menjadi bintang saat program di jalankan atau lebih tepatnya ketika tombol/button dijalankan dan contohnya bisa anda lihat pada gambar dibawah ini saja.

Tutorial Dasar Pemograman Pascal dan Delphi Berbahasa Indonesia

Dan jika anda perhatikan pada gambar diatas maka setiap input text di komponen edit akan berubah menjadi bintang dan silahkan langsung saja buka project anda yang sudah dibuat sebelumnya, dan saya asumsikan bahwa di project anda ada 7 Edit kemudian silahkan langsung saja klik tombol/Button1 , dan pastikan anda mengikuti tutorial ini sebelumnya agar tidak salah dalam mengisikan kodenya dan dibawah ini saya berikan kode lengkapnya saja silahkan dipelajari.

Tutorial Dasar Pemograman Pascal dan Delphi Berbahasa Indonesia

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Login' then begin
    Button1.Caption := 'Stop';
    openbitvise;
    openproxifier;
    Button2.Click;
    Edit1.PasswordChar := '*';
    Edit2.PasswordChar := '*';
    Edit3.PasswordChar := '*';
    Edit4.PasswordChar := '*';
    Edit5.PasswordChar := '*';
    Edit6.PasswordChar := '*';
    Edit1.Enabled:=False;
    Edit2.Enabled:=False;
    Edit3.Enabled:=False;
    Edit4.Enabled:=False;
    Edit5.Enabled:=False;
    Edit6.Enabled:=False;
    ComboBox1.Enabled:=False;
  end else
  begin
   closebitvise;
   closeproxifier;
   Edit1.PasswordChar := #0;
    Edit2.PasswordChar := #0;
    Edit3.PasswordChar := #0;
    Edit4.PasswordChar := #0;
    Edit5.PasswordChar := #0;
    Edit6.PasswordChar := #0;
    Edit1.Enabled:=True;
    Edit2.Enabled:=True;
    Edit3.Enabled:=True;
    Edit4.Enabled:=True;
    Edit5.Enabled:=True;
    Edit6.Enabled:=True;
    ComboBox1.Enabled:=True;
    Button1.Caption := 'Login';
  end;
end;

Jika sebelumnya anda mengikuti tutorial ini maka akan ditemukan kesamaan dari kode kode diatas tetapi yang terpenting dari pembuatan password char adalah perhatikan tanda * dan #0 dan silahkan dipelajari atau di teliti dan perhatikan kembali perbedaannya setidaknya anda paham cara penempatan dari posisinya saja.

Baca Juga: Cara Membaca dan Menulis Ulang Registry System Windows Dengan Delphi

Ok Guys sekian tutorial tentang Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise) Terbaru 2016 semoga bermanfaat dan membantu dan wassalam, "happy coding". :D

Coding Program Add Insert Edit Delete Save Otomatis di Delphi (CMD Bitvise)

Contoh Pemograman Simpan dan Hapus String di Delphi
Kamis, 29 September 2016 - www.indoblog.me Tutorial Coding Program Add Insert Edit Delete Save Otomatis di Delphi (CMD Bitvise) ini hanya sekedar melanjutkan dari tutorial sebelumnya yaitu Cara Membuat Tunnel CMD Bitvise Terbaru 2016 mungkin dari sahabat sahabat semuanya ada yang ingin membuat tunnel tersebut ketika data diisikan dan diinputkan maka sahabat tidak perlu susah-susah untuk menginputkan atau mengisi ulang secara manual karena setiap data yang dimasukan maka sudah bisa otomatis disimpan secara otomatis.

Pada konsep penyimpanan data ini sebenarnya banyak caranya, apakah data akan disimpan setelah button dijalankan, atau data akan disimpan sewaktu program close atau anda bisa pasangkan pada fungsi yang lainnya atau tergantung keperluan, dan pada tutorial ini admin akan mencoba menyimpan data ketika tombol "Start" dijalankan, ini hanyalah tutorial dari keberapa tentang save, edit, delete karena tahun tahun sebelumnya juga sudah pernah dibahas yang disini dimana hanya kebutuhan untuk tunnel cmd bistvise yang sudah dibahas sebelumnya.

Okelah langsung saja simak tips cara menyimpan config secara otomatis di command prompt bitvise (cmd bitvise) dan coding ini tentunya bisa anda kembangkan ke program yang lainnya, silahkan disimak coding dasarnya.

1. Yang pertama silahkan buka project anda yang sudah anda buat dan disini saya asumsikan bahwa di project anda sudah ada 7 komponen edit dan 1 combobox yang dimana komponen ini bertype string misalkan anda ingin menyimpan untuk checkbox maka perintah baca tulis codingnya berbeda dengan ini, nanti dibawah akan saya beri gambarannya;

Silahkan tambahkan 1 buah button, saya asumsikan button yang baru ditambahkan bernama "button2" kemudian captionnya ganti menjadi "Save" lalu visible ganti menjadi "false" tujuannya ketika di run maka button2 ini tidak akan nampak atau tidak terlihat di form.

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

2. Yang kedua kemudian tambahkan dulu uses IniFiles contohnya bisa perhatikan gambar saja;

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

3. Yang ketiga kemudian silahkan tambahkan variable saveconfig: TiniFile; tepat diatas implementation contoh penerapannya bisa anda perhatikan gambar saja;

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

4. Yang keempat kemudian silahkan double klik form1 lalu masukan kode dibawah ini; tujuannya data akan dibaca ketika form di oncreate.

if Button2.Caption = 'Save' then begin
    saveconfig := TIniFile.Create(GetCurrentDir+'\Bin\Default.cfg');
    edit1.Text := saveconfig.ReadString('Config', '01', Edit1.Text);
    edit2.Text := saveconfig.ReadString('Config', '02', Edit2.Text);
    edit3.Text := saveconfig.ReadString('Config', '03', Edit3.Text);
    edit4.Text := saveconfig.ReadString('Config', '04', Edit4.Text);
    edit5.Text := saveconfig.ReadString('Config', '05', Edit5.Text);
    edit6.Text := saveconfig.ReadString('Config', '06', Edit6.Text);
    ComboBox1.Text := saveconfig.ReadString('Config', '07', ComboBox1.Text);
    end else

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

5. Yang kelima klik button2 tadi yang captionnya sudah diubah menjadi "Save" lalu masukan kode dibawah ini, yang dimana ini adalah kode untuk menulisnya;

 if Button2.Caption = 'Save' then begin
    saveconfig := TIniFile.Create(GetCurrentDir+'\Bin\Default.cfg');
    saveconfig.WriteString('Config', '01', Edit1.Text);
    saveconfig.WriteString('Config', '02', Edit2.Text);
    saveconfig.WriteString('Config', '03', Edit3.Text);
    saveconfig.WriteString('Config', '04', Edit4.Text);
    saveconfig.WriteString('Config', '05', Edit5.Text);
    saveconfig.WriteString('Config', '06', Edit6.Text);
    saveconfig.WriteString('Config', '07', ComboBox1.Text);
    end else

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

6. Yang terakhir karena kode menulisnya atau write berada pada onclick Button2 dan button tersebut sudah kita  hide/visible= false maka disini admin mencoba menyimpan kode write tersebut dengan Button2.Click;  disimpan pada tombol Login Tunnel dan anda bisa menyimpan konsep ini pada onclose form1 atau tergantung kebutuhan saja.

Cara Membuat Program Sederhana Dengan Delphi Untuk Pemula

Yang terakhir silahkan dicoba di run atau di edit data data pada edit edit di project tersebut kemudian silahkan anda coba lihat hasilnya apakah config anda sudah tersimpan setiap kali tombol login click, dan untuk pengembangan lainnya silahkan di coba-coba saja.

Oh iya dan untuk yang bukan bertype string misal checkbok maka kode baca tulisnya adalah misalkan jika anda ingin menambahkannya ke yang diatas menjadi:

//--------------------------------Kode Baca------------------
CheckBox1.Checked := saveconfig.ReadBool('Config', '08', CheckBox1.Checked);
RadioButton1.Checked := saveconfig.ReadBool('Config', '09', RadioButton1.Checked);

//--------------------------------Kode Tulis-------------------
saveconfig.WriteBool('Config', '08', CheckBox1.Checked);
saveconfig.WriteBool('Config', '09', RadioButton1.Checked);

Tutorial Selanjutnya: Cara Menambahkan Password Char Pada Tunnel CMD Bitvise

Ok Guys hanya itu dulu info dengan Contoh Coding Program Add Insert Edit Delete Save Otomatis di Delphi (CMD Bitvise)Terbaru 2016 semoga apa yang sudah disampaikan bisa bermanfaat dan atas kunjungannya kami ucapkan terima kasih dan wassalam.

Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect

SSH Tunneling Networking 2016
Kamis, 29 September 2016 - www.indoblog.me Sehubung mimin masih sakit sebenarnya masih males ngepost dan agak bingung juga mau ngepost apa, dan ya sudahlah mimin mau kasih Tips Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect sebenarnya tutorial ini sudah dibahas di beberapa pekan lalu hanya saja tunnel CMD Bitvise yang dishareing tidak bisa auto rekonek dengan artian ketika ssh disconnect maka tidak bisa konek ulang, maka di tutorial ini mimin akan kasih listing coding yang auto reconnect yang dimana tutorial ini juga yang sudah admin gunakan pada fiture VHE X6 pada vhe tunnel nah tunnel cmd bitvise inilah yang admin gunakan pada tools tersebut.

Dan untuk versi yang pertama dengan artian pembuatan CMD Bitvise yang pertama bisa anda baca di Cara Bikin Tunnel CMD Bitvise Terbaru 2016 ok dan tutorial ini adalah dengan fiture reconnectnya dan silahkan anda bisa langsung mengikuti pembuatan tunnel ini.

Baca Juga: Cara Membuat Android Virtual Device (AVD) Manager Terbaru 2016

Bahan-bahan yang diperlukan untuk membuat tunnel ssh cmd bitvise ini sangat sederhana yaitu; Bahasa program delphi7 Lite Edition yaitu versi delphi 7 terakhir dan file Bin, dan yang dimana didalam file bin sudah terdapat file proxifier dan virtual stnlc / cmd bitvise yang versi 7.14 untuk file bin nanti bisa anda cek dibawah.

1. Pertama buka Delphi anda kemudian silahkan tambahkan 3 Groupbox, 1 Memo, 7 Label, 6 Edit, 1 Combobox, 1 Button, 1 Doscommand dan desain kira-kira seperti pada gambar dibawah ini;

Cara Buat Tunnel SSH Gratis Terbaru 2016

2. Yang kedua kemudian silahkan ubah nama-namanya kira-kira seperti pada gambar dibawah ini kemudian pada items combobox tambahkan kode:

HTTP
SOCKS5
SOCKS4

Cara Buat Tunnel SSH Gratis Terbaru 2016

3. Yang ketiga kemudian pada uses silahkan tambahkan  TlHelp32, ShellAPI contohnya bisa anda perhatikan pada gambar dibawah ini;

Cara Buat Tunnel SSH Gratis Terbaru 2016

4. Yang keempat kemudian lalu dibawah {$R *.dfm} tambahkan kode dibawah ini;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
    CloseHandle(FSnapshotHandle);
end;


Cara Buat Tunnel SSH Gratis Terbaru 2016

5. Yang kelima buat procedure sendiri silahkan tambahkan procedure ini; dan untuk menggenerate procedure tekan CTRL+SHIFT+C

    procedure openbitvise;
    procedure closebitvise;
    procedure openproxifier;
    procedure closeproxifier;

Cara Buat Tunnel SSH Gratis Terbaru 2016

6. yang keenam pada procedure TForm1.closebitvise; tambahkan kode dibawah ini;

if processExists('Bitvise.exe') then begin
 KillTask('Bitvise.exe');
 end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

7. Yang ketujuh kemudian pada procedure TForm1.openbitvise; silahkan tambahkan kode dibawah ini;

DosCommand1.CommandLine := ExtractFilePath(Application.Exename)+'Bin\Bitvise.exe '+Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType='+ComboBox1.Text+' -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';
  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.Execute;

Cara Buat Tunnel SSH Gratis Terbaru 2016

8. Yang kedelapan kemudian double klik pada doscommandnya lalu tambahkan kode dibawah ini;

 if (pos('Error',NewLine)>0) or (pos('ERROR',NewLine)>0) then begin
   DosCommand1.CommandLine := ExtractFilePath(Application.Exename)+'Bin\Bitvise.exe '+Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType='+ComboBox1.Text+' -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';
   DosCommand1.Execute;
   Memo1.Lines.Add(newline);
   Sleep(10);
   Memo1.Clear;
    end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

9. Yang kesembilan lalu pada procedure TForm1.openproxifier; silahkan tambahkan kode dibawah ini;

var
    Pf, Pf_dir :String;
begin
  pf := 'Bin\Proxifier.exe';
      Pf_dir:='Bin\Profiles\Profiles.ppx silent-load';
      shellexecute(handle,'open',pchar(Pf),pchar(Pf_dir),nil,sw_hide);

Cara Buat Tunnel SSH Gratis Terbaru 2016

10. Yang kesepuluh lalu pada procedure TForm1.closeproxifier; tambahkan kode dibawah ini;

if processExists('Proxifier.exe') then begin
 KillTask('Proxifier.exe');
 end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

11. Yang kesebelas lalu double klik Button1 lalu tambahkan kode dibawah ini;

if Button1.Caption = 'Login' then begin
    Button1.Caption := 'Stop';
    openbitvise;
    openproxifier;
  end else
  begin
   closebitvise;
   closeproxifier;
    Button1.Caption := 'Login';
  end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

12. Yang kedua belas klik pada memo lalu tambahkan kode dibawah ini;

 if Memo1.Lines.Count = 100 then
    Memo1.Clear;

Cara Buat Tunnel SSH Gratis Terbaru 2016

13. Yang terakhir silahkan build dan test hasil project sahabat lalu untuk file bin silahkan simpan dan sejajarkan dengan projectnya dan untuk file bin bisa anda unduh DISINI atau DISINI silahkan kembangkan dan pelajari kembali agar lebih sempurna hasilnya.

Cara Buat Tunnel SSH Gratis Terbaru 2016

Itulah beberapa tahapan tentang cara membuat Tunnel CMD Bitvise untuk anda dan sebenarnya admin sudah menemukan formula baru agar registry menyimpan hasil key public jadi tidak tidak perlu menyimpan file key public lewat tunnel bitvise originalnya nanti akan kita coba bahas kembali, karena belum ada 1 tutorial pun yang membahas tentang menyimpan registry bitvise via cmd bitvise, jadi bagi sahabat yang ingin copy paste artikel dimohon memberikan sumber aslinya dan hargai setiap para pembuatnya.

Bagi sahabat yang ingin agar confignya bisa disimpan secara otomatis sahabat bisa baca panduannya di: Cara Buat Coding Save Edit Delete Untuk Program Delphi 7

Sekiranya itu saja dulu tutorial tentang Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect Terbaru 2016 semoga apa yang sudah disampaikan bermanfaat dan terima kasih, Wassalam.