维克苗综合站

Option Explicit
‘==================================================
‘作  用：设置类模块变量,1.FileMD5 path ,文件md5,2.StringMD5,字符串md5
‘==================================================
Private Const BITS_TO_A_BYTE As Long = 8
Private Const BYTES_TO_A_WORD As Long = 4
Private Const BITS_TO_A_WORD As Long = BYTES_TO_A_WORD * BITS_TO_A_BYTE
Private m_lOnBits(0 To 30) As Long
Private m_l2Power(0 To 30) As Long

全文阅读 »

<%
‘’****************************************************************************
‘’PageName:GetRemoteFiles.asp
‘’Function:Download the files to Server
‘’Author:xiaotian
‘’Last Modified at:2003-3-19
‘’****************************************************************************
‘’取得远程文件并保存到本地
Function GetRemoteFiels(RemotePath, LocalPath, FileName)
Dim strBody
Dim FilePath
On Error Resume Next
‘’取得流
strBody = GetBody(RemotePath)
‘’取得保存的文件名
if Right(LocalPath, 1) <> “\” then LocalPath = LocalPath & “\”
FilePath = LocalPath & GetFileName(RemotePath, FileName)

全文阅读 »

站长网admin5.com3月19日消息，据网友透露，目前Google AdSense已经在国内测试电子银行转账支付服务，目前只在小部分用户种进行测试。取得测试资格的用户将可以直接通过银行账户收取人民币。

　　采用人民币支付方式后，用户将无需等待账户达到100美元(约680人民币)申请支付，Google AdSense将调整付款底限为400元人名币。据了解，谷歌采用人名币支付将代为征收个人所得税，目前尚不清楚税收标准。

　　有网友反映称，谷歌此举无疑是为迈向本土化而走出的重大一步，此举将极大的调动起中国站长的积极性。

全文阅读 »

Private Sub Form_Load()
    Dim resLen As String
    With Inet1
        .Execute "http://www.vicmiao.com/test.rar", "GET"
        Do While .StillExecuting
            DoEvents
        Loop
        resLen = .GetHeader("Content-Length")
    End With

    Debug.Print resLen
End Sub

以前一直用资源文件，但是还有点不真实，当鼠标移动时，指针变小手的一瞬间还有点跳，最后在国外网站上找到这段代码，是非常好用。

Screen.MousePointer = Hand in Visual Basic 6.0
By Robbe D. Morris
Printer Friendly Version

Robbe & Melisa Morris

全文阅读 »

Option Explicit
‘www.vicmiao.com
‘苗涛
‘*************************
Private Declare Function GetWindowLong Lib “user32″ Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib “user32″ Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_EX_ACCEPTFILES = &H10&
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
‘******************

全文阅读 »

以前做过一个vb的小项目，客户需要软件同时能够支持中文和英文，为此写了一个自动语言切换的模块来用，不敢独享，拿来给大家参考一下。

　　模块 MdlLanMgr.bas ：

全文阅读 »

微软宣布，将 Silverlight 1.1 更名为 Silverlight 2.0 ，并将在 2008 年第一季度发布 Silverlight 2.0 的 Beta 版本，同时发布一个免费的 Visual Studio 2008 工具包，提供在 Visual Studio 2008 里对 Silverlight 2.0 开发的支持。

Silverlight 2.0 将包括以下特性：

Controls，Controls，Controls：

全文阅读 »

Private Sub cmdDel_Click()
Dim i As Integer
With List1
    Do While .SelCount > 0
        If .Selected(i) = True Then .RemoveItem (i): i = i - 1
        i = i + 1
    Loop
End With
End Sub

‘禁止webbrowser 弹出 alert 提示框

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    pDisp.Document.parentWindow.execScript “window.alert=function myalert(msg){};”
End Sub