曾经做软件时搜集到的一个非常不错的vb语法高亮类,首先是progame写的一个代码语法高亮工具。 ……继续阅读 » admin 12年前 (2012-02-09) 8298浏览 1评论 3个赞
今天在做一个程序的测验,用instr函数查询字串中某一个字串的位置,发生一个比较有趣的事情,或许真是微软的bug? 首先介绍下instr这个函数
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。
……继续阅读 » admin 15年前 (2009-10-19) 7851浏览 0评论 4个赞
VB中获取exe自身所在路径的几种方法。1,利用App.Path
Private Sub Command1_Click() Dim strpath1 As String If Right(App.Path, 1) = "\" Then
……继续阅读 » admin 16年前 (2008-02-29) 9794浏览 0评论 19个赞
首先引用microsoft wmi scripting v1.2 library
Private Sub Command1_Click()
……继续阅读 » admin 16年前 (2008-02-16) 10401浏览 0评论 11个赞
GETIP.bas中
Private Const WS_VERSION_REQD = &H101Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&Private Const WS_VERSION_MINOR = WS_VERSION_RE……继续阅读 » admin 16年前 (2008-02-16) 8414浏览 0评论 2个赞
看着这个办法还挺有意思的,可以试试
直接调用就可以了 '使用例子msgbox md5("加密的字符串")Private Const BITS_TO_A_BYTE = 8
……继续阅读 » admin 16年前 (2008-02-05) 7715浏览 0评论 2个赞
大家知道每个能上网的电脑都拥有一个自己的IP,如果你是位于局域网呢,那么你的ip可能是192.168.***.***或者10.***.***.***之类的,这样的IP外网是无法访问的,只能在同一个网段之间互访。而这时在自己电脑的CMD上ipconfig /all看见自己的ip就是内网IP,而我们是以外网IP访问网络的,那么我们怎么获取外网IP呢?这需要我们访……继续阅读 » admin 16年前 (2008-02-01) 14378浏览 0评论 8个赞
在exe的form中:Private Sub Form_Load()App.TaskVisible = FalseCall HideCurrentProcessOption Explicit
……继续阅读 » admin 16年前 (2008-01-27) 7363浏览 1评论 4个赞
感染EXE文件的病毒代码,自己再修改下。。。。。。
Private Victim As String ‘要感染的文件的名字Private HostLen As Long ‘要感染的文件的大小Private vbArray() As Byte ‘病毒的代码
……继续阅读 » admin 17年前 (2007-12-11) 12818浏览 1评论 13个赞
VB中以string写入ini时中文成乱码,这个问题困扰了我2天,百思不得其解.今天一个偶然的遭遇让我啼笑皆非.就是当你的程序的文件夹是英文,但路径中有中文时,写入ini中中文就是乱码.但是当你的程序所在文件夹是中文时把含中文的路径写入ini就是正常的.比如,你的程序是c:\我的程序\test\test.ex……继续阅读 » admin 17年前 (2007-10-25) 9592浏览 0评论 4个赞