pc软件 文章资讯 手机软件

您当前的位置→图文中心电脑技术用vb将vbs封装成exe
阅读排行

用vb将vbs封装成exe


2009/9/27  编辑:佚名 来源:本站整理

teN.potgnayiaH.wwW vbs小铺

下午无聊, 实现了一下这个, 代码有的地方很不好, 以下代码是把一个加用户的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

相关文章

不如做鸡!外国学者用VR科学养鸡:-被圈养的鸡,是没有自由的。

工信部:未经批准不得自行建立或租用VPN:据工信部网站获悉,工信部决定自即日起至2018年3月31日,在全国范围内对互联网网络接入服务市场开展清理规范工作。

首宗VR眼镜色情案告破,破获的利用VR眼镜传播淫秽视频:刚刚逝去的2016年,也是公认的“VR元年”。

发表评论
网站帮助 - 广告合作 - 下载声明 - 网站地图