手机短信编程

开发平台：

Visual Basic

fdx.bas：源码内容

							Attribute VB_Name = "fdx"
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub delay(time As Integer)
Dim Savetime As Double
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + time '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
End Sub

						