网管小王的博客 - 编程代码http://www.5iadmin.com/长期关注网络安全,网管,网络管理,网络管理员,网管软件,网络工程师 - RainbowSoft Studio Z-Blog 1.8 Walle Build 91204zh-CNCopyright 2010-2011 www.5iadmin.comvar _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3F29167fc4c70e297e903b22dbcedc0bd3' type='text/javascript'%3E%3C/script%3E"));Tue, 10 Mar 2026 11:24:14 +0800一段有意思的代码369459071@qq.com (admin)http://www.5iadmin.com/post/960.htmlMon, 21 May 2012 10:18:27 +0800http://www.5iadmin.com/post/960.html在浏览器上运行，非病毒：

javascript:R= 0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI= document.images; DIL=DI.length; function A(){for(i=0; i<DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math. sin(R*x1+ i*x2+x3)* x4+x5; DIS.top=Math. cos(R*y1+ i*y2+y3)* y4+y5}R++ }setInterval('A()',5); void(0)

]]>编程代码http://www.5iadmin.com/post/960.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=960http://www.5iadmin.com/cmd.asp?act=tb&id=960&key=ed6548c9循环访问.cn数字网站369459071@qq.com (admin)http://www.5iadmin.com/post/959.htmlSat, 19 May 2012 13:13:51 +0800http://www.5iadmin.com/post/959.html小王在整理硬盘，一些不常用的代码要删除，在这里留个备份。

]]>编程代码http://www.5iadmin.com/post/959.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=959http://www.5iadmin.com/cmd.asp?act=tb&id=959&key=25bf529aPB的MD5加密算法369459071@qq.com (admin)http://www.5iadmin.com/post/953.htmlMon, 23 Apr 2012 09:05:08 +0800http://www.5iadmin.com/post/953.html$PBExportHeader$nvo_md5.sru
$PBExportComments$md5加密对象
forward
global type nvo_md5 from nonvisualobject
end type
end forward

]]>编程代码http://www.5iadmin.com/post/953.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=953http://www.5iadmin.com/cmd.asp?act=tb&id=953&key=dfdfb92c端口映射代码(delphi)369459071@qq.com (admin)http://www.5iadmin.com/post/952.htmlWed, 18 Apr 2012 08:50:18 +0800http://www.5iadmin.com/post/952.html可能会用到，先转过来吧。

unit Vidc_M;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, IniFiles,StdCtrls, ExtCtrls, TFlatHintUnit,shellapi, XPMan;

]]>编程代码http://www.5iadmin.com/post/952.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=952http://www.5iadmin.com/cmd.asp?act=tb&id=952&key=40b7485ePB中使用FORMULA ONE369459071@qq.com (admin)http://www.5iadmin.com/post/895.htmlMon, 15 Aug 2011 09:30:34 +0800http://www.5iadmin.com/post/895.html本文是小王整理计算机时找到的，google了一下，网上似乎没有，发上来与大家分享吧。我将以一个例子来详细说明F1的用法，以补充前文所述，此例为电力企业停电申请票的上报审批过程，内含过程权限控制，每一权限只能修改F1报表的一个部分，且有做图功能，采用PB　6.5和F1　6所编，下面将详细说明：

]]>编程代码http://www.5iadmin.com/post/895.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=895http://www.5iadmin.com/cmd.asp?act=tb&id=895&key=8681010e变量类型很关键369459071@qq.com (admin)http://www.5iadmin.com/post/792.htmlTue, 28 Dec 2010 14:20:27 +0800http://www.5iadmin.com/post/792.html小王在一个数据库群看到有人问谁会pb（powerbuilder），想找人帮忙运行一段pb代码，看看结果是什么，作为一个曾经的pb程序员，我觉得是站出来的时候了，毫不犹豫的答应了他，经过1个小时的折腾，才把这个问题解决了，也算是重温了一下pb开发。
...

]]>编程代码http://www.5iadmin.com/post/792.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=792http://www.5iadmin.com/cmd.asp?act=tb&id=792&key=24befec4动态获得鼠标坐标的delphi代码369459071@qq.com (admin)http://www.5iadmin.com/post/791.htmlTue, 28 Dec 2010 12:52:55 +0800http://www.5iadmin.com/post/791.html为了提高大家的安全意识，前段时间小王设计了一个蜜罐系统（详见《蜜罐系统正式开启》），为了让这个系统全自动，看起来很牛B，我用delphi写了两个小程序，一个是鼠标自动获得屏幕坐标的，一个是鼠标自动点击的，下图右侧是鼠标自动获得屏幕坐标的软件界面，今天把鼠标自动获得屏幕坐标的代码发出来。
...

]]>编程代码http://www.5iadmin.com/post/791.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=791http://www.5iadmin.com/cmd.asp?act=tb&id=791&key=626ea0dcC#.net实现防盗链369459071@qq.com (admin)http://www.5iadmin.com/post/733.htmlSun, 17 Oct 2010 10:09:36 +0800http://www.5iadmin.com/post/733.html绝大多数网站都不希望自己网站中的资源被其他网站或者下载程序引用，在C#.net中可以利用App_Data文件夹来实现下载文件及图片文件的防盗链功能。原理一：在Asp.net中App_Data文件夹包含应用程序的本地数据存储。

]]>编程代码http://www.5iadmin.com/post/733.html#commenthttp://www.5iadmin.com/http://www.5iadmin.com/feed.asp?cmt=733http://www.5iadmin.com/cmd.asp?act=tb&id=733&key=d1ecf6a1