Пользователь
Сообщения: 81
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Вроде сделал и для скрипта, поисковик тут по форуму. Но осталась проблемка, он не признаёт символы % =, из за них поле поиска будет пустым. Можно ли это исправить?
Set oDoc = CreateObject("HTMLFile")
oDoc.write "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge"">"
Dim objWshShell
set oScrShell = WScript.CreateObject("WScript.Shell")
clipboard = oDoc.parentWindow.clipboardData.getData("text")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "http://forum.oszone.net/searchresults.php?cx=018124589797586243949%3Anz2qphbxnpq&cof=FORID%3A9&ie=UTF-8&q=" & oDoc.parentWindow.encodeURIComponent(clipboard) & "&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0
|
Отправлено: 19:03, 19-09-2024
| #3
|
