Окно с кодом для закрытия
Привет, я тебя научу так с помощью блокнота
это делается вот так:
Do
st=InputBox("текст")
Loop Until st="пароль"
а потом просто сохраняете в формате на кодировку анси сохраняете и готово
Привет, я тебя научу так с помощью блокнота
это делается вот так:
Do
st=InputBox("текст")
Loop Until st="пароль"
а потом просто сохраняете в формате на кодировку анси сохраняете и готово
Всем здравствуйте. Я написал программу, с помощью которой можно переходить в диалог с рандомным человеком в VK.
Проблема: сгенерированный id не переходит в строку поиска.
iURL = "https://vk.com/im?sel=" Надо чтобы сгенерированный id был написан после слова "sel=".
Весь код:
MsgBox "Random chat", 64, "Application for VK"
Set y = CreateObject ("Scripting.FileSystemObject")
Do
a="hidden number:"
Randomize
Number = Int ((RND * 999999998) +1)
MsgBox a&" "&Number , 64, "Application for VK"
Style = vbOKOnly
Dim oShell
Set oShell = CreateObject ("WSCript.shell")
Dim objShell
Set objShell = CreateObject("Shell.Application")
iURL = "https://vk.com/im?sel="
Call objShell.ShellExecute("C:\Program Files\Mozilla Firefox\firefox.exe", iURL, "", "", 1)
WScript.Quit
Loop
Попросили помочь со скриптами vbs. Благодаря криворукости разработчиков специфическому поведению SAP, решением проблемы было использование буфера обмена. С чтением содержимого всё просто, а вот с записью уже не так тривиально. Причём, сторонний софт туда не скопировать и не скомпилировать - огорожено. Так что пользуют "васик".
Вобщем, нарыл вот такое. Кому надо, пользуйтесь:
Функция:
Function ClipBoard(input)
If IsNull(input) Then
ClipBoard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
If IsNull(ClipBoard) Then ClipBoard = ""
Else
CreateObject("WScript.Shell").Run "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','" & Replace(Replace(Replace(input, "'", "\\u0027"), """","\\u0022"),Chr(13),"\\r\\n") & "');window.close()"")", 0,True
End If
End Function
Использование:
Получение текста:
result = ClipBoard(null)
Установка текста:
ClipBoard("новый текст")
Если установка не нужна, можно функцию не использовать, хватит простой строки:
result = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
Для установки через setData такой способ не подходит (М$ пофиксили возможность зачем-то), посему приходится извращаться с помощью HTA.