| View previous topic :: View next topic |
| Author |
Message |
DeletedUser14087
I post too much
![]() Reputation: 2
Joined: 21 Jun 2006
Posts: 3069
|
 Posted: Tue Jan 13, 2009 1:34 pm Post subject: [RLS]Oh Cool. |
 |
|
Don't read this !!!
| Code: | unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, winsvc, StdCtrls, ComCtrls, ExtCtrls, WinInet, Winsock;
type
TMainForm = class(TForm)
btnStart: TButton;
btnStop: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
MainTimer: TTimer;
ProgressBar1: TProgressBar;
procedure btnStopClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure MainTimerTimer(Sender: TObject);
private
{ Private declarations }
procedure Copy_File(Source, Dest: PChar);
public
{ Public declarations }
end;
var
MainForm: TMainForm;
hSCManager, hService :Cardinal;
lpServiceStatus: TServiceStatus;
OS :TOSVersionInfoA;
implementation
{$R *.dfm}
Procedure ControlServiceEx(lpServiceName: PChar; Disable: Boolean);
var lpServiceArgVectors: Pchar;
begin
case Disable of
TRUE: //Disable Service
begin
hSCManager := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT);
hService := OpenService(hSCManager, lpServiceNAme, SERVICE_STOP); //Getting the handle with SERVICE_STOP access..
ControlService(hService, SERVICE_CONTROL_STOP, lpServiceStatus); //Controling it (Stopping the service)
CloseServiceHandle(hSCManager and hService);
end;
FALSE: //Enable Service
begin
hSCManager := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT);
hService := OpenService(hSCManager, lpServiceNAme, SERVICE_START); //Getting the handle with SERVICE_START access..
StartService(hService, 0, lpServiceArgVectors);
CloseServiceHandle(hSCManager);
CloseHandle(hService);
end;
end;
end;
function WindowsVersion:DWORD;
begin
OS.dwOSVersionInfoSize:=sizeof(OS);
GetVersionExA(OS);
Result:=OS.dwMinorVersion;
end;
procedure TMainForm.btnStartClick(Sender: TObject);
begin
case WindowsVersion of
0:ControlServiceEx('MpsSvc', FALSE);
1:ControlServiceEx('SharedAccess', FALSE);
end;
end;
procedure TMainForm.btnStopClick(Sender: TObject);
begin
case WindowsVersion of
0:ControlServiceEx('MpsSvc', TRUE);
1:ControlServiceEx('SharedAccess', TRUE);
end;
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
OS.dwOSVersionInfoSize:=sizeof(OS);
GetVersionExA(OS);
case OS.dwMinorVersion of
0:label1.Caption := 'Windows Vista';
1:label1.Caption := 'Windows XP';
end;
label2.Caption := Format('OS Build Number: %d', [OS.dwBuildNumber]);
label3.Caption := Format('%s', [OS.szCSDVersion]);
end;
procedure TMainForm.MainTimerTimer(Sender: TObject);
begin
if odd(getasynckeystate(VK_F1)) then btnStart.Click;
if odd(getasynckeystate(VK_F2)) then btnStop.Click;
end;
end. |
|
|
| Back to top |
|
 |
Digg
Master Cheater
 Reputation: 0
Joined: 14 Mar 2007
Posts: 362
Location: Houston, Texas
|
|
| Back to top |
|
|
Holbewoner
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 23 Sep 2007
Posts: 1484
|
| Posted: Tue Jan 13, 2009 1:38 pm Post subject: |
|
|
So what is this?
_________________
Current levels
- Dark Knight ~ 125
- Bishop ~ 121
- Hermit ~ 118
- Crossbowman ~ 57
~~~~~~~~~~~~~~~~~~~~~~
I'm always in for any boss run in Khaini. PM me if you need someone. |
|
| Back to top |
|
|
DeletedUser14087
I post too much
![]() Reputation: 2
Joined: 21 Jun 2006
Posts: 3069
|
| Posted: Tue Jan 13, 2009 1:40 pm Post subject: |
|
|
it's something cool,  .
|
|
| Back to top |
|
|
Imitazion
Grandmaster Cheater
![]() Reputation: 0
Joined: 19 Oct 2006
Posts: 558
|
| Posted: Tue Jan 13, 2009 1:43 pm Post subject: |
|
|
A random guess; it removes your operating system.
_________________
|
|
| Back to top |
|
|
kittonkicker
I post too much
 Reputation: 1
