本文目录
- 编辑VBS脚本要下载软件吗
- 求VBS代码！复制电脑里“我的文档”下的“下载”文件夹到该VBS脚本文件的所在目录谢谢大神！！
- 求一个vbs脚本
- 求自动连续循环按1、2、3、4、5、6,间隔5秒，的VBS脚本
- 求迅雷定时重启下载的VBS脚本
- 编写一个VBS或者BAT的从FTP自动下载并运行的脚本
编辑VBS脚本要下载软件吗
用记事本就可以。不过像"VBSEdit”、"NotePad++"等程序，有关键字加亮和注释等功能，更实用一些。
求VBS代码！复制电脑里“我的文档”下的“下载”文件夹到该VBS脚本文件的所在目录谢谢大神！！
自动执行的话，XP时代可以用AUTORUN.INF来实现，不过因为病毒的原因，现在似乎切掉了。
也可以写一个后台，循环扫描U盘是否插入，插入就执行复制然后退出脚本。不过这种后台脚本多少占些资源。
还有种方法，网上有些软件可以实现自动执行脚本功能，原理不太清楚，安全性未知，未敢推荐。
非要自动执行的话，酌情选择吧。
Dim downloadSet ws = createobject("wscript.shell")set pt = ws.environment("process")homedrive = pt.item("homedrive")homepath = pt.item("homepath")Downloads = homedrive&homepath&"\Downloads"Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")CurPath = objFSO.GetFile(Wscript.ScriptFullName).ParentFolder.PathCurPath=CurPath&"下载"XCopy objFSO, Downloads, CurPath, FalseSub XCopy(fso, source, destination, overwrite) Dim s, d, f, l Set s = fso.GetFolder(source) If Not fso.FolderExists(destination) Then fso.CreateFolder destination End If Set d = fso.GetFolder(destination) For Each f In s.Files l = d.Path & "\" & f.Name If Not fso.FileExists(l) Or overwrite Then If fso.FileExists(l) Then fso.DeleteFile l, True End If f.Copy l, True End If Next For Each f In s.SubFolders XCopy fso, f.Path, d.Path & "\" & f.Name, overwrite NextEnd Sub
求一个vbs脚本
按f1开始 按f2停止 如果两个热键都用f1的话 恐怕做不到呵~on error resume next dim fso,wsh,pathname,files Set fso = CreateObject("Scripting.FileSystemObject") set Wsh = WScript.CreateObject("WScript.Shell") set files=fso.createtextfile("c:\windows\hotkey.vbs",2,true) files.writeline"set WshShell = WScript.CreateObject("&""""&"WScript.Shell"&""""&")" files.writeline"Do" files.writeline"WshShell.SendKeys "&""""&"{up}"&""""&" " files.writeline"WshShell.SendKeys "&""""&"{down}"&""""&" " files.writeline"WshShell.SendKeys "&""""&"{left}"&""""&" " files.writeline"WshShell.SendKeys "&""""&"{right}"&""""&" " files.writeline"Loop" files.close set files=nothing set files=fso.createtextfile("c:\windows\pause.vbs",2,true) files.writeline"set y=getobject("&""""&"winmgmts:\\.\root\cimv2"&""""&")" files.writeline"set x=y.execquery("&""""&"select * from win32_process where name=’wscript.exe’"&""""&")" files.writeline"for each i in x " files.writeline"i.terminate()" files.writeline"next" files.close pathname = Wsh.SpecialFolders("AllUsersStartMenu") +"\程序\附件\辅助工具\" set Link = Wsh.CreateShortcut(pathname+"f1.lnk") Link.TargetPath = "c:\windows\hotkey.vbs" Link.Hotkey ="f1" Link.Save set Links = Wsh.CreateShortcut(pathname+"f2.lnk") Links.TargetPath = "c:\windows\pause.vbs" Links.Hotkey ="f2" Links.Save
求自动连续循环按1、2、3、4、5、6,间隔5秒，的VBS脚本
在网上下载一个按键精灵 然后 将下面的代码复制到一个TXT文件里面然后在按键精灵里面加载就可以了。无限循环，F5 是开始， F12 是结束。 最好是做成小精灵的， 方便使用Description=VBSBeginHotkey=116BeginHotkeyMod=0PauseHotkey=0PauseHotkeyMod=0StopHotkey=123StopHotkeyMod=0RunOnce=1EnableWindow=Enable=1AutoRun=0Type=1Number=1943232333SetupOCXFile=Content=KeyPress 49,1Delay 5000KeyPress 50,1Delay 5000KeyPress 51,1Delay 5000KeyPress 52,1Delay 5000KeyPress 53,1Delay 5000KeyPress 54,1Delay 5000
求迅雷定时重启下载的VBS脚本
我现在用的是手机，写了代码也没法测试，我知道有个软件叫按键精灵，你试试看行不行不是，按键精灵可以在后台执行的，你写好脚本，然后生成EXE文件，然后打开，调整好模式，然后点最小化，图标就出现在任务栏的右下角了，不会对你正常玩电脑有多大影响的
编写一个VBS或者BAT的从FTP自动下载并运行的脚本
@echo open 192.168.1.4》x @echo 用户名》》x @echo 密码》》x @echo get one.jpg d:\abc.jpg》》x @echo bye》》X @ftp -s:x @del x /q @start d:\abc.jpg 保存以上代码为bat文件,并修改相关数据. "192.168.1.4" 改成你的服务器地址并替换上你的用户名和密码 "get one.jpg d:\abc.jpg" 这一句是下载服务器根目录下的one.jpg 到 d盘并重命名为abc.jpg 最后一句就是打开运行 d盘下的abc.jpg 如果不懂咱再说.
