验证我目前在哪个网站

Question

有谁知道一种快速简便的方法来验证我目前在哪个网站？

我制作了一些将我登录到网站的脚本，但如果用户已经登录，则会产生错误。

如果有人知道他们是否已登录的好方法，请告诉我们！

脚本如下：

Username = InputBox("Please input username")
Password = InputBox("Please input password")

Set objShell = WScript.CreateObject("WScript.Shell")
Dim IE
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
IE.Visible = 1
IE.navigate "http://wsmmart.itg.ti.com/"

Do
    WScript.Sleep 250
Loop While IE.ReadyState < 4 And IE.Busy

IE.Document.All.Item("fld2").Value = Username
IE.Document.All.Item("fld5").Value = Password
'IE.Document.All.Item("Submit").Click

Answer 1

以下代码将遍历所有打开的IE窗口，并查看其中是否有任何一个具有术语“wsmmart.itg.ti”。在网址中。如果找到匹配项，它将控制该窗口并继续插入您的用户名，pw等。如果找不到匹配项，那么您可以运行代码打开一个新窗口

Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
For x = 0 To (IE_count - 1)
    On Error Resume Next    ' sometimes more web pages are counted than are open
    my_url = objShell.Windows(x).Document.Location

    If my_url Like "*" & "wsmmart.itg.ti." & "*" Then 'find an existing wsmmart web page
        Set ie = objShell.Windows(x)
        Exit For
    Else
        if x=(IE_count - 1) then
           ' do your stuff to open a new window
        end if
    End If
Next

on error goto 0

现在尝试插入您的用户名，pw等，将其放入if语句中。如果您收到错误，那么您已经登录