 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期六 一月 17, 2004 11:46 pm 文章主題: EXE 中運行動態生成的程式(轉貼) |
 |
|
*****************************************************************
* 在 VFP 6.0 編譯的 EXE 中運行動態生成的程式
*
* 前幾天看到有網友提出運行動態程式的問題，於是試編本程式，有幸運行
* 成功，以此共狐友同享。愚以為，解釋類型的編譯程序都能實現此功能。
* 測試方法：
* 1、建一項目；
* 2、建一頂層表單（或者用菜單調用該測試表單亦可）；
* 3、建一CommandButton；
* 4、將程式碼加入到 Command.Click 中並保存；
* 5、編譯為 EXE 程式，運行測試程式。
*
* 另：建議在程式退出前刪除動態生成的程式文本。
*
* 該範例已在 Win2000 Server + SP3 + VFP 6.0 + VSSP5 運行通過
* Programming By Cony(木乃伊)
*****************************************************************
| 代碼: | cCmdFileName = "CmdFile.Prg"
Delete File JUSTSTEM(cCmdFileName)+".*"
&& 建立一個存放文本命令的�{時表
Create Cursor curCmd ( CmdText C(254) )
Insert Into curCmd ( CmdText ) values ( "For i = 1 To 3" )
Insert Into curCmd ( CmdText ) values ( "MessageBox ( 'i = ' + AllTrim(Str(i)) ) ")
Insert Into curCmd ( CmdText ) values ( "EndFor")
&& 導出命令文本
Copy To "&cCmdFileName" SDF
Use
&& 等待文本生成
DO WHILE !File("&cCmdFileName")
Loop
EndDo
&& 執行動態生成的文本
Do "&cCmdFileName" |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
#############################
Ruey 在 星期五 一月 23, 2004 11:15 pm 作了第 1 次修改 |
|
| 回頂端 |
|
 |
elleryq
註冊時間: 2007-06-21
文章: 768
第 2 樓
|
| 發表於: 星期一 一月 19, 2004 9:05 am 文章主題: |
|
|
vfp6 sp3 以後也可以直接使用 compile 指令先行 compile
再去 do
這樣有什麼好處?!
嗯~
我也不太清楚~ |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 3 樓
|
| 發表於: 星期一 一月 19, 2004 3:22 pm 文章主題: |
|
|
那是很好玩的做法!!
試想想你利用 DCOM 做了一個 server, 像 ICQ 似的...
有人呼叫才執行工作, 例如顯示 信息..
你可以做一個 網絡通信了!
如果使用 WinAPI 甚至可以要求 對方電腦, 摹擬用家 鍵入及滑鼠動作...
而上面的程式例是 當不能一句一句 輸入指令來完成工作..
那就需要 動態 compile 來做了!
Anyway, 似黑客的遊戲多於實際應用... 
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
