[AglaeHes]

Вроде сделал и для скрипта, поисковик тут по форуму. Но осталась проблемка, он не признаёт символы % =, из за них поле поиска будет пустым. Можно ли это исправить? Пока отвлекусь и проведу время на https://mostbet.net.ua/ за моей любимой игрой. 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 »

Привет, если ты еще не решил проблему, то я могу поделиться своим опытом. Мы в прошлом году на работе делали автоматизацию внутреннего поиска по шаблонам текстов и тоже сталкивались с тем, что некоторые символы типа процентов и знаков равенства ломают запросы. Тогда помогло правильное использование encodeURIComponent без двойного кодирования. В твоем случае для помощника поэта нужно отправлять запрос не через параметр text, а через w. То есть ссылка будет выглядеть как https://DOMEN/cgi-bin/assist.pl?w= и дальше уже закодированный текст из буфера. В VBS это работает, если использовать HTMLFile и получать буфер через oDoc.parentWindow.clipboardData.getData("text"), а потом один раз через oDoc.parentWindow.encodeURIComponent. Тогда даже % и = нормально вставляются, и поле поиска не пустое. Я пробовал это решение в тестовом проекте и оно стабильно отрабатывает.