|
前几由于看不惯某些人的行为,一时气愤做了一些出格的举动,请某人吃了大量的鸡蛋.
由于本蛙天天坐井里难免心浮气燥,在此向被扔蛋的兄弟说声对不起!
如果需要的话我可以再多送你一些鲜花.
还好本蛙的行为对论坛造成恶劣的影响.在此提供扔蛋的源代码,代码有部分解决方案是临时使用,暂时还末找到简洁的实现方法,如果有高人能够指点,本蛙不胜感激.
以下是原代码.
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 |
|