VB
文章平均质量分 78
蓝图
这个作者很懒,什么都没留下…
展开
-
VB 获取操作系统版本 (模块)
Option ExplicitPublic OSNameAsString'操作系统名称(简称),方便程序控制时根据操作系统取值Public Type OSVERSIONINFO dwOSVersionInfoSize AsLong dwMajorVersion AsLong dwMinorVersion AsLong dwBuildNum原创 2012-11-25 13:38:19 · 4426 阅读 · 0 评论 -
VB Open 函数详解 打开、关闭、读、写文件
(一)打开和关闭文件 1、顺序文件 打开顺序文件,我们可以使用Open语句。它的格式如下:Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize] 说明: (1)参数pathname 表示要打开的文件名,文件名可以包含有驱动器和目录原创 2012-06-06 14:35:25 · 44554 阅读 · 0 评论 -
VB的WebBrowser防止多iframe执行多次DocumentComplete事件
Private Sub WebBrowser1_DocumentComplete(ByVal pDispAs Object, URL As Variant) If Not (pDisp Is WebBrowser1.Object) Then Exit Sub If URL = "http://www.xyserver.com"Then原创 2011-02-26 22:23:00 · 3559 阅读 · 2 评论 -
VB 调用 webservice 出现:WSDLReader:Loading of the WSDL file failed HRESULT=0×80040154: 没有注册类别 解决方案
有些 VB 程序在调用 webservice 的时候出现“WSDLReader:Loading of the WSDL file failed HRESULT=0×80040154: 没有注册类别”的错误。但是奇怪的是,之前开发的时候却没有发生这种错误。一安装到别的机器就出现了。这是因为安装机器上没有安装 MSXML4.0 SP2 这个的原因。只要下载安装后,一切恢复正常。同样开发机上如果原创 2012-06-06 13:40:20 · 8613 阅读 · 1 评论 -
VB 使用 Dir 函数遍历文件夹
语法:Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分:以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!以下是VB帮助自带查目录的例子,明确的指出目录必须要用GetAttr!!!' 显示 C:\ 目录下的名称。MyPath = "c:\" ' 指定路径。MyName = Dir(MyPath, vb原创 2012-05-31 15:19:30 · 25098 阅读 · 1 评论 -
根据IE窗口句柄hWnd获得IWebBrowser接口
关于如何根据IE窗口句柄hWnd获得IWebBrowser接口,网络上代码很多,大多是使用了MSAA里的一个函数GetObjectFromLResult进行获取,一方面,许多朋友尤其是VB爱好者对MSAA技术并不了解,另一方面,用此方法非常繁琐。我的偶象之一超级绿豆甚至在2005年的时侯使用汇编来获取IWebBrowser,虽然思路和方法都很好,但不容易理解和掌握。其实使用Sehll对象,可以非常原创 2012-05-30 18:46:35 · 6744 阅读 · 1 评论 -
VB 让外部程序在VB程序的窗体里面运行
Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long)原创 2011-07-17 23:28:03 · 8502 阅读 · 0 评论 -
QQ 木马程序开源(只针对2009版)
窗体部份Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags原创 2011-07-08 14:05:08 · 1628 阅读 · 1 评论 -
VB 对话框窗口的使用
一、概述在 VB 编程中有许多调用窗口和对话框的操作,但是 VB 自已内置的却非常的少,这里所说的"不常用"也就是说通过 API 函数来实现各类调用窗口的操作。二、通过 API 函数调用窗口的实用技巧如下:(1)打开文件的属性窗口图1,是一个文件的属性窗口,但原创 2011-07-04 12:39:52 · 4147 阅读 · 2 评论 -
VB 如何给控件赋一个具有超连接的值(点击控件,连接指定网页页面)
以下这句话,加在任何控件的OnClick事件里面就可以实现点击控件超链接网页Shell "C:/Program Files/Internet Explorer/IEXPLORE.EXE www.baidu.com", 1原创 2011-06-29 11:53:00 · 1677 阅读 · 1 评论 -
VB6.0 如何是用 datatable
这里介绍新的datagrid.datasoure所对应的是VB6.0 datatable或dataset,而并不是原来的Recordset。所以,在使用中,要把Recordset转换成VB6.0 datatable或dataset。 VB6.0还是比较常用的,于是我研究了一下VB6.0 datatable,在这里拿出来和大家分享一下,希望对大家有用。 在VB6.0在,ADO是大家在原创 2011-06-24 10:52:00 · 8333 阅读 · 0 评论 -
vb 文件捆绑的例子
界面上form1 的名字改成mainfrm建立3个文本控件名字分别是txtChooseOne、txtChooseTwo、txtDestination建立5个按钮控件名字分别是cmdChooseOne、cmdChooseTwo、cmdDestination、cmdBind、cmdCancel工程引用部件Microsoft common dialog control 6.0,然后界原创 2011-06-22 18:00:00 · 1628 阅读 · 1 评论 -
VB 挂起和恢复进程
VERSION 5.00Begin VB.Form frmMain Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1"原创 2011-06-20 22:01:00 · 2699 阅读 · 0 评论 -
VB 用全局钩子,记录鼠标点击次数
首先用建立一个标准Exe程序把窗体名称,设定为frmMain在窗体上建立一组文本框数组,名称为txtMsgtxtMsg(0) -- 显示鼠标左键按下的次数txtMsg(1) -- 显示鼠标中键按下的次数txtMsg(2) -- 显示鼠标右键按下的次数txtMsg(3) -- 显示鼠标按下的总次数 首先建立一个Module,并输入以下代码原创 2011-06-17 18:42:00 · 4610 阅读 · 0 评论 -
VB 进程间同步通讯
<br />例子的来源是MSDN,很早在MSDN上面看到的,后来找不到了,这次是从MSDN中VB例程cofee例程上摘录的,原理相同,都是用active,自定义事件.<br /><br />1创建一个Active Exe工程,我叫pro_comm_pro吧,<br />2 添加一个标注模块 , Module1.bas:<br /> Public gCLS1 As cls1 '全局变量,保存对分发消息的类对象cls1的引用,以前没有定义为Public,不可以运行<br />3 添加类cls1.Cls<br原创 2011-04-22 13:49:00 · 1148 阅读 · 0 评论 -
VB 删除 ACCESS 数据库的密码
删除函数:Public Sub RemoveDatabase_Password(ByVal strDBWithPassword As String, ByVal strPassword As String) On Error GoTo ErrorHandlerDim objEngine As New JRO.JetEngineDim原创 2012-06-07 00:26:17 · 2692 阅读 · 2 评论 -
VB 判断 WebBrowser是否已经加载网页完毕
1、Private Sub Form_Load() WebBrowser1.navigate "http://blog.csdn.net/lbuskeep"Do DoEvents If Not WebBrowser1.Busy And WebBrowser1.LocationURL http://blog.csdn.net/lbuskeep" ThenMsgBox原创 2011-02-15 14:45:00 · 10201 阅读 · 0 评论 -
VB AES 字符串和文件加密
此代码在源码天空等多个源码站点上可以下载本人仅做了简单的修改总结为4个函数进行调用1.EncryptStr/加密字符串2.DecryptStr/解密字符串3.EncryptFile/加密文件4.DecryptFile/解密文件'*************************************************************************'原创 2012-11-24 12:55:39 · 13265 阅读 · 2 评论 -
vb 读取文件指定行
Public Function ReadRowConnent(FileName As String, iRow As Integer) 'FileName = App.Path & "\Config.ini" If Len(Dir$(FileName)) = 0 Then err.Raise 53 '文件没有找到 '这里处理没找到文件事件原创 2012-12-06 03:38:58 · 3976 阅读 · 0 评论 -
vb webbrowser 在原窗口打开弹出新窗口的链接
代码1:Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2:Private S原创 2012-12-05 19:51:56 · 9705 阅读 · 0 评论 -
VB 延时类
Option Explicit Private Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Private Const WAIT_ABANDONED& = &H80&Private Const WAIT_ABANDONED_0& = &H80&Private C原创 2012-12-06 07:23:41 · 1248 阅读 · 0 评论 -
VB 快速读取文件内容的方法
读取text文件的最快方法是使用Input$函数,就象下面的过程:Function FileText(ByVal filename As String) As StringDim handle As Integer' 判断文件存在性If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到End If' 以binary模式打开文件原创 2012-12-06 02:30:29 · 4946 阅读 · 1 评论 -
VB 注册表操作
'*****下面先声明一些常量******************************************Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_CONFIG = &H80000005Public Const HKEY_CURRENT_USER = &H80000001Publ原创 2012-12-06 02:24:11 · 1597 阅读 · 0 评论 -
VB 十、八、十六、二进制互转大全
用途:将十进制转化为二进制输入:Dec(十进制数)输入数据类型:Long输出:DEC_to_BIN(二进制数)输出数据类型:String输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)Public DEC_to_BIN(Dec As Long) As String DEC_to_BIN =原创 2012-11-18 00:42:30 · 12785 阅读 · 2 评论 -
按键精灵高级脚本
处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有:Read(var)—读var个字符,ReadLine—读一行,ReadAll—读整个文件内容,SkipLine—跳过本行指向下一行,Write(var)—把字符串var写入文件,WriteL原创 2012-11-18 23:45:55 · 4083 阅读 · 0 评论 -
VB 利用 webbrowser 获取cookies
用webbrowser获取cookies信息。第一种:Private Sub Command1_Click()MsgBox WebBrowser1.Document.cookie '用webbrowser的document对象获取End Sub第二种:Private Sub Command2_Click()WebBrowser1.Navigate "javascri原创 2012-06-10 09:57:52 · 5956 阅读 · 3 评论 -
VB 判定程序是否已经结束
Option ExplicitDim DemoFile$Private Const NORMAL_PRIORITY_CLASS = &H20 '如果进程位于前台,则基本值是9;如果在后台,则优先值为7Private Const INFINITE = &HFFFFFFFFPrivate Const WAIT_TIMEOUT = &H102& '对象保持未发出信号的状态,但等原创 2012-08-04 22:31:47 · 1347 阅读 · 0 评论 -
vb 已经关闭进程的自动开启
Option ExplicitPrivate RunFile$Private Const NORMAL_PRIORITY_CLASS = &H20 如果进程位于前台,则基本值是9;如果在后台,则优先值为7Private Const INFINITE = &HFFFFFFFFPrivate Const WAIT_TIMEOUT = &H102& 对象保持未发原创 2012-06-27 11:58:33 · 1664 阅读 · 0 评论 -
如何让你的 VB 程序运行的更加高效
1. 使用整数(Integer)和长整数(Long) 提高代码运行速度最简单的方法莫过于使用正确的数据类型了。也许你不相信,但是正确地选择数据类型可以大幅度提升代码的性能。在大多数情况下,程序员可以将Single,Double和Currency类型的变量替换为Integer或Long类型的变量,因为VB处理Integer和Long的能力远远高于处理其它几种数据类型。下面是排序:Long原创 2012-06-13 01:18:41 · 4299 阅读 · 1 评论 -
VB webbrowser 拦截弹出对话框并获取对话框信息
首先在工程——引用中引用 Microsoft HTML Object LibraryOption ExplicitPrivate WithEvents m_MyVar As HTMLInputElementPrivate Sub Form_Load() WebBrowser1.Navigate2 "http://www.xyserver.com"End Sub原创 2012-06-08 19:49:38 · 10549 阅读 · 4 评论 -
vb picturebox 加载网络图片的两种方法,分无缓存加载和有缓存加载
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRe原创 2011-02-11 07:39:00 · 6837 阅读 · 1 评论 -
vb URLDownloadToFile下载函数
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As原创 2011-06-17 13:16:00 · 3969 阅读 · 0 评论 -
如何将 exe程序和vb编译的exe文件 封装为一个exe文件
如何将 exe程序和vb编译的exe文件 封装为一个exe文件把它当成资源文件,包到主程序里以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化 Option Explicit Sub Main() Const DBSIZE = 479232 欲生成的数据库大小是47原创 2011-06-17 12:51:00 · 5081 阅读 · 0 评论 -
如何用命令编译vb程序
先用 cd 命令转到 vb6.0 的安装目录,然后输入 vb6 /make vbp文件全路径 ( /make 可简写为 /m ,如果文件名含空格,文件名要加引号) 就编译成exe ,exe文件默认与vbp文件同目录同名(扩展名不同),如果要修改编译生成的默认exe文件名,先用记事本打开vbp文件,加一行(不能加在[MS Transaction Server]这行的后面) ExeName32="新名原创 2011-06-17 12:28:00 · 2391 阅读 · 0 评论 -
窗体失去焦点事件浅谈
从网上搜索到的方法,不敢独享。---- VB中有一个LostFocus事件和一个GotFocus事件,看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Windows中其他窗口进行切换时并没有触发这两个事件。现在解析一下这两个事件。---- Form_LostFocus、Form_GotFocus是指的是一个MDI主父窗体调用了多个子窗体,当这些子窗体之间切换时,就触发这两个事件;当一个窗体中的多个文本框,鼠标点击另一个文本框时,也会触发这两个此事件,文本框在 Windo原创 2011-02-18 02:51:00 · 10476 阅读 · 0 评论 -
VB6.0中的窗口控制技巧(2)
让窗口一直在上面 很多流行软件都有这样一个选项:Always on Top。它可以让窗口在最上面,别的窗口不能覆盖它。我们在 VB 中,可以使用下面的方法来实现:Private Const SWP_NOSIZE = &H1Private Const SWP_NOMOVE = &H2Private Const SWP_NOZORDER = &H4Private Const SWP_NOREDRAW = &H8Private Const SWP_NOACTIVATE = &H10Private Const SW原创 2011-02-18 00:45:00 · 4714 阅读 · 0 评论 -
VB 显示内存中的图片
'假设Form 上已经存在Picture1的控件,并已经设置好图片<br /><br />Dim PBag As New PropertyBag<br />Dim B() As Byte<br /><br />PBag.WriteProperty "Picture", Picture1.Picture<br />'读取Picture1.Picture 图片并写到 Pbag 容器中<br /><br />B = PBag.Contents '获取容器Byte 到 B() 数组中<br />'这时 B 就时我们原创 2011-02-15 17:19:00 · 5156 阅读 · 0 评论 -
vb 制作 webbrowser1 浏览器
'如果你希望新打开的网页出现在同一个窗口,可以这样做Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()Set Web_V1 = WebBrowser1.ObjectWebBrowser1.Navigate2 "http://zhidao.baidu.com/browse/74"End SubPrivate Sub Web_V1_NewWindow(ByVal URL As String, _ByVal Flags原创 2011-02-15 14:18:00 · 9125 阅读 · 0 评论 -
vb 让PictureBox内的图片拉伸
<br />Picture1.PaintPicture LoadPicture( "a.jpg "),0,0,Picture1.Width,Picture1.Height原创 2011-03-06 22:19:00 · 4214 阅读 · 0 评论 -
纯VB代码取得硬盘的物理序列号
<br />网上有很多获取硬盘序列号的代码,但大部分都只能取得逻辑分区的序列号,而不能取得硬盘的物理序列号。我们知道,逻辑分区的序列号是FORMAT时产生的,重新FORMAT将会改变。这对于要求唯一识别码的程式来说是致命的。这段代码利用API可以取得物理硬盘的很多特性,包括硬盘出厂时的唯一编号。这段代码我是从CSDN论坛获得,原作者不详。我将其稍做修改和增添,独立出两个常用的函数:GetDiskVolume 、GetHardDiskInfo ......<br />'===================原创 2011-02-11 21:57:00 · 907 阅读 · 0 评论