WSHでフォームの自動入力をするサンプルスクリプトを教えてください。

WSHではなくrubyでしたら知っています。

以下はYahooにログインするスクリプトです。WSHでないのでポイントはいりません。

require ’win32ole’

ie = WIN32OLE.new(’InternetExplorer.Application’)

ie.Navigate(”http://login.yahoo.co.jp/config/login?.src=www&partner=&...”)

ie.Visible = true

while ie.busy

sleep 1

end

loginid = ie.document.all.Item(”login”)

loginid.Value = ”xxxx”

passwd = ie.document.all.Item(”passwd”)

passwd.Value = ”xxxx”

g = ie.document.all.Item(type=”.save”)

g.click()

while ie.busy

sleep 1

end

URLはWSHの参考ページです。

フォームというのが何のフォームか分からないので正確な解答ではないかもしれませんが、何かしらWSHで入力したいということであれば、以下のスクリプトは参考になるでしょうか？

（ワードパッドを開いて、文章を入力するだけのものです。はずしていたらポイント不要です。）

---- 以下、サンプル ----

Dim WSHShell

Set WSHShell = WScript.CreateObject(”WScript.Shell”)

WSHShell.Run ”wordpad.exe”

WScript.Sleep(1000)

WSHShell.SendKeys(”Write Anything you like”)

WScript.Sleep(1000)

WSHShell.Popup ”Complete !!”,0,”Sample Script”,vbInformation

----