CS服务器定时重启{附源码For Delphi}

lovehuai

在点通看到有人想要这类的东西就拿起Delphi画了个
Ps：要放到hlds的同目录下不然就在txt里加上hlds的路径
写了个小东西来实现CMD下启动
启动参数 HlRun.exe /r 300 hlds.txt
/r 启动
300 每隔300分钟 5个小时重启
hlds.txt  hlds的启动参数可以非TXT格式


点击下载程序

郁闷附件传了5次没传上来才11K的压缩包。。。
上传有问题？

1. 
   
2. program HlRun;
   
3. {$APPTYPE CONSOLE}
   
4. uses
   
5.   Windows,
   
6.   TLhelp32;
   
7. var
   
8.   Msg:Tmsg;
   
9.   Time:Integer;
   
10.   Run:DWORD;
    
11.   Temp:String;
    
12.   RInc:Integer;
    
13.   
    
14. Function StrToInt(S: String): Integer;
    
15. Var
    
16. E: Integer;
    
17. Begin
    
18.   Val(S, Result, E);
    
19. End;
    
20. Function IntToStr(I: DWORD): String;
    
21. begin
    
22.   Str(I, Result);
    
23. end;
    
24. Function LowerCase(const S: string): string;
    
25. var
    
26.   Ch: Char;
    
27.   L: Integer;
    
28.   Source, Dest: PChar;
    
29. begin
    
30.   L := Length(S);
    
31.   SetLength(Result, L);
    
32.   Source := Pointer(S);
    
33.   Dest := Pointer(Result);
    
34.   while L <> 0 do
    
35.   begin
    
36.     Ch := Source^;
    
37.     if (Ch >= 'A') and (Ch <= 'Z') then Inc(Ch, 32);
    
38.     Dest^ := Ch;
    
39.     Inc(Source);
    
40.     Inc(Dest);
    
41.     Dec(L);
    
42.   end;
    
43. end;
    
44. Function Trim(const S: string): string;
    
45. var
    
46.   I, L: Integer;
    
47. begin
    
48.   L := Length(S);
    
49.   I := 1;
    
50.   while (I <= L) and (S[I] <= ' ') do Inc(I);
    
51.   if I > L then Result := '' else
    
52.   begin
    
53.     while S[L] <= ' ' do Dec(L);
    
54.     Result := Copy(S, I, L - I + 1);
    
55.   end;
    
56. end;
    
57. Function GetPID(_GetPID:String):Dword;     //获取进程PID
    
58. var
    
59.      h:thandle;
    
60.      f:boolean;
    
61.      lppe:tprocessentry32;
    
62. begin
    
63.   Result:=0 ;
    
64.      h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);
    
65.      lppe.dwSize := sizeof(lppe);
    
66.      f := Process32First(h, lppe);
    
67.      while integer(f) <> 0 do
    
68.      begin
    
69.        if LowerCase(lppe.szExeFile) = LowerCase(_GetPID) then
    
70.        begin
    
71.          Result:=(lppe.th32ProcessID);
    
72.          break;
    
73.        end;
    
74.        f := Process32Next(h, lppe);
    
75.      end;
    
76. end;
    
77. 
    
78. Function KillProcess(dwPID: DWORD):Boolean;
    
79. var
    
80.   ProcessHandle: THandle;
    
81. begin
    
82.   ProcessHandle := OpenProcess(PROCESS_TERMINATE, False, dwPID);
    
83.   Result:=TerminateProcess(ProcessHandle, 0);
    
84. end;
    
85. Function ReadTxt(FileName:String):String;
    
86. Var
    
87. F : Textfile;
    
88. Begin
    
89. AssignFile(F, FileName);
    
90. Reset(F);
    
91. Readln(F,Result);
    
92. Closefile(F);
    
93. Result:=Trim(Result);
    
94. End;
    
95. function Hlds():Integer; stdcall;
    
96. begin
    
97.      KillProcess(GetPID('hlds.exe'));
    
98.      Sleep(500);
    
99.      //Temp:= 'hlds.exe -game cstrike +servercfgfile MatchMode.cfg -insecure -port 27017 +maxplayers 14 +map de_train +sv_lan 0 -console +ip 192.168.1.111 -noipx -nojoy';
    
100.      if  Temp <> '' then
     
101.      begin
     
102.             WinExec(PChar(Temp),SW_SHOW);
     
103.      end;
     
104.      Inc(RInc);
     
105.      Writeln('当前启动次数：' + IntToStr(RInc));
     
106.      Result := 0;
     
107. end;
     
108. procedure TimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD); stdcall;
     
109. begin
     
110.     CreateThread(nil , 0, @Hlds, nil, 0, Run);
     
111. end;
     
112. begin
     
113.   if ParamStr(1) = '/r' then
     
114.   begin
     
115.    Time:=StrToInt(ParamStr(2));
     
116.    Writeln('重启间隔：' + ParamStr(2) + ' 分钟');
     
117.    Temp:=ReadTxt(ParamStr(3));
     
118.    Writeln('启动参数：' + Temp);
     
119.    RInc:=0;
     
120.    Hlds;
     
121.    Sleep(100);
     
122.    SetTimer(0,100001,(Time * 60 * 1000),@TimerProc);
     
123.    while GetMessage(Msg,0,0,0) do
     
124.    begin
     
125.       TranslateMessage(Msg);
     
126.       DispatchMessage(Msg);
     
127.    end;
     
128.   end;  
     
129. end.
     

复制代码

fantasist

网上见过现成的daemon

lovehuai

网上见过现成的daemon
fantasist 发表于 2009-11-23 02:34

很多东西我还是喜欢用自己写的
网上虽然也有
但是不和我胃口没办法
-_,-

SiMen.Exile7D

高手，膜拜～