clipã³ãã³ããå©ç¨ãã¦æååãã¯ãªãããã¼ãã«ã³ãã¼ããVBScriptã§ãã Option Explicit Dim s s = "ããã«ã¡ã¯" & vbTab & """ç°ä¸""" & vbTab & "ãã" PutInClipboardText s MsgBox "æååãã¯ãªãããã¼ãã«ã³ãã¼ãã¾ããã" & vbCrLf & "æåå:" & s Public Sub PutInClipboardText(ByVal str) Dim cmd cmd = "cmd /c ""echo " & str & "| clip""" CreateObject("WScript.Shell").Run cmd, 0 End Sub XPã¯æ¨æºã§clipã³ãã³ããå ¥ã£ã¦ããªãã£ããããªè¨æ¶ãããã¾ããã7ã§ã¯æ¨æºã§clipã³ãã³ãã使ããããã ã£ãã®ã§ã¹ã¯ãªãããæ¸ãã¦ã¿ã¾ããã 以å
{{#tags}}- {{label}}
{{/tags}}