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("这个主机无法连接哦! 请重新输入一个正确的吧！","系统提示");
 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 " +
  "Connection: Keep-Alive ";
 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)
 {
 strSystem = "Unix/Linux";
 if(strHttp.IndexOf("Unix")!=-1)
 strSystem="Unix";
 }
 else
 {
 if(TcpConnect(theIP,139)!="None")
 strSystem="Windows 98/Me";
 else if(TcpConnect(theIP,1433)!="None")
 strSystem="Windows NT/2000";
 else
 strSystem="Windows/Linux/Unix";
 }
 }
 
 private void IPListbox_SelectedIndexChanged(object sender, System.EventArgs e)
 {
 lblIpInfo.Text = IPListbox.Text.ToString()+",所在地查询未实现!";
 txtHostname.Text = IPListbox.Text.ToString();
 }
 
 private void button1_Click(object sender, System.EventArgs e)
 {
 Application.Exit();
 }
 
 private void linkLabel1_LinkClicked(object sender, System.Windows.Forms.LinkLabelLinkClickedEventArgs e)
 {
 linkLabel1.Show();
 }
 
 
 完整的代码和编译过的程序:http://202.103.224.224/icools/bbs/non-cgi/usr/5_2.zip
 
 记得一定要装 .NET FrameworkSDK beta2
 
 我是初学者,有问题一起研究!
 
 by 萧寒雪(S.F.)