p; swWriter.WriteLine("Accept:*/*")
swWriter.WriteLine("Referer:")
swWriter.WriteLine()
'刷新当前数据流中的数据
swWriter.Flush()
srRead = New StreamReader(nsStream, Encoding.Default)
'以得到的网络基础数据流来初始化StreamReader实例
Dim L As Integer = 0
Do While Not srRead.Peek = -1 And L < 20
StrHttp = StrHttp & srRead.ReadLine()
L = L + 1
Loop
If InStr(StrHttp, "IIS") > 0 Then
OppHTTP.Text = "HTTP服务已开启!服务软件类型:IIS 版本未知"
SystemFW = "WindowsNT/2000/XP/2003"
End If
If InStr(StrHttp, "Apache") > 0 Then
OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 版本未知"
End If
If InStr(StrHttp, "Netscape-Enterprise") > 0 T
swWriter.WriteLine("Referer:")
swWriter.WriteLine()
'刷新当前数据流中的数据
swWriter.Flush()
srRead = New StreamReader(nsStream, Encoding.Default)
'以得到的网络基础数据流来初始化StreamReader实例
Dim L As Integer = 0
Do While Not srRead.Peek = -1 And L < 20
StrHttp = StrHttp & srRead.ReadLine()
L = L + 1
Loop
If InStr(StrHttp, "IIS") > 0 Then
OppHTTP.Text = "HTTP服务已开启!服务软件类型:IIS 版本未知"
SystemFW = "WindowsNT/2000/XP/2003"
End If
If InStr(StrHttp, "Apache") > 0 Then
OppHTTP.Text = "HTTP服务已开启!服务软件类型:Apache 版本未知"
End If
If InStr(StrHttp, "Netscape-Enterprise") > 0 T
| 对此文章发表了评论 |

