Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://pc8.2ch.net/tech/"
Do: WScript.Sleep 100: Loop While ie.Busy
With ie.document.forms(2)
.item("FROM").value = "fusianasan"
.item("MESSAGE").value = "test test"
.submit.click
End With