网站运营优化

网站设计、开发、策划、运营、优化和推广等

21个实用PHP代码

1. PHP可阅读随机字符串此代码将创建一个可阅读的字符串,使其更接近词典中的单词,实用且具有密码验证功能。/***************@length - length of random string (must be a multiple of 2)**************/function readable_random_string($length = 6){    $conso=array("b",&qu...

精通PHP的十大要点

1. 在合适的时候使用PHP - Rasmus Lerdorf没有谁比PHP的创建者Rasmus Lerdorf明白PHP用在什么地方是更合理的, 他于1995年发布了PHP这门语言,从那时起,PHP就像燎原之火,烧遍了整个开发阵营,改变了互联网的世界。 可是, Rasmus并不是因此而创建PHP的。 PHP是为了解决web开发者的实际问题而诞生的。和许多开源项目一样,PHP变得流行,流行的动机并不能用正常的哲学来进行解释,甚至流行得有些孤芳自赏。它完全可以作...

VB解决Unicode文本转换的问题

  我使用VB调试程序的时候发现这么一个问题,当使用Scripting.FileSystemObject写入文件的时候,有时候会报错,但有时又是正常的。  经过调试发现,当写入的内容包含一些特殊的Unicode字符时,FSO会报错,提示“invalid procedure call or argument”,正常的文本则不报错。  经过一番尝试发现了解决方法,就是在写入文件前,使用StrConv函数将文本进行一下转换,转换选项选择vbNarrow,代码如下: ...

一个基于WEB的QQ程序

  refresh.htm  =========  <HTML>  <HEAD>  <title>在线QQ</title>  <link rel="stylesheet" type="text/css" href="forum.css">  </HEAD>  <BODY onload=online() scroll=no topmargin="0&q...

使用xmlhttp查询域名是否被注的小程序

  提交查询的页面比较简单如下:  =====  <HTML>  <HEAD>  <META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">  </HEAD>  <BODY>  <form method="post" action="return-whois.asp" ID=Form1&g...

用VB6实现中英文文本的私钥加密

  一. 私钥加密方案
  加密(Encryption)是信息保护的一种必不可少的手段。目前有两种基本的加密方法,即私钥加密和公钥加密。用VB既可用自定义算法实现简便的私钥加密,也可通过调用Crypto API接口实现复杂的公钥加密。对于加密数据,若在Internet/Intranet上传送,则完整性鉴别也是必需的。本文介绍一种私钥加密技术,不仅能加密英文文本,而且能有效加密汉字,还能进行数据完整性鉴别。本加解密原理图如下:
  密文文=HASH(DateTime)+HASH(DateTim...

一组VB实用小程序

  用VB实现编程离不开函数调用及Windows API函数的调用,以下是笔者收集的一些实用的小例程,它们可以直接用在你的实际编程中,也可以根据实际应用加以扩充完善。其中涉及Windows API函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容,以避免出错。
  1.系统型表单
  系统型意味着用户完成当前表单操作之前无法进行其它操作,这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单,需如下定义API函数:
  Declare Function Se...

用VB编写异步多线程下载程序

  为了高效率地下载某站点的网页,我们可利用VB的Internet Transfer 控件编写自己的下载程序, Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP),使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。本程序使用多个Internet Transfer 控件,使其同时下载某站点。并可判断文件是否已下载过或下载过的文件是否比服务器上当前的文件陈旧,以决...

屏保程序模板化完整源代码

  熟悉Windows操作系统的朋友一定对Windows的屏保程序不陌生,喜欢VB编程的朋友也一定想编写一个自己的Windows屏保程序。其实屏保程序实质上仍然是一个Windows的可执行程序,理论上说你可把自己的任何一个现成的程序作品改造成屏保程序,当你看完下面的讲解后便可以轻易地编写或是改造一个标准的Windows屏保程序了!
  一个标准的Windows屏保程序应该具备如下特点:
  1、扩展名必须是.scr,程序放置在Windows或者是System目录下。
  2、常规的屏保程序...

VB中实现窗体自动隐藏

  OICQ聊天时的窗体自动隐藏功能,用VC 或CBC都可以很简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下的笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。大伙如有好的意见,不妨贴出来,让我学习学习。
  Option Explicit
  Private Declare Function GetCursorPos Lib "user32&q...

用VB编写网络监控软件

  随着互联网迅速的膨胀发展,学校、企业、网吧大部分都通过局域网连上了Internet,但是由于人员多、上网机器分散,给上网管理带来了种种不便。为此,笔者编写了一个小程序,在局域网内的每个工作站运行此程序,可以对每个工作站访问的网址进行记录。在网吧中,可以为网络犯罪提供可靠的依据;在学校里,我们可以及时地限制同学们访问非法站点和有不健康内容的网站。程序用VB6.0编写,下面是程序实现的步骤。该程序在Windows 98和IE5.5下调试通过。
  一、程序核心
  本程序的核心是通过API函...

VB到底为我们做了什么?

  VB一直以来被认为有以下优缺点:优点是上手快、开发效率高;缺点是能力有限,运行效率低。这正是有些软件把VB做为首选语言,而有些软件肯定不会用VB做的原因。而很多VC,DELPHI的程序员都认为VB里搞开发不自由,它让我们做事变容易的同时,也让我们发挥的余地越来越小。的确,简单和功能强大这两者本身就是一对矛盾。那怕一行代码不写,仅仅起动运行一个空窗体这样简单动作,VB在底下就为我们做了大量复杂的工作(决不仅仅是注册窗口类、显示窗口、起动消息循环这么简单),这些工作对程序员是透明的。我们在感谢V...

键盘幽灵VB版

  这个是我写的一个类似键盘幽灵的程序,大家自己看看吧。晚上无聊写的,不要拿来做坏事呀。
  mCommon.bas
  Attribute VB_Name = "mFuncation"  '设置钩子  Public Function Hook(ByVal hWnd As Long)    '监视所有消息    '设置子分类    lpPrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc) ...

用VB编写定时关闭计算机的程序

  微软的VB以简单易用,功能强大而著称,使用VB可以很容易地编写出定时关闭计算机的程序。以下是一个简单的定时关闭计算机的程序,供各位使用VB的朋友参考,如有何不适之处,请多指点!
  定时关闭计算机,很显然,有两个关键点:
  1.定时。可以用VB中的Timer控件结合计算机的系统时间来进行精确的定时。
  2.关闭计算机。这可以调用Win32 API函数 ExitWindowsEx 来关闭计算机。
  下面首先来说明一下 ExitWindowsEx 函数,该函数在VB中的声明如下:
...

用MCI命令做一个播放器

  用MCI命令来实现多媒体的播放功能
  下面的内容几乎有播放器软件的各种功能,你只是引用这些函数就能做出一个播放器来
  Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As...

使用VB在WIN2000下截获IP数据包

  为了方便广大VB爱好者也能向C语言一样能截获IP包,本人特地写了以下的源代码,以供VB开发者参考。
  以下是在VB中截获WIN2000下TCP/IP包的源代码,在VB6.0,win2000下测试通过,需要注意的地方是,1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。
  '-----------------------------代码开始------------------------------...

VB中字符串中文的问题

  字串中文的问题,起於vb的字串是使用UniCode,而我们一般是使用Ascii Code。
  这差别在何处呢?UniCode的每个字元长度是2个byte,而Ascii是一个byte,如果说,我将们将VB的字串写入档案,有时会有意想不到的结果。例如:Text1.Text = "这是一个abc" len5 = Len(str5)
  如果我们的Access资料库有一栏位的长度是10个Byte,所以我们在TextBox中设定MaxLength = 10,但是上面的例子得到...

用VB制作屏幕保护程序

  利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。
  一. 基本编程思路
  大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以,屏幕保护程序就是显示不断变化或移动的图形,并且当有鼠标移动或按键时能够终止的程序。
  1. 编制屏幕保护图形
  2. 隐藏鼠标
  用ShowCursor Windows API 函数我们可以实现隐藏鼠标。
  3. 检测鼠标和按键行为
  检测上述行为以便退出屏幕...

VB枚举主机IP

  在窗体上加入下列控件TextBox:Text1,ListBox:List1,CommandButton:Command1
  在窗体上加入如下代码:
  '--------------------------Form1---------------------------------  Option Explicit
  Private Function HiByte(ByVal wParam As Integer)  HiByte = wParam \ &H100 And &...

用VB编写一个弹出菜单类

  '类的名称为cPopupMenu
  Option Explicit  '  Private Type POINT    x As Long    y As Long  End Type  '  Private Const MF_ENABLED = &H0&  Private Const MF_SEPARATOR = &H800&  Private Const MF_STRING = &H0&  Private Const TPM_RIGHT...

使用插件功能扩展VB

  一、插件介绍
  从结构上来看,一个VB插件实际上是一个COM组件,原则上组件可以使用支持COM的开发工具,例如Delphi、VC来编写。组件通过实现COM中的IDTExtensibility对象来建立与VB的连接。组件注册以后,当VB运行中在Add-In菜单中装载组件后,VB就会调用组件中IDTExtensibility对象中的相应方法(如在装载组件后会调用OnConnection方法)。这时整个插件就成为VB的一部分从而可以访问VB开发环境中的各种对象和资源了。
  利用VB本身来编...

API在VB中应用之技巧集锦

  API函数在VB中得到了充分的运用,同时也让无数VB爱好者沉溺于其中。以下是笔者几年来收集整理的几十个API函数在VB中应用的实例,现在写出来与大伙分享,希望能对大伙有所帮助。    1、如何让窗体总在最前面?    *API函数声明  Declare Function SetWindowPos Lib "user32" ( ByVal hwnd As Long, ByVal  hWndInsertAfter As Long, ByVal x As Long, ByVal...

用VB实现程序之间的简单通信

  本人非常喜欢编程,对网络编程最感兴趣,所以就想编个程序到BBS上发帖子,达到提高经验值的目的。今天把它写出来,和大家一起分享。
  基本知识
  剪贴板在Windows中是一个好东东,在VB的编程中同样有用。在VB中,它其实就是ClipBoard对象,专门用于处理剪贴板上的文本和图像。使用之前最好先用Clear方法清除以前的内容。
  发送文本还可以利用的就是SendKeys方法。把你要发送的文本放入一个变量,比如MyStr中,然后使用“SendKeys MyStr&rdq...

VB编程的七个优良习惯

  1、"&"替换"+".  在很多人的编程语言中,用“+”来连接字符串,这样容易导致歧义。良好的习惯是用“&”来连接字符串.  不正确:  dim sMessage as string
  sMessage="1"+"2"
  正确:  dim sMessage as string
  sMessage="1" & &...

VB6中一个非常好用的读写INI文件的模块

  网上读写Ini文件的例子只有几篇相同的文章,而并不好用,奇怪的是各网站都是同样的例程,高手也就罢了,三下五除二就搞定,初学者会被搞得一头雾水,看着一个好好的模块就是不能用。
  所以我整理了一下(最早是在腾讯答一个贴子时写的),这个也就是修改了一下,不是我自已的发明(至于这个代码起先不知是谁写的),不过非常的好用
  新建模块(建议不使用注册表) 命名为rwini
  'ini文件在有回车换行符会出错,经过测试,汉字要小于86字节,英言文要小于143字节才能返回列表框。(这是我以前的c...

利用VB设计打印复杂报表

  数据库管理系统的开发人员经常感叹的一个问题就是:我们中国人的报表太复杂了!无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧,设计数据操作也固然需要一定的逻辑分析能力,但这些问题对一般的开发人员来说应该是不成为问题的。用户可是不管你采用了多么灵活的算法多么方便的操作,他们最感兴趣的是最后他们出来的报表如何漂亮,出报表的操作如何简单(最好是一个按钮解决所有的问题)。笔者在开发数据库管理系统方面也稍有些经验,从FoxPro、Delphi、PowerBuil...

VB程序界面设计经验点滴

  使用VisualBasic(以下简称VB, 版本为6.0SP4)可以快速设计出标准风格的Windows软件,但是要创建真正易用的图形界面,还有许多工作要做。
  一、窗体设计
  窗体设计的好坏往往影响到软件的整体形象,因此必须首先处理好窗体的设计问题。
  1、 窗体的边框
  窗体边框的默认风格为“Sizeable”(可变的),但并不是所有窗体都可以使用可变边框。因为用户常常有意无意地改变窗体的大小(比如双击窗口的标题栏),如果窗体中包含大量的控件,极有可...

VB下几个有用的函数

'————————(1)————————————  '获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明  'Private Declare Function GetPrivateProfileSection Lib "k...

用VB编写键盘拦截程序

  我们知道,在一些程序中,有一些快捷方式(如:Shift键最小化、ESC键退出、Ctrl+S存盘、Alt+x退出等等)。以前有一些介绍使用Win32 API可以做到,但过于繁琐,其实VB本身已经给我们提供了这个功能。
  我们来新建一个窗体Form1,对于键盘操作可以看到有三个事件KeyPress(),KeyDown和KeyUp,下面我对它们分别介绍:
  KeyPress()事件是当用户按下和松开一个 ANSI 键时发生(ANSI是可见ASCII字符1-127)。
  语法
  Pr...

VB中使用系统注册表

  ini文件大多用来寸放自己界面或者初始化信息,而应用程序要使用系统信息或者说要得知已在系统注册过的其他程序的一些信息就要读去系统注册表了,比如有些应用需要使用调用MS OutLook Express就需要从HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\中的InstallRoot中读取路径。
  申明部分:
  Option Explicit
  Public Const READ_CONTROL = &H20000
...

VB编程中的一些经验

  1. 假设VB中有如下的变量声明:
  dim s1, s2 as string  则s1是一个variant型变量,而s2是一个string型变量  如果想要声明两个string变量s1和s2  应该用:  dim s1 as string, s2 as string
  2. VB中的对象是自动回收的,类似java
  在一个过程中  sub Foo()   dim obj as new Object   .... 'do something with obj  end sub
...

用VB学做“黑客”程序

  只要掌握了原理,你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。
  一、所用控件
  在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件,使用TCP协议或UDP协议连接到远程计算机上并与之交换数据。和定时器控件一样,Winsock控件在运行时是不可见的。Winsock的工作原理是:客户端向服务器端发出连接请求,服务器端则不停地监听客户端的请求,当两者的协议沟通时,客户端和服务器端之...

用VB编写网络寻呼机

  提起ICQ的大名,爱好电脑的朋友一定不会感到陌生的吧?ICQ就是互联网上的寻呼机,无论什么时候,只要你的朋友在线,你只需在ICQ中输入他的ID号码,你就可以在互联网上呼到他。ICQ由于其方便、快捷,且拥有众多的注册用户而一举成为互联网上最流行的网络寻呼机,它几乎成为每一个上网用户的必备之物。当你在使用ICQ的时候,是否会想过自己动手编写一个网络寻呼机呢?这其实在VB中就可以实现。
  网络寻呼的原理就是当客户端程序连接服务器时,通过服务器搜索所要呼叫的ID号码,如果检测到此用户且该用户正处...

使用ASP产生安装向导的主页

  面临的主要问题何在:
  1。界面和一个Windows Wizard完全一样,有Next和Back按钮  2。用户可以使用Back按钮回到以前的任何一步,并且能够改变以前任何一步中已经选择的内容  3。Form必须记住所有填入的内容  4。不能够使用数据库  5。不能够使用Sessions,防止如果Sessiosn失效后用户的所有输入丢失,不幸的是,也不能够使用cookie,因为很多拥护经常关掉浏览器的Cookie选项。  6。可移植性要好,因为它要适应安装步数不同时的情况
  解决方案...

ASP中的进度条功能

  用过软件的朋友都知道,进度条是一个优秀软件的重要组成部分。它 的存在能够使用户及时掌握程序的运行进度,确认应用程序正常工作。可 是ASP中似乎没有上述标准控件,控制起来也比较麻烦。那么如何实现进 度条呢?以下是本人的一些观点(仅供参考)
  我们通常在用ASP处理程序(指的是写文件或操作数据库)的时候,会 专门用一个页面(*.asp)去处理或控制这些程序,当处理完毕的时候再跳 转到显示页面。这时我们就可以通过这些处理页面显示进度条。其方法是 根据程序处理的进度依次画一百张同样的图形(如有颜...
分页:[«]1[2][»]

日历

<< 2017-12 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

订阅博客

  • 订阅我的博客:订阅我的博客
' ;&,"vIE' ;&,">
  • 文章归档

    本站采用创作共用版权协议, 要求署名、非商业用途和保持一致. 转载本站内容必须也遵循“署名-非商业用途-保持一致”的创作共用协议.

    This site is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.