質問編集履歴

検証内容の追記

2018/04/02 08:14

投稿

ot2os

スコア23

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -229,3 +229,103 @@
 Internet Explorer 11
 Visual Studio Community 2015
+---
+補足です。
+今回、エラーコードを基に調べてみたところ「原因はわからないけどこうすれば直った」と言う旨の話が何件かあり、それを基に**「●試したこと：」**を実施していますが、解決していません。
+前述の通り、エラー発生時にエラーを`catch`してから再度同じ処理を実施すれば今度はエラーが出ずに継続できますが、何回かに一回、全く同じ場所で同じエラーが出続けて無限ループすることがあることがわかりました。
+Form側のコードを下記のようにし、メインの処理をスレッドに分けて、一定期間処理が終わらなければ無理やりスレッドごと処理を中断し、その後再開すると言う方法を試してみました。しかし、この方法で処理を再実行しても全く同じ場所で同じエラーが出て進めません。
+試しに[ielowutil]プロセスも終了するようにしてみましたが、同様でした。
+しかし、手動で[デバッグの停止]を実施して、再度プログラムを開始して同じURLを処理すると正常に機能します。
+```lang-vb.net
+Option Explicit On
+Public Class Form1
+    Private t As New System.Threading.Thread(
+            New System.Threading.ParameterizedThreadStart(AddressOf Main))
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        LastAct = Now
+        Me.Timer1.Enabled = True
+        t.Start(Me.TextBox1.Text)	'入力されたURL内のリンクを調べる
+    End Sub
+    '一定期間応答がなければ強制的にスレッドを立ち上げなおす
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        '10分以上応答なければ強制再実行
+        If DateDiff("n", LastAct, Now) > 10 Then
+            Me.Timer1.Enabled = False
+            Debug.Print("10分応答なし")
+            t.Abort()
+            t.Join()
+            KillProcess("iexplore")	'iexploreのプロセスを強制終了するコマンド
+            LastAct = Now
+            t = Nothing
+            t = New System.Threading.Thread(
+            New System.Threading.ParameterizedThreadStart(AddressOf Main))
+            t.Start(Me.TextBox1.Text)
+            Me.Timer1.Enabled = True
+        End If
+    End Sub
+End Class
+```