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
http://www.fornesia.com/Thread-Share-F-T...ncher-v1-0



Download :

thanks gan, seukses slalu gan...

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

niggalin jejak no silent raeder ngakak:

Om Om Nie Kenapa Yah Waktu ane Run Kok keluar Begonoaannn
how do you print screen" alt="تصویر: how do you print screen" title="تصویر: how do you print screen" />
Ternyata Save and Loadnya Masih Belum Berfungsi Juga bingungs:
masih Perlu Pengembangan Lagi Nie kayaknya happy:

kok muncul gini ya om pas ane run

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

komponen blom di install om :blush::blush:

(03-31-2014 09:53 AM)ranay Wrote:  komponen blom di install om :blush::blush:

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

DOs Command not found gimna nih gan solusinya ?

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



source tunnel ane

Quote: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.

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


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 ...

work om, thanks om...

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

sukses selalu mbah surya :P wkwkw