vs 挤房间工具

补上使用方法：

1. 打开vs
2. 选中房间，按alt+f1，开始挤房间
3. 进入房间以后，按alt+f2停止

目前的bug：

1. 有时候会弹出退出vs的窗口，这个时候请手动选择
2. 必须放在桌面看的到的地方，不用置顶

下次版本预计加入功能：

1. 修正bug1
2. 添加个性化挤房间模式：顺序挤房间（并不针对单一房间）
3. 自动升级

.h文件

1. //---------------------------------------------------------------------------
3. #ifndef Unit1H
4. #define Unit1H
5. //---------------------------------------------------------------------------
6. #include <Classes.hpp>
7. #include <Controls.hpp>
8. #include <StdCtrls.hpp>
9. #include <Forms.hpp>
10. #include <ExtCtrls.hpp>
11. #include "trayicon.h"
12. #include <ImgList.hpp>
13. #include <Menus.hpp>
14. //---------------------------------------------------------------------------
15. class TForm1 : public TForm
16. {
17. __published:    // IDE-managed Components
18.     TTimer *Timer1;
19.     TTrayIcon *TrayIcon1;
20.     TPopupMenu *PopupMenu1;
21.     TImageList *ImageList1;
22.     TMenuItem *N1;
23.     TMenuItem *ALTF21;
24.     TMenuItem *N2;
25.     void __fastcall Button1Click(TObject *Sender);
26.     void __fastcall Timer1Timer(TObject *Sender);
27.     void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
28.     void __fastcall N1Click(TObject *Sender);
29.     void __fastcall ALTF21Click(TObject *Sender);
30.     void __fastcall FormShow(TObject *Sender);
31.     void __fastcall N2Click(TObject *Sender);
32. private:    // User declarations
33.     int StartHotKeyId;
34.     int StopHotKeyId;
35.     TPoint pt;
36.     void __fastcall HotKeyDown(TMessage &Msg);
37. public:     // User declarations
38.     __fastcall TForm1(TComponent* Owner);
40. BEGIN_MESSAGE_MAP
41.     VCL_MESSAGE_HANDLER(WM_HOTKEY, TMessage, HotKeyDown);
42. END_MESSAGE_MAP(TForm);
43. };
44. //---------------------------------------------------------------------------
45. extern PACKAGE TForm1 *Form1;
46. //---------------------------------------------------------------------------
47. #endif

 .c文件

1. //---------------------------------------------------------------------------
3. #include <vcl.h>
4. #pragma hdrstop
6. #include "Unit1.h"
7. //---------------------------------------------------------------------------
8. #pragma package(smart_init)
9. #pragma link "trayicon"
10. #pragma resource "*.dfm"
11. TForm1 *Form1;
12. //---------------------------------------------------------------------------
13. __fastcall TForm1::TForm1(TComponent* Owner)
14.     : TForm(Owner)
15. {
16.     StartHotKeyId = GlobalAddAtom("StartVSLoader")-0xC000; 
17.     StopHotKeyId = GlobalAddAtom("StopVSLoader")-0xC000;
18.     RegisterHotKey(Handle , StartHotKeyId , MOD_ALT,VK_F1);
19.     RegisterHotKey(Handle , StopHotKeyId  , MOD_ALT,VK_F2);
20.     Application->ShowMainForm = false;
21. }
22. //---------------------------------------------------------------------------
23. void __fastcall TForm1::HotKeyDown(TMessage &Msg)
24. {
25.     if( (Msg.LParamLo == MOD_ALT)&& (Msg.LParamHi == VK_F1) ){
26.         Timer1->Enabled = true;
27.         TrayIcon1->Animate = true;
28.         GetCursorPos(&pt);
29.     }
30.     if( (Msg.LParamLo == MOD_ALT)&& (Msg.LParamHi == VK_F2) ){
31.         Timer1->Enabled = false;
32.         TrayIcon1->Animate = false;
33.     }
34. }
35. //---------------------------------------------------------------------------
36. void __fastcall TForm1::Button1Click(TObject *Sender)
37. {
38.     //HWND listview =   FindWindow(NULL, "VS竞技游戏平台");//
39.     //TPoint pt;
40.     //GetCursorPos(&pt);
41.     Timer1->Enabled = true;
42. }
43. //---------------------------------------------------------------------------
44. void __fastcall TForm1::Timer1Timer(TObject *Sender)
45. {
46.     Timer1->Enabled = false;
47.     TPoint tmp;
48.     GetCursorPos(&tmp);
49.     SetCursorPos(pt.x,pt.y);
50.     HWND win = NULL;
51.     win =FindWindow(NULL, "VS竞技游戏平台");
52.     if(win){
53.         keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   0,0   );
54.         keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   KEYEVENTF_KEYUP,0);   
55.     }
56.     win =FindWindow(NULL, "VSClient");
57.     if(win){
58.         keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   0,0   );
59.         keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   KEYEVENTF_KEYUP,0);   
60.     }
61.     if(win == NULL){
62.         mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
63.         mouse_event(MOUSEEVENTF_LEFTUP  ,0,0,0,0);
64. //bug001::现在vs版本对应
65. •         mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
    •         mouse_event(MOUSEEVENTF_LEFTUP  ,0,0,0,0);
66. //bug001::end
67.     }
68.     SetCursorPos(tmp.x, tmp.y);
69.     Timer1->Enabled = true;
70. }
71. //---------------------------------------------------------------------------
72. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
73. {
74.     UnregisterHotKey(Handle , StartHotKeyId);
75.     UnregisterHotKey(Handle , StopHotKeyId);
76. }
77. //---------------------------------------------------------------------------
78. void __fastcall TForm1::N1Click(TObject *Sender)
79. {
80.     Timer1->Enabled = true;
81.     TrayIcon1->Animate = true;
82. }
83. //---------------------------------------------------------------------------
84. void __fastcall TForm1::ALTF21Click(TObject *Sender)
85. {
86.     Timer1->Enabled = false;
87.     TrayIcon1->Animate = false;
88. }
89. //---------------------------------------------------------------------------
90. void __fastcall TForm1::FormShow(TObject *Sender)
91. {
92.     TrayIcon1->Minimize();
93. }
94. //---------------------------------------------------------------------------
95. void __fastcall TForm1::N2Click(TObject *Sender)
96. {
97.     Close();
98. }
99. //---------------------------------------------------------------------------

代码和可执行文件下载地址：http://download.csdn.net/source/567156