freezerstuff.bas

类似QQ的即时聊天系统,支持用户注册,源码分为客户端和服务器端。

Attribute VB_Name = "FreezerStuff"
Option Explicit
Public exitPause As Boolean
'=================
'延时函数
'=================
Public Function timedPause(secs As Long)
    Dim secStart As Variant
    Dim secNow As Variant
    Dim secDiff As Variant
    Dim Temp%
    
    exitPause = False
    
    secStart = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '取得开始时间
    


    Do While secDiff < secs
        If exitPause = True Then Exit Do
        secNow = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '当前时间
        secDiff = DateDiff("s", secStart, secNow) '当前时间与开始时间的差距
       Temp% = DoEvents
    Loop
End Function