小白也抓网——分享网抓作品

renahu

coby001 发表于 2014-11-19 09:32
定义 错了
~~~~~~~
你重新想想怎么定义。

我把xhrArr设置成二维，为什么错？把初始时间加上去不就行了吗？

1. Set xhrArr(c, 1) = CreateObject("MSXML2.XMLHTTP")
   
2.                 With xhrArr(c, 1)
   
3.                     .Open "GET", url, True
   
4.                     .Send
   
5.                 End With
   
6.                 xhrArr(c, 2) = Timer

复制代码

coby001

renahu 发表于 2014-11-19 09:35
我把xhrArr设置成二维，为什么错？把初始时间加上去不就行了吗？

哦，我以为你继续用例子中原来的定义~
像你这样定义为 varant 数组也对。

更好的方式是 自定义类型

Type tyXHR
    xhr As XMLHTTP
    TimeOut As Single
End Type

Dim XhrArr() As tyXHR
ReDim XhrArr(1 To 5)

Set XhrArr(k).xhr = New XMLHTTP
XhrArr(k).TimeOut = Timer

renahu

coby001 发表于 2014-11-19 10:03
哦，我以为你继续用例子中原来的定义~
像你这样定义为 varant 数组也对。

自定义类型我还没用过，这个 As XMLHTTP 前期绑定，还要引用，我怕别人用不了，所以都改成后期的了

VBA万岁

VBA万岁 发表于 2014-11-18 16:22
终于在以下网址找到更为详尽的介绍了：

http://www.w3school.com.cn/tags/html_ref_urlencode.html
...

索性自已根据160楼链接网页中的表格数据编了个自定义函数用于将常用的网址字符串转义为“\u00**”形式的字符串（想必论坛中有现成的转义函数，但我没搜到，若有谁知道，望告知）：

Function URLencode(strASCII As String) As String
Dim arr, i, n
Const str As String = "123456789012345678901234567890123456789@ABCDEFGHIPQRSTUVWXY`abcdefghipqrstuvwxy01234567890123456789001*+,-./:;<=>?JKLMNOZ[\]^_jklmnoz{|}~ 345678"
arr = Array("a", "b", "c", "d", "e", "f")
For i = 1 To Len(strASCII)
    n = InStr(str, Mid(strASCII, i, 1))
    If n <= 90 Then URLencode = URLencode & "\u00" & n Else URLencode = URLencode & "\u00" & Int((n - 91) / 6) & arr((n - 91) Mod 6)
Next
End Function

Sub test()
    MsgBox URLencode("HTTP://www.apabi.com/ValidateCode.aspx")
End Sub

以上代码中常数变量str中的数字可根据实际情况而用其它字符取代——如“$”转义后为“\u0024”，则可将第3（即：2+1）个4用“$”替代。

renahu

VBA万岁 发表于 2014-11-19 10:31
索性自已根据160楼链接网页中的表格数据编了个自定义函数用于将常用的网址字符串转义为“\u00**”形式的 ...

能不能再做个把网址所有字符都转成%24%30%40%。。。。，？网上的工具只能转汉字之类的，字母，数字都不转

renahu

VBA万岁 发表于 2014-11-19 10:31
索性自已根据160楼链接网页中的表格数据编了个自定义函数用于将常用的网址字符串转义为“\u00**”形式的 ...

还是没明白下面这句话什么意思，干脆你直接改一下，发上来我看看
如“$”转义后为“\u0024”，则可将第3（即：2+1）个4用“$”替代

VBA万岁

renahu 发表于 2014-11-19 10:39
能不能再做个把网址所有字符都转成%24%30%40%。。。。，？网上的工具只能转汉字之类的，字母，数字都不转

转汉字的我不会，若网上有转汉字的代码，则可以加上一个判断语句及转汉字的代码而实现将网址中所有中英文字符转换的功能。

VBA万岁

renahu 发表于 2014-11-19 10:48
还是没明白下面这句话什么意思，干脆你直接改一下，发上来我看看
如“$”转义后为“\u0024”，则可将第3 ...

160楼链接网页中的表格（一）共有144个待转换的字符，我只在常变量中用了其中常见的字符，其他的全用数字（共凑足144个字符）代替了，之所以用0~9数字占位代替，主要是为了方便找到位置，以便替换具体的字符。

Function URLencode(strASCII As String) As String
Dim arr, i, n
Const str As String = "12345678901234567890123$567890123456789@ABCDEFGHIPQRSTUVWXY`abcdefghipqrstuvwxy01234567890123456789001*+,-./:;<=>?JKLMNOZ[\]^_jklmnoz{|}~ 345678"
arr = Array("a", "b", "c", "d", "e", "f")
For i = 1 To Len(strASCII)
    n = InStr(str, Mid(strASCII, i, 1))
    If n <= 90 Then URLencode = URLencode & "\u00" & n Else URLencode = URLencode & "\u00" & Int((n - 91) / 6) & arr((n - 91) Mod 6)
Next
End Function

VBA万岁

VBA万岁 发表于 2014-11-19 11:21
160楼链接网页中的表格（一）共有144个待转换的字符，我只在常变量中用了其中常见的字符，其他的全用数 ...

补充一点，若待转换的网址字符串中含有数字，则需将常数变量str中的前29个数字全部用空格字符（或者160楼链接网页中的表格内前面29个待转字符）占位。

renahu

coby001 发表于 2014-11-19 10:03
哦，我以为你继续用例子中原来的定义~
像你这样定义为 varant 数组也对。

老师，这个自定义类型，是不是必须先引用？