VB.NET程序实现/nogui参数时不启动WinForm并输出哈希到CMD

核心思路 #

保持项目为Windows Forms应用，修改入口逻辑：先解析命令行参数，若检测到/nogui则直接执行哈希生成并输出到控制台，不启动主窗体；否则正常启动WinForm。

具体实现步骤 #

1. 调整项目属性（关键） #

• 右键项目 → 属性 → 应用程序 → 输出类型：保持为Windows应用程序（避免控制台窗口默认弹出）。
• 勾选“启用应用程序框架”，将“启动对象”改为自定义的Sub Main（而非默认的主窗体）。

2. 添加模块实现Sub Main #

在项目中添加一个模块（比如MainModule.vb），代码如下：

Imports System
Imports System.Windows.Forms
Imports System.Security.Cryptography
Imports System.Text
Imports System.Linq

Module MainModule
    Sub Main()
        ' 解析命令行参数
        Dim args As String() = Environment.GetCommandLineArgs()
        Dim noGuiMode As Boolean = args.Any(Function(arg) arg.Equals("/nogui", StringComparison.OrdinalIgnoreCase))

        If noGuiMode Then
            ' 分配控制台用于输出（Windows应用默认无控制台）
            AllocConsole()
            ' 调用原有逻辑生成加盐哈希
            Dim saltedHash As String = GenerateSaltedSystemHash()
            ' 输出到CMD窗口
            Console.WriteLine(saltedHash)
            ' 释放控制台，避免残留
            FreeConsole()
        Else
            ' 正常启动WinForm
            Application.EnableVisualStyles()
            Application.SetCompatibleTextRenderingDefault(False)
            Application.Run(New MainForm())
        End If
    End Sub

    ' 复用你原有的加盐哈希生成逻辑
    Private Function GenerateSaltedSystemHash() As String
        ' 1. 调用你的WMI/Win32系统信息获取代码
        Dim systemInfo As String = GetSystemInfo()
        ' 2. 加盐（替换为你实际使用的盐值）
        Dim salt As String = "YourCustomSalt_2024"
        Dim saltedInput As String = systemInfo & salt
        ' 3. 生成哈希（示例用SHA256，可替换为你原有的哈希算法）
        Using sha256 As SHA256 = SHA256.Create()
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(saltedInput)
            Dim hashBytes As Byte() = sha256.ComputeHash(bytes)
            Return BitConverter.ToString(hashBytes).Replace("-", "").ToLower()
        End Using
    End Function

    ' 复用你原有的WMI系统信息获取逻辑
    Private Function GetSystemInfo() As String
        Dim infoBuilder As New StringBuilder()
        ' 示例：获取BIOS序列号（替换为你实际需要的系统信息）
        Using searcher As New Management.ManagementObjectSearcher("SELECT SerialNumber FROM Win32_BIOS")
            For Each obj As Management.ManagementObject In searcher.Get()
                infoBuilder.Append(obj("SerialNumber")?.ToString() ?? "")
            Next
        End Using
        ' 可添加更多系统信息拼接逻辑
        Return infoBuilder.ToString()
    End Function

    ' 导入Win32 API实现控制台分配与释放
    <Runtime.InteropServices.DllImport("kernel32.dll")>
    Private Function AllocConsole() As Boolean
    End Function

    <Runtime.InteropServices.DllImport("kernel32.dll")>
    Private Function FreeConsole() As Boolean
    End Function
End Module

3. 验证效果 #

• 在CMD中执行：你的程序.exe /nogui，无WinForm窗口弹出，直接在CMD输出哈希值，SCCM可正常捕获该输出。
• 直接双击程序.exe则正常启动WinForm展示系统信息与哈希。

之前方案失败原因 #

• 改为控制台应用：强制弹出控制台窗口，且WinForm主题会被控制台环境影响，不符合原有UI需求。
• 仅添加参数判断但未改入口：默认先启动主窗体，参数判断逻辑晚于窗体初始化，导致窗体仍会弹出。
• 模块使用不当：未正确设置启动对象为Sub Main，或未处理控制台分配逻辑，导致无法输出到CMD。

内容的提问来源于stack exchange，提问作者SilverSlash