主页 / computer / 问题 / 1515182
Accepted
burih yidah leib
Asked: 2020-01-07 13:50:03 +0800 CST

自动创建一个发送'类型 o.txt | 的批处理 剪辑'不工作

  • 772

我花了几个小时在文档和论坛上试图解决这个问题。

代码运行没有错误，但批处理脚本没有被执行。

我省略了读者这#include<*>部分，因为它非常冗长。

oToClip()
Func oToClip()
    Local $sleep = 250
    Sleep($sleep)
    Local $sFilePath = "%userprofile%\oToClip.bat"
    Sleep($sleep)
    Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND + $FO_CREATEPATH)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred when opening the file.")
    EndIf
    Sleep($sleep)
    FileWriteLine($hFileOpen, "type %userprofile%\o.txt | clip")
    Sleep($sleep)
    FileClose($hFileOpen)
    Sleep($sleep)
    RunWait(@ComSpec & " /c " & $sFilePath)
EndFunc   ;==>oToClip
batch-file clipboard

1 个回答

  1. Best Answer

    如果你使用会发生什么' "command" | clip'？

     '键入" %userprofile%\o.txt"|clip '
    
oToClip()
Func oToClip()
    Local $sleep = 250
    Sleep($sleep)
    Local $sFilePath = "%userprofile%\oToClip.bat"
    Sleep($sleep)
    Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND + $FO_CREATEPATH)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred when opening the file.")
    EndIf
    Sleep($sleep)
    FileWriteLine($hFileOpen, 'type "%userprofile%\o.txt"|clip')
    Sleep($sleep)
    FileClose($hFileOpen)
    Sleep($sleep)
    RunWait(@ComSpec & " /c " & $sFilePath)
EndFunc   ;==>oToClip
    • 2

相关问题