用vb将vbs封装成exepc软件 文章资讯 手机软件

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

用vb将vbs封装成exe


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

用vb将vbs封装成exe

 

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

相关文章
  • 搜狗输入法V模式的使用方法?搜狗输入法如何使用V模式教程
  • 不如做鸡!外国学者用VR科学养鸡
  • 工信部:未经批准不得自行建立或租用VPN
  • 首宗VR眼镜色情案告破,破获的利用VR眼镜传播淫秽视频
  • 怎么用VMware新建一个虚拟机,vmware软件怎么创建虚拟机
  • 使用VPN安全吗?
  • 利用VOLANS路由器防御内网ARP攻击
  • 用vb将vbs封装成exe
  • 用VB6.0编写“特洛伊木马”程序
  • 发表评论
    阅读排行
    相关热门
    网站帮助 - 广告合作 - 下载声明 - 网站地图