- 博客(46)
- 资源 (9)
- 收藏
- 关注
RSS订阅原创 Access数据库密码生成器
Access数据库密码生成器 在使用ACCESS数据库的时候都希望加个密码，让别人无法进入数据库中去随意的查看数据，手动写总是有一些规律在里面。下面这段代码可以生成一个20位的随机密码。Private Sub Command1_Click()Dim x As StringDim y As IntegerFor i = 1 To 20Doy = Int(Rnd(i) * 83 + 33)L
2005-04-29 08:50:00
3137
1
原创 手机上流行的各类谜语（大揭密）
1：天鹅飞去鸟不归，怀念昔日空费心，云开月下双匕影，水流几处又相逢，日落月出人倚月，单身贵族尔相随。（我不能没有你） 2：天鹅飞去鸟不归，良字无头双人配；受字中间多两笔（双木非林心相连），人尔结合就是自己。（我很爱你） 3：青山寺上一丛竹，天鹅还在鸟已去。前尘往事以成空，白云心中多条虹。心中有情藏不住，站在高处看远方。称断人和有谁知。 （等我亲自说爱你） 4：天鹅湖边鸟飞绝，白天相约解相
2005-04-01 08:20:00
1343
原创 笑话
A某所小学，有两个学生在吵架，甲说：「你...你再叫啊，我打个电话就可以找人来！」 T* 乙说：「你....你打啊!我就不信....」 然后甲真的跑去打电话了，回来的时候放了一句狠话：「30分钟后你就知道怎么死了!!!」 这时候乙紧张的不得了，但也没办法，30分钟后，学校广播：「乙某某同学，你有访客，请到学务处。」 「哇咧！」乙 虽然很害怕，但想想是在学务处，应该不会有事。 于是他到
2005-04-01 08:18:00
1429
原创 读取CPU信息
引用Microsoft WMI Scripting 1.1 Library在窗体上建一个Text，命名为Text1，并且Text1.MultiLine = TruePrivate Sub GetProcessorID() Dim a As SWbemServices Dim b As SWbemObjectSet Dim c As SWbemObject Dim d As SWbem
2005-03-29 11:31:00
1277
原创 到了。。。。。。
到了日本才知道死不认帐还会很有礼貌； 到了泰国才知道见了美女先别忙拥抱； 到了印度才知道人不得不给牛让道； 到了巴西才知道衣服穿得很少也不会害臊； 到了德国才知道死板还一套一套； 到了法国才知道“性骚扰”也会很有情调； 到了荷兰才知道男人和男人当街拥吻也那么火爆； 到了瑞士才知道开银行帐户没有10万美元会被嘲笑； 到了丹麦才知道写个童话可以不打草稿； 到了希腊才知道迷人的地方其实都是破庙； 到了冰
2005-03-28 13:05:00
1301
原创 数学笑话
1、概率有问题 “老师，我发现概率公式有问题！” “哦？说说你的理由。” “我们班共有50名同学，根据计算，我被提问的概率是2%，可今天这一节课您几乎让我回答了所有的问题。” 2、概率 我去参观气象站，看到许多预测天气的最新仪器。参观完毕，我问站长：“你说有百分之七十五的概率下雨时，是怎样计算出来的？” 站长不必多想便答道：“那就是说，我们这里有四个人，其中三个认为会下雨。” 3
2005-03-24 16:15:00
2676
2
原创 给出4个1-9的自然数，计算这4个数+、-、*、/运算后得到24的算法
首先，我们先看看这个游戏的规则，给出4个1-9之间的自然数，例如：1，5，5，5（这是很经典的一个例子哦 ^_^）。在1，5，5，5中间用+、-、*、/来运算后得到24这个数。每个数只能使用一次。如果没有计算过的基本都会被难住吧。哈哈，答案是 5*（5-1/5）。是不是很经典呢？和它类似的还有3，3，8，8。 下面我们来看具体算法。一般我们考虑这样的问题的时候，都是直接写一个超大的s
2005-03-23 10:45:00
4787
原创 使硬盘长寿的维护十五招
1、保持电脑工作环境清洁 硬盘以带有超精过滤纸的呼吸孔与外界相通，它可以在普通无净化装置的室内环境中使用，若在灰尘严重的环境下，会被吸附到PCBA的表面、主轴电机的内部以及堵塞呼吸过滤器，因此必须防尘。 还有环境潮湿、电压不稳定都可能导致硬盘损坏。 2、养成正确关机的习惯 硬盘在工作时突然关闭电源，可能会导致磁头与盘片猛烈磨擦而损坏硬盘，还会使磁头不能正确复位而造成硬盘的划伤。关机
2005-03-23 08:03:00
1265
原创 常见的网上邻居访问问题汇集
Windows网上邻居互访的基本条件： 1) 双方计算机打开，且设置了网络共享资源；2) 双方的计算机添加了 "Microsoft 网络文件和打印共享" 服务；3) 双方都正确设置了网内IP地址，且必须在一个网段中；4) 双方的计算机中都关闭了防火墙，或者防火墙策略中没有阻止网上邻居访问的策略。Windows 98/2000/XP/2003访问XP的用户验证问题首先关于启用Guest为什么不能访问
2005-03-23 08:02:00
2380
原创 麦当劳和肯德鸡"的笑话
有一次做收银员，来一老外，要买甜筒，我问他要几个，老外右手一抬，拇指和食指伸出来，在偶面前一比划，偶立刻会意，熟练地为他打好八个甜筒，递到面前。 老外一看急了，一边激动地在偶面前晃着那两根手指，一边吐沫飞溅地对偶喷口水：“two！two！” 强烈建议老外买甜筒前先看几部反映伟大的中华民族打日本鬼子的电影…… 有一个gg，做麦当劳的，没事的时候总喜欢穿上便装，去别的麦当劳餐厅闲逛。在收银台前一站，一
2005-03-23 07:53:00
1581
原创 键码常数
键码常数键码常数 值 描述 vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标中键 vbKeyBack 8 BACKSPACE 键 vbKeyTab 9 TAB 键 vbKeyClear 12 CLEAR 键 vbKeyReturn 13 ENTER 键 vbKeyShift 16 SHI
2005-03-21 14:30:00
1350
原创 2-36进制之间的随意转换函数
------------------------------2-36进制之间的随意转换函数---------------------------------------也不知道有没有36进制，呵呵，可能是我自己编出来的吧。36进制概念，11相当与A，12相当与B，…………35相当与Z。只到在大写的A--Z之间。小写没加判断。到用的时候再加吧。时间关系，少写了很多的限制。感觉用来加密也不错
2005-03-18 13:42:00
2598
原创 计算任意三边三角形的面积的算法
Private Sub Command1_Click()Dim a, b, c As IntegerDim s As Longa = CInt(InputBox("输入三角形三边之一"))b = CInt(InputBox("输入三角形三边之二"))c = CInt(InputBox("输入三角形三边之三"))If a + b > c Or a + c > b Or b + c > a Then
2005-03-18 10:48:00
4451
原创 一个计算完全数的算法
-------------------------完全数的定义--------------------------我们来看一下4这个数，它的真因子有1、2，其和是3。由于4本身比其真因子之和要大，这样的数叫做盈数。再来看一下12这个数，这的真因子有1、2、3、4、6，其和是16。由于12本身比其真因子之和要小，这样的数就叫做亏数。那么有没有既不盈余，又不亏欠的数呢？既有没有恰恰等于它自
2005-03-18 10:01:00
5718
原创 游戏外挂的编写原理（五）
(6) 在ActiveKey.cpp中加入头文件声明 "#include "wsock32.h"。 从“工程”菜单中选择“设置”，弹出Project Setting对话框，选择Link标签，在“对象/库模块”中输入Ws2_32..lib。 (7) 重新编译ActiveKey项目，产生ActiveKey.dll文件，将其拷贝到Simulate.exe目录下。运行Simulate.exe并启动全局钩
2005-03-18 09:13:00
2248
1
原创 游戏外挂的编写原理（四）
(5)、从“工程”菜单中选择“设置”，弹出Project Setting对话框，选择Link标签，在“对象/库模块”中输入Ws2_32.lib。 (6)、编译项目，产生wsock32.dll库文件。 (7)、将系统目录下原wsock32.dll库文件拷贝到被外挂程序的目录下，并将其改名为wsock.001；再将上面产生的wsock32.dll文件同样拷贝到被外挂程序的目录下。重新启动游戏程序，
2005-03-18 09:12:00
2834
原创 游戏外挂的编写原理（三）
(5).将ActiveKey项目中的ActiveKey.h头文件加入到Simulate项目中，并在Stdafx.h中加入#includeActiveKey.h。 (6).在按钮单击事件函数输入如下代码： void CSimulateDlg::OnButton1() {// TODO: Add your control notification handler code hereif( !
2005-03-18 09:11:00
1763
原创 游戏外挂的编写原理（一）
【 编者言 】感谢VB365.COM的成员change为我们找到这篇文章，是有关自己编写一个网络游戏外挂的，希望对想自己写外挂的朋友有所帮助。 一、 前言 所谓游戏外挂，其实是一种游戏外辅程序，它可以协助玩家自动产生游戏动作、修改游戏网络数据包以及修改游戏内存数据等，以实现玩家用最少的时间和金钱去完成功力升级和过关斩将。虽然，现在对游戏外挂程序的“合法”身份众说纷纭，在这里我不想对此发表任何个人
2005-03-18 09:05:00
2602
1
原创 如何在VB6.0中创建和使用文本资源文件
不少网友问及如何在VB中建立和使用文本资源文件。我想这也是很多VB初学者迫切想掌握的技巧。为此，将回答网友的信件整理了一下，形成此文，希望对大家有些帮助。 一.文本资源文件的建立第一步：启动资源编辑器如果VB资源编辑器没有被加载，请单击"外接程序"，选取"外接管理器"启动外接管理器，然后选中"VB6 资源编辑器"，在左下方的"加载行为"中的"加载/卸载"前打钩，点击"确定"退出外接管理器。
2005-03-18 08:57:00
4463
原创 关于Combo控件下拉框自动弹出的问题
Option ExplicitPrivate Sub Command1_Click() Combo1.SetFocus SendKeys "{F4}"End Sub
2005-03-18 08:36:00
2057
1
原创 VB里有用的几个函数
注释：--------（1）------------注释：获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明注释：Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, By
2005-03-17 13:12:00
1198
原创 晕死的绕口令
1、初入江湖：化肥会挥发2、小有名气：黑化肥发灰，灰化肥发黑3、名动一方：黑化肥发灰会挥发；灰化肥挥发会发黑4、天下闻名：黑化肥挥发发灰会花飞；灰化肥挥发发黑会飞花5、一代宗师：黑灰化肥会挥发发灰黑讳为花飞；灰黑化肥会挥发发黑灰为讳飞花6、超凡入圣：黑灰化肥灰会挥发发灰黑讳为黑灰花会飞；灰黑化肥灰会挥发发黑灰为讳飞花化为灰7、天外飞仙：黑化黑灰化肥灰会挥发发灰黑讳为黑灰花会回飞；灰化灰黑化肥灰会挥
2005-03-16 11:17:00
1197
原创 网络名词搞笑解释(转载)
大家喝的是啤酒。这时你入座了。你给自己倒了杯可乐，这叫低配置。你给自已倒了杯啤酒，这叫标准配置。你给自己倒了杯茶水，这茶的颜色还跟啤酒一样，这叫木马。你给自己倒了杯可乐，还滴了几滴醋，不仅颜色跟啤酒一样，而且不冒热气还有泡泡，这叫超级木马。你的同事给你倒了杯白酒，这叫推荐配置。人到齐了，酒席开始了。你先一个人喝了一小口，这叫单元测试。你跟旁边的人说哥们咱们随意，这叫交流测试。但是他说不行，这杯要干
2005-03-15 08:15:00
1343
原创 一个设定打印走向的函数，别人写的，借花献佛，同时没找哪个API是函数用的，都复制下来了
一个设定打印走向的函数，别人写的，借花献佛，同时没找哪个API是函数用的，都复制下来了Public Enum PrinterOrientationConstants OrientPortrait = 1 OrientLandscape = 2End EnumPrivate Declare Function GetVolumeInformation Lib _ "
2005-03-14 10:42:00
1110
原创 如何用VB开发游戏外挂
1.需要VB API函数： FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口 GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符 ------------------------------------------------------------------------------------------------------
2005-03-10 12:21:00
5356
原创 用空格分割字符串的函数
Option Explicit===============================================Words.bas - string handling functions for wordsAuthor: Evan Sims [esims@arcola-il.com]Based on a module by Kevin OBrienVersi
2005-03-08 13:46:00
2061
2
原创 ADSL上网中的几则困惑
ADSL拨号上网，时下正大行其道。不过在与ADSL Modem亲密接触的日子里，我们享受到的并不都是冲浪快感，也有ADSL Modem莫名其妙的故障带给我们的困惑。面对各种各样的困惑，我们该如何迅速排除，以确保ADSL Modem设备时刻高效地工作呢？为了帮助许多菜鸟级别的网民，迅速驱走ADSL Modem带来的各种困惑，本文下面就将出现频率较高的困惑列举出来，并给予一一解答。 困惑一、倘若在
2005-03-07 07:37:00
1079
原创 让你的IE浏览器复活
近日，也不知怎么了，单位网络中的许多工作站IE无法打开新窗口了，表现为：在浏览网页过程中，单击超链接无任何反应。问题的原因在于IE新窗口模块被损坏所致，解决的方法早已是公开的秘密，单击“运行”，依次运行“regsvr32 actxprxy.dll”和“regsvr32 shdocvw.dll”将这两个DLL文件注册，然后重启系统，如果还不行，则可以将mshtml.dll，urlmon.dll，ms
2005-03-07 07:33:00
1529
原创 新曹冲称象：更加先进的50种方法！
我妹妹的寒假作业,竟然有这么道题""曹冲称象的办法很巧妙，你能想出别的称象的办法吗？你会吗？"我很不理解啊,为什么老师都爱这么问?反正我是不会了,我大学连小学生都赶不上.求大家的好方法……以下为征集答案:可以找个游泳池，水高过大象，量下原始水位，将大象踢入池中，重新计算水位。可以算出体积。再想办法估出密度，重量即可得到。将大象放在一个空旷的隔壁上， 再距离足够远的地方放一个电子， 然后使用弹簧称测
2005-03-04 07:53:00
22141
原创 Windows“运行”命令
“开始→运行(或者“Win + R”快捷键)”，我们对它的熟悉程度不低于“我的电脑”，它所运行的命令给我们日常操作电脑带来了很大的方便，今天我们就为它来个运行命令大阅兵： 1.regedit.exe：注册表编辑器 注册表编辑器是用来查看和更改系统注册表设置的高级工具，注册表中包含了有关计算机如何运行的信息。Windows将它的配置信息存储在以树状格式组织的数据库(注册表)中。尽管可以用注册表
2005-03-04 07:52:00
2289
原创 系统文件操作监视功能
Windows未公开函数揭密--之三 这次介绍的是如何利用Windows未公开函数实现系统文件操作监视功能。利用该功能可以对Windows下的任何文件操作，包括建立文件、文件夹；删除文件；改变文件大小等操作都可以纪录在案。 首先来介绍实现上面操作的两个未公开函数：SHChangeNotifyRegister和SHChangeNotifyDeregister，SHChangeNotifyRegist
2005-03-03 13:08:00
1920
原创 代替ASP中的Request函数，防止SQL注入
ＳＱＬ注入漏洞可谓是“千里之堤，溃于蚁穴”，这种漏洞在网上极为普遍，通常是由于程序员对注入不了解，或者程序过滤不严格，或者某个参数忘记检查导致。在这里，我给大家一个函数，代替ASP中的Request函数，可以对一切的SQL注入Say NO，函数如下：Function SafeRequest(ParaName,ParaType) --- 传入参数 --- ParaName
2005-03-02 15:41:00
1724
原创 在留言的页面我想用一个下拉表来选择头像，并在选择时，头像在下拉表的右方显示
function xingzhe(pram){ avatar.src=pram}http://img.mop.com/images/face/011.gif">= 1 =http://img.mop.com/images/face/023.gif">= 2 =http://img.mop.com/images/face/050.gif">= 3 =http://img.mop.com/ima
2005-03-02 13:16:00
1563
原创 两个网页之间数据通信
a.htm 我晕 我衰 我倒 我靠 我郁闷 我期待 var bwin;var n=1;function show(){if(bwin)if(event.srcElement.tagName=="TD"){bwin.document.dream.elements("n"+n).value=event.srcElement.inne
2005-03-02 13:03:00
1433
原创 Photoshop制作精致的XP风格任务栏
在设计多媒体光盘、多媒体课件的用户界面时，许多设计者喜欢制作仿真Windows任务栏和开始菜单。因为平常大家接触最多的界面恰恰就是Windows的桌面环境，所以这种风格的用户界面为许多用户所喜爱。 设计这类界面的关键是制作出逼真的任务栏和开始按钮，今天我们来介绍一下如何使用Photoshop制作这种逼真的任务栏和开始按钮。 本文以Photoshop CS中文版为例，其他版本类似。绘制
2005-03-02 11:22:00
1322
原创 用Photoshop制作几款透明质感按钮
几乎没有哪种按纽的受欢迎程度能与透明质感按纽相比。自这种风格的按纽一问世，立刻风靡全球，从庞大的商务网站到简单的个人小站，处处都能看到剔透的风采。这种漂亮按纽最大的作用就是修饰网页，仅仅使用几个这样的按纽，就会给你的网页像水晶糖果一样诱人。透明质感的按钮种类之多，制作方法之广，无法尽数。在这里，我总结了几种较为好看的却又比较简单的，供大家作为参考。 第一款：Aqua按纽 这是最常见的一种
2005-03-02 11:20:00
3050
原创 Photoshop 制作水晶按钮
1.新建文件，宽、高都为5，单位cm，分辨率200，模式为RGB，白色背景。 2.用圆形选框工具画出圆形选框，在选区内点鼠标右键，选“通过拷贝的图层”项（图层1）。 3.新建图层（图层2），使用渐变工具，设置成“前景色到透明渐变”，前景色设置为R：255，拉出如图渐变。 4.新建图层（图层3），在新图层上用喷笔画出阴影（也可填充颜色，然后用椭圆选区羽化后删除，但是那样效果没有用喷笔来得自然好
2005-03-02 11:18:00
2528
原创 FW制作苹果水晶图形
Mac的风格大家一定不陌生，而且近些年越来越流行 screen.width-333)this.width=screen.width-333" border="0"/>我是做软件skin设计工作的，当然更加深有体会。但像这样风格的图标、按钮却不是那么好找。我之前经常为了找几个合适的水晶图标而浪费大把的时间。经过自己简单的分析，我发现这种图标的制作方法其实非常简单。完全可以把自己需要的图形、符号用我自
2005-03-02 10:47:00
1575
原创 水晶果子
先来几张让你看看,可以做墙纸的哦~~想自己做不?那就看下面的教程吧~~ --> -->第一、新建400*400白色背景RBG文件，再用渐变工具以适当的颜色对背景进行线性填充，得到如下图： 第二、用椭圆选取工具画一个圆，用渐变工具以适当的颜色对这个选区进行线性填充。颜色参考数：前景[238，142，23]背景[257，273，154] 第三步：用加深减淡等工具配合对此图进行涂绘，这就要耐心去慢慢弄了
2005-03-02 10:36:00
1178
原创 教你制作漂亮的按钮
http://www.flash8.net/bbs/UploadFile/2004-8/200481612112366.swf
2005-03-02 10:30:00
1160
体检医疗行业真实项目实施文档.zip
2021-09-02
金蝶云星空真实项目实施文档.zip
2021-09-02
wmi获取系统信息
2008-05-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人