Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

[Share] F-Tunnel MultiSSH Launcher Source Code

#1
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
[Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register]
Reply
#2
thanks gan, seukses slalu gan...
ranay, proud to be a member of ForNesia Family since Feb 2014.
Reply
#3
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.
Reply
#4
niggalin jejak no silent raeder ngakak:
Reply
#5
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.
Reply
#6
kok muncul gini ya om pas ane run
[Only registered and activated users can see links Click here to register]
barong82, proud to be a member of ForNesia Family since Jan 2014.
Reply
#7
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.
Reply
#8
komponen blom di install om :blush::blush:
ranay, proud to be a member of ForNesia Family since Feb 2014.
Reply
#9
(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.
Reply
#10
DOs Command not found gimna nih gan solusinya ?
didi.manoso, proud to be a member of ForNesia Family since Mar 2014.
Reply
#11
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_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.
Reply
#12
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 ketawaaa ...

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 ketawaaa

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 ...
[Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register]  |  [Only registered and activated users can see links Click here to register]
Reply
#13
work om, thanks om...
ranay, proud to be a member of ForNesia Family since Feb 2014.
Reply
#14
makasih gan..... ijin belajar juga
Nice share
saniarfian, proud to be a member of ForNesia Family since Mar 2014.
Reply
#15
sukses selalu mbah surya :P wkwkw
Reply
#16
makasih juragan mastah... ijinkan muridmu ini belajar.. ketawaaa
Reply
#17
iya nie om yg ini scnya gimn
[Only registered and activated users can see links Click here to register]
(*^L^@!X$%_)@(#I*(&^™±³²V]
Reply
#18
IJIN NDALEM MIN DELPI YA GAN, MAU DI COBA COBA
404karbala, proud to be a member of ForNesia Family since Apr 2014.
Reply
  


Possibly Related Threads…
Thread Author Replies Views Last Post
  [SHARE] ForNesia Http Injector Source Code ForNesiaFreak 12 3,929 08-18-2021, 08:22 PM
Last Post: paijogalau
  [SHARE] Source Code Check Update Delphi ForNesiaFreak 10 2,743 09-30-2019, 09:44 AM
Last Post: avifornesia