使用InternetExplorer对象可以使POST请求在IE中产生，从而脱离程序，远离了美化界面的工作。程序甚至可以隐藏或退出，免去了WebBrowser带来的烦恼，当然也不需要第四个参数。下面我们还是以登陆CSDN为例，给出实际的代码，您可以根据前面文章中提供的参数换成你注册过的站点：建新工程，在工程中“引用”I...

[阅读全文]

下面的代码可以将任意日期（1000-01-01-->9999-12-31）转换为汉字显示：PrivateSubCommand1_Click()MsgBoxdatename(Date)EndSubFunctiondatename(ByValmydateAsDate)AsStringDimiAsLong,d(3)AsStr...

[阅读全文]

标准模块代码:'**'*本模块提供了一些对注册表进行操作的函数'*警告:操作注册表是非常危险的,使用本模块中的任何函数都要慎重!!!'*'*版权:LPP软件工作室'*作者:卢培培'**OptionExplicitOptionCompareText'---'-注册表API声明...'---PrivateDeclareFu...

[阅读全文]

异步加载是ADO的一种数据加载方式，主要由记录集的options参数来控制！ADO210.CHM中的格式：recordset.OpenSource,ActiveConnection,CursorType,LockType,OptionsOptions可选。Long值，指示提供者计算Source参数的方式（如果该参数表示...

[阅读全文]

0MapX简介MapX是MapInfo公司提供的具有强大地图分析功能的ActiveX控件产品。由于它是一种基于Windows操作系统的标准控件，因而能支持绝大多数标准的可视化开发环境，如VisualC++、VisualBasic、Delphi、PowerBuilder、VisualStudio.NET等。编程人员在开发...

[阅读全文]

引用MicrosoftHTMLOBjectLibraryRem＃窗体代码＃DimWithEventsM_DomAsMSHTML.HTMLDocumentPrivateFunctionM_Dom_oncontextmenu()AsBooleanM_Dom_oncontextmenu=FalseEndFunctionPri...

[阅读全文]

我在网上找到使用rft控件保存webbrowse文本txtHtml是RichTextBoxtxtHTML.Text=WebBrowser1.document.body.innerText'flag：rsftext保存为txt文件，strtmp文件路径txtHTML.saveFilestrtmp,rtfText将其nam...

[阅读全文]

控制网页的FORMS行为PrivateSubCommand2_Click()WithWebBrowser1.Document.Forms(0).c2.Checked=1.r1(1).Checked=1EndWithEndSubPrivateSubCommand2_Click()WithWebBrowser1.Docum...

[阅读全文]

OptionExplicitPublicConstNCBASTATAsLong=&H33PublicConstNCBNAMSZAsLong=16PublicConstHEAP_ZERO_MEMORYAsLong=&H8PublicConstHEAP_GENERATE_EXCEPTIONSAsLong=&...

[阅读全文]

程序员在开发软件的时候，常常需要很多图片来美化程序界面，工具栏，菜单等控件都会用到大量的图片，按照常规的方法，我们一般通过VB开发环境直接导入需要的图片，如BMP或图标文件；这样做的好处是方便简单，但也带来了大幅度增长主执行文件大小的麻烦。另一种方法是通过loadpicture函数动态加载指定目录下的图片文件，但把图片...

[阅读全文]

在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：PrivateSubForm_Resize()DimH,iAsIntegerOnErrorResumeNextResize_ALLMe'Me是窗体名，Form1,Form2等等都可以EndSub在模块中添加以下代码：PublicTy...

[阅读全文]

先引用McrsoftDAO3.6(或2.5或3.51)ObjectLibrary和McrsoftAccess9.0ObjectLibrary，在Form上加个Command1,粘贴以下代码：PrivateSubCommand1_Click()DimwrkDefaultAsWorkspaceDimdbsNewAsData...

[阅读全文]

在网上的导出为EXCEL文档的方法大概是这样的DimiAsInteger,jAsIntegerDimmyexcelAsNewExcel.ApplicationDimmybookAsNewExcel.WorkbookDimmysheetAsNewExcel.WorksheetSetmybook=myexcel.Workb...

[阅读全文]

access表-->MI表有两种途径：1.bindlayerXY方式绑定。指定bindlayer.filespec就可以创建永久表，不指定则为临时表。PrivateSubCommand4_Click()'只能创建一个字段，GeoName,来源于City字段。当City字段不能唯一是，state字段用于限定。'不能创建索...

[阅读全文]

手机短信发送²中文转换成Unicode码函数因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。P...

[阅读全文]

文本框属性为允许多行显示时，由于是软回车实现的分行，无法用SPLIT(TEXT1.TEXT,VBCRLF)准确地取出指定行的内容。本文利用SENDMESSAGE系列函数，通过发送文本框消息，实现了获取包含指定字符串的行，并演示了如何获取文本框中文本总行数和任意指定行的文本内容。'addatextboxwith"mult...

[阅读全文]

