void __fastcall TForm1::tmr1Timer(TObject *Sender)
{
HWND a,b;
a=FindWindow("TXGuiFoundation","QQ2009");
b=FindWindowEx(a,0,"ATL:30A410F8",NULL);
if(!b==NULL)
{
SendMessage(b,WM_SETFOCUS,0,0);
ShowWindow(a,9);
keybd_event('5',0,0,0);
keybd_event('5',0,KEYEVENTF_KEYUP,0);
keybd_event('2',0,0,0);
keybd_event('2',0,KEYEVENTF_KEYUP,0);
keybd_event('3',0,0,0);
keybd_event('3',0,KEYEVENTF_KEYUP,0);
Sleep(100);
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
tmr1->Enabled=false;
Application->Terminate();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
aa=0;
Form1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tmr2Timer(TObject *Sender)
{
ShellExecuteA(NULL,"open","E:\\软件\\QQ.exe",NULL,NULL,SW_SHOWNORMAL );
tmr1->Enabled=true;
tmr2->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form1->Width=0;
Form1->Height=0;
}
{
HWND a,b;
a=FindWindow("TXGuiFoundation","QQ2009");
b=FindWindowEx(a,0,"ATL:30A410F8",NULL);
if(!b==NULL)
{
SendMessage(b,WM_SETFOCUS,0,0);
ShowWindow(a,9);
keybd_event('5',0,0,0);
keybd_event('5',0,KEYEVENTF_KEYUP,0);
keybd_event('2',0,0,0);
keybd_event('2',0,KEYEVENTF_KEYUP,0);
keybd_event('3',0,0,0);
keybd_event('3',0,KEYEVENTF_KEYUP,0);
Sleep(100);
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
tmr1->Enabled=false;
Application->Terminate();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
aa=0;
Form1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tmr2Timer(TObject *Sender)
{
ShellExecuteA(NULL,"open","E:\\软件\\QQ.exe",NULL,NULL,SW_SHOWNORMAL );
tmr1->Enabled=true;
tmr2->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form1->Width=0;
Form1->Height=0;
}
浙公网安备 33010602011771号