0

アイデアは、ユーザー入力を通じて URL を構築し、この出力をペーストビンに取得するというものです。

そのため、スクリプトが実行され、ユーザー入力が求められ、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

この方法では、ペーストビンに何も出力されません。なぜだめですか？

4

2 に答える 2

0

コマンドを実行する前にエコーしてみてください。また、コマンドを目に見えるように実行してみてください。

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

コマンドは正しいように見えますか? コマンド プロンプト ウィンドウにエラーが表示されますか?

砲撃を必要としない別の方法を試すこともできます。

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate("about:blank")
ie.document.parentwindow.clipboardData.SetData "text", remedy
ie.Quit
于 2014-06-18T08:50:12.287 に答える
0 
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 にパイプします。

于 2014-06-18T09:59:23.623 に答える