VBScript 連番のページにアクセスする

こんにちは、ジンです。今日はVBScript 連番のページにアクセスするVBscriptを載せておきます。

Option Explicit
 
Dim objIE
Dim strBody
Dim n
Dim url
 
 
Set objIE = CreateObject("InternetExplorer.Application")
 
objIE.Width = 800
objIE.Height = 600
objIE.Left = 0
objIE.Top = 0
 
objIE.Visible = True
 
For n = 1 to 100
 
url = "ここにURLを記入" & n &"連番の後を記入"
 
objIE.Navigate url
 
Do Until objIE.Busy = False
   WScript.sleep(500)
Loop'
 
Next
 
Msgbox "終了しました。"
 
Set objIE = Nothing

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です