樊趵_蓂酃BT的个人资料 - RAT

樊趵_蓂酃BT 樊趵_蓂酃BT

关注数: 21 粉丝数: 26 发帖数: 2,722 关注贴吧数: 7

呵呵砉腽宥罔孑哀辋羟肟沓悼畚萏臆舸金哿潍籴殁骑鳎魃眚熵枵魔戆苎霭锝士蚧骒卮辋离邶酆懑斡开肟铘赉祝醭馘鲞氘您魃酩酃疋一捭蠹瘼铊路嗌觌走慝嗄鲕好看不懂吧？你这辈子就是吃了没文化的亏！挑你认识的字念一遍吧！

突然发现魔塔很有商业潜力

今天居然搜到了这个图片,我无语...

金骑士走好饿~~~

[-_-]大家都玩离开,我也要玩!! 因为我也要开学了,老妈封电脑(怎么用的都是一个招...)

今天吧里有可能出现千年难遇的奇观

举报魔塔故事吧吧主风魔·卡卡西很长时间没有上线管理了最后访问时间： 2007-06-30 17:23

无意中截到的...极品飞车8疯狂瞬间

我改的TT 怎么样?感觉不是很好...

汗!我居然也上山了!!!

据可靠消息称...黑***部分失忆...

千年鬼魂大驾光临!!!大家让路!!!!

申请小吧主可以把黑石怪人的位子给我补习班都停了,我以后会常来这的,我会管理好这个吧的(至少在暑假期间)开学后(9.1)可以撤掉我,或者给魔史那之后我来这的几率就很小了

我想当小吧主，不知不可不以

相当汗的图

欢迎您加入极品飞车吧的圈子，成为该圈子的第1000名会员！

DX真复杂...枯涩

继续抢240000000

又抢240000000

还抢240000000

抢啊一定要抢

抢哈哈,抢哈哈

抢啊抢啊抢啊抢

我抢我抢我抢抢抢

我就不信我抢不到!!!!!

我还要抢!!!

继续抢!

又抢!!

再抢!

嘿嘿

防抽法彻底成功!大家可以用了!!! http://post.baidu.com/f?kz=239110566

防抽法70%成功!! www.baidu.comwww.sina.com

来魔塔故事吧看看啊好冷清的

改了点比上次快了(一分3贴...) http://post.baidu.com/f?ct=&tn=&rn=&pn=&lm=&sc=&kw=%C4%A7%CB%FE--%C4%E3%CA%C7%CE%D2%B5%C4%C7%A3%B9%D2&rs2=0&myselectvalue=1&word=%C4%A7%CB%FE--%C4%E3%CA%C7%CE%D2%B5%C4%C7%A3%B9%D2&tb=on

魔史你抽风啊

谁TMD删的魔塔故事吧

[本人原创]简单型FT机完全版控件自己加复杂型太恐怖,就不发了(而且还有些问题) Dim a As IntegerPrivate Sub Command1_Click()Timer1.Enabled = True WebBrowser1.Navigate "http://post.baidu.com/f?ct=&tn=&rn=&pn=&lm=&sc=&kw=%BA%A3%B5%C1%BE%FC%CD%C5&rs2=0&myselectvalue=1&word=%BA%A3%B5%C1%BE%FC%CD%C5&tb=on"End SubPrivate Sub Timer1_Timer()a = a + 1WebBrowser1.Navigate "http://post.baidu.com/f?ct=&tn=&rn=&pn=&lm=&sc=&kw=%BA%A3%B5%C1%BE%FC%CD%C5&rs2=0&myselectvalue=1&word=%BA%A3%B5%C1%BE%FC%CD%C5&tb=on"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document List1.Clear For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then List1.AddItem vTag.Name Select Case vTag.Name Case "ti" vTag.Value = a Case "co" vTag.Value = a End Select ElseIf vTag.Type = "submit" Then vTag.Click End If End If Next i End Sub

嘿嘿,邪恶的好东西 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document List1.Clear For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then List1.AddItem vTag.Name Select Case vTag.Name Case "ti" vTag.Value = a Case "co" vTag.Value = a End Select ElseIf vTag.Type = "submit" Then vTag.Click End If End If Next i End Sub

歪打正着--121.35.160.6???

举报魔塔吧海盗军团大量挖+爆40多页!!!

再次要求!临时小吧!!!!

临时小吧(我)

8

6

4

2

0

1

1

0

1001

1001

1001

1001

首页 1 2 下一页