ARP联盟图文中心下载中心手机频道最近更新软件最近更新文章网络热点
您当前的位置→图文中心电脑技术用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

参考消息:http://www.arpun.com/End Sub

更多精彩,请查看本类栏目: 电脑技术
除非注明,ARP联盟文章来于网络,投稿原创等,转载请以链接形式标明本文地址。
本文地址:http://www.arpun.com/article/4486.html

相关文章
  • ·[图文]怎么用VMware新建一个虚拟机,vmware软件怎么创建虚拟机
  • ·[图文]使用VPN安全吗?
  • ·[图文]利用VOLANS路由器防御内网ARP攻击
  • ·用vb将vbs封装成exe
  • ·用VB6.0编写“特洛伊木马”程序
  • 发表评论
    栏目列表
    阅读排行
    本类最新
    网站帮助 - 广告合作 - 下载声明 - 网站地图