灌水 - 無聊嗎?來找碴吧!

[mini]

其實覺得既然已經有很多抓圖軟體
就該搞些特別的

可以做一個固定時序抓圖 (最好是能抓指定區域)
比如生成 001.jpg到200.jpg後
再透過一些免費的轉檔軟體就能生成 影片

比如自動生成 AviSynth檔 (副檔名是 .avs 的純文字腳本檔案)
如果圖片暫存在 c:\tmppic\ 內容如下
ImageSource("c:\tmppic\%d.jpg", 001, 200, 29.97).ConvertToRGB32
P.S.文字裡的29.97是NTSC規格的畫面刷新率
因為抓圖軟體可能無法達到每秒近30張的抓圖速度, 這裡可以向下調低 或著自己插入(複製)一些同樣的圖形成假30FPS

姑且說軟體把它存檔成 c:\tmp\Animate.avs
接著在軟體內無痕執行X264.exe的命令列即可
P.S.無痕執行VB.NET mini會寫, BC++就...

X264.exe的命令列不會寫很正常請下載一套x264gui.exe 在 Input file 輸入上面的 Animate.avs
OK 選 Save to batch file
就會生成一個.bat的批次檔
編輯打開它
將文字有樣學樣照抄即可 (當然如果想學x264的參數也可以找到很多文章)
最後面的 -o "c:\tmp\output.mp4" "c:\tmp\Animate.avs" 就是你需要修改的地方

新版的x264gui.exe比舊版的介面多一點 (系統需net 1.1 , 舊版的年代大概是 2005年)
可先在Main頁面輸入.AVS 接著到 Queue就可看到 命令列文字
可在 https://sourceforge.net/projects/x26...urce=directory 獲得

[魔術王子]

作者: mini

其實覺得既然已經有很多抓圖軟體
就該搞些特別的

可以做一個固定時序抓圖 (最好是能抓指定區域)
比如生成 001.jpg到200.jpg後
再透過一些免費的轉檔軟體就能生成 影片

比如自動生成 AviSynth檔 (副檔名是 .avs 的純文字腳本檔案)
如果圖片暫存在 c:\tmppic\ 內容如下
ImageSource("c:\tmppic\%d.jpg", 001, 200, 29.97).ConvertToRGB32
P.S.文字裡的29.97是NTSC規格的畫面刷新率
因為抓圖軟體可能無法達到每秒近30張的抓圖速度, 這裡可以向下調低 或著自己插入(複製)一些同樣的圖形成假30FPS

姑且說軟體把它存檔成 c:\tmp\Animate.avs
接著在軟體內無痕執行X264.exe的命令列即可
P.S.無痕執行VB.NET mini會寫, BC++就...

X264.exe的命令列不會寫很正常請下載一套x264gui.exe 在 Input file 輸入上面的 Animate.avs
OK 選 Save to batch file
就會生成一個.bat的批次檔
編輯打開它
將文字有樣學樣照抄即可 (當然如果想學x264的參數也可以找到很多文章)
最後面的 -o "c:\tmp\output.mp4" "c:\tmp\Animate.avs" 就是你需要修改的地方

新版的x264gui.exe比舊版的介面多一點 (系統需net 1.1 , 舊版的年代大概是 2005年)
可先在Main頁面輸入.AVS 接著到 Queue就可看到 命令列文字
可在 https://sourceforge.net/projects/x26...urce=directory 獲得

會想要設計這個程式是因為最近有再寫一些教學手冊,而教學手冊需要擷取螢幕畫面,最常用的就是小畫家,然而小畫家過於陽春,需要每次擷完圖,就馬上貼到小畫家取出需要的圖面動作很繁雜,所以才想要用一些工具軟體,偏偏工具軟體功能多,用起來反而礙手礙腳
才會有這個程式的誕生,用意就這樣而已,整個程式已經完完全全分享給大家,大家可以完全照自己的意思去發揮

下面修改過版本的連結
https://mega.nz/#!nJwmjJya!0zwhFAt5W...ZPZQYwavMyquGo

最後很感謝不敢下載的朋友,我大概了解"不敢"下載的原因了

[魔術王子]

https://mega.nz/#!SBAVUBZb!mOHuV_SyD...-AstDILWtnFVx8
大概就這樣啦,分享給大家

另外有一個心得,怕大家在程式裡面看不到,所以順便在此分享
其實也沒什麼啦,就是數值互換的程式碼
一般兩個數值要互相交換,大部分會先再用一個變數,來做媒介
而現在這個方法是可以直接互換,而不需要第三個變數
a=a+b;
b=a-b;
a=a-b;
假設a=10,b=20
a=a(10)+b(20)...a=30
b=a(30)-b(20)...b=10
a=a(30)-b(10)...a=20

而字串變數也可以,也比較簡單
例如a="abc",b="123"
a=a(abc)+b(123)...a="abc123"
使用字元擷取函數
b=a.SubString(1,3)
a=a.SubString(4,6)

[mini]

作者: 魔術王子

一般兩個數值要互相交換,大部分會先再用一個變數,來做媒介
而現在這個方法是可以直接互換,而不需要第三個變數

也可以用 xor 互斥或 邏輯運算子
不論是 數值 還是 字串 都可以(而且可以長短不一)甚至是 結構體 也行

Dim a = "234", b = "9876"
a = a Xor b
b = a Xor b
a = a Xor b

因為這(xor) 算是CPU裡的最基本指令集所以理論速度會比較快
會使用CPU暫存器所以不用第三個記憶體空間
但
以上都是理論,每個語言編譯器會動甚麼手腳就不知道了 (要測速也可以啦,懶得做而以)

如果是像C這種比較嚴謹的變數宣告就要注意 溢位問題

[魔術王子]

https://mega.nz/#!mFhwmQ4I!90DeNhJOu...VUCaEpnzRmd0FQ
這是一個夢想中的介面,裡面完全沒有任何的功能
不過有興趣的朋友可以將之前的程式段加進來,不會很難
依照小王子的個性,最後還是應該會慢慢完成吧