光ギガ(ハイビット)の回線速度が遅い時間帯は？24時間計測してみた！

2017/06/10 更新しました。

どうも、くろうです。

前回、光ギガ(ハイビット)の回線速度を計測しましたが計測したのは7時と23時の2回のみ。確かに朝は早くて、夜が遅いのはわかりましたが、何時から遅くなって何時から早くなるのかというのがまだわかりません。

そもそも、光通信しているはずのプロバイダの回線速度を測らないといけない状況自体がおかしいのですが。もう解約するので、どの時間帯が遅くなるのか計測してみることにしました。

これから契約しようと思っている人は、これを見て実態を把握してください。

1 回線速度の測定方法
2 測定用のプログラム
3 測定結果
4 解約金0円で光ギガを解約しました
5 まとめ

回線速度の測定方法

回線速度を測ることができるWEBサイトとしておなじみのBNRスピードテストを使用させていただきます。

Flash版ではなくて画像読み込み版です。こちらをVBAから自動起動させて、10分毎に計測します。ですので、一日に144回計測することになります。

BNRスピードテストは、5か所のプロバイダからファイルをダウンロードしてその転送速度を測定しています。ダウンロードしているプロバイダは下記の5か所です。

ASAHI-Net
NIFTY
WebArena
OCN
BIGLOBE

5か所のうち転送速度が最速であった「最高データ転送速度」と5か所の転送速度を平均した「平均データ転送速度」の二つを測定しています。

wgetを使用してBNRスピードテストで用いている画像ファイルのダウンロード速度を記録することも考えましたが、のちのちExcelで集計しますのでVBAで作成することにしました。

測定用のプログラム

こちらが作成したプログラムです。たまに処理が止まったりする場合は、taskkill /F /im “EXCEL.EXE”のバッチファイルを作ってください。

mesure_speed.xlsm

Sub Auto_Open()
'自動実行
Call mesure_speed
Call savesheet
End Sub

Sub savesheet()
'ファイルの保存を行う
Dim xSheet As Worksheet
Dim myFile As String
Dim myName As String

'result.xlsxを保存
Set xSheet = ActiveSheet
ThisWorkbook.Worksheets(1).Copy
myFile = ThisWorkbook.Path & "\" & "result" & ".xlsx"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=myFile
Application.DisplayAlerts = True

'mesure_speed.xlsmを保存
Application.Quit
Windows("mesure_speed.xlsm").Close True
End Sub

Sub mesure_speed()
'BNRスピードテスト実施
On Error GoTo myError
Dim objIE As InternetExplorer 'IEオブジェクトを準備
Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット

objIE.Visible = True 'IEを表示

objIE.navigate "http://www.musen-lan.com/speed/speed-img.html" 'IEでURLを開く

'表示終了まで待つ
While objIE.readyState <> 4  'READYSTATE_COMPLETE = 4
While objIE.Busy = True
DoEvents  '特に何もしないで.Busyの状態が変わるまで待つ
Wend
Wend

objIE.document.forms(0).submit

'一応5秒停止
waitTime = Now + TimeValue("0:00:05")
Application.Wait waitTime

While objIE.readyState <> 4  'READYSTATE_COMPLETE = 4
While objIE.Busy = True
DoEvents  '特に何もしないで.Busyの状態が変わるまで待つ
Wend
Wend

'最大速度
temp1 = objIE.document.getElementsByTagName("td")(3).innerText
'平均速度
temp2 = objIE.document.getElementsByTagName("td")(5).innerText
'計測日時
temp3 = objIE.document.getElementsByTagName("td")(11).innerText

Dim lastrow As Integer
lastrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

'貼り付け
Worksheets("Sheet1").Cells(lastrow + 1, 1) = temp3
Worksheets("Sheet1").Cells(lastrow + 1, 2) = temp1
Worksheets("Sheet1").Cells(lastrow + 1, 3) = temp2

objIE.Quit
Set objIE = Nothing
Exit Sub

'エラー処理
myError:
objIE.Quit
Set objIE = Nothing

Application.Quit
Windows("mesure_speed.xlsm").Close True
End Sub

やっていることは