C#第一个正式应用,ASP.NET追捕休整版!
这个程序,是前天我买到Visual Studio.net beta 2 中文版后编写的第一个正式程序,感觉只真是好极了!!

这个追捕的代码参考过飞刀的ASP.NET 追捕的文章，但他文章中是针对.NET 框架beta1的,而BETA2中好多的地方都修改调整了,顺便也给程序增加了列表IP的功能，也就是说主机的多个IP地址都可以列出来的.只是那个根据IP查到IP所在地的功能暂时没做,因为当时我用的机器是朋友的,而手头没有IP数据库:~(

static void Main()
{
Application.Run(new Form1());
}

private void Form1_Load(object sender, System.EventArgs e)
{
string Localhost = System.Net.Dns.GetHostName();
int i = 0;
int n = Dns.Resolve(Localhost.ToString()).AddressList.GetLength(0);
lblIpInfo.Text = Localhost.ToString() ",就是你啊!";
txtHostname.Text = Dns.Resolve(Localhost.ToString()).AddressList.GetValue(0).ToString();
lblSystem.Text = "待命中...";
lblHttp.Text = "待命中...";
lblFtp.Text = "待命中...";
lblDns.Text = "待命中...";
lblTelnet.Text = "待命中...";
lblSmtp.Text = "待命中...";
lblPop.Text = "待命中...";
for(;i<n;i )
{
IPListbox.Items.Add(Dns.Resolve(Localhost.ToString()).AddressList.GetValue(i).ToString());
}
}

private void cmdExec_Click(object sender, System.EventArgs e)
{
IPAddress theIP;
txtHostname.Focus();
if(txtHostname.Text.Length==0)
{
MessageBox.Show("您可以输入要追捕的IP或者主机名称！但不能为空","系统提示");
return; //false
}
try
{
int i = 0;
int n = Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetLength(0);
IPListbox.Items.Clear();
for(;i<n;i )
{
IPListbox.Items.Add(Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetValue(i).ToString());
}
theIP = (IPAddress)Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetValue(0);
lblIpInfo.Text = theIP.ToString();
if(check1.Checked==true)
{//
lblSystem.Text = "检测中...";
lblHttp.Text = "检测中...";
lblFtp.Text = "检测中...";
lblDns.Text = "检测中...";
lblTelnet.Text = "检测中...";
lblSmtp.Text = "检测中...";
lblPop.Text = "检测中...";
//检查服务
DetectService(theIP);
DetectPort(theIP);
lblSystem.Text = strSystem.ToString();
lblHttp.Text = strHttp.ToString();
lblFtp.Text = strFtp.ToString();
lblDns.Text = strDns.ToString();
lblTelnet.Text = strTelnet.ToString();
lblSmtp.Text = strSmtp.ToString();
lblPop.Text = strPop.ToString();
}

if(check2.Checked==true)
{
//查IP 所在地区，未实现
}
}
catch
{
MessageBox.Show("这个主机无法连接哦!\r\n请重新输入一个正确的吧！","系统提示");
txtHostname.Text = "";
txtHostname.Focus();
lblIpInfo.Text = "无法连接或转换IP，所在地大概是外星球!";
lblSystem.Text = "待命中...";
lblHttp.Text = "待命中...";
lblFtp.Text = "待命中...";
lblDns.Text = "待命中...";
lblTelnet.Text = "待命中...";
lblSmtp.Text = "待命中...";
lblPop.Text = "待命中...";
}
return;
}

private void DetectService(IPAddress theIP)
{
string tFtp = TcpConnect(theIP,21); //is ftp service
string tTelnet = TcpConnect(theIP,23); //is Telnet service
string tDns = TcpConnect(theIP,43); //is Dns service
string tPop = TcpConnect(theIP,110); //is Pop3 service
string tSmtp = TcpConnect(theIP,25); //is Mail smtp service
if(tFtp!="None")strFtp = tFtp;
if(tTelnet!="None")strTelnet = tTelnet;
if(tDns!="None")strDns = tDns;
if(tPop!="None")strPop = tPop;
if(tSmtp!="None")strSmtp = tSmtp;

TcpClient tcp = new TcpClient();
tcp.Connect(theIP,80);
int tHttpStart;
string tHttp;
string tMsg = "POST /index.htm HTTP/1.1\r\n"
"Connection: Keep-Alive\r\n\r\n";
Stream sm = tcp.GetStream();
sm.Write(Encoding.Default.GetBytes(tMsg.ToCharArray()),0,tMsg.Length);
StreamReader sr = new StreamReader(tcp.GetStream(),Encoding.Default);
while(sr.Peek()!=-1)
{
tHttp= sr.ReadLine();
tHttpStart = tHttp.IndexOf("Server");
if(tHttpStart!=-1)
{
strHttp = tHttp;
break;
}
}
tcp.Close();
}

private string TcpConnect(IPAddress theIP,int Port)
{
TcpClient tcp = new TcpClient();
StreamReader sr;
string result;
try
{
checked
{
tcp.Connect(theIP,Port);
sr = new StreamReader(tcp.GetStream().ToString(),Encoding.Default);
result = sr.ReadLine().ToString();
tcp.Close();
}
}
catch
{
result = "None";
}
return result;
}

private void DetectPort(IPAddress theIP)
{
//is
if(strHttp.IndexOf("Microsoft")!=-1)
{
strSystem = "Windows";
if(strHttp.IndexOf("IIS")!=-1)
{
strSystem="Windows NT/2000";
if(strHttp.IndexOf("5.0")!=-1)
strSystem="Windows 2000";
else
strSystem="Windows NT";
}
}
else if(strHttp.IndexOf("Apache")!=-1)
{