[VB]檔中有檔~檔包檔

VB6-檔中有檔~檔包檔

http://tw.knowledge.yahoo.com/question/question?qid=1405112606998

如何在檔案中增加別的檔案進去

舉例:

我有個A.exe 執行後 可在 A.exe 旁 產生 B.exe …(更多累加)

引用

回答者: W.J.S. ( 初學者 5 級 )

回答時間: 2005-11-26 23:36:42

(1) 把 B.exe 加入資源檔

製作方法:

A:開啟資源檔編輯器(如果找不到資源檔編輯器,打開增益集→增益功能管理員→載入Visual Basic 6.0 資源檔編輯器)

B:在編輯器的功能表上有一個四方形(裡面有4個小格)的圖示,滑鼠移到此會顯示"加入自訂資源",給它按下去,然後選擇你的B.EXE

C:然後你會看到新增一個"CUSTOM"的資料夾及一個"101"的資源檔

D:雙擊"101"資源檔,將型態 "CUSTOM" 改成 "B",按確定

F:選擇儲存的圖示儲存到你的專案路徑,此時你就會在你的專案視窗多了一個相關文件→Project1.RES,OK了!!

如果不行的話在提出來吧!!

(2) 把資源檔讀到陣列

(3) 用Open陳述式將陣列存到你要的地方

Dim ExE() As Byte

ExE = LoadResData(101, "B")

Open App.Path & "\B.exe" For Binary As #1

Put #1, , ExE

Close #1

[VB]超連結 – API

VB6如何做類似超連結的方法

方法有2種

其中Shell因為 遇到空白就會發生問題

所以改用API較為正確

我的發問:

VB怎樣做出來連結的功能(類似連結,超連結)

http://tw.knowledge.yahoo.com/question/question?qid=1305082512595

'=====================連結=============================

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'使用的方法

ShellExecute 0, "", "mailto:[email protected]", "", "", 5

詳細 請上 VB研究小站的 WinAPI簡述

網址 http://vb.ncis.com.tw/

mailto 是以 e-mail做連結 不過要有 Outlook

直接連到網頁 把 "mailto:[email protected]" 改 "http://tw.yahoo.com"

還可連結C:/

宣告方法

開始>程式集>Microsoft Visual Basic 6.0>Microsoft Visual Basic 6.0 工具>API 檢視員

檔案>插入文字檔>WIN32API.TXT

PS. C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\WIN32API.TXT

Public 全域 宣告在 模組

Private 區域 宣告在 宣告區

API 就是 Windows 的所有功能

'===============資料參考=================

VB研究小站 http://vb.ncis.com.tw/

我的超完美情人

愛情 簡簡單單 就好

不時的驚喜 相信妳我的愛

妳話不用多 可以讓妳囉說 只要我愛著妳就好

妳可以追求美好 只要妳我相信對方的心

喜歡 和 愛 真的很不同

愛妳的人 能容忍一切

不過 容忍 有個極限

不要讓我感覺 愛妳好累

來自一個 小小宅男 的心聲

小談笑

一個可以帶給你安定感的宅男 不是也不錯嗎?

至少確定他不會啪啪走 XD

既然不會啪啪走 也就沒辦法亂花錢啦~

打工小窩介紹

我家門前有小河

後面有山坡

山坡 後面有 大河

我家屋頂 還能看海看風景

有山有水的生活還真不錯

看著一堆帥哥美眉在我面前走秀

還可以看到美麗的 烈日當中+日落+夜色+日出

過著茶來伸手 飯來開口的日子 之後數錢數到手抽筋

好幸福快樂阿

(真的是這樣咩…)

.

.

.

.

.

.

我家門前有小河

-(淡水河)

後面有山坡

-(消波塊)

山坡 後面有 大河

-(聽說還是淡水河)

我家屋頂 還能看海看風景

-(去過漁人碼頭的都知道咩~別人的走道阿orz)

有山有水的生活還真不錯

-(挖哩勒 我三天 沒離開過這邊最遠去到廁所= =|||)

看著一堆帥哥美眉在我面前走秀

-(廢話 做生意通常都是這樣子-.-)

還可以看到美麗的 烈日當中+日落+夜色+日出

-(打工的前三天 雖然從中午都做到凌晨4點收攤 但是除了腿酸之外 好像不會很累…)

-(只是晚上靜下來 差點睡著..)

過著茶來伸手 飯來開口的日子 之後數錢數到手抽筋

-(吃飯時間便當來了當然吃阿= =… 數鈔票找錢阿 找到你手會抽筋勒…)

好幸福快樂阿

-(怎麼括號內的都不是Orz)

不會難過

你…

死過嗎?

瞬間魂不附體過嗎?

昏過?

我…有過…

現在想想..

如果哪天

怎麼了

我發現…

這世界上好像沒什麼人感到難過 大概只除了自己的親人吧…

我能不能多幾位 我如果怎麼了 會難過的人..

而不是我怎麼了 只有單純的問問…

我對這世界的每個人 真是太不了解了…

同樣 也完全沒人了解過我…

失望嗎?..

我的死活 本來就無人管 我說的是吧…

ps.當我話很少 對人都笑笑簡單回話的時候 說完就轉去看風景時

就是我心情很差很差很難過 的時候了..

快要暑假了 我心情更複雜了 我真的有辦法更了解人嗎..

遙遠的戀

是什麼?

真心的兩人?

單戀的好人?

愛一個人

全心全意的相信

是不是感覺到

不是全心全意

就只是個好人

找到一個人能讓我全心全意的付出…

真的好難..

就算是當好人也罷

我好想找到一個能讓我真心付出的人

妳有聽到嗎? 能不能多給我點機會

心情好vs心情糟

心情很遭嗎…

全世界的人都不了解…

這是全世界的人的錯?

還是跟本我錯了

心情很好嗎…

全世界的人為你歡笑…

這是全世界的人的好…

還是跟本是我的好…

喔…這麼神奇

選都選不下手 每次選答案都不一樣

這就是這世界奇妙之處

別把事情看的太遭

換個想法 睡一覺 醒來後 世界會大不同

忘記我、想起我

To: 那些出去玩都不找的人 報告作業都只會推給人做的人

忘記我、想起我

 有事想起我,沒事忘記我

 做事會有我,出遊沒有我

 苦中做樂的我..       (你要的報告都給你了 出去玩連問一聲都不問)

忘記吧!忘記我..

 直到下次想起我,你會看到 忘記你的我

我很無奈,希望你就別無助..        (要是都這樣 下次別找我幫忙)

對人好的球已經快要用盡,

 不要接的理所當然..  (我不是濫好人 我也很自私 不過我通常會對人好一點)

我可不欠你什麼!

我可以繼續當著好人 但是 我的心越來越寒

 當你拿著這份資料…

  我真想問問..

你知道這是誰花時間幫你整理的嗎?     (就算說我做也不能丟給我就算了吧)

一群自私的人 你貢獻過什麼嗎?       (做好了還嫌濫 你有幫過什麼嗎?)

如果你的專長是出遊 是不是該表現表現你的所長

 還是你的專長是如何讓人心寒 那好吧 你做到了!

By:小毛的內心話 (祝你們玩的愉快 無情人)