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
Posts: 314
Threads: 31
Joined: Feb 2014
Reputation:
FCoin: 2ƒc
thanks gan, seukses slalu gan...
ranay, proud to be a member of ForNesia Family since Feb 2014.
Posts: 64
Threads: 2
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
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
bayek, proud to be a member of ForNesia Family since Mar 2014.
Posts: 52
Threads: 3
Joined: Jan 2014
Reputation:
FCoin: 2.09ƒc
03-30-2014, 12:02 PM
(This post was last modified: 03-30-2014, 12:02 PM by ajhecom.)
niggalin jejak no silent raeder ngakak:
Posts: 64
Threads: 2
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
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:
bayek, proud to be a member of ForNesia Family since Mar 2014.
Posts: 54
Threads: 3
Joined: Jan 2014
Reputation:
FCoin: 2.18ƒc
barong82, proud to be a member of ForNesia Family since Jan 2014.
Posts: 64
Threads: 2
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
Gimana Nie Yah Belom Ada Yang Mau Njabarin Keslahan Ane nie Kang surya
letak Keslahanya Dimana Yah Ini kang wah:
bayek, proud to be a member of ForNesia Family since Mar 2014.
Posts: 314
Threads: 31
Joined: Feb 2014
Reputation:
FCoin: 2ƒc
komponen blom di install om :blush::blush:
ranay, proud to be a member of ForNesia Family since Feb 2014.
Posts: 64
Threads: 2
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
(03-31-2014, 08:53 AM)ranay Wrote: komponen blom di install om :blush::blush:
Bdw Komponen Apah Yah Om perasaan Komponen ane Dah Lumayan Lengkap wah:
bayek, proud to be a member of ForNesia Family since Mar 2014.
Posts: 81
Threads: 9
Joined: Mar 2014
Reputation:
FCoin: 9.81ƒc
DOs Command not found gimna nih gan solusinya ?
didi.manoso, proud to be a member of ForNesia Family since Mar 2014.
Posts: 78
Threads: 7
Joined: Feb 2014
Reputation:
FCoin: 2.09ƒc
min kalo mw buat tunnel setting gimana???
ane udah uwik2 source ente malah kluar error..
[Image: tunnel_setting.png]
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_Proxifier: 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
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 ...
Posts: 314
Threads: 31
Joined: Feb 2014
Reputation:
FCoin: 2ƒc
ranay, proud to be a member of ForNesia Family since Feb 2014.
Posts: 43
Threads: 0
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
makasih gan..... ijin belajar juga
Nice share
saniarfian, proud to be a member of ForNesia Family since Mar 2014.
Posts: 70
Threads: 2
Joined: Mar 2014
Reputation:
FCoin: 2.46ƒc
sukses selalu mbah surya :P wkwkw
Posts: 61
Threads: 2
Joined: Apr 2014
Reputation:
FCoin: 2ƒc
makasih juragan mastah... ijinkan muridmu ini belajar.. 
Posts: 40
Threads: 5
Joined: Apr 2014
Reputation:
FCoin: 2ƒc
(*^L^@!X$%_)@(#I*(&^™±³²V]
Posts: 38
Threads: 3
Joined: Apr 2014
Reputation:
FCoin: 2ƒc
IJIN NDALEM MIN DELPI YA GAN, MAU DI COBA COBA
404karbala, proud to be a member of ForNesia Family since Apr 2014.
|