51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1039|回复: 1
打印 上一主题 下一主题

[原创] 论坛自动扔蛋QTP代码

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-8-9 10:16:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
前几由于看不惯某些人的行为,一时气愤做了一些出格的举动,请某人吃了大量的鸡蛋.
由于本蛙天天坐井里难免心浮气燥,在此向被扔蛋的兄弟说声对不起!
如果需要的话我可以再多送你一些鲜花.

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    2#
    发表于 2007-8-9 13:09:54 | 只看该作者
    楼主是歪才!感觉聪明没有用对地方
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-9 02:48 , Processed in 0.074840 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表