全屏截图 請問如何 自動修改截图名

ss861129

全屏截图 請問如何 重複運行時如何每次自動修改截图名例如第一次截图名test001.png第二次截图名test002.png第三次截图名test003.png謝謝
//例子1//全屏截图,命名为test.png并保存至sd卡SnapShot "/sdcard/test.png"

紫猫

[按键精灵] 纯文本查看 复制代码

Dim i = 0
do
    i = i + 1
    If i = 999 then
        Traceprint "截图达到999张, 停止截图"
        Exit Do
    End If
    SnapShot "/sdcard/test" & Right("00" & i, 3) & ".png"
loop

ss861129

感謝
剛剛使用 結果 程式 運行第一次時 連續截圖999張
抱歉 因該是我說明錯誤

重複運行 第一次時 截图名test001.png
重複運行 第二次時 截图名test002.png
重複運行 第三次時 截图名test003.png
...

感謝大大的教導
謝謝

紫猫

ss861129 发表于 2018-11-11 10:48
感謝
剛剛使用 結果 程式 運行第一次時 連續截圖999張
抱歉 因該是我說明錯誤

[按键精灵] 纯文本查看 复制代码

Dim i = ReadConfig("i", 0)
i = i + 1
WriteConfig "i", i
SnapShot "/sdcard/test" & Right("00" & i, 3) & ".png"

ss861129

可以了 感謝太感謝了

ss861129

再請問 使用模擬器 全屏截图可以直接存到電腦嗎
路徑或是哪裡有文可以參考 謝謝

紫猫

共享路径, 具体自己找

ss861129

Dim i = ReadConfig("i", 0)
i = i + 1
WriteConfig "i", i
SnapShot "/mnt/shared/Other/22-1/test" & Right("00" & i, 3) & ".png"

可以了 感謝提醒 台灣來的感謝