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

computer_kurayami
スポンサーリンク

どうも、くろうです。

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

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

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

回線速度の測定方法

回線速度を測ることができる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

やっていることは

  1. Excel(VBA)からIEを起動。
  2. BNRスピードテストにアクセス。
  3. 回線速度計測。
  4. 結果をセルに記載。
  5. result.xlsxを出力。

使用したい場合は、2つほど設定してください。

VBAの「ツール」→「参照設定」より

  • Microsoft HTML Object Library
  • Microsoft Internet Controls

にチェックを入れてOKを押下してください。

VBAの「挿入」→「標準モジュール」を押下する。

作成された、Module1に上記のコードを入力してください。

測定結果

では、測定結果です。平日と休日で回線速度が違いますので、分けて表記します。表も記載したかったのですが、あまりにも長すぎるため、今回は割愛させていただきます。

休日:2016年11月20日(日)

こちらが、休日の測定結果です。

toppa_holiday

休日に使い物になる時間帯は「2時30分~7時50分」までです。

平日:2016年11月21日(月)

こちらが平日の測定結果です。

toppa_weekday

平日に使い物になる時間帯は「2時00分~18時00分」までです。

 

見て分かる通り、明らかに絞ってますね。それでないなら、利用時間によって転送時間が変わるのに何もしてないですね。何がベストエフォートだ!!

解約手数料0円で光ギガを解約しました

解約手数料0円で光ギガを解約しました。詳しくはこちらに書いています。

まとめ

夜勤などの不規則な生活をしている人であれば、光ギガでも良いですが、そうでないのであればおすすめできません。

ゴールデンタイムは常に10Mbps以下です。

絶対に改善されるわけがないので、少しでも不便と思っているのであれば解約しましょう。

ソフトバンク光であれば、撤去費用を肩代わりしてくれるため光ギガの解約金もソフトバンク側が支払ってくれます

おわり

スポンサーリンク