暂存

asfrim

Call Plugin.Web.Bind("WQM.exe")

Sub Pick()

Chi = 0

Do Until Clng(Plugin.Web.HtmlGet("text","tag:SPAN&index:45")) < 19

Loop

Call Plugin.Web.HtmlClick("tag:DIV&index:69")

Do Until Chi > 27

Pei = Array(1000,333,166,100,66,48,36,28,22,18,16,15,14,13,1000,333,166,100,66,48,36,28,22,18,16,15,14,13)

If Chi < 14 Then

     If Clng(Plugin.Web.HtmlGet("text","tag:TD&index:" & Cstr(Chi*6+49))) <= Pei(Chi)

     Call Plugin.Web.HtmlClick("type:checkbox&value:checkbox&index:" & Cstr(Chi))

     End If

Else

     If  Clng(Plugin.Web.HtmlGet("text","tag:TD&index:" & Cstr(55+Chi*6))) <= Pei(Chi)

     Call Plugin.Web.HtmlClick("type:checkbox&value:checkbox&index:" & Cstr(Chi))

     End If
       
End If

Delay 30

Chi = Chi + 1

Loop

End Sub

Sub Again()

Dim Second

Do Until Clng(Second) > 10000

Second = Plugin.Web.HtmlGet("text", "tag:STRONG&index:1")

Delay 3000

If Reflash =0 and Second < 30 Then

        Call Plugin.Web.KeyPress(116)

        Reflash = 1

End If

Loop

Delay 3000

Call Plugin.Web.KeyPress(116)

Delay 6000

Call Plugin.Web.HtmlClick("tag:A&index:68")
Call Plugin.Web.HtmlClick("tag:A&index:68")
Call Plugin.Web.HtmlClick("tag:A&index:68")

Delay 6000

End Sub

For 3000

Call Pick()

Delay 300

Call Plugin.Web.HtmlClick("id:conform_btn")
Call Plugin.Web.HtmlClick("id:conform_btn")
Call Plugin.Web.HtmlClick("id:conform_btn")

Delay 300

Call Plugin.Web.HtmlClick("Tag:A&index:6")
Call Plugin.Web.HtmlClick("Tag:A&index:6")
Call Plugin.Web.HtmlClick("Tag:A&index:6")

Delay 3000

Reflash = 0

Call Again()

Next

asfrim

算了还是用这套吧

Call Plugin.Web.Bind("WQM.exe")

Zai = Array(0)

Function Shu()

Shu = 0

For 3

Randomize

Shu = Shu+Int(10 * Rnd())

Next

End Function

Chi = 0

Dim Range(12)

Do Until Chi > 12

Do While Not Zai(0) < 0

Temp = Shu

Zai = Filter(Range, Temp, 1, 0)

Loop

Range(Chi) = Temp

Temp = Shu

Zai = Filter(Range, Temp, 1, 0)
       
        If Not Range(Chi) < 14 Then
               
                Sel = 41 - Range(Chi)
                Else
                Sel = Range(Chi)
               
        End If
                 
Call Plugin.Web.HtmlClick("type:checkbox&value:checkbox&index:" & Cstr(Sel))
       
                Chi = Chi + 1
               
Loop

阿伯才的风格

然而我并看不懂

asfrim

阿伯才的风格 发表于 2015-6-8 06:32
然而我并看不懂

不懂复杂的编程，只是Vb+按键精灵脚本

阿伯才的风格

asfrim 发表于 2015-6-8 09:35
不懂复杂的编程，只是Vb+按键精灵脚本

哇哦，艾伟哥哥好牛逼哦

xing3kong

围观楼上各种大神

asfrim

阿伯才的风格 发表于 2015-6-8 09:45
哇哦，艾伟哥哥好牛逼哦

只是实话实说不想装逼，这也根本不牛逼，学校里都学过Vb

阿伯才的风格

asfrim 发表于 2015-6-8 11:02
只是实话实说不想装逼，这也根本不牛逼，学校里都学过Vb

没学过，不会∠( ﾟωﾟ)／

myname

计算版本号的吗？还是测试序列号的