形色主义 » 设计资源交流 Download » 超级渲染器 巴西 Brazil1.2.53

xoooox 发表于 2005-4-21 18:00

超级渲染器 巴西 Brazil1.2.53

<P>不用说明了，满世界都是介绍！</P>7r,Q$Wy0^A0a{
[Money=31]<a href="ftp://down:down@218.108.49.125/dvup/brazil_RS_1.2.53@xoooox.rar" target="_blank" ><FONT color=#000000>ftp://down:down@218.108.49.125/dvup/<FONT color=#0000ff>brazil_RS_1.2.53@xoooox.rar</FONT></FONT></A>[/Money]#bUg%B'H hO
[align=right][color=#000066][此贴子已经被作者于2005-4-21 18:18:40编辑过][/color][/align]
4K(Wm;d5iFv]#}j [br][br]-----------------------------------------[br]<FONT color=#ff0000>奖励用户：原因：奖励  用户操作：金钱5，经验5，  操作者：图钉

fdfd 发表于 2005-4-28 10:52

fsad

fdfd 发表于 2005-4-28 10:53

fsad

fdfd 发表于 2005-4-28 10:54

fsad

fdfd 发表于 2005-4-28 10:54

fas

fdfd 发表于 2005-4-28 10:54

fsad

fdfd 发表于 2005-4-28 11:24

Dim HtmlTempText As String^*M^li|/S#e
Private Sub Command1_Click()
n9l"H(Bv%Fm
c     Me.WebBrowser1.Navigate Me.Text1.Text
\i-` lL&@-@Ol       \'Form1.Show
q6v-K%TP }   \' Me.WebBrowser1.SetFocusIHzeda
End Sub
9Y{s }[O&vV f
PJ@ b&hAu Private Sub Form_Load()
1G B1{3v;?5w    \'Form1.ShowKz9b7])m&pl
   \'Me.WebBrowser1.SetFocus
[ shO `*a End Sub
v'u8zg;q4f
az3Fs#[`U Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
7VEkA1FQ;}5c{    On Error Resume Next
,a(HG r b|$YCng    WebBrowser1.SetFocus
:s&z$n$za,C{    Dim doc As Object
`Lr{Pi]    
z/dR2a\s+cF    Set doc = WebBrowser1.Document!hFLq r"iT
   If InStr(doc.body.innerText, Text3.Text) &gt; 0 Then
p1h:z R:KO          doc.All.Item("FontSize").focus
^:YC `$na7j#a9q          Dim objHtml As Object2gDg4S&pw
         Set objHtml = doc.body.createTextRange()bcK'M] Ox)@\~
         If Not IsNull(objHtml) Then
3E8wi`)DTP             HtmlTempText = objHtml.htmlText
*qorch3i`/G'a$^             Text2.Text = HtmlTempText%aov}
Q+tf
         End If+@z7o!K,qD
         Dim tmp As String
NiQ/x\%T6Q          tmp = "fasdfasdfsfd"
9pE3v&K'mNF          \'Dim aa As Long1r;w"a1f]%UR
         \'aa = PostMessage(Me.WebBrowser1.hwnd, &amp;H100, 9, 0)
q$L9T^2r
QR          SendKeys "{tab}"
GYKr4q]s1y|.O3VG          SendKeys tmp
iM1`eX?           \'SendKeys "{tab}"*lP8O6qs+g5t/qcm
          \' SendKeys "{tab}"
3u,us x7rm5`         \' \'doc.All.Item("Submit").focus
H`|n2GC#B u%oX         \'SendKeys "{enter}"
F#W&I/h.Ve%@!e         Dim str As String
q$uq Qcl&O         str = "asdf"r"Xq:oT%|t
        SendKeys "^{enter}" F!tdB E)o2v
  End If%z2g[Y s5yk/K Y
  If InStr(doc.body.innerText, "fasdfasdfsfd") &gt; 0 ThenSC(BLj
         doc.All.Item("FontSize").focusI|D2|7WPg
         
7[D,vSud
|6Ln          T']wR5{
         tmp = "fasdfasdfsfd"
Vv6K:H@Cy t_/?Yu          \'Dim aa As Longj~6_U SN)gx
         \'aa = PostMessage(Me.WebBrowser1.hwnd, &amp;H100, 9, 0)#`` B[| iTlX
         SendKeys "{tab}"&uA{ DMBn@
         SendKeys tmp
D.eg2m X)l           \'SendKeys "{tab}"
|-rsv
I{R-U           \' SendKeys "{tab}"3rV5|9vFcv9R
        \' \'doc.All.Item("Submit").focus;tQT1~.f%X6Vr
        \'SendKeys "{enter}"
#_[!rO$b         SendKeys "^{enter}"s
k,@J:F }Q
  End If
k J#Qm'vm   If InStr(doc.body.innerText, "错误信息") &gt; 0 Thenox8w"z0V*k
       Me.WebBrowser1.Navigate Me.Text1.Text
_cP1A:iI&}_qe&bZ,i L   End If
wAce&X];qM
v6q0pK K,i)mL
End Sub

爱上一棵白菜 发表于 2005-4-30 18:12

<P>可是我没钱呀</P>[em04]

allanm 发表于 2005-5-5 02:22

谢谢!

blizard 发表于 2005-5-7 08:36

什么东东？

会唱歌的地瓜 发表于 2005-5-11 23:27

[em04]

raymondlee 发表于 2005-5-11 23:47

<P>金钱不够~~~~~~</P>

tyq_78 发表于 2005-5-17 09:37

不知道啊

fury77 发表于 2005-5-23 12:06

分数太高啦吧.

cool3d2000 发表于 2005-5-23 17:01

<P>好东西</P>

tianyuzhe 发表于 2005-5-24 12:54

你不是憋人灌

一米Q 发表于 2005-5-25 22:23

KLEOW

bbbb 发表于 2005-5-27 15:50

hhhhh

Snowice00 发表于 2005-5-27 21:05

不是吧,新手没商量

fans 发表于 2005-6-6 14:33

<P>真的就要那么多钱才能看到内容么？？</P>O6tNVvb

蓝色理想 发表于 2005-6-6 14:46

要这么多的钱啊

寒冰若水 发表于 2005-6-17 14:26

<P>可是我没钱呀</P>

hujie 发表于 2005-6-22 08:02

拜托不要积分行不行,这不是把新来的拒之门外吗?网站办得好要靠内容

南极舟 发表于 2005-6-29 18:55

hgk

oldman 发表于 2005-6-30 12:59

<P>好东西晕我没有达到30</P>

oldman 发表于 2005-6-30 13:00

好东西可惜我没有30

oldman 发表于 2005-6-30 13:07

<P>好东西晕我是新用户</P>$km#q9v7dle~

oldman 发表于 2005-6-30 13:08

实在是没有办法

六神丸 发表于 2005-9-3 21:01

菜鸟一只，不知如何用，但先支持一下楼主

3dwin 发表于 2005-9-15 02:39

help

no puedo descargar el archivo
+NdcdDZPT como lo agonr{+Os3R$Jtm{
me pide
X gBO&ip usuario
F_ULL3~ y contrace馻

龙翼 发表于 2005-9-16 10:04

便宜点啦

183627758 发表于 2005-9-24 17:48

可是我没钱呀
H
h B:KG?7ph~
4Fr c9p;|S9D5I [em04]

183627758 发表于 2005-9-24 17:53

怎么装？请教我的qq,183627758邮箱：[email]liming-ys@163.com[/email]

passer_zhao 发表于 2005-10-2 22:29

请教怎么安装阿

blackagate 发表于 2005-10-24 18:55

怎么用啊？

airflysky 发表于 2005-10-26 23:44

号东西啊

langke888 发表于 2005-11-16 14:04

东西是好,就是不知道该如何安装,似乎我安装上去也用不起嘛!

resunny 发表于 2005-11-19 23:25

真的很不错哦!!4pY%cf9B'o
支持QQQ

查看完整版本: 超级渲染器 巴西 Brazil1.2.53