芬腾女士真丝睡衣:VB入门技巧N例(11)
来源:百度文库 编辑:九乡新闻网 时间:2024/10/06 01:23:39
36.如何打开光驱
37.得到当前windows的版本号
module:
- Public 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
- Call CDdoor("set CDAudio door open", 0, 0, 0) '打开光驱
- Call CDdoor("set CDAudio door closed", 0, 0, 0) '关闭光驱
- Public Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
- Alias "InternetGetConnectedStateExA" _
- (ByRef lpdwFlags As Long, _
- ByVal lpszConnectionName As String, _
- ByVal dwNameLen As Long, _
- ByVal dwReserved As Long _
- ) As Long
- Public Enum EIGCInternetConnectionState
- INTERNET_CONNECTION_MODEM = &H1&
- INTERNET_CONNECTION_LAN = &H2&
- INTERNET_CONNECTION_PROXY = &H4&
- INTERNET_RAS_INSTALLED = &H10&
- INTERNET_CONNECTION_OFFLINE = &H20&
- INTERNET_CONNECTION_CONFIGURED = &H40&
- End Enum
- Public Property Get InternetConnected( _
- Optional ByRef eConnectionInfo As EIGCInternetConnectionState, _
- Optional ByRef sConnectionName As String _
- ) As Boolean
- Dim dwFlags As Long
- Dim sNameBuf As String
- Dim lR As Long
- Dim iPos As Long
-
- sNameBuf = String$(513, 0)
- lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&)
- eConnectionInfo = dwFlags
- iPos = InStr(sNameBuf, vbNullChar)
- If iPos > 0 Then
- sConnectionName = Left$(sNameBuf, iPos - 1)
- ElseIf Not sNameBuf = String$(513, 0) Then
- sConnectionName = sNameBuf
- End If
- InternetConnected = (lR = 1)
- End Property
- 窗体中
- Private Sub Form_Load()
- ' Determine whether we have a connection:
- bConnected = InternetConnected(eR, sName)
- ' The connection state info parameter provides details
- ' about how we connect:
- If (eR And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
- sMsg = sMsg & "Connection uses a modem." & vbCrLf
- End If
- If (eR And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
- sMsg = sMsg & "Connection uses LAN." & vbCrLf
- End If
- If (eR And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
- sMsg = sMsg & "Connection is via Proxy." & vbCrLf
- End If
- If (eR And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then
- sMsg = sMsg & "Connection is Off-line." & vbCrLf
- End If
- If (eR And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then
- sMsg = sMsg & "Connection is Configured." & vbCrLf
- Else
- sMsg = sMsg & "Connection is Not Configured." & vbCrLf
- End If
- If (eR And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
- sMsg = sMsg & "System has RAS installed." & vbCrLf
- End If
-
- ' Display the connection name and info:
- If bConnected Then
- Text1.Text = "Connected: " & sName & vbCrLf & vbCrLf & sMsg
- Else
- Text1.Text = "Not Connected: " & sName & vbCrLf & vbCrLf & sMsg
- End If
- End Sub
37.得到当前windows的版本号
module:
- Type OSVERSIONINFO
- dwOSVersionInfoSize As Long
- dwMajorVersion As Long
- dwMinorVersion As Long
- dwBuildNumber As Long
- dwPlatformId As Long
- szCSDVersion As String * 128 ' Maintenance string for PSS usage
- End Type
- Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
- Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
- Public Const SM_CLEANBOOT = 67
- Public Const SM_DEBUG = 22
- Public Const SM_SLOWMACHINE = 73
- Public Const VER_PLATFORM_WIN32s = 0
- Public Const VER_PLATFORM_WIN32_WINDOWS = 1
- Public Const VER_PLATFORM_WIN32_NT = 2
- 窗体中
- Private Sub Form_Load()
- Dim myVer As OSVERSIONINFO
- Dim nl As String
- Dim q As Long
- nl = Chr(10) & Chr(13)
- myVer.dwOSVersionInfoSize = 148
- q& = GetVersionEx(myVer)
- lblWininfo = ""
- lblMoreWininfo = ""
- If myVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then lblWininfo = lblWininfo & "运行平台 = Windows 95/98" & nl
- If myVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then lblWininfo = lblWininfo & "Platform = Windows NT" & nl
- lblWininfo = lblWininfo & "Version = " & myVer.dwMajorVersion & "." & myVer.dwMinorVersion & " 创建于 " & (myVer.dwBuildNumber And &HFFFF&) & nl
- lblMoreWininfo = "Windows 现在运行在"
- If GetSystemMetrics(SM_CLEANBOOT) = 0 Then lblMoreWininfo = lblMoreWininfo & "正常模式" & nl
- If GetSystemMetrics(SM_CLEANBOOT) = 1 Then lblMoreWininfo = lblMoreWininfo & "安全模式" & nl
VB入门技巧N例(11)
VB入门技巧N例(3)
VB入门技巧N例(4)
VB入门技巧N例(5)
VB入门技巧N例(6)
VB入门技巧N例(7)
VB入门技巧N例(8)
VB入门技巧N例(9)
VB入门技巧N例(10)
编程入门网-Vb教程+
编程入门网-VB教程:第三章-VB语言+
vb.net入门:CheckedListBox控件的使用
VB爱好者乐园(VBGood) - 经验之谈 - VB编程的必备技巧
围棋入门n(完整版)
VB 窗体编程 技巧汇编 经验大全+
VB 窗体编程 技巧汇编 经验大全-
沟通的技巧n
做菜的技巧n
vb vb
VB -控件11(二)
编辑日志入门技巧
数码单反摄影技巧入门
数码单反摄影技巧入门
坐禅入门技巧