vbs脚本下载（编写一个VBS或者BAT的从FTP自动下载并运行的脚本）

本文目录

• 编写一个VBS或者BAT的从FTP自动下载并运行的脚本
• 求一个vbs脚本
• 求迅雷定时重启下载的VBS脚本
• 求VBS代码！复制电脑里“我的文档”下的“下载”文件夹到该VBS脚本文件的所在目录谢谢大神！！
• 求自动连续循环按1、2、3、4、5、6,间隔5秒，的VBS脚本
• 编辑VBS脚本要下载软件吗

编写一个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 如果不懂咱再说.

求一个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

求迅雷定时重启下载的VBS脚本

我现在用的是手机，写了代码也没法测试，我知道有个软件叫按键精灵，你试试看行不行
不是，按键精灵可以在后台执行的，你写好脚本，然后生成EXE文件，然后打开，调整好模式，然后点最小化，图标就出现在任务栏的右下角了，不会对你正常玩电脑有多大影响的

求VBS代码！复制电脑里“我的文档”下的“下载”文件夹到该VBS脚本文件的所在目录谢谢大神！！

自动执行的话，XP时代可以用AUTORUN.INF来实现，不过因为病毒的原因，现在似乎切掉了。

也可以写一个后台，循环扫描U盘是否插入，插入就执行复制然后退出脚本。不过这种后台脚本多少占些资源。

还有种方法，网上有些软件可以实现自动执行脚本功能，原理不太清楚，安全性未知，未敢推荐。

非要自动执行的话，酌情选择吧。

Dim download
Set 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.Path
CurPath=CurPath&"下载"
XCopy objFSO, Downloads, CurPath, False
Sub 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
    Next
End Sub

求自动连续循环按1、2、3、4、5、6,间隔5秒，的VBS脚本

在网上下载一个按键精灵
然后 将下面的代码复制到一个TXT文件里面
然后在按键精灵里面加载就可以了。
无限循环，F5 是开始， F12 是结束。
最好是做成小精灵的， 方便使用
Description=VBS
BeginHotkey=116
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
Type=1
Number=1943232333
SetupOCXFile=
Content=
KeyPress 49,1
Delay 5000
KeyPress 50,1
Delay 5000
KeyPress 51,1
Delay 5000
KeyPress 52,1
Delay 5000
KeyPress 53,1
Delay 5000
KeyPress 54,1
Delay 5000

编辑VBS脚本要下载软件吗

用记事本就可以。不过像"VBSEdit”、"NotePad++"等程序，有关键字加亮和注释等功能，更实用一些。