随笔分类 - VB
摘要:最近在用VB6解决一个网页解析的应用,涉及到了正则。如何在VB6中使用正则表达式,这个在MS网站上有介绍,不过介绍的不是很全面。下面结合MS网站的内容和搜索到的东西,自己汇总一下。 引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象:RegExp、MatchCollection、Match。 1. RegExp 这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符串是否与正则表达式的特定模式相匹配。 属性: Patte.
阅读全文
摘要:1.模拟鼠标击键过程 '声明: OptionExplicit PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong) '对变量的定义 ConstMOUSEEVENTF_LEFTDOWN=&...
阅读全文
摘要:1.模拟鼠标击键过程 '声明: OptionExplicit PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong) '对变量的定义 ConstMOUSEEVENTF_LEFTDOWN=&...
阅读全文
摘要:3.以下为快捷键例子.比如按下"ctrl+A"就退出! '可以设置Form的KeyPreview属性为True,然后在Form_KeyDown事件中添加代码: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) IfKeyCode=Asc("A")AndShift=vbCtrlMaskThenunloadme'如果ctrl+A键被按下就退...
阅读全文
摘要:以下是用VB做外挂的一些知识.我个人认为是入门的一些知识.不敢独享.贴出来给大家!~ 有时间随时补充~呵呵 1.查找目标窗口.需要做外挂,就需要查找目标窗口.然后才做一些其他的动作.比如说鼠标键盘模拟啦.内存修改啦.封包型发送与替换啦什么什么的 -----------------------------------------------------------------------------...
阅读全文
摘要:2.以下为模拟键盘事件.比如模拟"r"键. ---------------------------------------------------------------------------------------------------------------------------- '在模块中定义 PublicDeclareSubkeybd_eventLib"user32"(ByValb...
阅读全文
摘要:新建模块,加入以下代码:Option ExplicitPrivate Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As LongPrivate Declare Function Process32First Lib "ker...
阅读全文
摘要:看到前面有朋友求相关代码,就发出来了~~~更改其他程序ListView控件中某个Item的内容(原码) http://www.vbgood.com/viewthread.php?tid=72897[代码]说明下,如果是频繁读取数据或数据项比较多时,请把内存分配和释放的相关代码分离出来,以免引起被读取数据的程序出错和占用内存不断加大。如果哪位朋友有修改其它程序ListView数据的代码也请发出来!
阅读全文
摘要:在中文操作系统的VBscript中,使用的是unicode字符集,所以很多base64编码、解码函数在理论上是正确的,但实际不能运行!http://hi.baidu.com/denglei%5Fbj/blog/item/2eb68547d556fd016b63e5b4.html<% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdef...
阅读全文
摘要:UTF转GB2312 将UTF8编码文字转换为GB编码文字的asp代码function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) '如果UTF8编码文字以%开头则进行转换 if mid(UTFStr,Dig,1)="%" then 'UTF8编码文字大于8则转换为汉字 if len(UTFStr) >= Dig+8 then GBStr=GBS...
阅读全文
摘要:现在,有许多软件安装后会在 IE 浏览器的工具条上添加一个自定义按钮,为用户运行程序提供了方便,如"网络蚂蚁"、"金山词霸"等等。实际上添加这个自定义按钮并不难,只要找到了它在注册表中的位置和有关参数,通过手工或程序都可以轻易完成。而最方便的办法就是调用现成的 ActiveX 控件来完成这个功能,但 Windows 似乎没有提供这种控件。下面介绍如何开发和使用这种自定义控件。 实现方法 要添加...
阅读全文