Musse klik

brug keyb_event

Knægten vil ikke selv lave dte han kan jo ik :P Han vil have en til at lave programmet for ham...

keybd_event(VK_CONTROL,0,0,0);
  keybd_event(ord('S'),0,0,0);
  keybd_event(ord('S'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);

Hvad skal det bruges til.
Er det noget der skal installeres på dine uvenners maskiner for at drille dem?

procedure TForm1.Button1Click(Sender: TObject);
var
  Pos : TPoint;
begin
  GetCursorPos(Pos);
  mouse_event(MOUSEEVENTF_LEFTDOWN,Pos.x, Pos.y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFUP,Pos.x, Pos.y, 0, 0);
end;

Jamen... Borrisholt jeg kan ikke programere.... kan du ikke lave det til mig ?

så må du lære det

Stone... Det er ikke bare noget man lige gør..

Borrisholt... Jeg vil sætte meget stor pris på hvis du vil.. og du vil få 200 skønne points :D

Jeg skal lige finde en måse at stoppe lordet på igen

Thx ;)

www.alawork.dk/klik.exe <-- hehe brugte lige borrisholts kode, men det er sådan det virker..
selvom borrisholt laver det om om lidt ;)

Jeg skal bruge en mail adr...

Min eller hvad ?

Ja ! Eler vil du bare nøjes med koden ?

Hvis det er min er det Fubar@ofir.dk

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, GlobalHotKey;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    GlobalHotKey: TGlobalHotKey;
    FShowCaption: Boolean;
    procedure OnHotkey(Sender: TObject);
    procedure SetShowCaption(const Value: Boolean);
  public
    property ShowCaption: Boolean read FShowCaption write SetShowCaption;
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message wm_NCHitTest;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
const
  ColorArray: array[Boolean] of TColor = (clRed, clGreen);
  StrArray: array[Boolean] of string = ('Disabled', 'Enabled');

procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := ColorArray[Tag = 1];
  Label1.Caption := StrArray[Tag = 1];
  GlobalHotKey := TGlobalHotKey.Create(self);
  GlobalHotKey.Key := TextToShortCut('Ctrl+s');
  GlobalHotKey.OnHotKey := OnHotkey;
  ShowCaption := False;
end;

procedure TForm1.OnHotkey(Sender: TObject);
var
  Pos: TPoint;
begin
  GetCursorPos(Pos);
  Tag := 1 - Tag;

  Color := ColorArray[Tag = 1];
  Label1.Caption := StrArray[Tag = 1];

  if Tag <> 0 then
  begin
    while True do
    begin
      mouse_event(MOUSEEVENTF_LEFTDOWN, Pos.x, Pos.y, 0, 0);
      mouse_event(MOUSEEVENTF_LEFTUP, Pos.x, Pos.y, 0, 0);

      Application.ProcessMessages;

      if Tag = 0 then
        exit;
    end;
  end;
end;

procedure TForm1.SetShowCaption(const Value: Boolean);
begin
  FShowCaption := Value;
  if not FShowCaption then
  begin
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
    Height := Height - GetSystemMetrics(SM_CYCAPTION);
  end
  else
  begin
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) or WS_Caption);
    Height := Height + GetSystemMetrics(SM_CYCAPTION);
  end;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = htClient then
    Msg.Result := htCaption;
end;

end.

Hvad med at send det som en progrem til min email ? ;D

er gjort

Borisholt jeg har slet ikke Delphi

Nej men du kan  vel  tømme din e mail ?

www.alawork.dk/klik.exe <---- lige som det.. lav det som sådan et prog..

Hvorfor tømmer du ikke bare din mail ?

Jamen hvad mener du med det... jeg har downloadet din fil.. men den kommer ikke ud som et progrem..

Nej du skal SELV give den extentionen exe det skrev jeg ?

www.borrisholt.com/Eksperten/Project1.exe

HeHe han er min lillebror han fik det til at virke men han er lige fløjet ud af døren jeg ber ham om at give dig pointene når han kommer hjem.

hov sorry han havde givet dig dem :|

Er han ikke lidt hjælpeløs ?

Nææ han er bare ikke så gammel hehe