vbs CreateObject("System.Drawing.Bitmap", width, height) 报错

这个错误可能是因为你所在的环境没有安装 .NET Framework 或者安装的版本不正确。请确保你的系统已经安装了正确的 .NET Framework，或者尝试更新到最新版本。另外，也可以尝试使用其他的方式创建 Bitmap 对象，例如使用 GDI+ 或者 WPF。以下是创建 Bitmap 对象的示例代码：

使用 GDI+：

Dim bmp As New System.Drawing.Bitmap(width, height)

使用 WPF：

Dim bmp As New System.Windows.Media.Imaging.WriteableBitmap(width, height, 96, 96, System.Windows.Media.PixelFormats.Pbgra32, Nothing)

相关问题

CreateObject("System.Drawing.Bitmap", 报：错误的参数个数或无效的参数属性值:

这个错误通常是因为在创建 Bitmap 对象时，参数个数或参数属性值不正确导致的。请检查你的代码，确保你传递给 Bitmap 构造函数的参数个数和属性值是正确的。

以下是一个正确创建 Bitmap 对象的示例代码：

Dim bmp As New System.Drawing.Bitmap("C:\test.jpg")

在这个示例中，我们传递了一个文件路径作为构造函数的参数，以创建一个名为 bmp 的 Bitmap 对象。你可以根据你的需要调整参数。如果问题仍然存在，请提供更多的代码细节，以便我可以帮助你解决问题。

vbs objShell.Exec 中文乱码

你好！对于 vbs 中使用 objShell.Exec 执行命令时出现中文乱码的问题，可以尝试下面几种解决方法：

1. 使用 chcp 命令设置命令行编码为 UTF-8：

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd /c chcp 65001 & your_command", 0, True

在 your_command 处替换为你要执行的命令。

2. 使用 cmd.exe /u 参数执行命令，该参数表示使用 Unicode 编码：

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd.exe /u /c your_command", 0, True

在 your_command 处替换为你要执行的命令。

3. 使用 ADODB.Stream 对象读取命令输出并转换为 UTF-8 编码：

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("your_command")
Set objStdOut = objExec.StdOut

Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 2 ' 文本类型
objStream.Charset = "UTF-8"
objStream.LoadFromStream objStdOut

output = objStream.ReadText
WScript.Echo output

在 your_command 处替换为你要执行的命令。

这些方法可以尝试解决 vbs 中使用 objShell.Exec 执行命令时出现中文乱码的问题。希望能帮到你！如果还有其他问题，请继续提问。