Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute rdata, "", "", "", 1
Option Explicit
Dim oFSO, sFile, objShellApp
set oFSO = CreateObject("Scripting.FileSystemObject")
sFile = GetFromClipBoard()
if Len(sFile) <> 0 then
if oFSO.FileExists(sFile) then
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute sFile, "", "", "", 1
else
msgbox "Файл не существует: " & sFile
end if
else
msgbox "Буфер обмена пуст!"
end if
Function GetFromClipBoard()
Dim rData, oFSO, oShell, AppPath, oTS
On Error Resume Next
rData = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
On Error Goto 0
if Len(rData) = 0 then
'попытка получить буфер через ConClip
set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
' GetClip.exe должен находиться в папке со скриптом, иначе укажите полный путь в этой переменной
AppPath = oFSO.GetParentFolderName(WScript.ScriptFullName)
if not oFSO.FileExists(AppPath & "\GetClip.exe") then
msgbox "Программа GetClip не найдена!" & vbcrlf & "Буфер обмена пуст!"
WScript.Quit
end if
oShell.Run "cmd.exe /c """"" & AppPath & "\GetClip.exe"" /text > """ & AppPath & "\Clip.txt" & """""", 6, true
if oFSO.FileExists(AppPath & "\Clip.txt") then
set oTS = oFSO.OpenTextFile(AppPath & "\Clip.txt", 1, false)
if not (oTS.AtEndOfStream) then
rData = oTS.ReadAll
end if
oTS.Close
end if
end if
GetFromClipBoard = rData
End Function
CreateObject("Shell.Application").ShellExecute CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"), "", "", "", 1