こんにちは
今回は生放送サイトの累計閲覧者数を上げる方法を考えてみました。
ちなみにこの方法は失敗したため別の方法を考える必要がありますw
生放送サイトの累計来場者数を上げるには
そもそもの問題ですよね。
累計来場者数は基本的に配信画面が開かれた回数ですね。
なので生放送のサイトを何度か更新をすることで累計来場者数は増えると予想されます。
累計来場者数が増えることで、ほかの人の目に留まりやすくなります。
どうしたらよいのか
これは機能お話しした.Refreshを使用します。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Function getIE() Dim ie As InternetExplorer Dim sh As Object Dim win As Object Dim document_title As String Set sh = CreateObject("Shell.Application") For Each win In sh.Windows document_title = "" On Error Resume Next document_title = win.document.title On Error GoTo 0 Set ie = win Next Set getIE = ie End Function Private Sub 更新() Dim ie As InternetExplorer Set ie = getIE() Dim htdoc As HTMLDocument If ie Is Nothing Then Exit Sub
Dim i As Long For i = 1 To 10 ie.Refresh Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop Sleep 3000 Next i
End Sub
|
今まで説明した内容を組み合わせただけなので今回は説明を省きます。
内容的には今開いているIEのページを10回更新する処理です。
実際にやってみた
まずはIEでツイキャスを開いてと・・・ん?
どうやらIEでツイキャスは未対応なようですor2
じゃあニコ生は・・・
うん、出鼻をくじかれてしまった・・・
どうするかまた考えます