内容转TXT批量下载图片和视频软件

	很多总是问用软件怎么自动把列表的内容生成一个一个记事本，今天把脚本模块放在这里供大家方便下载： 软件脚本下载地址： 两个脚本打包下载.zip (13.26 MB, 下载次数: 2347) 2023-4-7 08:37 上传 点击文件名下载附件 这个选择保存路径要注意结束应该有一条线的。这里这么多列表，〖✔您☑〗如果想做结合就分别导入进去，如果只想一个标题和个内容，那就顺序导入某个就可以了。 这段代码是一个运行VBS代码的模块，通过设置VBS变量、赋值和编写VBS脚本实现将变量中的信息写入到指定的文本文件中。 具体来说，代码块中包含多个功能部分： 1.         <VBS变量>vbs</VBS变量>：用来设置VBS脚本中需要传递的变量，在本例中，是变量标题(strTitle)和变量内容(strContent)。 2.         <赋值></赋值>：用于向变量中传递值，在本例中，变量标题和变量内容的值将从其他模块中获取。 3.         <VBS代码>到</VBS代码>：这是包裹VBS脚本的代码块，在这里定义了VBS脚本的具体内容，包括如下几个部分： 3.         '定义文本名称和内容变量：用于定义VBS脚本中需要使用的文本名称变量(strFileName)和文本内容变量(strContent)。 3.         strFileName="[变量标题].txt"：定义了文本记录的文件名称，其中变量标题会根据上面设置的变量进行替换。 3.         strFileName=Replace(strFileName,"","_")：将文件名称中的空格和其他无效字符替换为下划线。 3.         strFileName=Replace(strFileName,vbCr,"")和strFileName=Replace(strFileName,vbLf,"")：将文本中的回车和换行符（vbCr和vbLf）删除。 3.         strTitle="[变量标题]"和strContent="[变量内容]"：分别定义了文本文件中的标题和内容，其中变量标题和变量内容会根据上面设置的变量进行替换。 3.         strPath="[文本框:保存的文件夹选择]"：定义了文本文件的存放路径，其中[文本框:保存的文件夹选择]表示需要通过界面选择。 3.         Set objFSO = CreateObject("Scripting.FileSystemObject")：创建一个FileSystemObject对象，用于操作文件系统。 3.         Set objFile = objFSO.CreateTextFile(strPath & strFileName)：通过FileSystemObject对象创建文本文件，并打开文件。 3.         objFile.WriteLine strTitle和objFile.WriteLine ""和objFile.WriteLine strContent：分别将文本文件中的标题、空行和内容写入到文件中。 3.         objFile.Close：关闭文件。 最后，{/运行VBS}%>中的代码定位到“运行VBS代码”模块，并且在代码块中会调用VBS脚本实现特定的功能。 还有的人老是问图片或是下载件怎么直接下载到软件里，还可以实现多线程，这样就可以刷下载量，或是偷别人网站的图片什么的，也把源码放在这里供大家下载： 这段代码实现了从网页获取下载地址，并将下载的文件保存到指定的文件夹中，文件名是随机生成的15个字母加上.mp4后缀名。 代码块中的<VBS代码>和</VBS代码>包裹了VBS脚本，用于实现具体的下载和保存操作。下面是脚本的具体功能： 1.         strUrl = "{获取列表值}下载地址|网址|自动{/获取列表值}"：从网页中获取下载地址，并将其保存到strUrl变量中。 2.         strFile = "[文本框:下载文件夹]\[随机字母15位].mp4"：设置下载后保存的文件名，其中[文本框:下载文件夹]表示需要在界面中选择下载文件的路径，[随机字母15位]则表示随机生成的15个字母。 3.         Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")：创建一个XMLHttpRequest对象，用于向服务器发送HTTP请求获取下载内容。 4.         objXMLHttp.open "GET", strUrl, false：发送HTTP GET请求，并将下载地址保存到strUrl变量中。 5.         objXMLHttp.send()：发送HTTP请求到服务器，获取下载内容。 6.         If objXMLHttp.Status = 200 Then：如果HTTP请求成功，则继续执行下面的代码。 7.         set objADOStream=CreateObject("ADODB.Stream")：创建一个ADODB.Stream对象，用于将下载内容保存到本地文件中。 8.         objADOStream.Open objADOStream.Type = 1 'adTypeBinary：打开ADODB.Stream对象，并设置类型为二进制（adTypeBinary）。 9.         objADOStream.Write objXMLHttp.ResponseBody：将从服务器获取的二进制数据写入到ADOStream对象中。 10.     objADOStream.Position = 0：将流的位置设置为开始位置。 11.     Set objFSO = Createobject("Scripting.FileSystemObject")：创建一个FileSystemObject对象，用于操作文件系统。 12.     if objFSO.Fileexists(strFile) then：如果文件已经存在，则删除文件。 13.     objADOStream.SaveToFile strFile：将ADOStream对象中的数据保存到指定的文件中。 14.     objADOStream.Close set objADOStream = nothing：关闭并清除ADOStream对象。 15.     set objXMLHttp = nothing：清除XMLHttpRequest对象。 最后的 {/运行VBS}%> 定位到“运行VBS代码”模块，并在代码块中调用VBS脚本执行下载和保存操作。