ブラウザを開かずに検索するには？

解決

いま 2004-12-21 15:42:51 No: 118416 IP: [192.*.*.*]

ウインドウに文字を入力して、入力した文字をブラウザを開かずに検索エンジンに入力するというようなことをＶＢで行いたいのですがこれは可能でしょうか？とりあえずブラウザを開かずにってとこは無視してもらってもかまいません。

えと 2004-12-21 16:08:43 No: 118417 IP: [192.*.*.*]

ウィンドウに文字を入力？？→フォーム内のテキスト？
検索エンジンに入力する？？→入力した状態でブラウザを表示？
実際に検索は行わないのですか？

何をやりたいのかをチョットまとめましょう

ガッ 2004-12-21 19:34:43 No: 118418 IP: [192.*.*.*]

Microsoft Internet Transfer Control使えば、
まぁ目的に適った物ができるかもな…
てか、ＨＴＴＰ使ってＨＴＭＬソースを受け取れれば可能だということになるな…
んー…WinSock使って通信するとかも手段に入ってくるなｗ

というわけで、可能という方向でｗ

※定例誤爆ちぅ。

編集削除

いま 2004-12-22 16:24:21 No: 118419 IP: [192.*.*.*]

なにを言ってるかわかりませんね＾＾；
すいません、かなりテンパっていたので・・・

とりあえず、フォーム内のテキストの内容を検索エンジンに入力したいです。

かなり素人なのであほみたいな質問かもしれませんが、どなたかお答えください。m(__)m

編集削除

ガッ 2004-12-22 20:16:29 No: 118420 IP: [192.*.*.*]

オレもかなり素人なので、素人なりに頑張ってみたぞ(orz
しかも、ブラウザを開かずにを無視(ぇ
…IE.Visible=Trueをコメントアウトすればソレっぽいが…
やっぱりIEオブジェクト使ってるうちは表示してたほうが無難だろうと思ってな。
VB6＆IE6辺りで動くかもしれない。

Option Explicit

Dim IE                      As Object

Private Sub Command1_Click()
    SyncNavigate "http://www.google.ne.jp"
    IE.Document.All.Item("q").Value = Text1.Text
    Call IE.Document.Forms.Item(0).submit
End Sub

Private Sub Form_Load()
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    Text1.Text = "検索する文字列"
End Sub

Sub SyncNavigate(ByVal URL As String)
    IE.Navigate URL
    Call LoopWhileBusy
End Sub

Sub LoopWhileBusy()
    Do
        DoEvents
    Loop While IE.Busy
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    IE.Quit
End Sub

※そういえば…結構この手の話題ってあるよなぁ…検索単語どういうの仕掛けた？
  ＠誤爆詐称ちぅな人

編集削除

いま 2004-12-23 14:20:59 No: 118421 IP: [192.*.*.*]

ガッさん、ありがとうございました！！
なんとか解決できました。
本当にありがとうございます。m(__)m
Command1_Clickの部分にIE.Visible = Trueを入れることで
解決することができました。

Option Explicit

Dim IE                      As Object

Private Sub Command1_Click()
    IE.Visible = True
    SyncNavigate "http://www.google.ne.jp"
    IE.Document.All.Item("q").Value = Text1.Text
    Call IE.Document.Forms.Item(0).submit
End Sub

Private Sub Form_Load()
    Set IE = CreateObject("InternetExplorer.Application")
    'IE.Visible = True
    Text1.Text = "検索する文字列"
End Sub

Sub SyncNavigate(ByVal URL As String)
    IE.Navigate URL
    Call LoopWhileBusy
End Sub

Sub LoopWhileBusy()
    Do
        DoEvents
    Loop While IE.Busy
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    IE.Quit
End Sub

えとさんも書き込みの際のご指摘ありがとうございます。

編集削除

いま 2004-12-24 11:31:53 No: 118422 IP: [192.*.*.*]

解決です。

編集削除