卐只有兩面的盒子卍

這篇是2005/1/4：

2005/01/04
今天是第二天編寫執行檔製作精靈
不知道為什麼...我就是不太會控制Command.exe,所以乾脆將程式改寫成輸出一個[檔名.bat]之後,再呼叫command來執行它,最後再讓使用者自行決定要保留或刪除(保留的話下次重新編譯不必再開啟此程式,直接點兩下bat檔就可以重新編譯)
終於可以推出測試版了....這也是我第一次開發這種工具,想到別人開發出那麼多的好工具,自己也想來試試看....至少貢獻給其他有心學習的朋友吧?
以下是這次修改過的原始碼(沒貼出的為沒有修改)

Private Sub compile_Click()
On Error GoTo err '發生錯誤跳到err標籤
Dim rbfilename$, rubypath$, sourcepath$ '宣告三個字串變數，分別為檔案名稱、Ruby執行檔位置、原始檔存放的資料夾

If filedir.Text = "" Then MsgBox "請輸入檔案名稱。", , "Ruby執行檔精靈": GoTo err '如果檔案名稱為空白的話，那就跳出警訊方塊
rbfilename = Trim(filedir.Text) '將文字框內的檔案名稱去掉頭尾的空白之後轉成字串型態再存入rbfilename變數
rubypath = dirs.Path & "uby" '將Ruby安裝位置存入rubypath變數
sourcepath = sourcedir.Path '將原始碼位置存入sourcepath變數
Open sourcepath & "" & rbfilename & ".bat" For Output As #1 '用Open陳述式輸出[檔名.bat]批次檔，以便待會執行編譯
Print #1, "cd " & sourcepath '寫入進行切換原始碼所在目錄指令
Print #1, sourcedisk.Drive '寫入跳到原始碼所在目錄指令
Print #1, rubypath & " -r exerbmkexr " & rbfilename & ".rb" '寫入開始進行編譯步驟1：製造exr檔案跟mak檔案指令
If gui(0).Value Then '判斷是否為GUI介面程式
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb -c gui" & " " & rbfilename & ".exr" '如果是，加入GUI程式編譯參數，以防程式未來執行時跳出命令列視窗
Else
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb" & " " & rbfilename & ".exr" '如果不是GUI程式，就直接編譯
End If
Close #1 '關閉輸出批次檔
Shell "cmd.exe /c " & sourcepath & "" & rbfilename & ".bat" & vbCrLf '開啟命令列視窗，執行剛剛產生的批次檔進行編譯為執行檔的工作

err:
End Sub

各位喜歡Ruby的朋友們....大家加油^^
也希望大家喜歡此程式....

這是2005/1/3：
2005/01/03
編寫Ruby執行檔製作精靈這個計畫已經很久了
自從我第一眼見到Ruby這個語言,我就很喜歡它
當我看到這程式要編譯成執行檔,步驟複雜又難懂
而且還很容易錯誤
因此,我打算用Visual Basic 6.0 Professional版來編寫一個執行檔製作精靈(因為本身對Ruby這個語言還不熟,用C語言光是介面就很難搞,不過未來可能推出C語言版)

今天是第一次進行編寫工作,因為在這之前並沒有做好完善的規劃,所以只好一邊寫一邊修....

介面大致上完成,原始碼部分完成度有將近85%,但是Debug的時候還是發現許多Bug,所以在0.0.1這個測試版功能正常之前應該不會推出0.0.2正式版

下面是第一次編寫的原始碼

Private Sub compile_Click()
On Error GoTo err '發生錯誤跳到err標籤
Dim rbfilename$, rubypath$, sourcepath$ '宣告三個字串變數，分別為檔案名稱、Ruby執行檔位置、原始檔存放的資料夾

If filedir.Text = "" Then MsgBox "請輸入檔案名稱。", , "Ruby執行檔精靈" '如果檔案名稱為空白的話，那就跳出警訊方塊
rbfilename = Trim(Str(filedir.Text)) '將文字框內的檔案名稱去掉頭尾的空白之後轉成字串型態再存入rbfilename變數
rubypath = dirs.Path '將Ruby安裝位置存入rubypath變數
sourcepath = sourcedir.Path '將原始碼位置存入sourcepath變數
Shell "cmd.exe /c echo cd" & sourcepath '使用命令列進行切換原始碼所在目錄
Shell "cmd.exe /c echo " & sourcedisk.Drive '跳到原始碼所在目錄
Shell "cmd.exe /c echo " & rubypath & "uby -r exerb mkexr " & rbfilename & ".rb" '開始進行編譯步驟1：製造exr檔案跟mak檔案
If gui(0).Value Then '判斷是否為GUI介面程式
Shell "cmd.exe /c echo " & rubypath & " " & disk.Drive & "mingwusrlocalinexerb -c gui" & " " & rbfilename & ".exr" '如果是，加入GUI程式編譯參數，以防程式未來執行時跳出命令列視窗
Else
Shell "cmd.exe /c echo " & rubypath & " " & disk.Drive & "mingwusrlocalinexerb" & " " & rbfilename & ".exr" '如果不是GUI程式，就直接編譯
End If
err:
End Sub

Private Sub disk_Change()
dirs.Path = disk.Drive

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "本程式為CFC@Zuso Security編譯製作。", , "Ruby執行檔精靈"
End Sub

Private Sub quit_Click()
MsgBox "本程式為CFC@Zuso Security編譯製作。", , "Ruby執行檔精靈"
End
End Sub

Private Sub sourcedisk_Change()
sourcedir.Path = sourcedisk.Drive
End Sub


使用的物件有DriverListBox, DirsListBox, Text, Label, Command Button, Option Button, Frame