Microsoft Internet Controls

Public strURL1 As String
Public strURL2 As String
Public strURL3 As String
Public strURL4 As String
 
Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function
 
Function Start()
WebBrowser1.Navigate strURL1
WebBrowser2.Navigate strURL2
End Function
 
Function get_urls()
Dim strBaseURL As String
strBaseURL = 'http://127.0.0.1/1.txt'
a$ = Inet1.OpenURL(strBaseURL)
Delay (20)
a$ = Mid(a$, 1, 1000)
Dim strSourceFile As String
strSourceFile = 'c: est.txt'
Set fso = CreateObject('Scripting.FileSystemObject')
Set fsoCreateSourceFile = fso.CreateTextFile(strSourceFile)
fsoCreateSourceFile.Close
Set fsoOpenCreatedFile = fso.OpenTextFile(strSourceFile, 2)
fsoOpenCreatedFile.Write a$
fsoOpenCreatedFile.Close
Set fsoOpenSourceFile = fso.OpenTextFile(strSourceFile)
strURL1 = fsoOpenSourceFile.ReadLine
strURL2 = fsoOpenSourceFile.ReadLine
If strURL2 = '' Then
strURL2 = strURL1
End If
fsoOpenSourceFile.Close
fso.DeleteFile (strSourceFile)
End Function
 
Private Sub Form_Load()
Call get_urls
Delay (15)
strURL3 = strURL1
strURL4 = strURL2
Call Start
End Sub
 
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = ProgressMax Then
Delay (10)
WebBrowser1.Navigate strURL3
End If
End Sub
 
Private Sub WebBrowser2_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = ProgressMax Then
Delay (10)
WebBrowser2.Navigate strURL4
End If
End Sub