登录
首页 » Delphi » ping

ping

于 2019-03-13 发布 文件大小:229KB
0 271
下载积分: 1 下载次数: 1

代码说明:

  本程序检测统计同一网段的电脑在线情况,功能比较单一是给新手学习的.老鸟就绕过了(This program detects and counts the online situation of the computer in the same network segment. The function is relatively simple for novices to learn. Old birds bypass it.)

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • DevSearch
    1.局域网内设备IP搜索 2.发送广播包出去,同时启动侦听接收 3.支持局域网内跨网断搜索(1.IP search in local network 2.send broadcast packet, and receive request 3.support different gateway.)
    2015-08-19 11:58:11下载
    积分:1
  • C#自动更换IP实例源码下载
    C#自动更换IP实例
    2013-01-24下载
    积分:1
  • ASP_成语词典
    ASP_成语词典程序-ASP_ idiom dictionary procedures
    2022-02-01 22:47:46下载
    积分:1
  • A realization of video chat source code, hoping to be helpful to everyone
    一个实现视频聊天源代码,希望能对大家有所帮助 -A realization of video chat source code, hoping to be helpful to everyone
    2022-03-16 06:53:12下载
    积分:1
  • 美汇美容站管理系统
    美汇美容网网站管理系统-US Department of beauty web site management system
    2022-06-14 22:15:00下载
    积分:1
  • LearnToDoSciResearch
    :书中内容来自网络各大论坛,经ntiq 整理成电子书,希望对部分刚刚进入科研工作岗位的朋友有所帮助,则心愿已足!本书可转载,请注明出处!部分内容收集后已记不清出处,请原作者谅解!(: The book content from major networks forum, by ntiq organized into e-books, I hope for some scientific research work has just entered a friend help, then aspiration is enough! This book may be reproduced, please indicate the source! Part of the contents of the collection has not remember the source, please original author of Understanding!)
    2008-03-18 18:50:38下载
    积分:1
  • 59564327BUCK-SMC(1)
    说明:  基于buck型变换器的滑模变结构控制仿真(Simulation of sliding mode variable structure control based on Buck Converter)
    2020-12-22 23:59:06下载
    积分:1
  • c# 扫描IP Http Header
    c# 扫描IP Http Headerusing System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using System.Threading;using System.IO;namespace HScan{ public partial class Form1 : Form { int _currentThreads = 0; int _maxThreads = 100; Thread main = null; Thread mt = null; List threads = new List(); public Form1() { InitializeComponent(); Control.CheckForIllegalCrossThreadCalls = false; } private void btnStart_Click(object sender, EventArgs e) { btnStart.Enabled = false; if (txtStart.Text.Trim() == "") { MessageBox.Show("起始IP不能为空."); return; } if (txtEnd.Text.Trim() == "") { MessageBox.Show("结束IP不能为空."); return; } int ts = Convert.ToInt32(txtThreads.Text); _maxThreads = ts; string startIp = txtStart.Text; string endIp = txtEnd.Text; TParameter tp=new TParameter(); tp.StartIp=startIp; tp.EndIp=endIp; tp.ThreadCount=ts; main = new Thread(new ParameterizedThreadStart(StartMe)); main.Start(tp); } protected void ThreadManage() { Thread c=null; while (true) { System.Object lockThis = new System.Object(); lock (lockThis) { for (int i = 0; i < threads.Count; i ) { if (threads[i] != null && !threads[i].IsAlive) { c = threads[i]; break; } } if (c != null) { threads.Remove(c); } } } } protected void StartMe(object ob) { mt = new Thread(new ThreadStart(ThreadManage)); mt.Start(); TParameter p = ob as TParameter; string curIp = p.StartIp; while (true) { for (int i = 0; i < _maxThreads; i ) { if (curIp != "") { if (_currentThreads >= _maxThreads) break; System.Object lockThis = new System.Object(); lock (lockThis) { _currentThreads ; if (_currentThreads > _maxThreads) _currentThreads = _maxThreads; string tip = curIp; Thread t = new Thread(new ParameterizedThreadStart(Run)); t.Start(tip); threads.Add(t); curIp = IPUtility.getLastIp(curIp, p.EndIp, 1); } } else { break; } } } } protected void Run(object ob) { string ip = ob.ToString(); SocketGetHead h = new SocketGetHead(); string ret = h.GetHtml(ip, 80); if (ret.IndexOf("DVRDVS-Webs") > 0) { ListViewItem item = new ListViewItem(); item.SubItems[0].Text = (listView1.Items.Count 1).ToString(); ListViewItem.ListViewSubItem lvSubItem = new ListViewItem.ListViewSubItem(); lvSubItem.Text = ip; item.SubItems.Add(lvSubItem); lvSubItem = new ListViewItem.ListViewSubItem(); lvSubItem.Text = "DVRDVS-Webs"; item.SubItems.Add(lvSubItem); listView1.Items.Add(item); } System.Object lockThis = new System.Object(); lock(lockThis) { lblCurIp.Text = ip; _currentThreads--; if (_currentThreads < 0) _currentThreads = 0; } } private void tsmCopy_Click(object sender, EventArgs e) { if (listView1.SelectedItems.Count > 0) { string ip = listView1.SelectedItems[0].SubItems[1].Text; Clipboard.SetText(ip); } } private void tsmExport_Click(object sender, EventArgs e) { StreamWriter writer = new StreamWriter(AppDomain.CurrentDomain.BaseDirectory "\export.txt",true); foreach (ListViewItem item in listView1.Items) { string ip=item.SubItems[1].Text; writer.WriteLine(ip); writer.Flush(); } writer.Flush(); writer.Close(); MessageBox.Show("导出成功!"); } private void Form1_FormClosing(object sender, FormClosingEventArgs e) { try { if (mt != null) { mt.Interrupt(); mt.Abort(); } foreach (Thread t in threads) { t.Interrupt(); t.Abort(); } if (main != null) { main.Interrupt(); main.Abort(); } } catch { } Thread.Sleep(5000); } private void btnStop_Click(object sender, EventArgs e) { try { if (mt != null) { mt.Interrupt(); mt.Abort(); } foreach (Thread t in threads) { t.Interrupt(); t.Abort(); } if (main != null) { main.Interrupt(); main.Abort(); } } catch { } btnStart.Enabled = true; } }}
    2014-06-23下载
    积分:1
  • 使用jsp上载文件的例子
    使用jsp上载文件的例子-examples of upload files by using jsp
    2022-02-05 05:53:43下载
    积分:1
  • 一套完善的个人博客系统,功能全面,太好用了,拿了直接就用....
    一套完善的个人网络博客系统,功能全面,太好用了,拿了直接就用.-WebBlog
    2022-06-17 13:00:55下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载