10 X-i-n

尚未进行身份认证

不懂就闭嘴;不说废话;不说似乎好像应该;不做复读机。

等级
TA的排名 18w+

快速图片合并(BitmapData操作)

public static Bitmap Merge(Bitmap left, Bitmap right) { Bitmap bmpOut = new Bitmap(left.Width + right.Width, left.Height); unsafe { ...

2019-09-05 19:11:24

利用 ELK系统分析Nginx日志并对数据进行可视化展示

一、写在前面  结合之前写的一篇文章:Centos7之安装LogstashELKstack日志管理系统,上篇文章主要讲了监控软件的作用以及部署方法。而这篇文章介绍的是单独监控nginx日志分析再进行可视化图形展示,并在用户前端使用nginx来代理kibana的请求响应,访问权限方面暂时使用HTTP基本认证加密用户登录。(关于elk权限控制,我所了解的还有一种方式-Shield),...

2018-08-29 02:21:59

一种快速到达目标页面的分页页码生成方法

假定分页条页码展示数为10。1. 定义一个List<int>;2. 总页数<11时,全部展示,将1-10添加到List;3. 总页数>10时,取首两页(1、2), 当前页和前后各一页(page-1、 page、 page+1), 总页数1/4, 1/2, 3/4的页码(pages/4、pages/2、pages *3 /4),尾两页(pages-1、page)添加到List...

2018-03-18 16:16:27

任意长度的十进制数转为二进制、十六进制,和大数除法算法(只有小半份)

辗转求余法实现的任意长度十进制数到2进制和16进制转换方法

2017-07-24 16:11:09

zoneminder报警(微信、QQ提醒)

zoneminder报警:当无人在家(dhcp保留手机IP,通过ping手机IP判断是否有人在家),过去10秒所有帧画面平均分值超过10分时,发送报警邮件到QQ邮箱,微信开通邮件提醒后,可以直接经过微信通知#!/usr/bin/python# -*- coding: UTF-8 -*-import MySQLdbimport smtplibimport datetimefrom emai

2017-01-31 15:43:41

获取当前正在运行的虚拟机(Vmware Workstation),并对虚拟机进行控制

vmware workstation 提供了一个命令行工具进行虚拟机管理 C:\Program Files (x86)\VMware\VMware Workstation\vmrun.exe用法如下:  POWER COMMANDS PARAMETERS DESCRIPTION-------------- ...

2016-06-30 16:08:09

Windows 10 VHD安装

系统装在虚拟磁盘的好处是,盛载系统的介质由普通的物理磁盘变成一个虚拟磁盘文件,使用起来和物理磁盘完全没有区别,但是更加灵活。不需要额外分区或删除老系统,不需要把文件倒来倒去,只要磁盘剩余空间足够就可以安装。备份和恢复也更方便,如果不满意,直接删掉VHD文件即可。

2015-07-31 00:41:11

mysql全备份并压缩归档

完全备份MYSQL,归档压缩备份文件

2014-08-04 14:52:57

异步调用web service并返回结果

Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click If Trim(txtInput.Text) <> "" Then Dim svc As New fysem Add...

2014-06-30 16:56:22

服务器新监控(win + .net)

My Server Monitor: 监控服务器LAN联通性、WAN联通性,CPU、内存空闲率,自动添加攻击者IP到防火墙黑名单。

2014-06-11 02:19:17

读取系统"安全"日志中的失败登录尝试 + 添加攻击者IP到防火墙策略

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click Dim ComputerLogs() As Diagnostics.EventLog = EventLog.GetEventLogs For Each

2014-06-10 17:14:39

Sharepoint列表项权限修改

场景:删除列表项所有当前权限,替换为要求的权限(此处为 创建者可以修改,总监、组长可以查看)  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim oweb As SPWeb = New SPSite("http://localhost:881/")

2013-04-18 19:49:22

excel数据自动导入

切换工作页自动导入网站数据,手动复制粘贴真是弱爆了:Private Sub Worksheet_Activate() Cells.Select Selection.Delete Shift:=xlUp With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.sxcoal.

2012-03-31 23:28:27
勋章 我的勋章
  • 勤写标兵Lv1
    勤写标兵Lv1
    授予每个自然周发布1篇到3篇原创IT博文的用户。本勋章将于次周周三上午根据用户上周的博文发布情况由系统自动颁发。
  • 红花
    红花
    子板块内专家分月排名榜第一