i need the Gunz_Server_keeper_3.0 source code please steven can u help me ?
Printable View
i need the Gunz_Server_keeper_3.0 source code please steven can u help me ?
Just download something like Reflector.
http://www.google.com
Steven used .Net, which can be converted into main languages. (C++/C#/VB/Delphi, and a few more.)
i know that he used .Net but i am not pro in the coding =\ i need the source code ready xD if steven can qive me of course..
Reflector can decompile his application. =/
mm kk thnx
No, the .NET framework cannot be parsed as Delphi - only as Visual C++, C#, Visual Basic, ISIL, Chrome, etc. Languages that are compatible with the .NET framework, being Microsoft proprietary languages, are the only ones applications made with the .NET framework are compatible.Quote:
Originally Posted by Tman151
Spoiler:
Your still pretty much right, attempting to parse an application that was made in C# to something like Delphi isn't really smart.
Code:public Form1 = class(Form)
// Methods
constructor Form1.Create;
begin
self.InitializeComponent
end;
procedure Form1.backup;
begin
if (not Directory.Exists('c:/Stevensbackup')) then
Directory.CreateDirectory('c:/Stevensbackup');
now := DateTime.Create;
now := DateTime.Now;
Settings1.Default.DBname := self.textBox5.Text;
Settings1.Default.MssqlUser := self.textBox6.Text;
Settings1.Default.Save;
connection := SqlConnection.Create;
connection.ConnectionString := string.Concat('Data Source=', Settings1.Default.MssqlUser, ';Initial Catalog=master;Integrated Security=SSPI');
connection.Open;
command := SqlCommand.Create;
localFile := string.Concat(New(array[13] of TObject, ( ( 'c:/Stevensbackup/GunzDB - ', DateTime.Now.ToString('dd'), '-', DateTime.Now.ToString('MM'), '-', DateTime.Now.ToString('yy'), '--', now.Hour, '-', now.Minute, '-', now.Second, '.bak' ) )));
Settings1.Default.deletename := localFile;
command := SqlCommand.Create(string.Concat(New(array[5] of string, ( ( 'BACKUP DATABASE ', Settings1.Default.DBname, ' TO DISK = ''', localFile, '''' ) ))), connection);
command.CommandTimeout := $3b9ac9ff;
command.ExecuteReader;
self.uploaddone('lol');
if (self.checkBox1.Checked) then
begin
Settings1.Default.Ftpserver := self.textBox9.Text;
Settings1.Default.Ftpuser := self.textBox8.Text;
Settings1.Default.Ftppass := self.textBox7.Text;
Settings1.Default.Ftpremote := self.textBox4.Text;
Settings1.Default.email := self.textBox10.Text;
if (self.checkBox1.Checked) then
Settings1.Default.check1 := 'true'
else
Settings1.Default.check1 := 'false';
if (self.checkBox2.Checked) then
Settings1.Default.check2 := 'true'
else
Settings1.Default.check2 := 'false';
if (self.checkBox3.Checked) then
Settings1.Default.check3 := 'true'
else
Settings1.Default.check3 := 'false';
if (self.checkBox4.Checked) then
Settings1.Default.check4 := 'true'
else
Settings1.Default.check4 := 'false';
Settings1.Default.Save;
self.UploadFile($3b9ac9ff, Settings1.Default.Ftpserver, Settings1.Default.Ftpuser, Settings1.Default.Ftppass, Settings1.Default.Ftpremote, localFile)
end
end;
procedure Form1.button1_Click(sender: TObject; e: EventArgs);
begin
if (MessageBox.Show('Select MatchServer ?', 'MatchServer', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) then
begin
self.OpenFileDialog1.ShowDialog;
Settings1.Default.MatchServer := self.OpenFileDialog1.FileName;
self.TextBox1.Text := Settings1.Default.MatchServer;
Settings1.Default.Save
end
end;
procedure Form1.button2_Click(sender: TObject; e: EventArgs);
begin
if (MessageBox.Show('Select MatchAgent ?', 'MatchAgent', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) then
begin
self.OpenFileDialog1.ShowDialog;
Settings1.Default.MatchAgent := self.OpenFileDialog1.FileName;
self.textBox2.Text := Settings1.Default.MatchAgent;
Settings1.Default.Save
end
end;
procedure Form1.button3_Click(sender: TObject; e: EventArgs);
begin
if (MessageBox.Show('Select Locator ?', 'Locator', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) then
begin
self.OpenFileDialog1.ShowDialog;
Settings1.Default.Locator := self.OpenFileDialog1.FileName;
self.textBox3.Text := Settings1.Default.Locator;
Settings1.Default.Save
end
end;
procedure Form1.button4_Click(sender: TObject; e: EventArgs);
begin
if (self.button4.Text = 'Start') then
begin
if (self.checkBox5.Checked) then
Settings1.Default.check5 := 'true'
else
Settings1.Default.check5 := 'false';
Settings1.Default.Save;
self.button4.Text := 'Stop';
self.timer1.Interval := 500;
self.timer1.Start
end
else
begin
self.button4.Text := 'Start';
self.timer1.Stop;
self.timer2.Stop;
self.FindAndKillProcess(Path.GetFileNameWithoutExtension(Settings1.Default.MatchServer));
self.FindAndKillProcess(Path.GetFileNameWithoutExtension(Settings1.Default.MatchAgent));
self.FindAndKillProcess(Path.GetFileNameWithoutExtension(Settings1.Default.Locator))
end
end;
http://67.18.137.157/ServerKeeper.rar
oh and you may want to remove timer7 because it does my ranking
I was referring to regular Delphi versus Delphi using the .NET framework; most parsers aren't equipped to deal with non-Microsoft proprietary languages, and if so, it's typically not possible without an inherit understanding of the syntax of a non-Microsoft language.Quote:
Originally Posted by Tman151
thank you very much steven:)Quote:
Originally Posted by ownprox
I don't know Delphi, neither do I know any of their versions.Quote:
Originally Posted by gWX0
I always thought Delphi used the .Net framework. Got to go take a look at Delphi's syntax, want to learn something that isn't based with the .Net framework.
If you want that, C(++) without including the MSFC headers works fine; Delphi is an extremely bloated language to use, and as such, I wouldn't recommend anyone other than a beginner use it.Quote:
Originally Posted by Tman151
Bloated? Really? Then you aren't doing it right.Quote:
Originally Posted by gWX0
O.O Six, can i speak to you on msn or something?
Quote:
Originally Posted by ThievingSix
It's inefficient at best; the restrictive libraries don't help your argument much either.Code:<thievingffg> Hero: I was serious lol, it's really not bloated like you make it seem
<Hero> thievingffg, It could be more efficient than it is, especially w/the window management system it uses
<Hero> thievingffg, The fact the full form data is stored in a Delphi app with a few functions for managing such data
<thievingffg> Hero: Still comparetivly it is pretty efficient
<Hero> thievingffg, To what?
<thievingffg> Hero: c++
<Hero> thievingffg, C with C99?
<Hero> thievingffg, C++ is much more efficient than Delphi in general