Joined: 19 Apr 2006
Posts: 2171
|
|
| Back to top |
|
|
DeletedUser14087
I post too much
![]() Reputation: 2
Joined: 21 Jun 2006
Posts: 3069
|
| Posted: Tue Jan 13, 2009 1:48 pm Post subject: |
|
|
You're 99% Wrong.
You're 1% Correct.
It disables/enables Windows XP / Vista Firewall service according to their needs.
Edit: I found a better way using COM objects and Interfaces .
Last edited by DeletedUser14087 on Tue Jan 13, 2009 1:49 pm; edited 1 time in total |
|
| Back to top |
|
|
Outlawlz
Master Cheater
![]() Reputation: 0
Joined: 22 Oct 2007
Posts: 457
|
| Posted: Tue Jan 13, 2009 1:48 pm Post subject: |
|
|
| look s like an AC written in VB
|
|
| Back to top |
|
|
ssaccount
Master Cheater
![]() Reputation: 0
Joined: 29 Aug 2007
Posts: 391
Location: Finland
|
| Posted: Tue Jan 13, 2009 2:01 pm Post subject: |
|
|
| outlawz1990 wrote: | | look s like an AC written in VB |
actually this is written in delphi.
_________________
Programming in C++
(Or at least trying to  ) |
|
| Back to top |
|
|
Screen
Master Cheater
 Reputation: 0
Joined: 12 Oct 2008
Posts: 416
Location: England
|
| Posted: Tue Jan 13, 2009 2:05 pm Post subject: |
|
|
It's probably something really cool, but hes so confident that no one will know what to do with it.
Ah well, lets just say it sucks and we'll live in denial for now.
|
|
| Back to top |
|
|
S3NSA
:3
 Reputation: 1
Joined: 06 Dec 2006
Posts: 1908
Location: England.
|
| Posted: Tue Jan 13, 2009 2:14 pm Post subject: |
|
|
Rotem you're not above the rules.
Change the title and body of text to something descriptive.
Also don't hide what it does from people like it's some God-given secret, just tell them. Otherwise it just encourages spam.
_________________
~ You can find me on irc.ccplz.net x |
|
| Back to top |
|
|
kittonkicker
I post too much
Reputation: 1
Joined: 19 Apr 2006
Posts: 2171
|
| Posted: Tue Jan 13, 2009 2:18 pm Post subject: |
|
|
| I.E. SMUGGLING
|
|
| Back to top |
|
|
lurc
Grandmaster Cheater Supreme
 Reputation: 2
Joined: 13 Nov 2006
Posts: 1900
|
| Posted: Tue Jan 13, 2009 2:18 pm Post subject: |
|
|
Rot1 you're not cool. You're not Irwin (yes, he did the same thing with a couple of his releases. You're just a poser  ) This isn't anything special.
"Omg lets disable a component of Windows Firewall."
_________________
|
|
| Back to top |
|
|
S3NSA
:3
Reputation: 1
Joined: 06 Dec 2006
Posts: 1908
Location: England.
|
| Posted: Tue Jan 13, 2009 2:20 pm Post subject: |
|
|
Sod it, I've had enough with his arrogance, moved to RS unless he decides to release it in a mature fashion that doesn't scream 'ego'.
_________________
~ You can find me on irc.ccplz.net x |
|
| Back to top |
|
|
Cheat Engine User
Something epic
![]() Reputation: 61
Joined: 22 Jun 2007
Posts: 2071
|
| Posted: Tue Jan 13, 2009 2:24 pm Post subject: |
|
|
| S3NSA wrote: | Rotem you're not above the rules.
Change the title and body of text to something descriptive.
Also don't hide what it does from people like it's some God-given secret, just tell them. Otherwise it just encourages spam. |
He is above the rules. You cannot deny it.
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
