iT邦幫忙

4

[鐵人大富翁]怪物資料一覽表

Sub RandomView()
    On Error Resume Next
    Dim ithelp_ie_1 As Object

    Set ithelp_ie_1 = CreateObject("InternetExplorer.Application")

    ithelp_ie_1.Visible = True ' 顯示IE
    Range("A1:H1") = Array("名稱", "等級", "攻擊力", "防禦力", "幸運值", "屬性", "掉落道具", "掉落裝備")
    strURL = "http://ithelp.ithome.com.tw/richman3/monster-info/id/"
    For i = 1 To 118
        ithelp_ie_1.Navigate strURL & i
        ie_wait ithelp_ie_1
        Cells(i+1, 1) = ithelp_ie_1.document.all(46).innerText
        Cells(i+1, 2) = ithelp_ie_1.document.all(48).innerText
        Cells(i+1, 3) = ithelp_ie_1.document.all(50).innerText
        Cells(i+1, 4) = ithelp_ie_1.document.all(52).innerText
        Cells(i+1, 5) = ithelp_ie_1.document.all(54).innerText
        Cells(i+1, 6) = ithelp_ie_1.document.all(61).innerText
        Cells(i+1, 7) = ithelp_ie_1.document.all(65).innerText
        Cells(i+1, 8) = ithelp_ie_1.document.all(67).innerText
    Next
End Sub
Sub ie_wait(ie_target As Object)
    iewaittime = 3
    VeryCDtimer = Now
    Do While ie_target.Busy
        DoEvents
        If Now - VeryCDtimer >= iewaittime * 1# / 86400# Then
            Exit Do
        End If
    Loop
    VeryCDtimer = Now
    Do While ie_target.document.readystate <> "complete"
        If Now - VeryCDtimer >= iewaittime * 1# / 86400# Then
            Exit Do
        End If
    Loop
End Sub

http://www.wretch.cc/album/show.php?i=apgapple&b=8&f=o1621755997.jpg
http://www.wretch.cc/album/show.php?i=apgapple&b=8&f=o1621763875.jpg&p=1
簡單分享怪物的資料
小弟等級不高,很多怪沒打過
如果有人願意提供,上面巨集可以幫忙擷取


圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 則留言

0
richardsuma
iT邦大師 1 級 ‧ 2010-12-07 09:40:45

我已經抓出來,要怎麼給你?

apgapple iT邦新手 3 級 ‧ 2010-12-07 17:47:37 檢舉

免空謝謝

rurume iT邦新手 5 級 ‧ 2010-12-16 06:21:58 檢舉

請問你都不用睡覺的喔!
昨晚看你的等級12。再來看錢幣$................?????
怎差那........麼多?
必殺計教一下嘛!!賽完後

我要留言

立即登入留言