kali ini saya akan berbagi Cara membuat multi SSH atau Tunnel SSH..
apa tunnel ssh itu ..?? tunnel SSH itu alat/tool yg mempermudah untuk mengkoneksikan internet percuma atau limitkan quata menggunakan SSH ( secure shell )..
terus saja tak payah tunggu'' ini caranya...
1. Buka software delphi 7
2. tambahkan " Uses " seperti beikut : " Tlhelp32, ShellApi, Sockets " ,
setelah di tambahkan jadinya seperti gambar di bawah ini :
3. kita tambahkan function KillTask buat close/kill Proxifier jika kita menekan tombol Stop/Logout dengan memasukan code di bawah ini :
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;
4. tambahkan komponen-komponen seperti di bawah ini :
*2 komponen Button
*7 komponen Edit
*6 komponen Label
*1 komponen CheckBox
*3 komponen RadioButton
dan jadinya seperti gambar di bawah ini :
5. kita bagi code untuk masing-masing komponen :
- pada komponen Button1 agan kasih caption " Login " atau terserah anda,
var
HostSSH,PortSSH,UserSSH,PassSSH,ProxySSH,lportSSH,loginSSH,loginSSH1,ptype,Bitvise,akunSSH1,akunSSH2,akunSSH3,akunSSH4:String;
begin
UserSSH:= edit1.Text;
PassSSH:= edit2.Text;
HostSSH:= edit3.Text;
PortSSH:= edit4.Text;
ProxySSH:= edit5.Text;
lportSSH:= edit6.Text;
ptype := edit7.Text;
begin
edit1.Enabled := False;
edit2.Enabled := False;
edit3.Enabled := False;
edit4.Enabled := False;
if Checkbox1.Checked then
begin
Edit5.Enabled := False;
edit6.Enabled := False;
Edit7.Enabled := False;
loginSSH:=' -host='+HostSSH+' -port='+PortSSH+' -loginOnStartup'+ ' -username='+UserSSH+' -password='+PassSSH+' -proxy=y -proxyType='+ptype+' -ProxyServer='+ProxySSH+' -ProxyPort='+lportSSH+' -menu=small';
end;
if RadioButton1.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\1080.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
end
else
if RadioButton2.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\Profiles\1080.bscp'+loginSSH; //1080-1083 adlh nama profile bitvise client
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\Profiles\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
akunSSH3:=' -profile=Bitvise\Profiles\1082.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH3),nil,sw_hide);
end
else
if RadioButton3.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\Profiles\1080.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\Profiles\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
akunSSH3:=' -profile=Bitvise\Profiles\1082.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH3),nil,sw_hide);
akunSSH4:=' -profile=Bitvise\Profiles\1083.bscp'+loginSSH1;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH4),nil,sw_hide);
end;
if RadioButton1.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\2Akun.ppx silent-load'),NIL,SW_HIDE); //2Akun adalah nama profile Proxifier
end
else
if RadioButton2.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\3Akun.ppx silent-load'),NIL,SW_HIDE); //3Akun adalah nama profile Proxifier
end
else
if RadioButton3.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\4Akun.ppx silent-load'),NIL,SW_HIDE); //4Akun adalah nama profile Proxifier
end;
end;
- pada komponen Button2 agan kasih caption " Logout " atau terserah anda,
Edit1.Enabled := True;
edit2.Enabled := True;
edit3.Enabled := True;
edit4.Enabled := True;
if CheckBox1.Checked then
begin
Edit7.Enabled := True;
edit5.Enabled := True;
edit6.Enabled := True;
end;
killtask('BvSSH.exe'); //code kill
killtask('Proxifier.exe');
6. beri caption dan nama pada masing-masing komponen :
Label1 : anda kasih caption [ Username ] atau terserah anda
Label2 : anda kasih caption [ Password ]atau tererah anda
Label3 : anda kasih caption [ Proxy ] atau terserah anda
Label4 : anda kasih caption [ Port ] atau terserah anda
Label5 : anda kasih caption [ Host ] atau terserah anda
Label6 : anda kasih caption [ Port ] atau terserah anda
CheckBox1 : anda kasih caption [ Use Proxy ] atau terserah anda
RadioButton1 : anda bisa kasih caption [ Masuk 2 Akun ] atau terserah anda
RadioButton2 : anda bisa kasih caption [ Masuk 3 Akun ] atau terserah anda
RadioButton3 : anda bisa kasih caption [ Masuk 4 Akun ] atau terserah anda
Kemudian.....anda kasih Text/tulisan [ " http " ] pada komponen " Edit7 "
dan jadinya seperti gambar di bwah ini :
7. kemudian anda " SAVE ALL " project Tunnel SSH ,
ke folder Tunnel SSH yg bole anda download di bawah :Multi SSH
8. sekarang anda test project Tunnel SSH
sekian ..dulu dari post kali ini.....
jika ada sesuatu yg belum anda tau atau maksud tinggal koment......
atau jika ada Eror dalam code tinggal coment..aja
Wassalamu'alaikum............
Sign up here with your email
1 komentar:
Write komentargimana nih cara ngatasinya? http://prntscr.com/7k4sym
ReplyConversionConversion EmoticonEmoticon