• 文件: 技术文档.txt
  • Full Path: /www/wwwroot/8.148.78.63/li/MC/工具/windows和office激活脚本/技术文档.txt
  • Date Modified: 01/20/2026 3:15 PM
  • 文件大小: 4 KB
  • MIME类型: --
  • 编码格式: 8 bit
    :NNN'Y[qQTcTcؚzb/g(Wdkbyr+RQNُ{b/gech0

,gech-N\S+T,gz^vRnNxNSlʑfNOؚ~(u7bS0

vQ-NRNxegnNQ~0

    This technical document is made to share information about programming. It contains some parts of source code and comments of this programme. This document might be only suitable for experienced users. Some of the following code is from Internet.



    DirectXO
Y]wQV1.0Hrv_SsX:NMicrosoft Visual Studio 2008_S

Visual Basic.NET FrameworkHr,g2.0_S|~Windows 7 e0Hr32MO0

KmՋsXWindows XP Home Edition(32 bit)0Windows XP Professional Edition(32 bit)0

Windows 7 e0Hr(32 bit)0Windows 7e0Hr(64 bit)0Windows 8 Pro(64 bit)0

Windows 8.1 Pre(64 bit)0Windows 10 pro (32 bit)0Windows 10 pro (64 bit)0

    The environments for developing DirectX Repair V1.0 are shown as following: Microsoft Visual Studio 2008; Language: Visual Basic; .NET Framework: 2.0; Development OS: Windows 7 Ultimate 32-bit; Tested OS: Windows XP Home Edition (32 bit), Windows XP Professional Edition (32 bit), Windows 7 Ultimate (32 bit), Windows 7 Ultimate (64 bit), Windows 8 Pro (64 bit), Windows 8.1 Pre (64 bit), Windows 10 pro (32bit), Windows 10 pro (64 bit).



---------------------------------------------------------------------------------------------------------------------



    z^-NvRNx

    Some parts of source code:



10hKmd\O|~Hr,g0

1. To detect the version of the current OS.

	If Val(My.Computer.Info.OSVersion) < 6 Then

            'XP02000I{l	g.NETvd\O|~

	Else

	    'Vista0Win 7I{&^.NETvd\O|~

        End If



202bkz^͑
YЏL0

2. To avoid re-running of the programme.

	Dim procName As String

        procName = System.Diagnostics.Process.GetCurrentProcess().ProcessName	

	If (System.Diagnostics.Process.GetProcessesByName(procName)).GetUpperBound(0) > 0 Then

            MsgBox("z^]~(WЏL", MsgBoxStyle.Critical)

            Me.Dispose()

            Exit Sub

        End If



30Sd\O|~
TSHr,gS0

3. To acquire the system name and version information.

	My.Computer.Info.OSFullName & My.Computer.Info.OSVersion





40(u|~vDirectX ʋe]wQ0

4. To call the DirectX Diagnosti