; OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 2.0.52" End If If InStr(StrHttp, "Apache/2.1.6") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 2.1.6" End If If InStr(StrHttp, "Apache/1.3.2") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.x" End If If InStr(StrHttp, "Apache/1.3.20") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.20" End If If InStr(StrHttp, "Apache/1.3.23") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.23" End If If InStr(StrHttp, "Apache/1.3.26") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.26" End If If InStr(StrHttp, "Apache/1.3.27") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.27" End If If InStr(StrHttp, "Apache/1.3.33") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 1.3.33" End If If InStr(StrHttp, "Netscape-Enterprise/4.1") > 0 Then OppHTTP.Text = "HTTP服务已开启!服务软件类型:Netscape-Enterprise 4.1" End If If InStr(StrHttp, "Unix") > 0 Then SystemFW = "类Unix/Linux系统" End If Catch End Try