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

解決


いま  2004-12-22 00:42:51  No: 118416

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


えと  2004-12-22 01:08:43  No: 118417

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

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


ガッ  2004-12-22 04:34:43  No: 118418

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

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

※定例誤爆ちぅ。


いま  2004-12-23 01:24:21  No: 118419

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

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

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


ガッ  2004-12-23 05:16:29  No: 118420

オレもかなり素人なので、素人なりに頑張ってみたぞ(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 23:20:59  No: 118421

ガッさん、ありがとうございました!!
なんとか解決できました。
本当にありがとうございます。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 20:31:53  No: 118422

解決です。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加