结构体

作者:admin 日期:2008-04-08

typedef struts tagMSG{
HWND hwnd;
UNIT message;
WPARAM wParam;
LPARAM lParam;

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2069

VB实现QQ窗体自动吸附到屏幕边缘的效果

作者:admin 日期:2008-04-07

VB实现QQ窗体自动吸附到屏幕边缘的效果

添加一个timer控件，直接运行代码即可

Option Explicit

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2627

vb 添加资源

作者:admin 日期:2008-04-05

On Error Resume Next
Dim APP1() As Byte
If Dir(App.Path & "\文件名.exe") = "" Then
APP1 = LoadResData(101, "CUSTOM")
Open App.Path & "\文件名.exe" For Binary As #2

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1963

PING查看器软件

作者:admin 日期:2008-04-05

文本框输入:192.168.0.1
程序代码：
Private Sub Command1_Click()
Dim ECHO As ICMP_ECHO_REPLY
Dim pos As Integer

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2481

一个加密软算法

作者:admin 日期:2008-04-04

编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。

字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是：

(1) 以二进制模式打开源文件；

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2144

VB给程序在托盘区写入图标

作者:admin 日期:2008-04-04

Option Explicit
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1945

网页自动提交模拟器

作者:admin 日期:2008-04-04

Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标,
添加一个WebBrowser1到Form1
commmand1 模拟登录 command2模拟取超链接
-----------------------------------------------------------------------------
Private Sub Command1_Click()

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3219

知己知彼了解VB编写病毒的大体方法

作者:admin 日期:2008-04-03

用VB编写病毒需要考虑到如下几点：

感染主机

首先染毒文件运行后先要判断主机是否以感染病毒，也就是判断病毒主体文件是否存在，如果不存在则将病毒主体拷贝到指定位置(如：

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2020

vb下读xml

作者:admin 日期:2008-04-03

引用microsoft xml version2.0  控件

  Option Explicit
  Dim xml     As DOMDocument

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2126

如何从文本文档中查找特定的字符

作者:admin 日期:2008-04-02

建立日期: 2000年12月11日最后修改日期：2000年12月11日

小刘:

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2474

能否提高读写二进制文件的速度

作者:admin 日期:2008-04-02

问：
vb6
    win98
    你好：
    如果定义BYTE变量读写二进制文件似乎速度太慢，请问快一点的算法。谢谢

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3047

给IE右键加上“复制图片地址”

作者:admin 日期:2008-04-01

首先打开记事本，输入如下代码。

[Version]
Signature="$Chicago$"
Provider="MetaBuilders"

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2306

Webbrowser控件详解

作者:admin 日期:2008-03-31

1、获得浏览器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub Command2_Click()

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2657

WebBrowser使用

作者:admin 日期:2008-03-31

1.实现的代码片段：
<input type="button" name="Button" value="点这保存这页面" onClick="document.all.WebBrowser.ExecWB(4,1)">
<object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</object>

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2210

注册控件方法

作者:admin 日期:2008-03-30

1、控件复制到system目录下，然后用regsvr32   xxx.ocx方式直接注册
2、把控件放在当前工程目录下，然后在控制台下进到当前工程目录再用regsvr32   xxx.ocx方式注册，或者在当前工程目录中新建一个"Reg.bat"的文件，文件中写入"regsvr32   xxx.ocx"保存然后双击运行
  然后在VB里"工程->引用"

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2339

内存溢出（错误 7）

作者:admin 日期:2008-03-28

需要更多的内存空间，或是遇到 64K 段边界限制。此错误有以下的原因和解决方法：

打开了太多的、文档或资源文件。
关闭不需要的应用程序、文档或资源文件。

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2649

VB错误号与错误信息详细对照表

作者:admin 日期:2008-03-27

错误号                                 信息


3                                  没有返回的GoSub
5                                  无效的过程调用

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3533

vb小偷程序

作者:admin 日期:2008-03-27

Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2383

复制整个文件夹

作者:admin 日期:2008-03-24

Shell "CMD /C XCopy f:\test\*.xls c:\test /E /I /Y"

or

Shell "CMD /C XCopy f:\test\*.xls c:\test /e"

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2296

取登陆用户名

作者:admin 日期:2008-03-24

方法一
'获取用户名的API函数
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

On Error Resume Next

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2394