在VB的事件里，没有对当窗体移动的时候相应的处理事件接口。然而可以利用子类处理来实现。具体的想法是利用子类处理获得WM—MOVE的消息然后传递消息到一个正常的窗体的一个按纽，利用按纽的事件接口来模拟对窗体移动事件的模拟：其具体的实现代码如下：在窗体里加入一个按纽，命名为EventBn利用EventBn_click()事...

[阅读全文]

在VB的事件里，没有对当窗体移动的时候相应的处理事件接口。然而可以利用子类处理来实现。具体的想法是利用子类处理获得WM—MOVE的消息然后传递消息到一个正常的窗体的一个按纽，利用按纽的事件接口来模拟对窗体移动事件的模拟：其具体的实现代码如下：在窗体里加入一个按纽，命名为EventBn利用EventBn_click()事...

[阅读全文]

项目包括两个文件1main.frmVERSION5.00Object="{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0";"MSWINSCK.OCX"BeginVB.FormForm1Caption="Form1"ClientHeight=4725ClientLeft=60Cl...

[阅读全文]

程序组成:两个引用对象:MicrosoftHTMLObjectLibrary,MicrosoftInternetObject两个窗体:frmAbout.frmfrmMenu.frm两个*.bas:APIs.bas,mSysTray.bas两个Class:MyIE.cls,windows.cls(其中windows.cl...

[阅读全文]

每个字节加密后有6种结果（占两个字节，如果需要大于6种的话，就要多用1个字节，即占3个字节），也就是说如果字串占n个字节的话，可能产生的结果为6的n次方个，这个算法破解的强度不大，大家可以完善一下：'窗体上一个按钮，两个listboxOptionExplicitPrivateSubCommand1_Click()Dim...

[阅读全文]

为便于理解数组的作用，我们引入数据项和指针项的概念，在数据项中存放数组中各元素的值，指针项中存放该值在数组中的位置，两者一一对应。指针的上限指向数组第一个元素的位置，下限指向最末一个元素的位置。数组中的元素在内存中是连续的线性的节点序列，这种线性的数据结构是应用最广泛，最简单的一种数据结构。自定义数据类型（TypeSt...

[阅读全文]

在访问数据库时，经常会遇到记录数量过多，对数据列表进行初始化时耗费大量时间，使用户在进入界面时等待时间过长。为了解决这个问题，我们可以通过使用动态加载数据的方法来实现。即当进行初始化时，只是加载少量的数据，使控件快速完成初始化，让用户在较短的时间内得到控制权，这时加载数据的多少可以根据实际情况进行设定；然后，当用户滚动...

[阅读全文]

*'**模块名：fBackupDatabase_a'**描述：备份数据库,返回出错信息,正常恢复,返回""'**调用：fBackupDatabase_a"备份文件名","数据库名"'**参数说明：'**sBackUpfileName恢复后的数据库存放目录'**sDataBaseName备份的数据名'**sIsAddBa...

[阅读全文]

在使用VB自带的报表过程中，我遇到了处理动态分组报表的问题。一般要使用分组报表要在VB中建立一个DataEnvironment，并在其中建立数据库联接和命令对象，在命令对象中设置分组字段，最后将这些分组字段加入到报表中。但是这种方法只能适应静态的数据源，当遇到数据表中的字段不固定，或数据表不能预先知道的情况时，这种方法...

[阅读全文]

软件源程序如下:本程序加上界面即可实现全自动申请。What'sKuGoo?什么是kugoo?　KuGoo是是专业的P2P音乐及文件传输软件。通过KuGoo，用户可以方便、快捷、安全地实现音乐查找，即时通讯，文件传输，文件共享等网络应用。与50万用户同分享。文件传输方便快捷搜索音乐在线下载音乐聊天同时进行文件共享轻松拥有...

[阅读全文]

WMI是一项行业推荐规范，旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单，以及有关客户端状态的其他数据。WMI是可伸缩的系统管理结构，该规范采用一个统一、基于标准且可扩展的面向对象接口。它提供与系统管理员信息和基础WMIAPI交互的标准方法，主要由系统管理应用程...

[阅读全文]

利用硬盘序列号计算软件注册码。在模块中加入下列声明：PublicDeclareFunctionGetVolumeInformationLib"kernel32"_Alias"GetVolumeInformationA"(ByVallpRootPathNameAsString,_ByVallpVolumeNameBuff...

[阅读全文]

当任何程序或用户修改系统时间的时候，系统会将WM_TIMECHANGE消息到所有的进程，我们的程序可以捕获到该消息，然后将系统时间恢复到修改前的状态，这样就可以在我们的程序运行时系统时间的正确性，代码如下：'窗体form1(需要一个timer控件，interval=1000):PrivateSubForm_Load()...

[阅读全文]

数据库并发问题详述http://www.csdn.net/Develop/read_article.asp?id=24366已经说明了并发的严重性与危害性。下面讲述VB+ADO来处理并发操作的实际案例：在以前DAO中可以对数据库进行记录锁，页面锁，表锁来处理并发操作，还可以使用事务处理，那么现在怎么用ADO来检测并处理...

[阅读全文]