<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[rainstormmaster的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/rainstormmaster</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; rainstormmaster]]></copyright><item><title><![CDATA[VB：如何读出unicode编码的txt文件内容]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/1595322</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/1595322</guid><author>rainstormmaster</author><pubDate>Thu, 03 May 2007 10:40:00 +0800</pubDate><description><![CDATA[其实，这个问题很简单 ，可偏偏很多人不知道，于是写了这个先用2进制方式打开文件，读出数据到byte数组中，然后用copymemory去掉文件头（头两个字符分别是FF   FE（16进制））得到一个新的byte数组，最后利用strconv函数即可，下面给出代码：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "Rt]]></description><category></category></item><item><title><![CDATA[VB：屏蔽IE的右键菜单]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/1594306</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/1594306</guid><author>rainstormmaster</author><pubDate>Tue, 01 May 2007 18:37:00 +0800</pubDate><description><![CDATA[         关于BHO的文章现在已经很多了，对BHO就不做介绍了。         原理是利用在BHO中维护一个IWebbrowser2接口，然后通过这个接口获得一个IHTMLDocument2接口，然后通过这个接口获得ICustomDoc  接口，然后通过ICustomDoc 接口的SetUIHandle方法将自己的IDocHostUIHandler实现连接到IE上面  下面说说要]]></description><category></category></item><item><title><![CDATA[VB6:自定义控件如何设置默认属性]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/1565580</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/1565580</guid><author>rainstormmaster</author><pubDate>Sun, 15 Apr 2007 17:38:00 +0800</pubDate><description><![CDATA[       其实，这个问题没什么技术含量，可是偏偏许多人不知道，于是有了这篇文章。       首先，新建一个ActiveX Control工程，在界面上放一个TextBox，然后，打开代码窗口，输入如下代码：Public a As String Public Property Get Value() As String    a = Text1.Text    Valu]]></description><category></category></item><item><title><![CDATA[VB:如何向richtextbox中插入flash影片]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/595210</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/595210</guid><author>rainstormmaster</author><pubDate>Thu, 09 Feb 2006 13:30:00 +0800</pubDate><description><![CDATA[    这个问题是在看了http://blog.youkuaiyun.com/dtianx/archive/2004/11/17/184949.aspx这篇文章后产生的，当时的想法很简单，就是网上还找不到类似的VB代码，于是就想写成一个VB实现之类的东东，改写的过程很顺利。但改完之后就想到能不能插入flash影片呢，于是就有了这篇东西。    从理论上说COM对象只要实现了IOLEOBJECT接口]]></description><category></category></item><item><title><![CDATA[快速获得Richtextbox控件指定行文本的方法]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/533262</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/533262</guid><author>rainstormmaster</author><pubDate>Sun, 20 Nov 2005 09:19:00 +0800</pubDate><description><![CDATA[通常我们要获得EDIT编辑框的某一行的文本,只要用sendmessage发送EM_GETLINE消息就可以了，然而当我们试图发送EM_GETLINE消息给Richtextbox控件时，却得不到正确的数据，这在Richtextbox控件同时包含中文和英文时表现的很明显，而如果Richtextbox控件的内容只有英文时，发送EM_GETLINE消息则可以得到正确的数据（写到这里，不由得开始羡慕米国人不]]></description><category></category></item><item><title><![CDATA[VB程序运行时显示 ocx 控件的属性页的方法]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/522342</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/522342</guid><author>rainstormmaster</author><pubDate>Fri, 04 Nov 2005 08:57:00 +0800</pubDate><description><![CDATA[这篇文章只是回答优快云网友standys2004提出的问题的，所以，您大可以略过不看 首先，COM对象如果要支持属性页特性，那么它必须实现ISpecifyPropertyPages接口，同样我们只要实现了ISpecifyPropertyPages接口，就可以显示属性页，在vb中实现ISpecifyPropertyPages接口需要我们了解ODL语言，编好ODL文件后，再编译为TLB文件，这里，我]]></description><category></category></item><item><title><![CDATA[ Crypto—一个类模块(转贴)]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/101042</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/101042</guid><author>rainstormmaster</author><pubDate>Sat, 11 Sep 2004 08:17:00 +0800</pubDate><description><![CDATA[来源：http://www.mentalis.org/类模块（clsCryptoFilterBox）Option ExplicitPrivate Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (phProv As Long, pszContainer As Str]]></description><category></category></item><item><title><![CDATA[一个利用随机数加密字串的算法]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20346</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20346</guid><author>rainstormmaster</author><pubDate>Tue, 30 Mar 2004 19:25:00 +0800</pubDate><description><![CDATA[       首先这个算法没什么特殊之处，只是怕以后找不到，所以放到了这上面        每个字节加密后有6种结果（占两个字节，如果需要大于6种的话，就要多用1个字节，即占3 个字节），也就是说如果字串占n个字节的话，可能产生的结果为6的n次方个，这个算法破解的强度不大，大家可以完善一下：窗体上一个按钮，两个listboxOption ExplicitPrivate Sub Com]]></description><category></category></item><item><title><![CDATA[关于定时关闭询问对话框的一点体会]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20345</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20345</guid><author>rainstormmaster</author><pubDate>Thu, 26 Feb 2004 14:49:00 +0800</pubDate><description><![CDATA[       用过瑞星杀毒软件的朋友都知道，他可以定时关闭询问对话框。询问对话框的实现很简单，调用vb中提供的msgbox就可以实现了，可是问题是询问对话框是模式对话框，不关闭它的话，下面的代码无法继续执行，这一点也多多少少给朋友们造成了一些困饶。那么怎么解决呢，我的方案是调用api函数messagebox代替msgbox，结合timer控件实现自动关闭，闲话少说，看代码，下面的代码演示了如何在1]]></description><category></category></item><item><title><![CDATA[用VB将剪切板中的图片保存为JPG文件]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20344</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20344</guid><author>rainstormmaster</author><pubDate>Fri, 20 Feb 2004 11:32:00 +0800</pubDate><description><![CDATA[Option Explicit窗体上一个按钮，一个imgedit控件Private Sub Command1_Click()   If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then        从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标        ImgEdit1.Clipboa]]></description><category></category></item><item><title><![CDATA[用diskid.dll和disk32.dll获得硬盘序列号]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20343</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20343</guid><author>rainstormmaster</author><pubDate>Wed, 04 Feb 2004 10:00:00 +0800</pubDate><description><![CDATA[       今天夜里两点，还没有入睡，就把取得序列号的代码简单写了一下，没有分别在不同的系统上调试，只在win2000下调试通过，如果有问题的话，请告诉我，我再修改1.调用diskid.dll实现：Option ExplicitPrivate Declare Function IsWinNT Lib "DiskID.DLL" () As LongPrivate Declare Funct]]></description><category></category></item><item><title><![CDATA[VB中给listview的item添加多行气泡式Tooltip]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20342</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20342</guid><author>rainstormmaster</author><pubDate>Wed, 07 Jan 2004 11:24:00 +0800</pubDate><description><![CDATA[一个类模块，命名为：CTooltip，代码如下：Option ExplicitPrivate Declare Sub InitCommonControls Lib "comctl32.dll" ()Windows API FunctionsPrivate Declare Function CreateWindowEx Lib "user32" Alias "CreateWindow]]></description><category></category></item><item><title><![CDATA[VB嵌入文件的非常规实现]]></title><link>https://blog.youkuaiyun.com/rainstormmaster/article/details/20341</link><guid>https://blog.youkuaiyun.com/rainstormmaster/article/details/20341</guid><author>rainstormmaster</author><pubDate>Wed, 07 Jan 2004 11:22:00 +0800</pubDate><description><![CDATA[       在文件中嵌入文件，一般都是通过资源文件来实现的，至于具体的实现步骤，我想就不用我罗嗦了，网上有很多这样的文章，不清楚的朋友可以自己搜索一下。但是有些情况下，用资源文件无法解决问题，就不得不迂回一下，比如要实现所谓的绿色软件（在这里我要说明的是，这篇文章没有涉及任何高级技巧，因此，您略过不看，我也不会感到难过），事实上，大家知道，vb程序的运行需要vb运行库的支持，所以，用vb做绿色软]]></description><category></category></item></channel></rss>