Current time: 01-18-2018, 01:12 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] F-Tunnel MultiSSH Launcher Source Code

03-30-2014 01:03 AM F-Tunnel MultiSSH Launcher Source Code
#1


ForNesiaFreak Away
Fake Admin
Lightning Immortals
***

Posts: 1,419
Joined: Jan 2014

Reputation:

FCoin: 28,761.40ƒc

Wing of ForNesiaExtreme StaffTrusted Person
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

[Image: 4zi7b3oq7nn8_t.jpg]

Download :

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

mling
03-30-2014 09:19 AM RE: F-Tunnel MultiSSH Launcher Source Code
#2


ranay Away
ForNesia Family
Registered
*

Posts: 314
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
thanks gan, seukses slalu gan...

ranay, proud to be a member of ForNesia Family since Feb 2014.
03-30-2014 12:56 PM RE: F-Tunnel MultiSSH Launcher Source Code
#3


bayek Away
HunteR
HunteR
*

Posts: 64
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒ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.
03-30-2014 01:02 PM RE: F-Tunnel MultiSSH Launcher Source Code
#4


ajhecom Away
HunteR
HunteR
*

Posts: 52
Joined: Jan 2014

Reputation:

FCoin: 2.09ƒc
niggalin jejak no silent raeder ngakak:
(This post was last modified: 03-30-2014 01:02 PM by ajhecom.)
03-30-2014 01:10 PM RE: F-Tunnel MultiSSH Launcher Source Code
#5


bayek Away
HunteR
HunteR
*

Posts: 64
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
Om Om Nie Kenapa Yah Waktu ane Run Kok keluar Begonoaannn
[img][Image: Screenshot_1.jpg] how do you print screen[/img]
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.
03-30-2014 01:16 PM RE: F-Tunnel MultiSSH Launcher Source Code
#6


barong82 Away
HunteR
HunteR
*

Posts: 54
Joined: Jan 2014

Reputation:

FCoin: 2.18ƒc
kok muncul gini ya om pas ane run
[Image: image.jpg]

barong82, proud to be a member of ForNesia Family since Jan 2014.
03-30-2014 04:21 PM RE: F-Tunnel MultiSSH Launcher Source Code
#7


bayek Away
HunteR
HunteR
*

Posts: 64
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒ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.
03-31-2014 09:53 AM RE: F-Tunnel MultiSSH Launcher Source Code
#8


ranay Away
ForNesia Family
Registered
*

Posts: 314
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
komponen blom di install om :blush::blush:

ranay, proud to be a member of ForNesia Family since Feb 2014.
03-31-2014 10:08 AM RE: F-Tunnel MultiSSH Launcher Source Code
#9


bayek Away
HunteR
HunteR
*

Posts: 64
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
(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:

bayek, proud to be a member of ForNesia Family since Mar 2014.
03-31-2014 11:31 AM RE: F-Tunnel MultiSSH Launcher Source Code
#10


didi.manoso Away
HunteR
HunteR
*

Posts: 81
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.
04-05-2014 04:22 PM RE: F-Tunnel MultiSSH Launcher Source Code
#11


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
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_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.

[Image: fornesia_2.gif]
04-06-2014 06:02 AM RE: F-Tunnel MultiSSH Launcher Source Code
#12


ForNesiaFreak Away
Fake Admin
Lightning Immortals
***

Posts: 1,419
Joined: Jan 2014

Reputation:

FCoin: 28,761.40ƒc

Wing of ForNesiaExtreme StaffTrusted Person
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 ...

mling
04-06-2014 08:59 AM RE: F-Tunnel MultiSSH Launcher Source Code
#13


ranay Away
ForNesia Family
Registered
*

Posts: 314
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
work om, thanks om...

ranay, proud to be a member of ForNesia Family since Feb 2014.
04-12-2014 05:05 PM RE: F-Tunnel MultiSSH Launcher Source Code
#14


saniarfian Away
HunteR
HunteR
*

Posts: 43
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
makasih gan..... ijin belajar juga
Nice share

saniarfian, proud to be a member of ForNesia Family since Mar 2014.
04-12-2014 05:11 PM RE: F-Tunnel MultiSSH Launcher Source Code
#15


Kizuma Wa Away
HunteR
HunteR
*

Posts: 70
Joined: Mar 2014

Reputation:

FCoin: 2.46ƒc
sukses selalu mbah surya :P wkwkw




Possibly Related Threads...
Thread: Author Last Post
  [Share] ForNesia Http Injector Source Code ForNesiaFreak 01-12-2018 01:01 PM
Last Post: wahyu64
  [Share] OpenVpn Delphi Source Code ForNesiaFreak 07-28-2017 12:58 PM
Last Post: Lordemax

Search thread:


[-]
Advertisement