问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VBS 如何创建一个并不存在的VBS文件并且向里面写入内容?内容有很多行,而且有特殊字符,急

发布网友 发布时间:2022-04-23 22:03

我来回答

1个回答

热心网友 时间:2023-10-11 09:31

Dim fso,wsh
dim txtfile
content="dim a;a=@@@;msgbox a"
Set fso = CreateObject("scripting.filesystemobject")
Set wsh= CreateObject("Wscript.Shell")
Set myfile=fso.CreateTextFile( "d:\急啊.txt",,ture)
str=Split(content,";")
content=""
For Each i In str
myfile.WriteLine i
Next
myfile.Close
wsh.Run "cmd.exe /c ren d:\急啊.txt d:\急啊.vbs"
set myfile=nothing
set wsh=nothing
将以上代码复制到记事本,保存为VBS文件,运行即可在D盘下得“急啊.vbs”文件,内容为你所说的 。我在我这测试过,得到你所说的结果,追问这样写执行很慢,有简单点的吗

追答Dim fso,wsh
dim txtfile
Set fso = CreateObject("scripting.filesystemobject")
Set wsh= CreateObject("Wscript.Shell")
Set myfile=fso.CreateTextFile( "d:\1\急啊.txt",,ture)
myfile.WriteLine "dim a"
myfile.WriteLine "a=@@@"
myfile.WriteLine "msgbox a"
myfile.Close
fso.movefile "d:\1\急啊.txt","d:\1\急啊.vbs"
set myfile=nothing
set wsh=nothing
那只能一句一句的写罗,可以通过添加并修改myfile.WriteLine "msgbox a"语句,加入其它内容
这个是一行一行的写,速度肯定比较快点

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
哪个牌子复印机好 复印店用什么型号的复印机好 开复印店需要什么设备 家用打印复印机哪个好 如何分辨鞋底是不是空心格子底? Ubuntu10.04下安装Oracle11g 超市监控多少钱 超市防盗器要多少钱 超市防盗系统多少钱 智能存放柜管理系统 48小时核酸检测结果在哪里查询-48小时核酸检测怎么看结果 VBS 如何创建一个并不存在的VBS文件并且向里面写入内容?内容有很多行,而且有特殊字符,急 求助virus.vbs.writebin.a怎么解决 这是什么病毒?我的电脑中毒了 感染了好多文件 直接清理病毒的话还能用这个程序吗 这是什么病毒?我的电脑中毒了 感染了好多文件 直接清理病毒的话还能用这个程序吗 网站中木马virus.vbs.writebin.a已清除木马但百度仍有“风险”提示该如何处理(声明:已向百度申诉过了) 网站中木马virus.vbs.writebin.a已清除木马但百度仍有“风险”提示该如何处理(声明:已向百度申诉过了) 电脑里有virus.vbs.writebin.a木马病毒 在线等!!! 电脑用360查杀 查出我的C盘有病毒 病毒名称:virus.vbs.writebin.a(蠕虫病毒样本) 类型: virus.vbs.writebin.a virus.vbs.writebin.a病毒要管它吗?有什么危害 电脑感染两种病毒virus.win32.ramnit.b和virus.vbs.writebin.a virus.vbs.writebin.a病毒 vbs.writebin.a 有什么危害 virus.vbs.writebin.a病毒有什么危害 文件感染木马:virus.vbs.writebin.a怎么处理文件还需要? virus.vbs.writebin.a是怎样的一种病毒 360 查出3个 以virus.vbs.writebin.a 开头的木马 怎么都杀不掉 怎么办 vbs.writebin.a 有什么危害? 苹果商城也不能下载APP,也不能更新APP怎么回事 华为平板最好的是那个? 谁帮我解读一下这文件(a.vbs)是什么意思? 怎样编写bat文件把本地的一个文件a.vbs拷贝到同事电脑中并执行!比如对方电脑的ip是1.1.1.1 怎样编写bat文件把本地的一个文件a.vbs拷贝到同事电脑中并执行!比如对方电脑的ip是1.1.1.1 海尔空调不制冷,内挂机显示正常,外机不工作,怎样修 海尔小状元空调不制冷,外机不出水,能告诉这是怎么回事吗? 空调不制冷外机不工作什么原因? 海尔小状元空调室开机十几分钟后外机自动停机是什么故障 可以看电影的app有哪些? 如何判断爱奇艺APP的内容属于第三方提供? 海尔空调小状元有时制冷有时不行怎回事 爱奇艺App是什么 海尔.小状元空调不制冷的原因是什么?维修费用是多少钱? 海尔小状元空调昨天还好好的今天突然不制冷了为什么?风是温的。。 什么叫爱奇艺app 爱奇艺的app为什么离线缓存看不了 从苹果手机app里面购买爱奇艺软件需要多少钱? 手机图片,网络网片是那来的都是l不知道就有了 手机连接无线网能上QQ不能看网片 我自己按装路由器手机连接有信号但打开网片,是什么原因? 苹果耳机的网片掉了,可以但手机维修店换吗