获得系统版本的vb源码

《获得系统版本的vb源码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、获得系统版本的VB源码以下存为文件：获得系统版本.frmVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=2040ClientLeft=60ClientTop=345ClientWidth=4335LinkTopic="Form1"ScaleHeight=2040ScaleWidth=4335StartUpPosition=3'窗口缺省BeginVB.TextBoxText3Alignment=1'RightJustifyHeight=270Lef

2、t=1710TabIndex=5Text="Text3"Top=1470Width=1695EndBeginVB.TextBoxText2Alignment=1'RightJustifyHeight=270Left=1710TabIndex=4Text="Text2"Top=810Width=1695EndBeginVB.TextBoxText1Alignment=1'RightJustifyHeight=270Left=1710TabIndex=3Text="Text1"Top=240Width=1695E

3、ndBeginVB.LabelLabel3AutoSize=-1'TrueCaption="内部版本号："Height=180Left=600TabIndex=2Top=1500Width=1080EndBeginVB.LabelLabel2AutoSize=-1'TrueCaption="版本编号："Height=180Left=600TabIndex=1Top=885Width=900EndBeginVB.LabelLabel1AutoSize=-1'TrueCaption="操作系统："Height=1

4、80Left=600TabIndex=0Top=270Width=900EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalseOptionExplicit'API函数声明PrivateDeclareFunctionGetVersionExLib"kernel32"Alias"G

5、etVersionExA"(lpVersionInformationAsOSVERSIONINFO)AsLong'结构型变量说明PrivateTypeOSVERSIONINFOdwOSVersionInfoSizeAsLongdwMajorVersionAsLongdwMinorVersionAsLongdwBuildNumberAsLongdwPlatformIdAsLongszCSDVersionAsString*128EndTypePrivateSubForm_Load()DimOSInfoAsOSVE

6、RSIONINFO,VAsStringOSInfo.dwOSVersionInfoSize=Len(OSInfo)GetVersionExOSInfoSelectCaseOSInfo.dwPlatformIdCase0V="Windows32s"Case1V="Windows95/98"Case2V="WindowsNT"EndSelectText1=VText2=Str$(OSInfo.dwMajorVersion)+"."+LTrim(Str(OSInfo.dwMinorVersion))Text3=St

7、r(OSInfo.dwBuildNumber)EndSub以下存为文件：获得系统版本.vbpType=ExeForm=获得系统版本.frmReference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#D:WINNTsystem32stdole2.tlb#OLEAutomationIconForm="Form1"Startup="Form1"HelpFile=""Command32=""Name="工程1"HelpContextID="0"Compat

8、ibleMode="0"MajorVer=1MinorVer=0RevisionVer=0AutoIncrementVer=0ServerSupportFiles=0CompilationType=0OptimizationType=0FavorPentiumPro(tm)=0CodeViewDebugInfo=0NoAliasing=0BoundsCheck=0OverflowCheck=0FlP