변수 출력을 클립 보드로 가져 오기

Question

아이디어는 사용자 입력을 통해 URL을 생성 한 다음이 출력을 pastebin으로 가져 오는 것입니다.

스크립트가 실행되면 사용자 입력을 요청한 다음 URL을 완료하고 그 다음에 붙여 넣기를합니다. 적어도 그것은 그 아이디어입니다. 나는 페이스트 빈에 어떠한 출력을 얻을

Set WshShell = WScript.CreateObject("WScript.Shell") 

dim strLink, defInc, remedy 
defInc = "INC" 
strLink=InputBox("Enter Incident ID",,defInc) 

remedy = "https://1st_part_web_url"& strLink &"%22" 

WshShell.Run "cmd.exe /c echo " & remedy & " | clip", 0, TRUE 

이 방법 :

이

는 지금까지 내놓았다 한 코드입니다. 왜 안돼?

이

cmd = "cmd.exe /k echo " & remedy & " | clip" WScript.Echo cmd 
WshShell.Run cmd, 1, TRUE

명령이 올바른 보입니까 :

Answer 1

Option Explicit 

Dim URL 

    URL = "https://somewhere/somePage?var1=something&var2=somethingMore&id=123456789" 

    With WScript.CreateObject("WScript.Shell") 
     .Environment("Process").Item("URL")=URL 
     .Run "cmd /c ""(cmd /v:on /c echo(!URL!)|clip"" ", 0, true 
    End With 

는 URL에있는 가능한 문제가 문자를 탈출 방지하기 위해,이 코드는 cmd를 위해 정보를 전달하기 위해 환경 변수를 사용하여 그 정보를 clip.exe에 파이프합니다.

Answer 2

당신이 그것을 실행하기 전에 명령을 반향 시도도 눈에 띄게 명령을 실행하려고? 명령 프롬프트 창에 오류가 표시됩니까?

또한 포격 필요하지 않습니다 있다는 alternative method을 시도 할 수 :

Set ie = CreateObject("InternetExplorer.Application") 
ie.Navigate("about:blank") 
ie.document.parentwindow.clipboardData.SetData "text", remedy 
ie.Quit