タイトル : Re^6: IEの制御の方法 投稿日 : 2010/10/02(Sat) 19:45 投稿者 : keisuke
こんばんはです。 おおざっぱですが、こん感じでしょうか? HMTLのソースを見ながら必要なコントロールに命令はできます。 表示させてから以下を動作させるとソースコードが出てきます ’’ S_gamen = objIE(W).Document.body.innerHTML 'ログインできたか確認 ’’ Debug.Print(S_gamen) 多分ですがこのようなことをされたい方は投資関係が多いので、、、、 この当たりが参考ではないでしょうか? http://blog.livedoor.jp/hanagarage1963/archives/cat_33186.html?p=3 Imports System.IO Imports System.Text Imports System.Web Imports System Imports System.Net Public IDD(20, 20) As Object Public objIE(10) As Object Public w As Integer Sub IEOpen(ByVal w) objIE(w) = CreateObject("InternetExplorer.application") objIE(w).Visible = True 'IE表示 objIE(w).width = 1200 objIE(w).height() = 1000 End Sub Sub IEClose() For Me.w = 0 To 10 Try objIE(w).Quit() Catch ex As Exception Exit For End Try Next w End Sub Sub login(ByVal objIE As Object, ByVal W As Integer, ByVal IDD As Object) ' loginForms URL01 = "hhttps://gaikaex.net/servlet/login"'HPのアドレス objIE(W).Navigate(URL01) 表示待ち(objIE, W) objIE(W).document.all.P001.Value = IDD(7, 1)’P001というテキストに入れる objIE(W).document.all.P002.Value = IDD(7, 2) objIE(W).document.Forms(0).submit()’ボタンを押す End Sub Private Sub 表示待ち(ByVal objIE, ByVal w) Do While objIE(w).Busy System.Threading.Thread.Sleep(100) System.Windows.Forms.Application.DoEvents() Loop System.Windows.Forms.Application.DoEvents() '上記がないと2度目以降のクリックで下記が素素通りしてしまう Do While objIE(w).Document.ReadyState <> "complete" System.Windows.Forms.Application.DoEvents() Loop End Sub |