论坛自动扔蛋QTP代码

一只小蛙

前几由于看不惯某些人的行为,一时气愤做了一些出格的举动,请某人吃了大量的鸡蛋.
由于本蛙天天坐井里难免心浮气燥,在此向被扔蛋的兄弟说声对不起!
如果需要的话我可以再多送你一些鲜花.

还好本蛙的行为对论坛造成恶劣的影响.在此提供扔蛋的源代码,代码有部分解决方案是临时使用,暂时还末找到简洁的实现方法,如果有高人能够指点,本蛙不胜感激.
以下是原代码.

For tti=1 to 100

        '###### Generate Name
        xn=""
        For i=1 to 11
        a=RandomNumber(97,122)
        xn=xn & chr(a)
        Next
        'Msgbox(xn)
       
        Browser("51").Navigate "http://bbs.51testing.com/register.php"
        wait(10)
        Browser("51").Page("51Test").Sync
        Browser("51").Page("51Test").WebButton("同 意").Click
        wait(10)
       
       
        Dim fso
        Set fso=createobject("Scripting.FileSystemObject")
        If fso.fileexists("C:\A.txt") Then
                fso.deletefile("C:\A.txt")       
        End If
       
        Browser("51").WinToolbar("ToolbarWindow32").Press 1
        Browser("51").WinMenu("ContextMenu").Select "<Item 5>"
        Browser("51").Dialog("保存网页").WinComboBox("保存类型(T):").Select 3
        Browser("51").Dialog("保存网页").WinEdit("文件名(N):").Set "C:\A"
        Browser("51").Dialog("保存网页").WinButton("保存(S)").Click
        wait(1)
       
        set fr=fso.opentextfile("C:\A.txt",1)
        For i=1 to 122
                cont=fr.readline()
        Next
        fr.close
       
       
        a=right(cont,len(Cont)-10)
       
        If instr(cont,"-") Then
                a=left(a,instr(a,"-")-1)
                b=right(cont,len(cont)-instr(cont,"-"))
                b=left(b,instr(b,"=")-1)
                a=cint(a)-cint(b)
        End If
       
        If instr(cont,"－") Then
                a=left(a,instr(a,"－")-1)
                b=right(cont,len(cont)-instr(cont,"－"))
                b=left(b,instr(b,"＝")-1)
                a=cint(a)-cint(b)
        End If
        If instr(cont,"+") Then
                a=left(a,instr(a,"+")-1)
                b=right(cont,len(cont)-instr(cont,"+"))
                b=left(b,instr(b,"=")-1)
                a=cint(a)+cint(b)
        End If
       
       
        If instr(cont,"＋") Then
                a=left(a,instr(a,"＋")-1)
                b=right(cont,len(cont)-instr(cont,"＋"))
                b=left(b,instr(b,"＝")-1)
                a=cint(a)+cint(b)
        End If
       
       
        x=a
       
        Browser("51").Page("51Testing").WebEdit("secanswer").Set a
        Browser("51").Page("51Testing").WebEdit("password").SetSecure "46b934e1d9e8d7000084f87ba617b5f49389"
        Browser("51").Page("51Testing").WebEdit("password2").SetSecure "46b934e40f4628cd484b0ead9af60f292b53"

        Browser("51").Page("51Testing").WebEdit("username").Set xn
        Browser("51").Page("51Testing").WebEdit("email").Set xn & "@163.com"
        Browser("51").Page("51Testing").WebButton("提   交").Click
       
        wait(5)
        Browser("51").Navigate "http://bbs.51testing.com/plugin.php?identifier=flegg&module=flegg&action=eggs&pid=644215"
        Browser("51").Page("鲜花").WebList("eggss").Select 2
        Browser("51").Page("鲜花").WebEdit("aswhat").Set "吃了鸡蛋后真是聪明好多啊."
        Browser("51").Page("鲜花").WebButton("提 交").Click
       
        Browser("51").Navigate "http://bbs.51testing.com/plugin.php?identifier=flegg&module=flegg&action=eggs&pid=649457"
        Browser("51").Page("鲜花").WebList("eggss").Select 2
        Browser("51").Page("鲜花").WebEdit("aswhat").Set "对你不予评价"
        Browser("51").Page("鲜花").WebButton("提 交").Click


        Browser("51").Page("rft").Link("退出").Click
        wait(3)
       
       
Next

walker1020

楼主是歪才！感觉聪明没有用对地方