vbs高手请进 帮帮忙``写几段代码
发布网友
发布时间：2022-04-26 15:58
共3个回答
热心网友
时间：2023-10-13 05:35
给你个用法把
你写的是实在看不懂@#%$@%$
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\123.txt", ForAppending, True)
objTextFile.WriteLine("123456")
objTextFile.WriteLine("4567")
objTextFile.Close
把c:\123.txt换成相应位置
123456、4567换成内容
回答者： 2008hsbf - 助理 * 3-1 18:16
你就是想要的就是这样一个vbs文件：
1）写注册表，开启系统管理员:
2）输入用户名、密码，然后加上第二行至第九行生成bat，bat里面包含reg信息
3）将那个批处理改属性，加入删除自己代码等，然后运行批处理生成reg文件导入注册表
是这样吧？我不明白你为什么这么麻烦？非要用vbs创建bat，然后运行bat生成reg，再导入reg？完全没必要啊
热心网友
时间：2023-10-13 05:35
你就是想要的就是这样一个vbs文件：
1）写注册表，开启系统管理员:
2）输入用户名、密码，然后加上第二行至第九行生成bat，bat里面包含reg信息
3）将那个批处理改属性，加入删除自己代码等，然后运行批处理生成reg文件导入注册表
是这样吧？我不明白你为什么这么麻烦？非要用vbs创建bat，然后运行bat生成reg，再导入reg？完全没必要啊
热心网友
时间：2023-10-13 05:36
给你个用法把
你写的是实在看不懂@#%$@%$
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\123.txt", ForAppending, True)
objTextFile.WriteLine("123456")
objTextFile.WriteLine("4567")
objTextFile.Close
把c:\123.txt换成相应位置
123456、4567换成内容
