autoIT将最新文件路径复制到剪贴板

Question

你好，我正在写一个脚本，它将打开Windows10摄像头，然后在关闭摄像头时显示最新的图像，然后使用GUI，询问用户图像是否正常。如果他们选择yes，则脚本将把文件路径复制到剪贴板，然后能够通过此文件路径进入Microsoft Excel单元格。在我需要将文件路径复制到剪贴板之前，我让一切都按我想要的方式工作。到目前为止，这是我的代码。

#include <MsgBoxConstants.au3>

Camera()

Func Camera()
    ; Execute Camera and wait for Camera to close
    Local $iPID = ShellExecuteWait("explorer.exe", "shell:AppsFolder\Microsoft.WindowsCamera_8wekyb3d8bbwe!App")
    Sleep(3000)
    WinWaitClose("Camera")
EndFunc

#include-once
#include <Array.au3>
#include <File.au3>
#include <GUIComboBox.au3>
#include <GUIConstantsEx.au3>
#include <Process.au3>

$dst        = "C:\Users\Cex\Pictures\Camera Roll" ; specify folder
$a_FileList = _FileListToArray2()

_ArraySort($a_FileList, 1, 1, $a_FileList[0][0], 1)
ShellExecute($a_FileList[1][0])

Func _FileListToArray2($s_Mask='*')
    $h_Search   = FileFindFirstFile($dst & '\' & $s_Mask)
    $s_FileName = FileFindNextFile($h_Search)

    If Not @error Then
        Dim $a_File[100][2]

        While Not @error
            If StringInStr($s_FileName,'.',0,-1) Then
                $s_FullName    = $dst & '\' & $s_FileName
                $a_File[0][0] += 1

                If $a_File[0][0] >= UBound($a_File) Then
                    ReDim $a_File[$a_File[0][0] * 2][2]
                EndIf

                $a_File[$a_File[0][0]][0] = FileGetLongName($s_FullName)
                $a_File[$a_File[0][0]][1] = FileGetTime($s_FullName,0,1)
            EndIf
            $s_FileName = FileFindNextFile($h_Search)
        WEnd

        ReDim $a_File[$a_File[0][0] + 1][2]

        Return $a_File
    EndIf

    Return ''
EndFunc

#include <GUIConstantsEx.au3>
#include <IE.au3>

WinWaitActive("Photos", "")

Local $qGUI   = GUICreate("Example", 200, 125, 1000, 200)
                GUICtrlCreateLabel("Are you happy with this image?", 30, 30)
Local $bYes   = GUICtrlCreateButton("Yes", 6, 60, 85, 25)
                GUICtrlSetOnEvent($bYes, "xYes")
Local $bNo    = GUICtrlCreateButton("Yes", 107, 60, 85, 25)
                GUICtrlSetOnEvent($bNo, "xNo")
Local $bClose = GUICtrlCreateButton("Close", 57, 90, 85, 25)

GUISetState(@SW_SHOW, $qGUI)

While 1
    Switch GUIGetMsg()
        Case $bYes
            bYes()
            GUIDelete($qGUI)
            Exit

        Case $bNo
            bNo()
            GUIDelete($qGUI)
            Exit

        Case $bClose, $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

Func bYes()
    _RunAU3("YesTest.au3")
EndFunc

Func bNo()
    _RunAU3("NoTest.au3")
EndFunc

Func _RunAU3($sFilePath, $sWorkingDir = "", $iShowFlag = @SW_SHOW, $iOptFlag = 0)
    Return Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $sFilePath & '"', $sWorkingDir, $iShowFlag, $iOptFlag)
EndFunc

就像我说的，我希望复制最近照片的文件路径，然后将其复制到剪贴板，然后将剪贴板粘贴到excel中的单元格中。我有有限的编码知识，所以我的代码可能有很多不好的地方，但我只是一直在学习，因为我走了，所以如果有人可以帮助我，请不要混淆我，但是，如果你必须，那么所有的帮助是感激的！

Answer 1

AutoIT具有用于剪贴板的内置函数，如ClipPut和ClipGet。

ClipPut($filepath)

在你的情况下

ClipPut($a_FileList[1][0])