vb控制ie窗口，无法进行网页元素访问，具体代码如下

以下代码是查找到某个 ie窗口，再对这个ie窗口的网页元素访问，但我的代码无法实现这功能。请大家帮我看一下。谢谢！
    Dim dWinFolder As SHDocVw.ShellWindows
        dWinFolder = New SHDocVw.ShellWindows
        Dim objIE1 As SHDocVw.InternetExplorer
        Dim ActID As Long
        Dim tmp_doc As Object
        Dim tmp_1
        objIE1 = New SHDocVw.InternetExplorer()
        ActID = FindWindow("IEFrame", vbNullString)
        For Each objIE1 In dWinFolder
            tmp_doc = TypeName(objIE1.Document)
            If tmp_doc = "HTMLDocument" Then' z这里得到tem_docw为HTMLDocumentClass
                MsgBox("afda")
            End If
            My.Computer.FileSystem.WriteAllText("c:\testfile.txt", _
"  " + objIE1.LocationURL, True)
            '过滤掉windows资源管理器的窗口
            If InStr(1, objIE1.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
                '是否是当前正在浏览的IE窗口
                If objIE1.HWND = ActID Then
                    My.Computer.FileSystem.WriteAllText("c:\testfile.txt", _
    " = " + objIE1.LocationURL, True)
                    '执行程序
                    'myUrl = objIE1.LocationURL     '取得地址
                    If Trim(objIE1.LocationURL) = "网址" Then
                       '下面几个id网页页面都存在
                        objIE1.Document.getElementById("randMobile").value = "1316465464"
                        objIE1.Document.getElementById("get_checkcode").click()
                        Exit For
                    End If
                End If
            End If
        Next
        getIeObject = objIE1
    End Function --------------------编程问答-------------------- 那位帮我看一下 --------------------编程问答-------------------- 那位帮我看看一下 --------------------编程问答-------------------- 在什么情况下执行这段代码的，是否是在页面刷新或加载的时候？ --------------------编程问答-------------------- 以上代码是作为一个子函数，是在点击提交按钮后（跳转到新页面），被调用的，查找跳转后新的页面，再进行对该页面的文档进行操作。

原先是通过ie = CreateObject("internetexplorer.application") 来创建、控制页面，执行到某个页面点击这个提交按钮后（跳转到新页面），ie就变为空了。

补充：.NET技术 ,  VB.NET