求自动保存网页内容的VB代码
想找个保存特定网页内容的代码。。要不停的刷新那一个网页并且把显示内容保存下来。。。把内容保存在TXT文档里。(最好每刷新一次保存一个TXT文档。这样软件速度会提上来吧??...
想找个保存特定网页内容的代码。。
要不停的刷新那一个网页并且把显示内容保存下来。。。把内容保存在TXT文档里。 (最好每刷新一次保存一个TXT文档。这样软件速度会提上来吧??)
这个用途主要是刷号码。。据说有人能1秒刷出150+的账号。也就是说能刷新150次。并记录下来。。。
编程高手帮帮忙 谢谢啦~!
最好能添加上通过代理访问~!谢谢~! 小弟是小白。。仔细把代码如何应用说明下好吗~! 展开
要不停的刷新那一个网页并且把显示内容保存下来。。。把内容保存在TXT文档里。 (最好每刷新一次保存一个TXT文档。这样软件速度会提上来吧??)
这个用途主要是刷号码。。据说有人能1秒刷出150+的账号。也就是说能刷新150次。并记录下来。。。
编程高手帮帮忙 谢谢啦~!
最好能添加上通过代理访问~!谢谢~! 小弟是小白。。仔细把代码如何应用说明下好吗~! 展开
2个回答
展开全部
'用于下载
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'调试
URLDownloadToFile 0, 网址, 路径名称, 0, 0 '下载网址页面
'打开到text1
Open tmp For Input As #1
text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) '打开传递到
Close #1
不过没弄明白,保存与你刷号码有什么关系?????????
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'调试
URLDownloadToFile 0, 网址, 路径名称, 0, 0 '下载网址页面
'打开到text1
Open tmp For Input As #1
text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) '打开传递到
Close #1
不过没弄明白,保存与你刷号码有什么关系?????????
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询