CoCoのYDブログ

心に思い浮かんだことを少し掘り下げ発信します

【失敗】動画配信サイトの閲覧者数を上げる

こんにちは

 

今回は生放送サイトの累計閲覧者数を上げる方法を考えてみました。

ちなみにこの方法は失敗したため別の方法を考える必要があります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ツイキャスを開いてと・・・ん?

f:id:takataka2743:20180919214411p:plain

どうやらIEツイキャスは未対応なようですor2

 

じゃあニコ生は・・・

f:id:takataka2743:20180919214707p:plain

 

うん、出鼻をくじかれてしまった・・・

どうするかまた考えます