無料歌詞探索衛星 Cassini

無料歌詞探索衛星 Cassini at SOFTWARE

423:名無しさん＠お腹いっぱい。
08/05/01 15:30:30 7egllSfn0
VBSですが、JOYSOUNDはコンナ感じで・・・

TimeOutSec = 60 ' タイムアウト時間
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = False
objIE.Navigate "URLﾘﾝｸ(joysound.com)"&No&"_songwords.htm"
dt = Now()' ログインページが読み込まれるまで待つ
Do Until objIE.readyState = 4 ' 完了するまで待つ
If DateAdd("s", TimeOutSec, dt) < Now() Then "ログインページ読み込み失敗" : Exit Function
Loop
If "ログインしていなかった場合" Then
With objIE.Document.forms(0)
.elements("loginForm:ID").value = "ゆーざー"
.elements("loginForm:PASS").value = "ぱすわど"
.submit
End With
dt = Now() ' ログインした後のページが読み込まれるまで待つ
Do Until objIE.Busy = False ' 完了するまで待つ
If DateAdd("s", TimeOutSec, dt) < Now() Then "ログインした後のページ読み込み失敗" : Exit Function
Loop
End If
HTML = objIE.Document.Body.InnerHtml 'ここにHTMLが格納される
Set objIE = Nothing

LyricsWikiも対応しないかな？

次ページ

続きを表示

1を表示