|
| ASP.NET追捕休整版 |
| |
| ［作者：不详 转贴自：不详 点击数： 更新时间：2006-3-2 15:41:04］ |
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;
}
|
| |
|
 winner  打印本页  关闭窗口 |
|
|
设为首页
收藏本站
作者：黄振安
ＱＱ：53854651
您现在的位置： 拓文网络 → .NET编程 → ASP.NET → ASP.NET追捕休整版［正文］ 
