芬腾女士真丝睡衣:VB入门技巧N例(11)

来源：百度文库 编辑：九乡新闻网 时间：2024/07/07 15:22:57
36.如何打开光驱
  1. Public Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString  

  3. As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  4. Call CDdoor("set CDAudio door open", 0, 0, 0)    '打开光驱
  5. Call CDdoor("set CDAudio door closed", 0, 0, 0)  '关闭光驱
复制代码36.检测是否以联网及联网方式 module:
  1. Public Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
  2.     Alias "InternetGetConnectedStateExA" _
  3.     (ByRef lpdwFlags As Long, _
  4.     ByVal lpszConnectionName As String, _
  5.     ByVal dwNameLen As Long, _
  6.     ByVal dwReserved As Long _
  7.     ) As Long

  9. Public Enum EIGCInternetConnectionState
  10.     INTERNET_CONNECTION_MODEM = &H1&
  11.     INTERNET_CONNECTION_LAN = &H2&
  12.     INTERNET_CONNECTION_PROXY = &H4&
  13.     INTERNET_RAS_INSTALLED = &H10&
  14.     INTERNET_CONNECTION_OFFLINE = &H20&
  15.     INTERNET_CONNECTION_CONFIGURED = &H40&
  16. End Enum

  18. Public Property Get InternetConnected( _
  19.     Optional ByRef eConnectionInfo As EIGCInternetConnectionState, _
  20.     Optional ByRef sConnectionName As String _
  21.     ) As Boolean
  22.     Dim dwFlags As Long
  23.     Dim sNameBuf As String
  24.     Dim lR As Long
  25.     Dim iPos As Long
  26.      
  27.     sNameBuf = String$(513, 0)
  28.     lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&)
  29.     eConnectionInfo = dwFlags
  30.     iPos = InStr(sNameBuf, vbNullChar)
  31.     If iPos > 0 Then
  32.         sConnectionName = Left$(sNameBuf, iPos - 1)

  34. ElseIf Not sNameBuf = String$(513, 0) Then
  35.         sConnectionName = sNameBuf
  36.     End If
  37.     InternetConnected = (lR = 1)
  38. End Property
  39. 窗体中
  40. Private Sub Form_Load()
  41.     ' Determine whether we have a connection:
  42.     bConnected = InternetConnected(eR, sName)

  44.     ' The connection state info parameter provides details
  45.     ' about how we connect:
  46.     If (eR And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
  47.         sMsg = sMsg & "Connection uses a modem." & vbCrLf
  48.     End If
  49.     If (eR And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
  50.         sMsg = sMsg & "Connection uses LAN." & vbCrLf
  51.     End If
  52.     If (eR And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
  53.         sMsg = sMsg & "Connection is via Proxy." & vbCrLf
  54.     End If
  55.     If (eR And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then
  56.         sMsg = sMsg & "Connection is Off-line." & vbCrLf
  57.     End If
  58.     If (eR And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then
  59.         sMsg = sMsg & "Connection is Configured." & vbCrLf
  60.     Else
  61.         sMsg = sMsg & "Connection is Not Configured." & vbCrLf
  62.     End If
  63.     If (eR And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
  64.         sMsg = sMsg & "System has RAS installed." & vbCrLf
  65.     End If
  66.    
  67.    ' Display the connection name and info:
  68.     If bConnected Then
  69.         Text1.Text = "Connected: " & sName & vbCrLf & vbCrLf & sMsg
  70.     Else
  71.         Text1.Text = "Not Connected: " & sName & vbCrLf & vbCrLf & sMsg
  72.     End If
  73. End Sub
复制代码

37.得到当前windows的版本号

module:
  1. Type OSVERSIONINFO
  2.         dwOSVersionInfoSize As Long
  3.         dwMajorVersion As Long
  4.         dwMinorVersion As Long
  5.         dwBuildNumber As Long
  6.         dwPlatformId As Long
  7.         szCSDVersion As String * 128      '  Maintenance string for PSS usage
  8. End Type
  9. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  10. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  11. Public Const SM_CLEANBOOT = 67
  12. Public Const SM_DEBUG = 22
  13. Public Const SM_SLOWMACHINE = 73
  14. Public Const VER_PLATFORM_WIN32s = 0
  15. Public Const VER_PLATFORM_WIN32_WINDOWS = 1
  16. Public Const VER_PLATFORM_WIN32_NT = 2
  17. 窗体中

  19. Private Sub Form_Load()
  20. Dim myVer As OSVERSIONINFO
  21. Dim nl As String
  22. Dim q As Long
  23. nl = Chr(10) & Chr(13)
  24. myVer.dwOSVersionInfoSize = 148
  25. q& = GetVersionEx(myVer)
  26. lblWininfo = ""
  27. lblMoreWininfo = ""
  28. If myVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then lblWininfo = lblWininfo & "运行平台 = Windows 95/98" & nl
  29. If myVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then lblWininfo = lblWininfo & "Platform = Windows NT" & nl
  30. lblWininfo = lblWininfo & "Version = " & myVer.dwMajorVersion & "." & myVer.dwMinorVersion & " 创建于 " & (myVer.dwBuildNumber And &HFFFF&) & nl
  31. lblMoreWininfo = "Windows 现在运行在"
  32. If GetSystemMetrics(SM_CLEANBOOT) = 0 Then lblMoreWininfo = lblMoreWininfo & "正常模式" & nl
  33. 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（二） 编辑日志入门技巧 数码单反摄影技巧入门 数码单反摄影技巧入门 坐禅入门技巧