嗨必胜博客

在使用VB开发多媒体应用程序时，如何合理地存放大量的多媒体资源，是一件十分棘手的事。如果将资源以文件形式存放在磁（光）盘上，使用时再从盘上读取，势必大大影响资源调用的速度。如果将资源直接编译在应用程序的可执行文件中，虽然可以获得令人满意的资源存取速度，但会导致最终的可执行文件尺寸大大膨胀。如何解决这个矛盾呢？笔者从Windows动态链接库的原理中得到启发，找到了一个结合二者优势的解决方法。

More...

新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 2.0 Library",代码里需要有dim conn As New ADODB.Connection '定义ADO数据库对象conn.ConnectionString = "driver={SQL Server};" & _ "server=" & ServerName & ";uid=" & UserName & ";pwd=" & Password & ";database=" & DatabaseName & "" '连接数据串conn.open

More...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9 隐藏桌面图标Private Sub Command1_Click()

More...

刚刚发了火车头的采集工具，之所做这个教程。
希望能对大家所有帮助。

第一步：新建一个站点。
站点名我随便打哈。
看到已经新建出，测试2站点了吧。

第二步：选中测试2右击，新建任务。

More...

Private Sub Command1_Click()
WebBrowser1.Navigate ("http://www.heibs.com")
End Sub
 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Dim bo     As Integer

More...

VB简单采集网页代码，利用Inet1.OpenURL下载网页，再进行采集；步骤如下：VB简单采集网页代码，利用Inet1.OpenURL下载网页，再进行采集；步骤如下：

More...

Private Const FILESIZEOFAPP = 154688
'我生成的木马APP.Exe大小是154688Byte

    Private Sub Command1_Click()
        Dim APP() As Byte
       '木马APP是个Btye类型和数组

More...

最近因为想写一个多线程的工具，以前也没写过；所以查了些VB多线程资料；方法虽然有很多，但我觉得这种是最简单而且又安全的一种真真的VB多线程方法。

大家往下看吧，分2大步骤；

1、新建一个工程，类型选择ActiveX Exe，工程重命名为TestExe
在工程中添加一个Form，放上一个Timer控件。
注：Timer 控件 interval值别忘了设置。
将Class1改名为clsTest，注意其Instancing要设置为5-MultiUse。

More...

ZBLOG什么都好，就是不能自定义多个分类模版。

今天我来告诉大家一个方法，如何自定使用多个分类不同模版；需要修改以下地方源代码；

1、分类调用不同的模板（即不同于翻页页）：
修改根目录catalog.asp，找到ArtList.template="CATALOG" 代码，
 

More...

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim strUsername As String

More...

More...