mod_xp.bas

来自「获取硬盘所有的信息 包括序列号 容量 制造商」· BAS 代码 · 共 47 行

Attribute VB_Name = "mod_xP"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/29
'描    述：高级硬盘信息获取源代码 Ver 1.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
'=========================================================='
'Thanks to: vbAccelerator www.vbacceletaror.com            '
'Date     : 25-06-2004                                     '
'Name     : mod_xP.bas                                     '
'=========================================================='
'Daniel PC (Daniel Carrasco Olguin)                        '
'Santiago de Chile                                         '
'=========================================================='
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (Iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200

Public Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type

Public Sub Main()
On Error Resume Next

Dim Iccex As tagInitCommonControlsEx

With Iccex
       .lngSize = LenB(Iccex)
       .lngICC = ICC_USEREX_CLASSES
End With

InitCommonControlsEx Iccex

On Error GoTo 0
frmDisk.Show
End Sub