用vb将vbs封装成exe

最新推荐文章于 2024-10-22 13:47:56 发布

转载最新推荐文章于 2024-10-22 13:47:56 发布 · 159 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/top5/archive/2009/11/17/1604748.html

文章标签：

#shell

本文介绍了一种将VBS脚本封装为EXE文件的方法，并提供了一个具体实例，展示了如何通过调用系统API创建控制台窗口并执行指定操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下午无聊，实现了一下这个，代码有的地方很不好，以下代码是把一个加用户的vbs封装成exe了：

Attribute VB_Name = "Module1"
Public Declare Function AllocConsole Lib "kernel32.dll" () As Long
Public Declare Function FreeConsole Lib "kernel32.dll" () As Long
Public Declare Function SetConsoleTitle Lib "kernel32.dll" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Public Declare Function AttachConsole Lib "kernel32.dll" (ByVal ProcessID As Integer) As Boolean

Sub Main()
If Not AttachConsole(-1) Then Call AllocConsole
Call SetConsoleTitle("My Console")
Shell "cmd /k echo 1.exe user pass && echo.", vbMinimizedNoFocus '这样来显示用法效果实在不好，以后改动吧

On Error Resume Next
Dim strCmd As String
strCmd = VBA.Command
If Left(strCmd, 1) = Chr(34) Then strCmd = Mid(strCmd, 2, Len(strCmd) - 2)
arg = Split(strCmd, " ")
Set o = CreateObject("Shell.Users")
Set z = o.Create(arg(0))
z.changePassword arg(1), ""
z.setting("AccountType") = 3

Call Sleep(2000)
Call FreeConsole

End Sub

转载于:https://www.cnblogs.com/top5/archive/2009/11/17/1604748.html