>>268
動画ページの判定漏れしてる

とりあえず応急処置として↓のように書き換えて
If (InStr(HTML, "GyaoPlayer") = 0)

If (RegExMatch(HTML, "GyaoPlayer|年齢認証") != 0)