51Testing软件测试论坛

标题: 论坛自动扔蛋QTP代码 [打印本页]

作者: 一只小蛙 时间: 2007-8-9 10:16
标题: 论坛自动扔蛋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 时间: 2007-8-9 13:09
楼主是歪才！感觉聪明没有用对地方

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)