prizemodule.bas

通用抽奖程序

Attribute VB_Name = "PrizeModule"
Public prizeFirstNum(50) As String
Public prizeSecondNum(50) As String
Public prizeThirdNum(50) As String
Public prizeSpecialNum(50) As String

Public prizeType As Integer
Public firstCount As Integer
Public secondCount As Integer
Public thirdCount As Integer
Public specialCount As Integer
Public allCount As Integer
Public actionName As String
Public actionInfo As String

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Res As Integer, Ret As String * 1024
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long