Dlaczego to nie działa( linijka 149,150)
keybd_event(xo, 0, 0, 0);
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <vector>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
POINT cur;
std::vector<POINT> t_cur;
String poslist;
int p;
int powtorzenia=10-1;
String doW[100];
int dl_tab=0;
String litery[20];
void what_to_do(int co, String szczegol)
{
if(co==1)
{
doW[dl_tab]="click";
}
else
{
doW[dl_tab]="press";
}
Form1->ListBox3->Items->Add(doW[dl_tab]+": "+szczegol);
dl_tab++;
}
void add_pose()
{
t_cur.push_back(cur);
poslist = " X: " +IntToStr(cur.x) + " Y: " + IntToStr(cur.y);
Form1->ListBox1->Items->Add(poslist);
what_to_do(1,poslist);
}
void __fastcall TForm1::HotKey(TMessage &Msg)
{
if (Msg.WParam == 1){
Timer1->Enabled=false;
}
if (Msg.WParam == 2) {
add_pose();
}
if (Msg.WParam == 3) {
}
}
int obecne = 0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled = true;
Timer2->Enabled = true;
obecne = 0;
}
//---------------------------------------------------------------------------
/*void wykonaj()
{
//keybd_event('Z', 0, 0, 0);
//keybd_event('Z', 0, KEYEVENTF_KEYUP, 0);
if (p < t_cur.size())
{
if( Form1->ProgressBar1->Position < 100)
{
Form1->ProgressBar1->Position+=10;
}
else
{
Form1-> ProgressBar1->Position=0;
}
t_cur[p].x;
SetCursorPos(t_cur[p].x, t_cur[p].y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
p++;
//keybd_event('Z', 0, 0, 0);
//keybd_event('Z', 0, KEYEVENTF_KEYUP, 0);
}
else
{
p = 0;
}
}
*/
int obecne_tab=0;
int do_liter=0;//która litera
//------------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Form1->Panel1->Color = RGB(rand()%250, rand()%250, rand()%250 );
if (obecne <= powtorzenia)
{
Form1->Label2->Caption=obecne+1;
if( Form1->ProgressBar1->Position < 100)
{
Form1->ProgressBar1->Position+=10;
}
else
{
Form1-> ProgressBar1->Position=0;
}
if( doW[obecne_tab] == "press")
{
String xo =litery[do_liter];
do_liter++;
keybd_event(xo, 0, 0, 0);
keybd_event(xo, 0, KEYEVENTF_KEYUP, 0);
obecne++;
}
else
{
if (p < t_cur.size())
{
t_cur[p].x;
SetCursorPos(t_cur[p].x, t_cur[p].y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
p++;
//keybd_event('Z', 0, 0, 0);
//keybd_event('Z', 0, KEYEVENTF_KEYUP, 0);
}
else
{
p = 0;
obecne++;
}
}
}
else
{
Timer1->Enabled=false;
}
// Form1->Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
cur.x = Mouse->CursorPos.x;
cur.y = Mouse->CursorPos.y;
// Mouse->CursorPos.x;
// Mouse->CursorPos.y;
Label1->Caption = "X: " + IntToStr(cur.x) + " Y: " + IntToStr(cur.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
add_pose();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ListBox1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
for (int i = 0; i < t_cur.size(); i++)
{
poslist = " X: " +IntToStr(t_cur[i].x) + " Y: " + IntToStr(t_cur[i].y);
Form1->ListBox1->Items->Add(poslist);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RegisterHotKey(Form1->Handle, 1, 0, VK_SPACE);
RegisterHotKey(Form1->Handle, 2, 0, VK_TAB);
p=0;
}
//---------------------------------------------------------------------------
void change_time(int ms)
{
Form1->Timer2->Interval=ms;
Form1->Timer1->Interval=ms;
}
//----------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
int msValue;
msValue = Form1->msl->Value;
change_time(msValue);
//Timer2->Interval=ms;
//Timer1->Interval=ms;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
change_time(1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
change_time(10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
change_time(100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
change_time(1000);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
change_time(10000);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
powtorzenia=pole1->Value-1;
}
//---------------------------------------------------------------------------
int dlugosc_tab_liter=0;
void add_letter(String letter)
{
poslist = letter;
Form1->ListBox2->Items->Add(poslist);
litery[dlugosc_tab_liter]=letter;
dlugosc_tab_liter++;
what_to_do(2, letter);
}
void __fastcall TForm1::Button13Click(TObject *Sender)
{
add_letter("A");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
add_letter("B");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
add_letter("C");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject *Sender)
{
add_letter("D");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button17Click(TObject *Sender)
{
add_letter("E");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button18Click(TObject *Sender)
{
add_letter("F");
}
//---------------------------------------------------------------------------
PS: Chciałby ktoś poprawić mój kod?
