clipString = getClipboardText()
CreateObject("WScript.Shell").Run clipString
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
clipString = getClipboardText()
WshShell.ShellExecute(clipString)
Set wshShell = Nothing
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate("about:blank")
clip = obj.document.parentWindow.clipboardData.getData("text")
obj.Quit
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate("about:blank")
clip = obj.document.parentWindow.clipboardData.getData("text")
obj.Quit
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run(clip, 1, True)
'попытка получить буфер через ConClip
AppPath = "."
set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
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)
rData = oTS.ReadAll
oTS.Close
end if
msgbox rData
On Error Resume Next
AppPath = "C:\Temp"
set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
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" & """""", 1, true
if oFSO.FileExists(AppPath & "\Clip.txt") then
set oTS = oFSO.OpenTextFile(AppPath & "\Clip.txt", 1, false)
rData = oTS.ReadAll
oTS.Close
end if
On Error Goto 0
msgbox rData
AppPath = "C:\Temp"
set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
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" & """""", 1, 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
msgbox rData
cmd.exe /c ""Путь\GetClip.exe" /text > "Путь\Clip.txt""
set oShell = CreateObject("WScript.Shell")
set oTS = oFSO.OpenTextFile("C:\Temp\Clip.txt", 1, false)
rData = oTS.ReadAll
msgbox rData
GetClip.exe /text Clip.txt
Тогда не вижу разницы между общим кодом и тестовым. Всё должно работать, как и задумано.Содержит. Код выполняю. Появляется окно с полным путём до файла.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?