亚洲av色香蕉一区二区三区,十四以下岁毛片带血a级,亚洲 校园 欧美 国产 另类,亚洲av日韩av一区谷露,色欲av无码一区二区三区

  • 相關(guān)軟件
    >用VB6.0取得系統(tǒng)信息技巧　創(chuàng)建者：webmaster　更新時間：2005-07-02 01:44

    假如我們想要用VB6.0 取得系統(tǒng)信息，可以通過VB6.0的sysinfo控件和Windows API函數(shù)來實現(xiàn)。

    　　一、用sysinfo控件獲得操作系統(tǒng)版本

    　　要用sysinfo控件，必需在部件引用中選擇Microsoft Sysinfo Control復(fù)選框。程序

    　　代碼如下:





    Private Sub Command1_ Click()
    　Dim MsgEnd As String
    　Select Case SysInfo1.OSPlatform
    　Case 0
    　　MsgEnd="Unidentified"
    　Case 1
    　　MsgEnd="Windows 95, ver."&CStr(SysInfo1.OSVersion)
    　Case 2
    　　MsgEnd="Windows NT, ver."&CStr(SysInfo1.OSVersion)
    　　End Select
    　　MsgBox "System:" & MsgEnd
    　End Select
    　MsgBox "System: "& MsgEnd
    End Sub

    　　二、用Windows的Getsysteminfo函數(shù)獲得CPU型號

    　　窗體的聲明代碼:





    Private Type system-info
    　dwoemid As Long
    　dwpagesize As Long
    　ipminimumapplicationaddress As Long
    　lpmaximumapplicationaddress As Long
    　dwactiveprocessormask As Long
    　dwnumberofprocessors As Long
    　dwallocationgranularity As Long
    　dwreserved As Long
    End Type
    Private Declare Sub GetSystemInfo Lib "kernel32"
    (IpSystemInfo As system-info)

    　　程序代碼:





    Private Sub Command2_ Click()
    　Dim sys As system-info
    　GetSystemInfo sys
    　Pring "CPU類型:";sys.dwprocessortype
    　Pring "no.processors:";sys.dwnumberofprocessors
    End Sub

    　　三、用Windows的Getdrivetype函數(shù)獲得驅(qū)動器類型

    　　窗體的聲明代碼:





    Option Explicit
    Const drive removable=2
    Const drive fixed=3
    Const drive remote = 4
    Const drive cdrom=5
    Const drive ramdisk=6
    Private Declare Function GetDriveType Lib "kernel32"
    Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

    　　程序代碼:





    Private Sub Command3_ Click()
    Dim i, drv, d$
    For i=0 to 25
    d$=Chr$(i+65)& ":"
    drv=GetDriveType(d$)
    Select Case drv
    　Case drive removable
    　　Print "drive" & d$ & "is removable."
    　Case drive fixed
    　　Print "drive" & d$ & "is fixed."
    　Case drive remote
    　　Print "drive" & d$ & "is remote."
    　Case drivt cdrom
    　　Print "drive" & d$ & "is cd-rome."
    　Case drive ramdisk
    　　Print "drive" & d$ & "is ramdisk."
    　Case Else
    　　End Select
    　　Next i
    End Sub

    　　若創(chuàng)建一個標(biāo)準(zhǔn)工程，在窗體放置三個命令按紐:commandl, command2, command3。用鼠標(biāo)點擊按紐，即可實現(xiàn)上述功能。
    相關(guān)文章
    本頁查看次數(shù):