AI可以自由发挥的途径个人认为不算少,它的自定动作(Custom Actions)可以调用exe/js/vbs等东东,但js和vbs我没什么底子,有点畏难情绪,想用自己熟悉的方式来解决问题,就是用c#写个...所有思来想去,还是决定搞一搞vbs。 只是他娘的,用惯优雅的C#,感觉其它语言就像屎一样,更别说像vbs这种脚本还没什么像样的ISE,总之很佩服主要coding在这些语言上的码农们,完全是受虐。...whatever~一开始本来想找找vbs调用win32 API的方法,如果可以的话,那调一调WritePrivateProfileString就完事了,可找来找去,发现似乎vbs不能直接调API(没找到官方说法...的出处还颇为神秘,搜不到,文件信息和内容也没看出什么端倪,人作者这才是真雷锋啊。...anyway,上述方法对于我做安装包来说,万万不能考虑,所以,还是老实研究地道vbs法,小有成果,分享如下: '函数:设置ini值(ini路径,目标节点,目标键,目标值) '注:若ini文件不存在则创建
Dim fs ,f Const Normal =0,ReadOnly=1,Hidden=2,System=4,Volume=8,Directory=16,Ali...
VBS也挺强大的呢,这篇给大家演示的是获取当前时刻,并根据不同的时间段来问好! 注:编辑器不支持vbs编程,单引号后是注释哦!
ScriptCryptor 小蓝枣的资源仓库,提取码: 7bdb 特点: ① Blowfish 加密算法,不容易被第三方工具破解; ② 可以转换 javascript 和 VBScript,转换后的文件不需要...cscript.exe 和 wscript.exe 的支持就可以运行; 步骤一:点击文件打开要转化的 vbs 文档。...步骤二:嵌入文件处可以选择转化之后程序的图标,然后点击那个编译图标就可以了,转化后的程序还在原文件夹里。 资源包里还附带了帮助文档,想要了解更多可以看看。...vbs to exe 获取地址:小蓝枣的资源仓库,提取码: 59ck 特点: ① 选项很多,方便用户使用! ② 貌似功能更多一些!
可能有人不了解,代码在制作的使用,是需要跟vbs搭配,最后成为一个可以运行的代码。那么这个vbs是什么?...image.png 一、vbs是什么 简单来说就是一种脚本语言,是在vb的基础上,建立形成的,更加地简单易上手,可以制作一个小小的代码。...二、vbs简单制作教程 首先第一步是打开一个文本编辑器,随便打开一个文档;第二步就是对文档进行编辑,要记得输入代码,在代码后面加上自己想要说的话,注意要使用英文的标点符号。...最后改为vb后电脑会弹出一个弹窗,提示是否确认要更改文件名,会导致文件不能用,点击确认。这样就做好了想要的vbs代码,点开就可以查看。...全文详细介绍了关于vbs的相关信息,虽然不是一门人人都需要会的技术。但是多学一门知识,并不会有不好的影响,既可以增加自己的学识,也可以增加乐趣,如果有兴趣的话可以学习。
pan.baidu.com/s/1GlsJfJPdLuJe3Dbqf0EvpQ 提取码: 7bdb 特点: Blowfish 加密算法,不容易被第三方工具破解; 可以转换javascript和VBScript,转换后的文件不需要...“cscript.exe”和“wscript.exe”的支持就可以运行; 步骤一:点击文件打开要转化的vbs文档。...步骤二:嵌入文件处可以选择转化之后程序的图标,然后点击那个编译图标就可以了。转化后的程序还在原文件夹里。 ? 资源包里还附带了帮助文档,想要了解更多可以看看。 ?...vbs to exe 获取地址:https://pan.baidu.com/s/1a12RR5X_9MOUqjGs6YLwQQ 提取码: 59ck 特点: 选项很多,方便用户使用!
我那安装包在安装期间有这个动作: - 让用户填写一些信息,待安装完成后把这些信息写入软件安装目录中的指定ini、xml文件中 上文说的是如何用vbs写ini,ini搞完了,这下搞xml。...本来借助xml完善的DOM实现,包括vbs在内的大多数语言操作xml都很容易,调用Microsoft.XMLDOM对象即可,比如: Dim doc Set doc = CreateObject("Microsoft.XMLDOM...我那xml是要以utf-8编码的,doc.save得到的却是ANSI编码的文件~让人不省心啊不省心,尼玛给save方法加个编码参数会死啊~好吧,文明发博。...,还可以写到流对象 stream.SaveToFile "c:\a.xml", 2 '用流对象来存文件 stream.Close '关闭流 简单说就是用DOMDocument对象来操作xml,用Stream...对象来保存文件,而流是可以指定编码的,所以问题搞掂。
# 1.txt,1.py 1.mp3 1.avi # 允许用户输入任何一个文件 -- 备份 # 打开源文件, 打开备份文件 -- 源文件执行读取,备份文件执行写入 -- 关闭两个文件 import os...# 得到这个路径下的所有文件 file_list = os.listdir('./') print(file_list) file_name = input('请输入要备份的文件名:') if file_name...src_f = open(file_name, 'rb') # 音频文件,所以要二进制模式打开 new_f = open(new_name, 'ab') # 源文件读取数据,...新的文件写入数据 # src_f.read() -- read是一次性读取所有,如果文件太大,会出问题,循环读取循环写入 # 当没有数据了就不再循环执行读写 -- 数据长度为0 len...-- 先关闭备份出来的 再关闭源文件 new_f.close() src_f.close() else: print('文件不存在')
' 将 c 文件夹 复制到B目录下的某日期的文件夹下 如 b\2016-7-25\c FolderLoopCopy "C:\Users\caoya\Desktop\test1","C:\Users\caoya...Set oFolder = oFso.GetFolder(srcF) countSize = oFolder.size+1 nowSize = 1 '生成日期文件夹...fStack = new MyStack fStack.push srcFolder '准备遍历堆栈 Do While fStack.Count > 0 '获取栈顶文件夹...set tempF = fStack.Pop 'WScript.Echo tempF.Path '获取栈顶文件夹路径对象 set oFolder..." + tempFolderPath n = n + 1 Call MyCreateFolder(oFso,tempFolderPath) '获取子文件和子文件夹
Vbs 禁用启用网卡 在实际工作中,经常碰到需要通过脚本启用禁用网卡的情况,在网上找了一个脚本,实际是通过模拟键盘操作来启用禁用,但对于多种系统和比较复杂的情况操作性不好。...于是产生了一个思路,利用vbs得到网卡名字,然后调用netsh命令启用禁用网卡。
文件1: ftp -n -s:"upload.txt" call upload_bankup_rename.bat 文件2:upload.txt Open 192.168.1.1 User username...Cd /as3t/exp_imp/C162/scrap Bin Prompt mput E:escraptesttransfer.csv mput E:escraptestadjust.csv bye 文件...0,4%%date:~5,2%%date:~8,2% set bak_time=%time:~0,8% set bak_time=%bak_time::=% cd E:escraptest rem 重命名备份至另外的文件夹
=================================== 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...WScript.Echo (WScript.Name) '返回 WScript 对象(主机可执行文件)的名称 WScript.Echo (WScript.Path) '返回包含主机可执行文件(CScript.exe...oShellLink.Hotkey = "Ctrl+Alt+e" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description ="VBS...只可创建系统对象的快捷方式,包括文件、目录和驱动器(不包括打印机链接或调度任务)。
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...nicinfo.ini 3 判断文件是否存在 Set objFSO = Createobject("Scripting.FileSystemObject") If objFSO.Fileexists(...path_init_file) Then 'msgbox("fil now") else 'msgbox("fil now ---") exit sub end if 4 读取文件 Set fso...,先判断文件是否存在,不存在,创建然后写。
VBS作为一款脚本语言,从古到今一直起着不可替代的作用,从windows的WHS到WINCC的vbs脚本,一直伴随着工控人的左右,可以说C语言是工控人的启蒙老师,那VBS脚本则是工控人的领路人。...如果你能用好VBS可以让你在工控的上位系统里游刃有余,同时还能提升自己的BIG,正因为如此,剑指工控统计过熟练掌握VBS脚本编程的工程师比不懂脚本脚本编程工程师早有女朋友3年,也就是说一个VBS脚本可以让你提前...弹出对话框的函数 MSGBOX("剑思庭VBS教程") WScript.Echo("剑思庭VBS教程") Set WshShell = WScript.CreateObject("WScript.Shell...helpfile 字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile,则必须提供 context。在 16 位系统平台上不可用。...context 数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context,则必须提供 helpfile。在 16 位系统平台上不可用。
优化压缩参数根据备份文件的特点和系统资源限制,调整压缩参数以平衡压缩率和性能。...(1)gzip 示例# 使用 gzip 压缩备份文件(默认压缩级别为 6)tar -czf /backup/full_backup_20250207.tar.gz /source/directory...backup/full_backup_20250207.tar.gz --use-compress-program="gzip -9" /source/directory (2)xz 示例# 使用 xz 压缩备份文件.../full_backup_20250207.tar.xz --use-compress-program="xz -9" /source/directory(3)zstd 示例# 使用 zstd 压缩备份文件.../bin/bash # 压缩并记录日志compress_backup() { echo "开始压缩备份文件..."
然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写kk.vbs,单击“保存”就可以了。然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,然后双击。...不,自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?...就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:xxx.vbs,其中xxx你随意。 说明之二:在记事本编辑窗口中写的这行是什么意思?...◎Vbs脚本编程简明教程之七 —FSO的常见对象和方法 文件系统是所有操作系统最重要的部分之一,脚本经常会需要对文件及文件夹进行访问和管理,在Vbs中对桌面和文件系统进行访问的顶级对象是...FileSystemObject(FSO),这个对象特别复杂,是vbs进行文件操作的核心。
首先,我们都知道,VBS代码可以直接被看到的, 不知道VBS的是什么,度娘会告诉你的。...下面这个程序可以对VBS代码进行简单的加密,原理灰常简单, 1.读取源文件的所有代码 1.读取源文件的所有代码 2.计算Asc值 3.写入,Execute用Chr还原后的代码。... Else newdata=newdata&asc(mid(data,j,1))&"," End If Next ASCdata=newdata End function 保存上面代码为VBS...[*.vbs],将欲加密文件拖入,生成加密后的txt 解密: on error resume next...,4096+64 end if 保存上面代码为VBS[*.vbs],将欲解密文件拖入,生成解密后的txt
今天说一说VBScript语言_vbs输出语句,希望能够帮助大家进步!!!...=1 to n step m 语句1 exit for 语句2 next 二.ASP数据库简单操作教程 .数据库连接(用来单独编制连接文件...你在申请邮箱的所填写的个人信息就是通过该对象来将 你所填写的信息传递给服务器的 比如:这是一段表单的代码,这是提供给客户填写信息的,填写完了按 “提交”传递给request.asp文件处理后再存入服务器数据库
一个简单的备份脚本。 #!.../usr/bin/env python3 #-*- coding:utf-8 -*- #for backup import os import time #需要备份的目录 source = ['/var.../log/history/','/var/log/httpd/'] #保存备份的目录 target_dir = '/tmp/' today_dir = target_dir + time.strftime...command命令行,再调用os.system()函数运行command命令,如果成功,返回0,否则返回错误号 os.path.exits():exits()函数的功能就是检查该系统中,是否存在指定路径的文件或文件夹存
-a 归档模式,表示以递归方式传输文件,并保持所有文件属性,等于 -rlptgoD。 -v 详细模式输出。 --delete 删除 目标文件夹(dst) 中 源文件夹(src) 已经没有的文件。...--exclude='' 指定排除不需要传输的文件模式(注意!...这里的根目录是 src 目录,里面的文件是相对路径) 预备: src 下有 a b c 3个文件, dst 为空文件夹 mkdir src mkdir dst cd src touch a b c 1....--delete 参数 rm src/b rsync -av --delete src/ dst/ 同步完成后 dst 下有 a c 2个文件,b文件删除 3....rsync -av src/ dst/ 同步src文件夹下的文件,结果为 dst/a、dst/b、dst/c (建议这种用法 --delete 和 --exclude="" 参数能更友好的配合) rsync