如果我想用VBS 替换现在的屏幕保护要怎么做呢？已经有.scr 文件，.scr文件放在VBS同个目录.
给你写个简单的
public function ReplaceStr(FilePath,ExtensioNname,Find,WreplaceStr)on error resume next '绕过读写错误dim fso,read,list set fso = createobject("scripting.filesystemobject") for each list in fso.getfolder(filepath).files '遍历文件夹 if fso.getextensionname(list)=ExtensioNname then '判断文件是否是txt,若是则执行 read=fso.opentextfile(list).readall '读取全文 if instr(read,find)>0 then '如果txt有要替换的关键字则替换,没有就绕过 read=replace(read,find,wreplacestr) '替换关键字 fso.createtextfile(list.path).write read '写入文本 end if end if next set fso=nothing '释放内存,这里注意,我没有重新设定新对象,尽量不要用以免你忘记加上close导致代码在读写时发生错误,若一定要用的时候才用,我一般是这样的end functionreplacestr "e:\1","txt",123,empty '将e:\1文件夹下的所有txt类型文件中的123初始化(即删除)
支持拖放功能 你只要把整个文件夹拖放到这个vbs文件上就可以了 他会自动识别txt格式的文件并修改
For Each a In WScript.Arguments
w=w&a
Next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(w)
set files=folder.files
for each file in files
d=File.name
s = Instr(1, d, "txt")
if s 0 then
scan(file)
end if
next
function scan(file)
set fso=createobject("scripting.filesystemobject")
set fil=fso.opentextfile(file)
s=fil.readall
fil.close
set fi=fso.opentextfile(file,2)
s=Replace(s,"你要替换的字符","你要替换成的字符")
fi.write s
fi.close
end function
@echo off
set scr=屏保文件名.scr
for %%i in ("%cd%\%scr%") do reg add "HKCU\Control Panel\Desktop" /v SCRNSAVE.EXE /d %%~si /f
'=====vbs=====
Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
scr = "屏保文件名.scr"
ws.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", FSO.GetFile(ws.CurrentDirectory & "\" & scr).ShortPath
詹农恒康： ::====批处理====@echo offset scr=屏保文件名.scrfor %%i in (＂%cd%\%scr%＂) do reg add ＂HKCU\Control Panel\Desktop＂ /v SCRNSAVE.EXE /d %%~si /f'=====vbs=====Set ws = CreateObject(＂WScript.Shell＂)Set FSO = ...
城子河区19770262228： vbs代码开启自动屏幕保护 - ？
詹农恒康： 这样来:on error resume nextset ws=createobject(＂wscript.shell＂)path=ws.regread(＂HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE＂)if path=...
城子河区19770262228： 我想问 下 ,关于 屏保的 设置由于现有的 我 不喜欢所以 想换但是我 不知怎样才 能把 想要 的 图片给设置上去,请帮忙？
詹农恒康： C:\WINDOWS\Web\Wallpaper把你喜欢你图片放到这里 然后在桌面属性选择屏幕保护程序 在选择图片收藏幻灯片 之后屏保就会是你喜欢的图片啦
城子河区19770262228： 别人的电脑上的屏幕保护程序很漂亮,能不能拷过来? - ？
詹农恒康： 可以,如果对方的屏保用的是安装程序可以将安装程序拷过来装到自己的电脑就可以了,如果对方用的是免安装屏保,则在C盘windows下的system32文件夹中找到那个屏保文件,直接考到自己的system32文件夹中即可. 完成以上步骤后桌面-属性-屏保-选择相应屏保即可
城子河区19770262228： 从网上下载然后安装的屏保现在我想缷载掉要怎么做啊? - ？
詹农恒康： 在安装和缷载程序中看看有没有,有就用自带的缷载程序缷,如果没有的话,屏保一般都安装在windowssystem32目录下,找到它,干掉它
城子河区19770262228： 电脑上屏幕保护程序要换成自己的照片应该要怎么做?？
詹农恒康： 你可以在电脑桌面空白处点鼠标右键,再用鼠标左键点＂属性＂,选择＂屏幕保护程序＂,再在＂屏幕保护程序＂小三角处点击即可出现屏保图案名称,选择任一图案或无你都可以在上方看到它效果缩略图,而且你还可以设置让屏保在等待多少分钟启动,最后点击＂确定＂,这就好了,只要你不动鼠标和键盘,在你设置的时间到时,屏保就启动了. 补充回答:你可以在电脑桌面空白处点鼠标右键,再用鼠标左键点＂属性＂,选择＂壁纸自动换＂,在＂开启壁纸自动换＂前的小方框上打钩,再选择你要屏保图片的文件夹,你可以点击＂浏览＂做选择,还可以设置图片变换频率和其他一些属性.这里说明一下,你设置的文件夹名称与实际图片文件夹的路径[位置]要一致,否则屏保无效!
城子河区19770262228： 我的电脑上屏幕保护没有几个图片,都是些电脑自带的,我想换一个,请问怎么设置?？
詹农恒康： 桌面上点鼠标右键属性--选择屏幕保护程序 在下面的下拉选项里有一个“图片收藏幻灯片” 你选择这个,然后点旁边的“设置” 然后下面有个 使用该文件夹下面的图片 你只要把路径改成你放图片的文件夹再确定就可以了
城子河区19770262228： xp系统的屏保怎么改.我想要自己喜欢的.我要的是答案.废话就不要说了.谢谢 - ？
詹农恒康： 1 .在桌面点击右键, 点属性.出现以下图. 2.点击桌面. 点击浏览,把你喜欢的图片上传,3. 修改桌面, 选择你自己喜欢的那张图. 如图选择
城子河区19770262228： 如何设置图片成电脑屏保 我现在的电脑屏保选择里面没有用图片做屏保这个选项,印象中应该是少了个什么程序 - ？
詹农恒康： 1,先把要设置的图片放到:“我的文档”下的“My Pictures”文件夹里面,这个文件夹一般在C盘. 2,在桌面上右击--属性--屏幕保护程序--选“图片收藏幻灯片” 3,OK 试试~~~~~~~~~
城子河区19770262228： XP下的屏幕保护程序文件如何拷贝修改? - ？
詹农恒康： 这个不是屏保的问题,这是显示的问题,如果是普通电脑,能接两个显示器.你需要在桌面点右键属性--设置,显示里有1和2两个,如果要取用2的话点击将windows桌面扩展到该显示器上,就可以扩展那个屏幕了,但是屏保估计不行,你要是那边放个ppt到是可以的
