精品国产亚洲一区二区三区,男女作爱在线观看免费网站,欧美的又大又长做禁片A片,97国产精品人妻无码久久久

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

    假如我們想要用VB6.0 取得系統(tǒng)信息，可以通過(guò)VB6.0的sysinfo控件和Windows API函數(shù)來(lái)實(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型號(hào)

    　　窗體的聲明代碼:





    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類(lèi)型:";sys.dwprocessortype
    　Pring "no.processors:";sys.dwnumberofprocessors
    End Sub

    　　三、用Windows的Getdrivetype函數(shù)獲得驅(qū)動(dòng)器類(lèi)型

    　　窗體的聲明代碼:





    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)建一個(gè)標(biāo)準(zhǔn)工程，在窗體放置三個(gè)命令按紐:commandl, command2, command3。用鼠標(biāo)點(diǎn)擊按紐，即可實(shí)現(xiàn)上述功能。
    相關(guān)文章
    本頁(yè)查看次數(shù):