一段有意思的代码

在浏览器上运行,非病毒:

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)

标签:

循环访问.cn数字网站

小王在整理硬盘,一些不常用的代码要删除,在这里留个备份。

标签:

PB的MD5加密算法

$PBExportHeader$nvo_md5.sru
$PBExportComments$md5加密对象
forward
global type nvo_md5 from nonvisualobject
end type
end forward

标签:

端口映射代码(delphi)

可能会用到,先转过来吧。

unit Vidc_M;

interface

uses

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

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

标签:

PB中使用FORMULA ONE

本文是小王整理计算机时找到的,google了一下,网上似乎没有,发上来与大家分享吧。我将以一个例子来详细说明F1的用法,以补充前文所述,此例为电力企业停电申请票的上报审批过程,内含过程权限控制,每一权限只能修改F1报表的一个部分,且有做图功能,采用PB 6.5和F1 6所编,下面将详细说明:

标签:

变量类型很关键

小王在一个数据库群看到有人问谁会pb(powerbuilder),想找人帮忙运行一段pb代码,看看结果是什么,作为一个曾经的pb程序员,我觉得是站出来的时候了,毫不犹豫的答应了他,经过1个小时的折腾,才把这个问题解决了,也算是重温了一下pb开发。
...

标签:

动态获得鼠标坐标的delphi代码

为了提高大家的安全意识,前段时间小王设计了一个蜜罐系统(详见《蜜罐系统正式开启》),为了让这个系统全自动,看起来很牛B,我用delphi写了两个小程序,一个是鼠标自动获得屏幕坐标的,一个是鼠标自动点击的,下图右侧是鼠标自动获得屏幕坐标的软件界面,今天把鼠标自动获得屏幕坐标的代码发出来。
...

标签:

C#.net实现防盗链

绝大多数网站都不希望自己网站中的资源被其他网站或者下载程序引用,在C#.net中可以利用App_Data文件夹来实现下载文件及图片文件的防盗链功能。原理一:在Asp.net中App_Data文件夹包含应用程序的本地数据存储。

标签:

一个delphi开发的恶意程序代码

这个delphi程序是去年上半年为了测试病毒和病毒代码库所做的恶意程序,功能有:程序运行后,会将自己添加到系统启动项中,如果有u盘接入,会自动copy自己到优盘上,还可以在指定时间内,在系统后台进行某些操作,比如打开网页什么的,该程序已经在去年被列为病毒了。本文只做技术交流,请勿用于非法用途,出现任何问题,本人概不负责。下面是代码,dephi7开发,用了一个timer控件:
unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
...

标签:

一套pb6.5开发的高校工资管理系统毕业设计

这个也是我自己开发的,pb6.5.1+sqlanywhere,给sally做毕业设计用的-_-|||,为了避免和那个高校学生管理系统有相似性,被老师发现,界面做了很大的修改,成绩当然也是优秀,哈哈,亮点是一些细节的地方,比如菜单权限管理和查询等,这些在老鸟眼里可能不值得一提,相信对新手有帮助。这套代码以前出售价是上百元,出售过一些,今天发出来吧。要论文的交money吧,word文档60页左右。下面是一些抓图:
...

分页:«12»