tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。