CityBird的专栏

Visual Basic内嵌汇编语言解决方案

CityBird — Mon, 19 Oct 2009 23:09:00 +0800

Visual Basic内嵌汇编语言解决方案时间:2008-04-09 04:44来源:互联网VB简单易用，但功能有时候受限制。VC、Delphi都可以直接在程序中写汇编代码，可恼的是，VB不行。我在网上也看过许多有关于VB嵌入汇编的方法，不过有些方法，过于复杂，而且也没相应的介绍。我这里提供一种方法，也许大家以后可能有用！基本思路：汇编代码，可以存在一　　　　VB简单易用，但功能有时候受限制。VC、Delphi都可以直接在程序中写汇编代码，可恼的是，VB不行。我在网上也看过许多有关于VB嵌入汇编的方法，不过有些方法，过于复杂，而且也没相应的介绍。我这里提供一种方法，也许大家以后可能有用！

　　基本思路：汇编代码，可以存在一个byte类型的数组中，然后通过某种手段，把系统控制权，转交给这段汇编代码，我们的汇编代码段，就得到了执行。但如何让这段汇编代码，获得系统的控制权限呢？查查WIN API手册，就可以知道有CallWindowProc这个函数。这个函数本是用于调用用户自己定义的窗口过程的，其原形如下：

Function CallWi

VB截获Windows消息的钩子

CityBird — Sat, 03 Oct 2009 13:56:00 +0800

VB截获Windows消息的钩子——作者：钟声博客地址：http://useway.blog.51cto.com VB一直被认为是一个可以通过简单的方法，完成Windows界面应用程序的一个语言。对Windows系统方面的编程似乎首先想到的绝对不是VB，而大部分程序员想到的一定是VC。我们今天就介绍一种用VB截获Windows全局消息的方法。一、Windows全局消息介绍我不喜欢用非常晦涩的语言来介绍一个简单的事物，因此，我想在本篇文章中就用通俗的语言来解释这个概念吧。什么是Windows全局消息呢？例如：鼠标在自定义的窗口中移动的位置，我们可以通过这个Form中的相关方法获取，然而，如果鼠标并没有在自己的Form中移动又该怎么获得其位置呢？再例如：键盘的敲击动作，在别的地方敲击键盘，并没有在自己的Form中敲击键盘，怎么才能获得按键的具体键值呢？对单片机有了解的朋友都知道，鼠标和键盘的操作都是利用的是“中断”触发事件来完成的，那么当系统“中断”的时候，就会发出消息给操作系统，而这些消息就是Windows全局消息。

VB指针

CityBird — Sat, 03 Oct 2009 13:53:00 +0800

VB指针——作者：钟声博客地址：http://useway.blog.51cto.com 卷首语：无数次的见到有人一谈到VB都会显露出不屑的神情。 VB一个软件开发领域的老朋友，它曾经以开发便捷与简单著称，它在一定时间内成为一个非常常用的开发语言。然而，当很多人享受这VB带来的便捷的同时，还在嘲讽这个VB，总是用VC的种种所谓的优势来和VB对比。让我想起了今天的Java，当那些享受着Java带来的轻松的人，却还在用C/C++嘲讽着Java是一样的。 VB它的优势岂能由VC企及，不说别的，只说VB的开发速度VC基本上是望尘莫及的。传统上，VC相对与VB而言有很多的优势： 1、指针：这个似乎是打击所有没有指针的语言（如：java）的利器。 2、原始IP包的获取：用混杂模式获取IP数据报信息，C++中称为原始IP包。 3、系统消息钩子：用钩子程序获取Windows系统消息。 4、利用静态链接实现软件的绿化：同时也便于生成一个病毒或者木马程序。 5、和硬件相关的开发，如显示器、声卡、网卡等。本系列连载，将针对上述5个问

VB读写注册表

CityBird — Sat, 26 Sep 2009 13:55:00 +0800

VB读写注册表

VB UTF-8编码与解码

CityBird — Sat, 26 Sep 2009 13:48:00 +0800

VB6 UTF-8编码与解码

VB里另一种更高效的Base64编码与解码算法

CityBird — Sat, 26 Sep 2009 13:30:00 +0800

VB里另一种更高效的Base64编码与解码算法

VB里Base64编码与解码算法

CityBird — Sat, 26 Sep 2009 13:24:00 +0800

VB里Base64编码与解码算法

ASP取不重复的随机数

CityBird — Tue, 08 Sep 2009 22:09:00 +0800

dim arr(36),xx,tt,tmp for xx=1 to 36 arr(xx-1)=xx next for xx=1 to 5 Randomize tt=clng((ubound(arr)-xx)*rnd()) response.write(arr(tt) & "
") tmp=arr(tt) arr(tt)=arr(ubound(arr)-xx) arr(ubound(arr)-xx)=tmp next
上面一段是从1-36之间随机取5个不重复数的代码，编码的原理是先把1-36之间的所有整数放到一个数组里面，第一次从1-36里随机1个整数作为索引取出数组中对应的成员，然后与第36个成员互换，第二次再从1-35里随机取1个整数作为索引取出数组中对应的成员，然后再与第35个互换，第三次再从1-34里随机取一个整数作索引取出数组中对应的成员，

ASP如何计算中英文混合字符串长度和截取字符串

CityBird — Tue, 08 Sep 2009 00:57:00 +0800

用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当于两个英文字符来计算字符串长度和截取字符串的代码

ASP中用ASPJPEG如何给FCKEditor上传的图片加水印

CityBird — Fri, 04 Sep 2009 23:32:00 +0800

打开FCKEditor/Editor/Filemanager/Connectors/Asp/Commands.asp文件，修改FileUpload函数，如下所示：Sub FileUpload( resourceType, currentFolder, sCommand ) Dim oUploader Set oUploader = New NetRube_Upload oUploader.MaxSize = 0 oUploader.Allowed = ConfigAllowedExtensions.Item( resourceType ) oUploader.Denied = ConfigDeniedExtensions.Item( resourceType ) oUploader.HtmlExtensions = ConfigHtmlExtensions oUploader.GetData Dim sErrorNumber sErrorNumber