[ForNesiaFreak]

F-Tunnel MultiSSH Launcher Source Code Karena saya dah janji mau share sourcenya sekarang saya akan share F-Tunnel MultiSSH Launcher Source Code Delphi.. Silahkan amati coding nya trus kembangkan lagi

Disini trit projek yang dah jadi
[Only registered and activated users can see links Click here to register]

[Only registered and activated users can see links Click here to register]

Download :

Code:

http://www.tusfiles.net/3dynlvcb79gv

[ranay]

thanks gan, seukses slalu gan...

[bayek]

Ninggalin Jejak dulu Dari pada Maen Comot ajh
Kalao main Comot kagak Komen Itu Juga namanya Maling ngakak:
Oiyahhh Om niee apa Masih Nguwikk lagi yah om ??
soalnya Kalao masalah Pemograman Mbak devi ane masih Jauh dibawah rata rata wah:
Bdw Nice Share Yah Om

[ajhecom]

niggalin jejak no silent raeder ngakak:

[bayek]

Om Om Nie Kenapa Yah Waktu ane Run Kok keluar Begonoaannn
[Only registered and activated users can see links Click here to register] [Only registered and activated users can see links Click here to register]" border="0" alt="resim" onload="NcodeImageResizer.createOn(this);" />
Ternyata Save and Loadnya Masih Belum Berfungsi Juga bingungs:
masih Perlu Pengembangan Lagi Nie kayaknya happy:

[barong82]

kok muncul gini ya om pas ane run
[Only registered and activated users can see links Click here to register]

[bayek]

Gimana Nie Yah Belom Ada Yang Mau Njabarin Keslahan Ane nie Kang surya
letak Keslahanya Dimana Yah Ini kang wah:

[ranay]

komponen blom di install om :blush::blush:

[bayek]

komponen blom di install om :blush::blush:

Bdw Komponen Apah Yah Om perasaan Komponen ane Dah Lumayan Lengkap wah:

[didi.manoso]

DOs Command not found gimna nih gan solusinya ?

[smoz]

min kalo mw buat tunnel setting gimana???
ane udah uwik2 source ente malah kluar error..

[Image: tunnel_setting.png]

source tunnel ane

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ShellApi, Tlhelp32, Sockets, Inifiles;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
GroupBox2: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit5: TEdit;
Edit6: TEdit;
ComboBox1: TComboBox;
CheckBox1: TCheckBox;
Button1: TButton;
SAVE: TButton;
LOAD: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SSHLauncher;
procedure Button1Click(Sender: TObject);
procedure SAVEClick(Sender: TObject);
procedure LOADClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyIni: Tinifile;

implementation

{$R *.dfm}

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;

procedure TForm1.SSHLauncher;
var
HostP,PortP,UserP,PassP,ProxyP,Proxy_PortP,Param,Bitvise,Proxifier,P_Bitvise,P_P​roxifier: string;
begin
HostP:=Edit1.Text;
PortP:=Edit2.Text;
UserP:=Edit3.Text;
PassP:=Edit4.Text;
ProxyP:=Edit5.Text;
Proxy_PortP:=Edit6.Text;

If checkbox1.Checked=False then
begin
param:=' -host='+HostP+' -port='+PortP+' -loginOnStartup'+
' -username='+UserP+' -password='+PassP+' -menu=small';
end

else if checkbox1.Checked=true then
begin
param:=' -host='+HostP+' -port='+PortP+' -loginOnStartup'+
' -username='+UserP+' -password='+PassP+' -proxy=y -proxyType='+Combobox1.Text+' -ProxyServer='+ProxyP+' -ProxyPort='+Proxy_PortP+' -menu=small';
end;

Bitvise:='Tools\Bitvise\BvSSh.exe';
P_Bitvise:=' -profile=Tools\Bitvise\CONFIG.bscp'+param;
Proxifier:='Tools\Proxifier\Proxifier.exe';
P_Proxifier:='Tools\Proxifier\Profiles\CONFIG.ppx silent-load';

shellexecute(handle,'open',pchar(Bitvise),pchar(P_Bitvise),nil,sw_hide);
shellexecute(handle,'open',pchar(Proxifier),pchar(P_Proxifier),nil,sw_hide);
Button1.Caption:='STOP';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
killtask('BvSSH.exe');
killtask('Proxifier.exe');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If Button1.Caption='CONNECT' then
begin
killtask('BvSSH.exe');
killtask('Proxifier.exe');
SSHLauncher;
end

else
begin
killtask('BvSSH.exe');
killtask('Proxifier.exe');
Button1.Caption:='CONNECT';
end;
end;

procedure TForm1.SAVEClick(Sender: TObject);
begin
MyIni := TIniFile.Create(GetCurrentDir+'\setting.dat');
Myini.WriteString('SETTING', 'Host', edit1.Text);
myini.WriteString('SETTING', 'Port', edit2.Text);
myini.WriteString('SETTING', 'Username', edit3.Text);
myini.WriteString('SETTING', 'Password', edit4.Text);
myini.WriteString('SETTING', 'P_Server', edit5.Text);
myini.WriteString('SETTING', 'P_Port', edit6.Text);
myini.WriteString('SETTING', 'P_Type', combobox1.Text);
end;

procedure TForm1.LOADClick(Sender: TObject);
begin
myini := tinifile.Create(Getcurrentdir+'\setting.dat');
edit1.Text:= myini.ReadString('SETTING', 'Host', edit1.Text);
edit2.Text:= myini.ReadString('SETTING', 'Port', edit2.Text);
edit3.Text:= myini.ReadString('SETTING', 'Username', edit3.Text);
edit4.Text:= myini.ReadString('SETTING', 'Password', edit4.Text);
edit5.Text:= myini.ReadString('SETTING', 'P_Server', edit5.Text);
edit6.Text:= myini.ReadString('SETTING', 'P_Port', edit6.Text);
combobox1.Text:= myini.ReadString('SETTING', 'P_Type', combobox1.Text);
end;

end.

[ForNesiaFreak]

maaf sebelumnya buat yang lain .. saya baru hari ini ol setlah lama ga bisa2 ol karena kesibukan .. errornya karena doscomand componen kaga ada om .. tp perasaan saya ga pake itu dah ...

ini kalau mau dan butuh doscmd nya

Code:

http://www.datafilehost.com/d/eb7bcdc5

taruh di lib trus install..

Source yg ane share sudah complte sekomplit komplitnya tidak harus diuwik2 lagi .. saya share asli source yang program jadinya saya share disini juga .. seharusnya bisa work langsung :P

@smoz maaf mastah saya baru ol .. susah jelasinya om

source saya gaisa dibuka ya untuk form settingnya ? errornya apa sama gara2 doscomand dcu ?? itu sudah saya upload diatas coba pake itu om ..


jika masih error ditunggu laporanya lagi ...

[ranay]

work om, thanks om...

[saniarfian]

makasih gan..... ijin belajar juga
Nice share

[Kizuma Wa]

sukses selalu mbah surya :P wkwkw

[fanky_suga]

makasih juragan mastah... ijinkan muridmu ini belajar..

[LXIV]

iya nie om yg ini scnya gimn
[Only registered and activated users can see links Click here to register]

[404karbala]

IJIN NDALEM MIN DELPI YA GAN, MAU DI COBA COBA