内容转TXT批量下载图片和视频软件 - 自动发帖软件

两个脚本打包下载.zip (13.26 MB, 下载次数: 2604)

这个选择保存路径要注意结束应该有一条线的。这里这么多列表，〖✔您☑〗如果想做结合就分别导入进去，如果只想一个标题和个内容，那就顺序导入某个就可以了。

这段代码是一个运行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：分别将文本文件中的标题、空行和内容写入到文件中。

最后，{/运行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脚本执行下载和保存操作。