************************************************************************* wb.Url = New Uri("https://レンタルサーバのURL/") wb.Navigate("https://レンタルサーバのURL/")
Do '開ききるまで待ちます Application.DoEvents() Loop While wb.ReadyState <> 4 OrElse wb.IsBusy
Dim hec As HtmlElementCollection = wb.Document.GetElementsByTagName("input") Dim he As HtmlElement For Each he In hec If he.Name = "ftp_account" Then he.InnerText = "アカウント"
Do '開ききるまで待ちます Application.DoEvents() Loop While wb.ReadyState <> 4 OrElse wb.IsBusy ElseIf he.Name = "ftp_password" Then he.InnerText = "パスワード"
Do '開ききるまで待ちます Application.DoEvents() Loop While wb.ReadyState <> 4 OrElse wb.IsBusy End If Next
Dim hec1 As HtmlElementCollection = wb.Document.GetElementsByTagName("form")
hec1(0).InvokeMember("submit")
Do '開ききるまで待ちます Application.DoEvents() Loop While wb.ReadyState <> 4 OrElse wb.IsBusy