Question

这个想法是通过用户输入构建URL，然后将此输出发送到pastebin。

因此脚本运行，要求输入用户输入，然后完成URL，然后进入pastebin。至少，这就是想法。

这是我到目前为止提出的代码：

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

这样我就没有得到任何输出到pastebin。为什么不？

Answer 1

在运行命令之前尝试回显命令，并尝试显式运行命令：

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

命令看起来是否正确？您是否在命令提示符窗口中看到错误？

你也可以尝试一个不需要炮轰的alternative method：

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

Answer 2

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

为避免转义网址中可能存在问题的字符，此代码使用环境变量将信息传递给cmd，以便将信息传递到clip.exe

获取变量输出到剪贴板

2 个答案: