吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 3691|回复: 6
收起左侧

[会员申请] 申请会员ID:happymade【申请通过】

[复制链接]
吾爱游客  发表于 2021-1-29 23:56
1、申 请 I D :happymade
2、个人邮箱:366615@qq.com
3、申请说明:本人是MSRM3(多交换机路由器监控3)软件作者。最近通过软件用户反馈得知有热心群众把我的MSRM3软件发到了此论坛上给大家共享(https://www.52pojie.cn/forum.php?mod=viewthread&tid=1344722),感谢这位热心群众发帖。但又看到围观群众有些有疑问却得不到解答,看的心慌……即想注册个账号,好给大家回复解答疑问。

本人从事网络运维管及软件开发17年,常编写方便自己网络管理工作的各种应用程序。 MSRM3(多交换机路由器监控v3)是我在多年管理企业网络的经验基础上,完全个人编写的一款适用于各类企业、院校、政府及通讯维护业的网络设备的监控管理软件。该软件自己也用于所在企业的网络管理,也作为共享软件免费给大家使用。用后欢迎提出意见和建议,我好改进更新……
4、原创技术文章:《MSRM3快速建立业网络拓扑图》 (该文章已发表于期刊《网络安全和信息化》第2020年12期,知网已收录:https://mall.cnki.net/magazine/article/WAXX202012042.htm)
---------原文内容 开始------------
企业、高校都离不开网络,必然有很多的网络设备,高效的管理运维是网管员的最迫切需要的。用上MSRM3,会让网络管理工作轻松许多。

对于各类企业、院校、政府及通讯维护业的网络管理员来说,手里管理着一堆的交换机、路由器等网络设备,并时时刻刻维护着它们,让网络保持通畅。但偶尔难免某个设备出现故障掉线,或某个设备CPU太忙或流量过高导致网络拥堵。通常来说都是终端用户报告网络不好用时管理员才去关注并分析处理故障,导致终端用户的网络体验不好。

然而管理网络,没有拓扑图哪能行,传统的建立网络网络图,用Visio慢慢的画,按照真实的网络结构来做的话,少说要用大半天时间,画出来的拓扑图通常输出成图片展示,这样的拓扑图不能体现实时的网络状态,不能交互查看更详细的拓扑链路信息。用MSRM3来自动生成实时状态可交互的拓扑图,也就分分钟的事。下面细说如何操作。

MSRM3是一款Windows绿色软件,仅一个大小不足3兆的控制台EXE文件,无需安装直接双击运行,自身也可以注册为Windows系统服务来提供服务。第一次启动控制台程序,将提示要求绑定Web服务端口,直接回车绑定本机TCP 80端口作为Web服务端口。绑定成功后控制台将自动呼出本机默认浏览器,打开MSRM3的Web管理界面。 此时MSRM3配置完成,启动成功。


鼠标滑到页面顶部,点击主菜单右侧的红色用户按钮登录。第一次登录填写的用户名和密码将自动添加为管理员账户。登录成功后,在中间黑色空白拓扑界面点击鼠标右键,打开拓扑菜单,选择【全网拓扑发现】。打开拓扑发现对话框,填写拟作为中心设备IP地址及SNMP团体名,选择发现的层次后,点【开始拓扑发现】。

在执行这一步之前,还须把企业内的网络设备都开启SNMP,设置统一的只读团体名。

以CISCO、锐捷品牌网络设备为例,在全局配置模式下输入:
snmp-server community MSRM ro  (设置只读团体名为MSRM)
华为、H3C、HP品牌为例,在全局配置模式下输入:
snmp-agent  (开启SNMP-agent服务)
snmp-agent community read MSRM  (设置只读团体名为MSRM)
snmp-agent sys-info version v2c  (设置仅需开启V2C版本协议)

拓扑发现过程中有进度提示,总共等待大约50秒,界面提示【拓扑发现结束】,以我所在企业为例,共自动发现658个设备,5万多个端口,并按真实情况生成了655条设备端口间连线,此时螺旋环状的真实拓扑图已经生成好了。生成的拓扑图如同蜘蛛网一样,拓扑图上的每根连线都精确到设备的具体的某个物理接口。拓扑图可以用鼠标滚轮缩放和拖动来查看。



拓扑发现1.jpg

自动生成的拓扑图由于设备和连线太多可能显得杂乱,可人工分区整理。选中其中一台汇聚交换机,拖动到一旁,在此设备图标上点击鼠标右键,打开设备菜单,选择【螺旋聚拢…】,这时仅和此台设备相连的设备将聚拢到一起。

为了更直观的分区,此时可新建区域,在黑色空白拓扑图点击鼠标右键,打开拓扑菜单,选择【添加新区域】,新的区域将建立在拓扑图中。拖动区域位置、并配合拉动区域的四个角来调整区域的大小,框住螺旋聚拢的设备,被区域框住的设备将随区域一起移动。要让区域内的设备排列更美观,可在区域内空白处,点击鼠标右键,打开区域菜单,选择【区域内设备调整】勾选【调整区域大小时自动排列】选项,此时,再次拉动区域的四个角来调整区域大小,区域内的设备就会自动整齐化排列。



拓扑整理.png

经过几分钟的分区整理,拓扑图部分明显清爽许多。整理好拓扑布局后,按下热键Ctrl+S 或拓扑空白处右键菜单选择保存拓扑来保存拓扑布局。
可别以为所有的连线都是绿色的,其实并不是,绿色线缆表示的是链路Up的线缆。其实整个拓扑图都是实时的。当交换机端口出现Down,线缆会出现红色或橙色,某个设备如果不能通讯,将在设备上显示【通讯超时】,意外断开的端口将显示【端口故障】。

在拓扑图的设备图标上点击鼠标右键打开设备菜单,可选择Telnet管理此设备。通过Web实现对设备的Telnet管理,这其实是MSRM3服务端向设备发起的Telnet,当你的MSRM3架设在某个服务器,你甚至可以配置交换机仅允许MSRM3服务器的IP连接Telnet,从而实现了部分堡垒机的功能,不管在内外网都可以管理你的企业内部的网络设备。

拓扑图上双击任意一根线缆会出现线缆连接信息。信息包含两端的设备名,端口名,链路速率,是否有告警信息,如开启有端口流量记录,可直接快速查看该端口的流量图。

拓扑图上双击设备图标,将打开设备详细信息边栏。在设备详细信息界面,点击顶部笔形状的修改设备信息按钮,可对此设备各类信息进行编辑,开启设备性能监控、接口监控、告警等。

端口开启流量记录、设备开启性能记录后,经过一段时间的采集,可以看流量图和性能图。流量图和性能图是矢量、可交互的,可鼠标拖动来选择时间范围,滚动鼠标滚轮来缩放,数据详细到每分钟。



管理界面.png

如有多个设备和开启多个端口的流量记录后,可以在顶部的【数据排序】功能模块看到所有的设备和开启流量记录的端口,可自定义列,设置分组,各类排序,方便统计管理。



数据排序.png

MSRM3还有一个重要功能就是告警通知到微信。在【系统设置】栏目按照操作指南开启通知到微信。当你的设备出现掉线,重要端口出现意外断线,告警信息将实时发送到你的微信。让网络运维从用户报障、被动维护,变为自我发现、主动维护,提升管理服务质量。

MSRM3还有许多实用的功能,作者不久后还将加入全网实时查找定位某个IP/MAC所处交换机端口位置功能。


难怪有搞运维的朋友评价MSRM3:“方便、卫生,见效快”。真希望大家和我一起探索发现改进MSRM3,让网络运维变得高效、简单。

---------原文内容 结束------------
5、个人开发截图证明:
QQ截图20210129232501.jpg
QQ截图20210129232649.jpg
QQ截图20210129233605.jpg

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

Hmily 发表于 2021-2-1 10:23
很抱歉,论坛不接受成品申请,可以继续回复通过技术文章,来申请。
吾爱游客  发表于 2021-2-1 21:06
先来一个前端的技术文章分享……

分享自己做的一款实用 React 虚拟键盘组件,支持AntDesign,可用于触屏输入文本内容。
(曾分享到CSDN) https://blog.csdn.net/u011527696/article/details/108891363
------------内容-------------
个人在做一个只有触屏的React前端开发,需要输入文本,找了一圈没有好用的React虚拟键盘插件。故自己写了一个,分享给大家。

代码如下:

文件名: VK.jsx
[JavaScript] 纯文本查看 复制代码
/*--
海皮智造 虚拟键盘 20200930
=============================================
React 内调用说明:
import { VirtualKeyboard } from './VK'
VirtualKeyboard 有2个参数,3个方法。
//
参数1:
VirtualKeyboard.isDisableEnter=true|false
是否禁用Enter键,默认为true。
参数2:
VirtualKeyboard.isDisableTab=true|false
是否禁用Tab键,默认为true。
------------------------
方法1:
.showKeyboardSetState(valueObject,reactComponent)
显示虚拟键盘,此方式主要用于Antd Input组件,由于Antd的输入组件直接修改dom的value不生效,故只能传入值Object对象。
valueObject 是一个Object,Object对象必须使用value属性来传递值。
reactComponent 是当前React Component,用于按键后setState更新显示。
如下例子:
let V={value:'123'}
<Input onClick={()=>VirtualKeyboard.showKeyboardSetState(V,this)} value={V.value}/>
方法2:
.showKeyboard(e)
显示虚拟键盘,此方式主要用于大部分模式。
参数e可是3种类型,
1、字符串,即要联动的dom的id
使用举例: VirtualKeyboard.showKeyboard("inputA")
2、直接是要联动的dom对象,
使用举例: VirtualKeyboard.showKeyboard(document.getElementById("xxx"))
3、鼠标/触摸事件
使用举例: <input onClick={VirtualKeyboard.showKeyboard} />
方法3:
.closeKeyboard()
用命令来关闭键盘,一般来说用不到。
--*/
import React from 'react';
import ReactDOM from 'react-dom';
class VK extends React.Component {
    //定义键盘显示内容的字符串数组,字符串内容2个字符的为支持Shift切换按键。
    C = [
        "~`", "!1", "@2", "#3", "$4", "%5", "^6", "&7", "*8", "(9", ")0", "_-", "+=", "Backspace",
        "Tab", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "{[", "}]", "|\\",
        "CapsLock", "A", "S", "D", "F", "G", "H", "J", "L", "L", ":;", "\"'", "Enter",
        "Shift", "Z", "X", "C", "V", "B", "N", "M", "<,", ">.", "?/", "Space"]
    //定义按键宽度的数组,为空时为默认宽度
    W = [, , , , , , , , , , , , , 120, 90, , , , , , , , , , , , , 90, 110, , , , , , , , , , , , 135, 140, , , , , , , , , , , 170]
    //以上2个数组项目数必须相同

    //鼠标按下事件函数,用于拖动键盘位置。
    F_MouseDown = (e) => {
        e = e.nativeEvent
        if (e.button !== 0) return
        if (e.target.id.indexOf("VK_") !== 0) {
            if ((e.target.innerText === "Enter" && this.props.values.isDisableEnter === true) || (e.target.innerText === "Tab" && this.props.values.isDisableTab === true)) {
                return
            }
            e.target.style.backgroundColor = "#F80"
            e.target.style.boxShadow = "0px 0px 4px #000 inset"
            this.V.keydom = e.target
            document.addEventListener("mouseup", this.F_KeyMouseUp);
            return
        }
        //绑定移动事件
        document.addEventListener("mousemove", this.F_MouseMove);
        //绑定放开按钮事件
        document.addEventListener("mouseup", this.F_MouseUp);
        this.V.posX = -e.pageX
        this.V.posY = -e.pageY
    }

    //鼠标移动事件函数,用于拖动键盘位置(当鼠标按下之后才绑定此事件)。
    F_MouseMove = (e) => {
        let tx = this.V.posX + e.pageX + this.V.x;
        let ty = this.V.posY + e.pageY + this.V.y;
        this.dom.style.left = tx + 'px'
        this.dom.style.top = ty + 'px'
    }

    //鼠标放开事件函数,用于拖动键盘位置(当鼠标按下之后才绑定此事件)。
    F_MouseUp = (e) => {
        this.V.x = this.V.posX + e.pageX + this.V.x;
        this.V.y = this.V.posY + e.pageY + this.V.y;
        //取消事件绑定
        document.removeEventListener("mousemove", this.F_MouseMove);
        document.removeEventListener("mouseup", this.F_MouseUp);
    }

    
    F_KeyMouseUp = (e, dom) => {
        this.V.keydom.style.backgroundColor = "#FFF"
        this.V.keydom.style.boxShadow = null
        document.removeEventListener("mouseup", this.F_KeyMouseUp);
    }
    F_TouchStart = (e) => {
        e = e.nativeEvent
        if (e.target.id.indexOf("VK_") !== 0) {
            if ((e.target.innerText === "Enter" && this.props.values.isDisableEnter === true) || (e.target.innerText === "Tab" && this.props.values.isDisableTab === true)) {
                return
            }
            e.target.style.backgroundColor = "#F80"
            e.target.style.boxShadow = "0px 0px 4px #000 inset"
            this.V.keydom = e.target
            document.addEventListener("touchend", this.F_KeyTouchEnd);
            return
        }
        document.addEventListener("touchmove", this.F_TouchMove);
        document.addEventListener("touchend", this.F_TouchEnd);
        this.V.posX = -e.targetTouches[0].pageX
        this.V.posY = -e.targetTouches[0].pageY
    }
    F_TouchMove = (e) => {
        let tx = this.V.posX + e.targetTouches[0].pageX + this.V.x;
        let ty = this.V.posY + e.targetTouches[0].pageY + this.V.y;
        this.dom.style.left = tx + 'px'
        this.dom.style.top = ty + 'px'
    }
    F_TouchEnd = (e) => {
        this.V.x = this.V.posX + e.changedTouches[0].pageX + this.V.x;
        this.V.y = this.V.posY + e.changedTouches[0].pageY + this.V.y;
        document.removeEventListener("touchmove", this.F_TouchMove);
        document.removeEventListener("touchend", this.F_TouchEnd);
    }
    F_KeyTouchEnd = (e) => {
        this.V.keydom.style.backgroundColor = "#FFF"
        this.V.keydom.style.boxShadow = null
        document.removeEventListener("touchend", this.F_KeyTouchEnd);
    }
    F_KeyDown = (e) => {
        let dom = e.target
        let txt = dom.innerText
        if (txt === "CapsLock") {
            this.V.isCaps = !this.V.isCaps
            if (this.V.isCaps) {
                dom.style.backgroundColor = "#F80"
            } else {
                dom.style.backgroundColor = "#FFF"
            }
            this.setState({})
        } else if (txt === "Shift") {
            this.V.isShift = !this.V.isShift
            if (this.V.isShift) {
                dom.style.backgroundColor = "#F80"
            } else {
                dom.style.backgroundColor = "#FFF"
            }
            this.setState({})
        } else if (txt === "Enter") {
            if (this.props.values.isDisableEnter === false) {
                this.F_ChangeInput(String.fromCharCode(13))
            }
        } else if (txt === "Space") {
            this.F_ChangeInput(" ")
        } else if (txt === "Tab") {
            if (this.props.values.isDisableTab === false) {
                this.F_ChangeInput(String.fromCharCode(9))
            }
        } else if (txt === "Backspace") {
            this.F_ChangeInput(-1)
        } else if (txt.indexOf("\n") >= 0) {
            if (this.V.isShift) {
                this.F_ChangeInput(txt[0])
            } else {
                this.F_ChangeInput(txt[2])
            }
        } else {
            if (this.V.isShift) {
                this.F_ChangeInput(txt.toUpperCase() === txt ? txt.toLowerCase() : txt.toUpperCase())
            } else this.F_ChangeInput(txt)
        }
    }
    render() {
        let keyStyle = {
            boxSizing: "border-box",
            float: "left",
            height: 60,
            margin: 2.5,
            borderRadius: 4,
            border: "1px solid #333",
            textAlign: "center",
            cursor: "pointer",

        }
        return (
            <div onContextMenu={e => e.preventDefault()} tabIndex="-1" id="VK_Main" ref={dom => this.dom = dom} style={{ outline: 'none', top: this.V.y, left: this.V.x, position: 'absolute', zIndex: '999999999', backgroundColor: '#AAA', padding: 3, width: 970, fontSize: 20, border: '1px solid #444', borderRadius: 8, userSelect: 'none' }} onMouseDown={this.F_MouseDown} onTouchStart={this.F_TouchStart} onBlur={this.F_Close}>
                <div id="VK_Title" style={{ fontSize: 14, margin: 5, textAlign: "right" }}><span id="VK_Tip" style={{ float: 'left' }}>海皮智造 &#169; 虚拟键盘</span>如虚拟键盘遮挡显示内容,可以拖动移开或 <button style={{ borderRadius: 6, border: '1px dotted #333' }} onClick={this.F_Close}>关闭虚拟键盘</button></div>
                <div id="VK_Keys" style={{ height: 67, lineHeight: 67 }} onClick={this.F_KeyDown} >
                    {this.C.map((c, n) => {
                        if (c.length === 2) {
                            return (<div key={n} style={{ ...keyStyle, width: this.W[n] ? this.W[n] : 60, lineHeight: '28px', backgroundColor: "#fff" }}>
                                {c[0]}<br />{c[1]}
                            </div>)
                        } else {
                            return <div key={n} style={{ ...keyStyle, width: this.W[n] ? this.W[n] : 60, lineHeight: '60px', backgroundColor: (c === "Tab" && this.props.values.isDisableTab) || (c === "Enter" && this.props.values.isDisableEnter) ? "#888" : "#fff" }}>{c.length === 1 ? (this.V.isCaps ? c.toUpperCase() : c.toLocaleLowerCase()) : c}</div>
                        }
                    })}
                </div>
            </div>
        )
    }
    constructor(props) {
        super()
        if (props.values.dom !== null) {
            this.V.currentDom = props.values.dom
        }
        if (props.values.value !== null && props.values.state !== null) {
            this.V.reactValueObject = props.values.value
            this.V.reactStateObject = props.values.state
        }
        let w = document.body.clientWidth
        let h = document.body.clientHeight
        this.V.x = w / 2 - 970 / 2
        this.V.y = h - 300
    }
    UNSAFE_componentWillUpdate(props) {
        if (props.values.dom !== null) {
            this.V.currentDom = props.values.dom
            this.V.reactValueObject = null
            this.V.reactStateObject = null
        } else if (props.values.value !== null && props.values.state !== null) {
            this.V.reactValueObject = props.values.value
            this.V.reactStateObject = props.values.state
            this.V.currentDom = null
        }
    }
    componentDidMount() {
        this.dom.focus()
    }
    F_ChangeInput = (c) => {
        let inputContent = ""
        if (this.V.currentDom !== null) {
            inputContent = this.V.currentDom.innerText || this.V.currentDom.textContent || this.V.currentDom.value
        } else inputContent = this.V.reactValueObject.value;
        inputContent = inputContent.toString()
        let strArr = inputContent.split('')
        if (c === -1) {
            strArr.pop()
        } else strArr.push(c)
        if (this.V.currentDom !== null) {
            if (this.V.currentDom.nodeName === "INPUT") {
                this.V.currentDom.value = strArr.join('')
            } else if (this.V.currentDom.nodeName !== undefined) {
                this.V.currentDom.innerHTML = strArr.join('')
            }
        } else if (this.V.reactStateObject !== null && this.V.reactValueObject !== null) {
            this.V.reactValueObject.value = strArr.join('')
            this.V.reactStateObject.setState({})
        }
    }
    V = {
        isCaps: false,
        isShift: false,
        currentDom: null,
        reactValueObject: null,
        reactStateObject: null
    }
    F_Close = () => {
        this.props.values.closeKeyboard()
    }
}
const data = {
    VK: VK.prototype,
    div: null,
    props: {}
}
export const VirtualKeyboard = {
    isDisableEnter: true,
    isDisableTab: true,
    showKeyboardSetState: (valueObject, reactComponent) => {
        data.props.value = valueObject
        data.props.state = reactComponent
        data.props.dom = null
        if (data.div !== null) {
            data.VK.setState({})
        } else {
            data.props.closeKeyboard = VirtualKeyboard.closeKeyboard
            data.props.isDisableEnter = VirtualKeyboard.isDisableEnter
            data.props.isDisableTab = VirtualKeyboard.isDisableTab
            let body = document.getElementsByTagName("body")[0]
            if (body === undefined) return
            let div = document.createElement("div")
            data.div = div
            body.appendChild(div)
            let V = <VK ref={dom => data.VK = dom} values={data.props} />
            ReactDOM.render(V, div)
        }
    },
    showKeyboard: (e) => {
        data.props.value = null
        data.props.state = null
        data.props.dom = null
        if (typeof (e) === "string") {
            let dom = document.getElementById(e)
            if (dom !== null) {
                data.props.dom = dom
            }
        } else if (typeof (e) === "object") {
            if (typeof (e.type) === "string" && typeof (e.nodeName) === "string") {
                data.props.dom = e
            } else if (e.target !== undefined) {
                e = e.target
                if (typeof (e.type) === "string" && typeof (e.nodeName) === "string") {
                    data.props.dom = e
                }
            }
        }
        if (data.props.dom === null) return
        if (data.div !== null) {
            data.VK.setState({})
        } else {
            data.props.closeKeyboard = VirtualKeyboard.closeKeyboard
            data.props.isDisableEnter = VirtualKeyboard.isDisableEnter
            data.props.isDisableTab = VirtualKeyboard.isDisableTab
            let body = document.getElementsByTagName("body")[0]
            if (body === undefined) return
            let div = document.createElement("div")
            data.div = div
            body.appendChild(div)
            let V = <VK ref={dom => data.VK = dom} values={data.props} />
            ReactDOM.render(V, div)
        }
    },
    closeKeyboard: () => {
        ReactDOM.render(null, data.div)
        data.div.remove()
        data.div = null
    }
}


调用例子:例子中的<Input /> 是AntD的组件。
[JavaScript] 纯文本查看 复制代码
import { VirtualKeyboard } from './VK';
 
class Test extends React.Component {
  V={value:"hello"}
  render() {
    return <Input onClick={() => VirtualKeyboard.showKeyboardSetState(this.V, this)} value={this.V.value} />
  }
}


下面再来点实用应用程序技术分享:
吾爱游客  发表于 2021-2-1 21:29
再来一个小型应用程序:

windows下管理网络用ping来检查网络通断和延迟判断网络质量太常用不过了,但是也太局限了。如对端服务器禁用了ping,或ping的通,延时不高,可访问服务器却卡的不得了。
如何判断哪里卡,是服务器网络链路质量问题,还是服务器业务端处理(如数据库运算)响应不过来,还是基础服务本身就卡(如遭遇DDOS,建立连接响应不过来)。对此我简单做了一个TCPTest小工具,测试服务器TCP响应速度,可以理解为TCP Ping。
代码为VB.net。编译方法:新建一Visual Basic控制台程序。
在模块中粘贴如下代码:
[Visual Basic .NET] 纯文本查看 复制代码
Imports System.Threading
Module Module1
    Sub Main()
        Console.WriteLine("TCP 连接测试 【 Happymade 编写 1.0】")
        Do
            Dim Add As String = ""
            Do
                Console.WriteLine()
                Console.Write("目标IP或者域名>")
                Dim S = Console.ReadLine()
                If S <> "" Then
                    Add = S
                    Exit Do
                Else
                    Console.WriteLine("XXX 目标IP或者域名不能为空")
                End If
            Loop
            Dim Port As Integer
            Do
                Console.Write("TCP端口[1-65535](默认80)>")
                Dim S As String = Console.ReadLine()
                If S = "" Then
                    Port = 80
                    Exit Do
                Else

                    If Integer.TryParse(S, Port) Then
                        If Port < 0 And Port > 65535 Then
                            Console.WriteLine("XXX 端口超过范围")
                        Else
                            Exit Do
                        End If
                    Else
                        Console.WriteLine("XXX 端口必须是数字")
                    End If
                End If
            Loop
            Dim N As Integer
            Do
                Console.Write("测试次数(默认100次)>")
                Dim S As String = Console.ReadLine()
                If S = "" Then
                    N = 100
                    Exit Do
                Else
                    If Integer.TryParse(S, N) Then
                        If N < 0 And N > 1000000 Then
                            Console.WriteLine("XXX 测试次数超过范围")
                        Else
                            Exit Do
                        End If
                    Else
                        Console.WriteLine("XXX 测试次数必须是数字")
                    End If
                End If
            Loop
            Dim MS As Integer
            Do
                Console.Write("单次超时时间(默认200ms)>")
                Dim S As String = Console.ReadLine()
                If S = "" Then
                    MS = 200
                    Exit Do
                Else
                    If Integer.TryParse(S, MS) Then
                        If N < 0 And N > 5000 Then
                            Console.WriteLine("XXX 单次超时时间超过范围")
                        Else
                            Exit Do
                        End If
                    Else
                        Console.WriteLine("XXX 单次超时时间必须是数字")
                    End If
                End If
            Loop
            Dim W As Integer
            Do
                Console.Write("单次间隔时间(默认100ms)>")
                Dim S As String = Console.ReadLine()
                If S = "" Then
                    W = 100
                    Exit Do
                Else
                    If Integer.TryParse(S, W) Then
                        If N < 0 And N > 10000 Then
                            Console.WriteLine("XXX 单次间隔时间超过范围")
                        Else
                            Exit Do
                        End If
                    Else
                        Console.WriteLine("XXX 单次间隔时间必须是数字")
                    End If
                End If
            Loop
            Dim Lost = 0
            Dim OK = 0
            Dim ALL = 0
            Dim min As Single = 1000000, max As Single = 0
            For I = 1 To CInt(N)
                Dim TimeoutObject As New ManualResetEvent(False)
                Dim IsConnectionSuccessful = False
                Dim Tcp As New System.Net.Sockets.TcpClient()
                Dim t1 = Date.Now
                Tcp.BeginConnect(Add, CInt(Port), New AsyncCallback(Sub(asyncresult As IAsyncResult)
                                                                        Try
                                                                            IsConnectionSuccessful = False
                                                                            Dim tcpclient As System.Net.Sockets.TcpClient = asyncresult.AsyncState
                                                                            If (tcpclient.Client IsNot Nothing) Then
                                                                                tcpclient.EndConnect(asyncresult)
                                                                                IsConnectionSuccessful = True
                                                                                TimeoutObject.Set()
                                                                            End If
                                                                        Catch ex As Exception
                                                                        End Try
                                                                    End Sub), Tcp)
                If TimeoutObject.WaitOne(MS, True) Then
                    If (IsConnectionSuccessful) Then
                        Dim t2 = Date.Now
                        Dim x = CInt((t2 - t1).TotalMilliseconds * 10) / 10
                        Dim xx = x.ToString & "."
                        Dim xxx = xx.Split(".")
                        Dim xxxx = xxx(0).PadLeft(3, " ") & "." & xxx(1).PadRight(1, "0").Substring(0, 1)
                        Console.Write(xxxx & " ")
                        OK += 1
                        ALL += x
                        If x < min Then min = x
                        If x > max Then max = x
                    Else
                        Console.Write("--E-- ")
                        Lost += 1
                    End If
                Else
                    Console.Write("--T-- ")
                    Lost += 1
                End If
                Tcp.Close()
                Tcp = Nothing
                If W > 0 Then
                    System.Threading.Thread.Sleep(W)
                End If
            Next
            Console.WriteLine()
            Dim AV As Single
            If OK = 0 Then
                AV = 0
            Else
                AV = CInt(ALL / OK * 100) / 100
            End If
            Console.WriteLine("结束,成功=" & OK & ",失败=" & Lost & ",平均=" & AV & ",最小=" & min & ",最大=" & max)
            Console.WriteLine()
            Console.WriteLine("再来一轮? 直接按回车,其他输入退出。")
            Dim K = Console.ReadKey()
            If K.Key <> ConsoleKey.Enter Then
                Exit Do
            End If
        Loop
    End Sub
End Module


效果图:
QQ截图20210201212357.jpg

如网卡,但TCP ping值不高,可大体分析网络链路质量和基本服务响应无问题,问题可能出在Web应用本身。
吾爱游客  发表于 2021-2-1 21:59
要不,再来一个happymade个人应用,好用拿走不用谢。
-----------------
用Git来做版本控制,好用!好用!好用!但是也不好用!
原因:保存代码后要记得签入,并提交到服务器。忘了签入和提交,白搞!再又如:代码在多次修改调试过程中,某些特定情况下CTRL+Z回退不了,重新手动改写回去考记忆,还慢。
为了解决这个问题,方便自己编写代码调试,任何时候可回退到每一调试状态,我写了一个AutoGit程序,辅助自己!

主要原理:为当前程序目录建立Git管理,当检测到发生保存操作,自动commit,并Push到服务器。这样调试(保存)的每一步都被记录了下来并提交到远端,即可回退查询任意时间的点的代码记录。
VB.net代码。控制台应用程序。
[Visual Basic .NET] 纯文本查看 复制代码
Imports System.IO

Module Module1

    Sub Main(cs() As String)
        Console.WriteLine("HappyInvention AutoGit " & Process.GetCurrentProcess.MainModule.FileVersionInfo.ProductVersion.ToString)
        Console.WriteLine("=================================================================")
        If cs.Length = 0 Then
            Dim ZSPSI As New ProcessStartInfo(Process.GetCurrentProcess.MainModule.FileName)
            ZSPSI.Arguments = """" & System.Environment.CurrentDirectory & """"
            Process.Start(ZSPSI)
            Console.WriteLine("无参数启动,退出...")
            Return
        End If
        Dim Dir1 As String = cs(0)
        Dim PSI As New ProcessStartInfo("Git")
        PSI.WindowStyle = ProcessWindowStyle.Minimized
        Try
            Console.WriteLine(">Git " & PSI.Arguments)
            Process.Start(PSI).WaitForExit()
            Console.WriteLine("!Done")
        Catch ex As Exception
            Console.WriteLine("你尚未安装Git,按任意键退出...")
            Console.ReadKey()
            Return
        End Try
        Console.WriteLine("当前目录:" & Dir1)
        Dim FP = (Dir1 & "\.Git\config").Replace("\\", "\")
        If IO.File.Exists(FP) = False Then
            Do
                Console.WriteLine()
                Console.WriteLine("该目录尚未初始化Git。")
                Console.WriteLine()
                Console.WriteLine("请选择功能:")
                Console.WriteLine("i、初始化Git到该目录")
                Console.WriteLine("c、克隆一个项目到该目录")
                Console.WriteLine("q、退出")
                Dim k = Console.ReadKey
                If k.Key = ConsoleKey.I Then
                    Console.WriteLine()
                    Console.WriteLine("请设置Git远程服务器地址,如为空仅初始化本地Git。")
                    Console.Write("Git远程服务器地址> ")
                    Dim tS = Console.ReadLine
                    PSI.Arguments = "init"
                    Console.WriteLine(">Git " & PSI.Arguments)
                    Process.Start(PSI).WaitForExit()
                    Console.WriteLine("!Done")
                    If tS <> "" Then
                        PSI.Arguments = "remote add origin " & tS
                        Console.WriteLine(">Git " & PSI.Arguments)
                        Process.Start(PSI).WaitForExit()
                        Console.WriteLine("!Done")
                    End If
                    Console.WriteLine("Git初化成功。")
                    Exit Do
                ElseIf k.Key = ConsoleKey.C Then
                    Console.WriteLine()
                    Console.WriteLine("请填写Git远程服务器地址。")
                    Console.Write("Git远程服务器地址> ")
                    Dim tS = Console.ReadLine
                    If tS = "" Then
                        Console.WriteLine("没有填写地址,退出...")
                        Return
                    End If
                    Console.WriteLine("Git开始Clone下载。")
                    PSI.Arguments = "clone " & tS & " GitCloneDownload"
                    Console.WriteLine(">Git " & PSI.Arguments)
                    Process.Start(PSI).WaitForExit()
                    Console.WriteLine("!Done")
                    If IO.Directory.Exists(Dir1 & "\GitCloneDownload") = False Then
                        Console.WriteLine("!!!项目没有下载成功,请检查项目地址是否正确,注意区分大小写!!!")
                    Else
                        Dim files = Directory.GetFiles(Dir1 & "\GitCloneDownload")
                        Dim isErr = False
                        For Each f In files
                            Dim nf = Path.Combine({Dir1, Path.GetFileName(f)})
                            Try
                                IO.File.Move(f, nf)
                            Catch ex As Exception
                                isErr = True
                            End Try
                        Next
                        Dim dirs = Directory.GetDirectories(Dir1 & "\GitCloneDownload")
                        For Each d In dirs
                            Dim nd = Path.Combine({Dir1, Path.GetFileName(d)})
                            Try
                                IO.Directory.Move(d, nd)
                            Catch ex As Exception
                                isErr = True
                            End Try
                        Next
                        Console.WriteLine("Git的Clone完成。")
                        If isErr = True Then
                            Console.WriteLine("!!!但部分文件或文件夹没有移动成功,请手动将【GitCloneDownload】目录中的所有文件和文件夹剪切到外层文件夹!!!")
                            Console.WriteLine("!!!移动完成后再删除【GitCloneDownload】文件夹!!!")
                            Console.WriteLine("!!!全部完成后按按任意键继续...!!!")
                            Console.ReadKey()
                        Else
                            IO.Directory.Delete(Dir1 & "\GitCloneDownload", True)
                        End If
                        Exit Do
                    End If
                ElseIf k.Key = ConsoleKey.Q Then
                    Console.WriteLine()
                    Console.WriteLine("你已选择退出...")
                    Return
                Else
                    Console.WriteLine("  无效输入,请重试...")
                End If
            Loop
        End If
        Console.WriteLine()
        Dim B = IO.File.ReadAllBytes(FP)
        Dim S = System.Text.Encoding.Default.GetString(B)
        Dim IsRemote As Boolean = False
        If S.Contains("[remote """) Then
            IsRemote = True
            Console.WriteLine("Git已设置远程服务器地址,改变将自动同步到服务器。")
        Else
            Console.WriteLine("Git仅本地环境。")
        End If
        Console.WriteLine()
        Console.WriteLine("开始监听文件夹改变...")
        Dim Queue_FSE As New Queue(Of FileSystemEventArgs)
        Dim FSW As New FileSystemWatcher(Dir1)
        AddHandler FSW.Changed, Sub(sender As Object, e As FileSystemEventArgs)
                                    Queue_FSE.Enqueue(e)
                                End Sub
        AddHandler FSW.Created, Sub(sender As Object, e As FileSystemEventArgs)
                                    Queue_FSE.Enqueue(e)
                                End Sub
        AddHandler FSW.Deleted, Sub(sender As Object, e As FileSystemEventArgs)
                                    Queue_FSE.Enqueue(e)
                                End Sub
        AddHandler FSW.Renamed, Sub(sender As Object, e As FileSystemEventArgs)
                                    Queue_FSE.Enqueue(e)
                                End Sub
        FSW.IncludeSubdirectories = True
        FSW.EnableRaisingEvents = True
        Dim List_EX As New List(Of String)
        List_EX.Add(Path.Combine({Dir1, ".git"}).ToLower())
        If IO.File.Exists(Dir1 & "\exclude.autogit") Then
            Dim FS = System.Text.Encoding.Default.GetString(File.ReadAllBytes(Dir1 & "\exclude.autogit"))
            Dim FSA = FS.Split(vbCrLf.ToArray)
            For Each F In FSA
                If F.Trim <> "" Then
                    List_EX.Add(Path.Combine({Dir1, F}).ToLower())
                End If
            Next
        End If
        Do
            Threading.Thread.Sleep(500)
            If Queue_FSE.Count > 0 Then
                Threading.Thread.Sleep(1000)
                Dim IsDo As Boolean = False
                Do Until Queue_FSE.Count = 0
                    Dim FSE = Queue_FSE.Dequeue
                    Dim n = 0
                    For Each f In List_EX
                        If FSE.FullPath.ToLower.StartsWith(f) = False Then
                            n += 1
                        Else
                            Exit For
                        End If
                    Next
                    If n = List_EX.Count Then
                        IsDo = True
                        Exit Do
                    End If
                Loop
                If IsDo Then
                    Dim T = Now.ToString
                    Console.WriteLine(T & " 检测到目录改变,开始AutoGit...")
                    If List_EX.Count > 1 Then
                        Dim FA = Directory.GetFiles(Dir1)
                        Dim DA = Directory.GetDirectories(Dir1)
                        PSI.Arguments = "add"
                        For Each F In FA
                            F = F.ToLower
                            If List_EX.Contains(F) = False Then
                                PSI.Arguments &= " """ & Path.GetFileName(F) & """"
                            End If
                        Next
                        For Each D In DA
                            D = D.ToLower
                            If List_EX.Contains(D) = False Then
                                PSI.Arguments &= " """ & Path.GetFileName(D) & """"
                            End If
                        Next
                    Else
                        PSI.Arguments = "add ."
                    End If
                    Console.WriteLine(">Git " & PSI.Arguments)
                    Process.Start(PSI).WaitForExit()
                    Console.WriteLine("!Done")
                    PSI.Arguments = "commit -am ""AutoGit自动更新 " & Now.ToString & """"
                    PSI.WindowStyle = ProcessWindowStyle.Hidden
                    Console.WriteLine(">Git " & PSI.Arguments)
                    Dim P = Process.Start(PSI)
                    P.WaitForExit()
                    Console.WriteLine("!Done")
                    If IsRemote Then
                        PSI.Arguments = "push -f origin master"
                        Console.WriteLine(">Git " & PSI.Arguments)
                        Process.Start(PSI).WaitForExit()
                        Console.WriteLine("!Done")
                    End If
                    Threading.Thread.Sleep(1000)
                    Queue_FSE.Clear()
                End If
            End If
        Loop
    End Sub

End Module


使用方法:
在没有git管理的目录下运行 autogit (可以把此应用放在Windows目录下),如图:
QQ截图20210201214709.jpg
选择初始化git管理到该目录,如有远程地址填写。
然后就开始autogit就开始监听此目录的改变,一旦保存就会出发commit和push到服务器。
QQ截图20210201215544.jpg
下次在代码目录直接运行AutoGit即可。
Hmily 发表于 2021-2-2 10:54
I D:happymade
邮箱:366615@qq.com

申请通过,欢迎光临吾爱破解论坛,期待吾爱破解有你更加精彩,ID和密码自己通过邮件密码找回功能修改,请即时登陆并修改密码!
登陆后请在一周内在此帖报道,否则将删除ID信息。
happymade 发表于 2021-2-2 11:34
注册成功!报告报道!
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-24 10:31

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表