如何将网页源码转为vba

zss427607

        各位高手以下维网页源码如何才能转为vba可运行代码？
   
               
                                        if(theStringLength < 6 || theStringLength > 20){
                                                s = "week";
                                        }else{
                                        for (var i = 0; i < theStringLength; i++)
                                        {
                                            var inttmp = strelement.charCodeAt(i);
                                
                                            if (inttmp > 126)//z=126 0=48 9=57 A=65 Z=90 a=97
                                            //^[A-Za-z0-9]+$　　//匹配由数字和26个英文字母组成的字符串
                                            {
                                                    s = "week";
                                            }else{
                                                                if(inttmp > 47 && inttmp < 58)
                                                                        i1 ++;
                                                                else if(inttmp > 64 && inttmp < 91)
                                                                        i2 ++;
                                                                else if(inttmp > 96 && inttmp < 127)
                                                                        i2 ++;
                                                                }
                                            }
                                            if(i1 >0 && i2 >0){
                                                }
                                                else{
                                                        s = "week";
                                                }
                                }

            }

战战如疯

按要实现的效果重新写吧

wcymiss

Function validateCode()
    Dim i1 As Long
    Dim i2 As Long
    Dim s As String
    Dim strelement As String
    Dim theStringLength As Long
    Dim i As Long
    Dim inttmp As Long
    Dim pos As String
    Dim res
   
    i1 = 0
    i2 = 0
    s = "strong"
    strelement = document.getElementById("mm").Value 'document是html的document对象
    theStringLength = Len(strelement)
   
    If theStringLength < 6 Or theStringLength > 20 Then
        s = "week"
    Else
        For i = 0 To theStringLength - 1
            inttmp = ChrW(Mid(strelement, i + 1, 1))
            
            If inttmp > 126 Then
                s = "week"
            Else
                If inttmp > 47 And inttmp < 58 Then
                    i1 = i1 + 1
                ElseIf inttmp > 64 And inttmp < 91 Then
                    i2 = i2 + 1
                ElseIf inttmp > 96 And inttmp < 127 Then
                    i2 = i2 + 1
            End If
        Next
        
        If i1 > 0 And i2 > 0 Then
        Else
            s = "week"
        End If
    End If
    pos = "mm=" & s
    res = openHttpurl("checkMm.jsp", pos) 'openHttpurl是自定义函数
End Function

zss427607

wcymiss 发表于 2015-3-6 10:54
Function validateCode()
    Dim i1 As Long
    Dim i2 As Long

谢谢吴姐的帮助，最近学习您的抓取网页教程。
遇到一个问题，想在次请教一下。
           .Open "POST", "http:x", False
           .setRequestHeader "Host", ""
           .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:35.0) Gecko/20100101 Firefox/35.0"
           .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
           .setRequestHeader "Accept-Language", "zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3"
           .setRequestHeader "Accept-Encoding", "gzip, deflate"
           .setRequestHeader "X-MicrosoftAjax", "Delta=true"
           .setRequestHeader "Cache-Control", "no-cache"
           .setRequestHeader "Referer", "http:"
           .setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8"
           .setRequestHeader "Content-Length", Len(postdata)   'POST提交的长度信息
           .setRequestHeader "Cookie", "strCookie"
           .setRequestHeader "Connection", "Keep-Alive"
           .setRequestHeader "Pragma", "no-cache"
           .send (postdata
以上代码是查询用的包含至少10项查询，但是从1-5项查询，结果显示不全（只显示响应的下半部分），6-10项完全正常，请问该如何处理？

zss427607

战战如疯 发表于 2015-3-6 08:56
按要实现的效果重新写吧

是网页验证密码的长度的代码，为POST请求提供值。

Allen2018

wcymiss 发表于 2015-3-6 10:54
Function validateCode()
    Dim i1 As Long
    Dim i2 As Long

吴姐，这个转码怎么转啊？


上次在这回的帖　http://club.excelhome.net/forum. ... d=764320&page=2
怎么跑到这里了，http://club.excelhome.net/thread-1159783-98-1.html

转码在附件里。感谢吴姐！