手机短信编程

开发平台：

Visual Basic

Module1.bas：源码内容

							Attribute VB_Name = "Module1"
Option Explicit
Public Declare Function GetTickCount Lib "kernel32" () As Long
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

						