UC知道此VB代码如何使用？？
来源：百度知道 编辑：UC知道 时间：2024/06/04 01:41:53
'用于下载
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
这是我在百度问想找个保存特定网页内容的代码。。
要不停的刷新那一个网页并且把显示内容保存下来。。。把内容保存在TXT文档里。 （最好每刷新一次保存一个TXT文档。这样软件速度会提上来吧？？）
这个用途主要是刷号码。。据说有人能1秒刷出150+的账号。也就是说能刷新150次。并记录下来。。。
这个问题一个好心人给的代码。可是我是小白不知道如何使用谁会？？告诉我下。谢谢了。
那个问题的地址：http://zhidao.baidu.com/question/111779225.html
如果哪个大侠有新的代码或软件也可以发上来 谢谢·！
我是小白。。请把仔细的应用过程写下好吗？谢谢~！
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
这是我在百度问想找个保存特定网页内容的代码。。
要不停的刷新那一个网页并且把显示内容保存下来。。。把内容保存在TXT文档里。 （最好每刷新一次保存一个TXT文档。这样软件速度会提上来吧？？）
这个用途主要是刷号码。。据说有人能1秒刷出150+的账号。也就是说能刷新150次。并记录下来。。。
这个问题一个好心人给的代码。可是我是小白不知道如何使用谁会？？告诉我下。谢谢了。
那个问题的地址：http://zhidao.baidu.com/question/111779225.html
如果哪个大侠有新的代码或软件也可以发上来 谢谢·！
我是小白。。请把仔细的应用过程写下好吗？谢谢~！
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
For i=1 To 刷次数
'调试
tmp="number_" & i & ".log"
URLDownloadToFile 0, 网址, 路径名称, 0, 0 '下载网址页面
'打开到text1
Open tmp For Input As #1
text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) '打开传递到
Close #1
next i