vbs打开记事本写入汉字要输入效果
发布网友
发布时间：2022-04-23 00:39
共4个回答
热心网友
时间：2023-07-04 22:30
set fso=CreateObject("Scripting.FileSystemObject")
set fw=fso.createtextfile("e:\result.txt",2)
fw.writeline("vbs123")
fw.writeline("我是好人，可以吗？")
set ws=CreateObject("wscript.shell")
ws.run "c:\windows\system32\notepad.Exe e:\result.txt"
第2种 把最佳答案给我
set fso=createobject("scripting.filesystemobject")
set ws=wscript.createobject("wscript.shell")
fso.createtextfile("love.txt")
ws.run("love.txt")
wscript.sleep 500
ws.sendkeys("S")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys(":")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("v")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("u")
wscript.sleep 500
ws.sendkeys("!")
热心网友
时间：2023-07-04 22:31
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:\testfile.txt", True)
f.WriteLine("这是一个测试。")
f.Close
热心网友
时间：2023-07-04 22:31
输入英文还可以，输入汉字难
热心网友
时间：2023-07-04 22:32
非个人和个人很好听人家还要好久而交易金额
