在VB中怎么获取在IE上登陆的用户名字?谢谢

Question

如题,谢谢

Answer 1

HOOK 键盘操作，IE好象基于COM，和Windows的EDIT不太一样

Answer 2

是写在ie中某个文本框里的用户名这个用户名我用ASP里面是可以获取到的，但是怎么把这个用户名传给VB?

Answer 3

'http://community.csdn.net/Expert/topic/3249/3249571.xml?temp=.6271936
'打开VB，在工程中引用Microsoft internet controls：
Private Function Str()as string
    Dim IEList As New ShellWindows
    Dim browser
    Dim Doc
    '遍历当前地浏览器窗口
    For Each browser In IEList
        '找到需要地IE窗口
        If browser.Document.Title = "testPage" Then
            '获得浏览器地文档对象
            Set Doc = browser.Document
            dim ss
            ss=Doc.body.All("LoginName").Value 
        End If
    Next
Str=ss
End Sub

Answer 4

是啊,从ASP到VB,我用了一种方法是<script language="VBScript">
    function fnShellExecuteVB()
        dim objShell        set objShell = CreateObject("Shell.Application")        objShell.ShellExecute "notepad.exe", "", "", "open", 1        set objShell = nothing
    end function
</script>但是ShellExecute只能在WIN2000下使用