Как определить вкладку, если она открыта, и обновить ее с помощью новой гиперссылки в Vbscript? - PullRequest
Новая
       26

Как определить вкладку, если она открыта, и обновить ее с помощью новой гиперссылки в Vbscript?

4 голосов
/ 24 мая 2011

У меня есть скрипт, который открывает гиперссылку с переменной, чтобы открыть определенную учетную запись в интрасети. Однако, если «модуль» уже открыт (80% гиперссылки одинаковы), я бы хотел оставить открытую ту же вкладку / окно и обновить ее.

Прямо сейчас мой Vbscript просто использует хост скрипта и каждый раз открывает новую вкладку. Поскольку у пользователя может быть открыто несколько вкладок, я не уверен, как определить, есть ли у него ссылка, которую я хочу открыть, и затем использовать это окно для обновления данных. 

Begin pseudocode Script Sub

dim LINK as string
dim variableHere as string
LINK = "link/section/comments.aspx/account=" & variableHere & "&SID=11111"
variableHere = APIAccountNumberAccessed

IF ("link/section/comments.aspx/account=" exists)
then open hyperlink in same tab: LINK
else open in new tab
End IF

End pseudocode Sub

ОБНОВЛЕНИЕ:

Я добился определенного прогресса в определении того, что можно использовать метод Window.Open, чтобы установить имя цели и открыть ссылку. Тем не менее, я все еще получаю ошибку.

Синтаксис 

set varWindow = Window.Open "google.com", "targetName", "toolbar=no, menubar=no, location=no, directories=no"

Это дает мне ожидаемую ошибку в конце оператора, код ошибки 800A0401, прямо в строке открытия окна. До сих пор не могу пройти эту часть.

1 Ответ

1 голос
/ 27 мая 2011

Это автоматическая функция, если вы повторно используете targetName
Таким образом, вы можете использовать один и тот же destination и targetName, чтобы иметь одну вкладку на URL. как это: 

Window.Open variableHere, variableHere, "toolbar=no, menubar=no, location=no, directories=no"

я не помню, если targetName принимает какие-то странные символы, если нет, вы можете заменить 

validName = variableHere
validName = replace(validName,"/","_")
validName = replace(validName,".","_")
validName = replace(validName,",","_")
'... and so on ...
Window.Open variableHere, validName, "toolbar=no, menubar=no, location=no, directories=no"
...