投稿日 | : 2003/05/14(Wed) 12:05 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : 蛇足: IEへの表示 |
先のページを、InternetExplorerオブジェクト/WebBrowserコントロールに表示させるコードです。
Dim objIE As Object
Dim URL As String
Dim PostData() As Byte
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
URL = "http://oh2w.kolumbus.com/cgi-bin/qin.sh"
PostData = StrConv("dxcall=S92UN&Search+Target=dxcolumn&year=2003&band=ALL&mode=ALL&spots=25&Submit%21=SEARCH", vbFromUnicode)
objIE.Navigate2 URL, PostData:=PostData