yc.rar - Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Dim Password As Boolean,2008-08-28 11:47:39,下载6次
time.rar - Option Explicit
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
,2008-08-28 11:46:51,下载3次
kj.rar - Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
MsgBox "hhh", vbOKOnly + vbCritical, "Ì áÊ ¾ "
End Select
End Sub
,2008-08-28 11:42:04,下载3次
dvd.rar - Option Explicit
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim state1 As Boolean
Private Sub Command1_Click()
打开光驱
state1 = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub
Private Sub Command2_Click()
关闭光驱
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub
Private Sub Command3_Click()
End
End Sub,2008-08-28 11:38:14,下载93次