精华内容
下载资源
问答
  • 主要介绍了vbs 复制指定文件到指定目录下,需要的朋友可以参考下
  • 看一下:使用Visual Basic脚本(vbs下载文件·GitHub [^]
  • vbs下载文件

    千次阅读 2018-06-10 15:03:45
    Set post=CreateObject( "Msxml2.XMLHTTP" ) post.Open "GET" , ... '发送请求 ...'等待3秒,等文件下载 wscript.sleep 3000 aGet.Write(post.responseBody) '写数据 aGet.SaveToFile "csdn.html" , 2
    Set post=CreateObject("Msxml2.XMLHTTP")
    post.Open "GET","https://blog.csdn.net/xianda9133/article/details/51200034"
    '发送请求
    post.Send()
    Set aGet = CreateObject("ADODB.Stream")
    aGet.Mode = 3
    aGet.Type = 1
    aGet.Open()
    '等待3秒,等文件下载
    wscript.sleep 3000 
    aGet.Write(post.responseBody)'写数据
    aGet.SaveToFile "csdn.html",2
    展开全文
  • wps的vbs安装文件.rar

    2019-10-12 22:37:01
    WPS默认安装以后可能不能运行宏,需要安装VBA 宏模块,只需要下载以后点击双击安装即可
  • vbs表白文件

    万次阅读 2018-06-28 15:06:57
    ,都知道怎么用吧,把下面代码粘贴复制到新建的txt文件里,然后更改后缀名为vbs,之后点击就可以了,效果自己试(表白必备) MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年...

    看抖音上什么vbs停火,就自己稍微看了看,万一以后又用了。。。。。,都知道怎么用吧,把下面代码粘贴复制到新建的txt文件里,然后更改后缀名为vbs,之后点击就可以了,效果自己试(表白必备)

     

    MsgBox "            十年相遇"
    MsgBox "            百年回眸"
    MsgBox "          千年同船渡"
    MsgBox "       我愿以万年的等待"
    MsgBox "          百世的轮回"
    MsgBox "       换你今朝一世情缘"
    MsgBox "              可否"
    dim a(5)
    a(0)="    天大,地大,女友最大"
    a(1)="          工资上交"
    a(2)="           房写你名"
    a(3)="          帮清购物车"
    a(4)="   其他附加条件可以告诉我,一定牢牢铭记"
    a(5)="        真的可以说^_^"
    Dim j
    Do
    j = inputbox("姑娘,做我女朋友吧")
    if j = "我同意" Or j = "同意" Or j = "好" Or j = "嗯" Or j = "ok" Or j = "没问题" then  
    MsgBox "                ----          ----"+chr(10)+"             /         \     /        \"+Chr(10)+"           /             \/             \"+Chr(10)+"        /                 I                \ "+Chr(10)+"         \           LOVE             /"+Chr(10)+"            \            U             /"+Chr(10)+"              \          xx         /" +Chr(10)+"                 \       xx      / "+Chr(10)+"                   \     xx   /"+Chr(10)+"                      \     /"+Chr(10)+"                        \/",4096 ,"             此心似我心"
    MsgBox "         you are my girlfriend," + Chr(13)+"    from this day until to my last days.",,"                        "

    exit do
    else

    msgbox a(i)
    i=i+1
    if i >= 6 then
    i = 5
    end if

    end If
    Loop

    展开全文
  • vbs实现的批量文件的替换
  • 主要介绍了VBS遍历文件或文件夹路径输入文件的所有绝对路径的代码,需要的朋友可以参考下
  • VBS 显示“选择文件或文件夹”对话框的代码,经测试windows xp下才可以使用,win2000,win2003没有内置这样的方法。
  • 有时候我们需要删除文本文件的指定的一行内容,下面是具体的函数
  • 可以将Reg文件转换为VBS文件保存的代码,网上的好多都有问题,本地特给修正了一下,有问题,请回复。
  • VBS获取桌面文件,也可以指定其他文件夹,请自己指定并修改,获取文件上传FTP,目录可自己修改
  • 设置自启动文件.vbs

    2019-11-07 18:20:07
    设置自启动文件.vbs
  • cmd执行vbs脚本

    2019-12-05 11:37:27
    我个人喜欢研究cmd,后面无意中接触到vbs,就思考cmd能运行vbs么?---答案是可以的。经过研究发现,cmd可以执行vbs,但是还是需要生成vbs文件,执行完成后删除vbs文件
  • VBS读写INI文件

    2014-06-13 18:47:18
    VBS读写INI文件: 读写Ini文件函数: IniFilePath支持相对路径 (".",".."等) Function ReadIniVar(IniFilePath, IniSection, IniKey, IniDefVal) Sub WriteIniVar(IniFilePath,IniSection, IniKey, IniKeyVal)
  • VBS创建文件

    2021-07-26 20:40:43
    在桌面创建文件 文件名称为0.txt到5.txt 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1.txt ...
    • 在桌面创建文件
    • 文件名称为0.txt5.txt
      • 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt
      • Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1.txt
    dim file,fileContent
    dim filePath 
    
    filePath = "C:\Documents and Settings\Administrator\桌面\" '文件路径
    set file = createobject("scripting.filesystemobject")  '指明一个对象
    
    for i = 0 to 5
    	fileName = i&".txt"
    	set fileContent = file.createtextfile(filePath & fileName) '指明创建目录和文件类型
    	fileContent.writeline("Baidu search my blog: MrFlySand")  '文件中的内容
    next
    展开全文
  • VBS帮助文档

    热门讨论 2011-10-23 01:51:19
    VBS帮助文档,便于学习,找了挺久才发现一个可有的chm
  • 有时候我们需要获取当前vbs脚本所在的文件夹,或者运行当前脚本文件夹中的文件那么就需要参考下面的代码了
  • 基于VBS脚本播放本地txt文件内容的语音播放,将“playvoice-vbs脚本.zip”解压,左键双击“PlayVoice.vbs”即可。(PlayVoice.vbs和a.txt要放在同一目录下)
  • 主要介绍了vbs脚本实现批量转换文件编码,可以批量对文件在Gb2312和UTF-8编码间互相转换,需要的朋友可以参考下
  • 主要介绍了vbs复制文件夹的实现代码,需要的朋友可以参考下
  • vbs无限弹窗

    2018-09-23 20:35:13
    vbs无限弹窗小程序,直接电脑运行,可以无限弹出窗口,可以用任务管理器关闭
  • VBS删除文件

    2021-07-26 20:39:19
    删除桌面文件 文件名称为0.txt到5.txt 路径问题 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1....
    • 删除桌面文件
    • 文件名称为0.txt5.txt
    • 路径问题
      • 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt
      • Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1.txt
    Dim file,fileName,getReturn
    filePath = "C:\Documents and Settings\Administrator\桌面\" '文件路径
    Set file=CreateObject("Scripting.FileSystemObject")
    getReturn = MsgBox("确定要清除?", vbInformation + vbOKCancel, "警告提示")
    
    if getReturn = vbOK then
    	for i = 0 to 5
    		fileName = i&".txt"
    		file.DeleteFile(filePath & fileName)
    	next
    end if
    展开全文
  • ) sProgram = "C:\Windows\System32\notepad.exe" sTxtFile = Replace( Wscript.ScriptName, ".vbs", ".txt", 1, -1, vbTextCompare) sTxtPath = CreateObject("Scripting.FileSystemObject").BuildPath( _ objShell...
  • VBS选择文件的对话框

    2012-01-30 00:04:54
    VBS实现选择文件的对话框。Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then...
  • vbs解压文件

    2021-02-21 17:09:17
    直接上代码 Sub UnZip(ByVal myZipFile, ByVal myTargetDir) Set fso = CreateObject("Scripting.FileSystemObject") If NOT fso.FileExists(myZipFile) Then Exit Sub ElseIf fso.GetExtensionName(myZipFile...
  • 主要介绍了VBS批量重命名文件并且操作前备份原有文件,需要的朋友可以参考下
  • 下面给出几个利用VBScript访问外部文件的例子,方便学习使用vbs操作外部文本文件的朋友
  • 官方出版的CHM格式的VBS脚本参考手册
  • I would like to convert dozens of excel sheets to csv files at ... I have a working .vbs file which makes the conversion, and I would like to execute this .vbs file on the different sheets with the ...
  • 使用java读取.vbs文件

    2021-07-16 22:23:41
    I am developing a tool using java ... In it I have to read a .vbs file. I have used the following code for it.Scanner fileReader1 = new Scanner(new File(fileName),"US-ASCII");while (fileReader1.has...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 31,415
精华内容 12,566
关键字:

vbs下载文件