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

スポンサーリンク

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

どうも、くろうです。

前回、光ギガ(ハイビット)の回線速度を計測しましたが計測したのは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円で光ギガを解約しました

2年契約、3年契約した方がその契約期間満了にならずに解約すると、解約金が発生します。光ギガの場合、解約金は「9,975円」です。

また、光回線の工事費用を分割払いしている場合、残りの分を一括で支払わなければなりません。

そのような解約金はソフトバンク光の「あんしん乗り換えキャンペーン」を利用することによって0円にする方法があります。こちらに紹介していますので参考にしてみてください。

ちなみに注意点として、光ギガからソフトバンク光に乗り換える場合は「新規」となります。

まとめ

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

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

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

この後にソフトバンク光に切り替えたのですが、「回線速度は速くなりましたし、月額料金も安くなりました」。しかも、ソフトバンク光の場合、プロバイダ解約の違約金を肩代わりしてくれるため、0円で切り替えることができます。

ソフトバンク光には「あんしん乗り換えキャンペーン」というキャンペーンがあります。こちらは、他社からへの乗り換えで発生する。違約金・撤去工事費を最大100,000円まで還元してくれるサービスです。

こちらの代理店で申し込むと「あんしん乗り換えキャンペーン」に加えて、新規の場合「24,000円or20,000円」、転用の場合「11,000円」のキャッシュバックがあります。

また、他の代理店であるような「オプション加入」も一切不要です。

つまり、「あんしん乗り換えキャンペーン(解約金が無料)+キャッシュバック」をもらって無傷で光ギガから切り替えることが可能となります。かなりお得です。

>>ソフトバンク光の契約はこちらよりどうぞ

スポンサーリンク