轉送文件轉換語音軟體

A. OICQ是什麼ICQ是什麼

OICQ是OpenICQ的簡稱，它是由深圳騰迅計算機有限公司開發的，基於Internet的免費網路尋呼軟體。您可以使用OICQ和其它OICQ用戶進行交流，信息收發及時方便，功能全面,具有即時信息收發、網路尋呼、聊天室、傳輸文件、手機短消息服務等功能，對傳統的無線尋呼和移動通訊進行增值服務。OICQ不僅僅是虛擬的網路尋呼機，更可與傳統的無線尋呼網、GSM行動電話的短消息系統互聯，是國內不可多得的網路尋呼機。

目前OICQ注冊用戶已將近2百萬，同時在線用戶達17000人，新注冊用戶以每日約1萬人的速度遞增。無線尋呼機聯網達1350萬戶。

OICQ有哪些功能？

OICQ支持顯示朋友在線信息、即時傳送信息、即時交談、即時發送文件和傳送語音網址。OICQ可以自動檢查您是否已聯網，如果您的電腦已連入Internet，可以搜索網友、顯示在線網友，可以根據OICQ號、昵稱、姓名、E－mail地址等關鍵詞來查找，找到後可加入到通訊錄中。當您的通訊錄中的網友在線時，OICQ中朋友的頭像就會顯示Online，根據提示就可以發送信息。如果對方在個人資料中登記了尋呼機或開通了GSM手機短消息，即使離線了，您的信息被您的好友收到。

左鍵單擊好友的頭像，有收發訊息、傳送文件、傳送語音、二人世界、手機短訊、發送郵件、個人主頁、查看信息等功能。具體如下：

傳送文件：您的好友在線時，只需用左鍵點擊圖標，選擇"傳送文件"，選定要傳送的文件，點擊發送，等待對方接受請求即可。

傳送語音：利用此功能可以傳送語音信息。插好話筒，左鍵點擊圖標，選擇"傳送語音"，按提示先錄好音，或者打開已錄好的文件，發送出去。附言欄里可加入附言文字。

二人世界：如果覺得有必要和密友單獨聊天，可以使用該功能，

發送郵件：可以直接給OICQ上的網友發郵件，而無須再輸入E－mail地址。

查看信息：查看及更新OICQ上網友的個人信息資料。

新郵件通知：設置您自己的E－mail，填好郵件POP3? 及SMTP地址，您可以選擇定時檢查時間，OICQ就會自動檢查有否新郵件到達。

BP機短訊：您可以將短訊以文字的方式傳給好友的BP機，不管他是否在網上，

手機短訊：在OICQ中，您還可以把您要講的話用文字的方式發送給您的好友的手機，只要他的手機是OICQ所支持的，並且開通了短消息服務功能。

公共聊天室：OICQ開設了許多聊天室，速度比一般的WEB式聊天室快得多。您可以根據自己的愛好選擇一個聊天室和網友聊個痛快。您還可以自設房間，邀請好友加入，相當於網路會議。

轉載自騰訊公司

oicq的第一個版本是一個人用一周時間用delphi做的，
可是後來，oicq的客戶端就是界面部分是VC作的，oicq的伺服器端是用linux下的標准C寫的。
上http://www.tencent.com/可以了解到其他相關信息

B. 文件傳送給對方怎麼樣才能更快

下載地址：http://www.skycn.com/soft/12263.html

這個軟體傳輸文件比較快。
KDT 是快遞通的簡稱，KDT是一款功能十分強大的網路工具軟體，包括文件發送、文件共享、即時通訊、語音視頻通訊、遠程式控制制、離線消息發送、自建多方白板會議等功能。同時，基於國內大量用戶通過城域網、公司區域網、小區寬頻等方式接入互聯網的現實，KDT採用獨特的技術，使所有用戶在使用上述功能時都不受區域網接入，沒有真實IP地址的限制。
通過KDT，用戶可以方便、快捷地進行大批量、大容量的網路文件傳輸；不用添加任何硬體設備即可實現將本機文件共享給互聯網上任意指定用戶群；其語音視頻通訊可以讓用戶之間進行有效的溝通。
KDT的遠程式控制制功能可以讓用戶在沒有固定IP地址的情況下進行有效的遠程機器控制及桌面共享，方便遠程協作工作的開展。
KDT使用了創新性的NMDS（網路多媒體數據交換）的底層數據傳輸技術，使得用戶完全不受網路接入方式的限制，所有的應用都可以隨時隨地的部署實施。
KDT採用模塊化的設計，使得功能的擴展更加靈活。同時，標準的介面設計，使得第三方...

C. 送快遞的 好多名字的不認為啊 有什麼軟體可以把文字轉語音的

推薦一個軟體「語音合成助手」，轉成的語音方式多，你可以自己試試看，主要是語音聲音多，想添加背景也可以，根據自己選擇的

D. 蘋果手機語音備忘錄裡面的文件兩小時，用微信傳送不了到電腦上（文件過大

蘋果手機語音備忘錄發到電腦的方法如下：

1、打開蘋果手機上的語音備忘錄

E. 把揚聲器的聲音傳送給麥克風

把揚聲器得地和麥克風的地連在一起，揚聲器另一端接一隻104的瓷片電容到麥克風的非地端就OK了。

F. vb語音傳輸

粘的別人的，我也順便看看

傳輸語音和文件都可以通過Mswinsock 實現，只是速度方面我沒有試過，我正巧最近也弄了點Mswinsock 相關的東西，代碼發給你看看，希望有幫助傳送文件對於網路編程來說是基本的功能，比如遠程式控制制軟體。在編制一個軟體時，我從網上下了很多傳文件的程序，這些程序提供的傳文件功能根本就不能用。傳文本還可以，傳二進制文件根本就不行。因此，作為一個基本的功能模塊，有必要單獨介紹一下。 首先，在VB中要傳送字元串，你可以這樣寫：Dim strData As StringstrData = "Test"Winsock1.SendData strData 但是如果你傳送的二進制文件，你還能用String變數來存放嗎？從理論上分析是不行的，我也做了實驗，確實是不行的。文件雖然可以傳，但是接受的文件和發送的不一樣，原因可能是二進制文件里可以有任何"字元"，但是不是所有的字元都可以放在String變數里。 除了String類型的變數，VB中其他類型的變數都只有幾個位元組長，難道一次只能發幾個位元組嗎？那樣豈不是要累死機器了！其實，情況沒有那麼悲觀，我們完全可以使用數組來解決這個問題，就是使用byte數組。把要傳送的文件都讀到數組里，然後發送出去。程序如下：FileName 為要傳送的文件名，WinS為發送文件的WinSock控制項。這是一個發送端的程序。Public Sub SendFile(FileName As String, WinS As Winsock)Dim FreeF As Integer ''空閑的文件號Dim LenFile As Long ''文件的長度Dim bytData() As Byte ''存放數據的數組FreeF = FreeFile ''獲得空閑的文件號Open FileName For Binary As #FreeFile ''打開文件 DoEvents LenFile = LOF(FreeFile) ''獲得文件長度ReDim bytData(1 To LenFile) ''根據文件長度重新定義數組大小Get #FreeFile, , bytData ''把文件讀入到數組里Close #FreeFile ''關閉文件WinS.SendData bytData ''發送數據End Sub 接受端的程序如下：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim bytData() As ByteDim ff = FreeFileOpen strFileName For Binary As #fReDim bytData(1 To bytesTotal)Winsock1.GetData bytDataPut #f, i, bytDatai = i + bytesTotal ''保證每次寫都是在文件的末尾, i是個全局變數Close #fEnd Sub 這里有兩個需要注意的地方，ReDim Preserve bytData(1 To LenFile)，下標是從1開始的，如果你寫成ReDim bytData( LenFile)，下標就是從0開始了，數組就有LenFile+1長了。LenFile = LOF(FreeFile)中的LOF是獲得文件長度的函數，是VB里帶的，我見過很多例子用API，或者循環的讀直到末尾來獲取文件長度，這樣都是很麻煩的，使用LOF函數就可以了。 這樣的程序，即可以傳送文本文件，也可以傳送二進制文件。但是你有沒有發現這個程序的問題呢？如果我要傳送一個50M的文件呢？系統可以為bytData分配50M的內存空間嗎？ 於是筆者拿一個50M的文件做實驗吧，接收到的文件和原來的文件不一樣，比原來的大。問題出在那呢？ 首先，根據文件大小重新定義bytData數組的大小本身就有問題，系統是不可能無限制的給數組分配空間的，即使可以，也會造成系統響應變慢。在傳50M文件的時候，系統就跟死機了一樣。那麼怎麼解決這個問題呢，一個自然的想法就是把數據分段傳送。程序如下： 發送程序, iPos是個全局變數,初始值為0。這個變數保存著當前數據的位置。Const iMax = 65535是每個數據塊的大小。Dim FreeF As Integer ''空閑的文件號Dim LenFile As Long ''文件的長度Dim bytData() As Byte ''存放數據的數組FreeF = FreeFile ''獲得空閑的文件號Open FileName For Binary As #FreeF ''打開文件DoEventsLenFile = LOF(FreeF) ''獲得文件長度If LenFile <= iMax Then ''如果要發送的文件小於數據塊大小，直接發送ReDim bytData(1 To LenFile) ''根據文件長度重新定義數組大小Get #FreeF, , bytData ''把文件讀入到數組里Close #FreeF ''關閉文件WinS.SendData bytData ''發送數據Exit SubEnd If''文件大於數據塊大小，進行分塊發送Do Until (iPos >= (LenFile - iMax)) ''發送整塊數據的循環ReDim bytData(1 To iMax)Get #FreeF, iPos + 1, bytDataWinS.SendData bytDataiPos = iPos + iMax ''移動iPos，使它指向下來要讀的數據Loop''這里要注意的是，必須檢查文件有沒有剩下的數據，如果文件大小正好等於數據塊大小的'' 整數倍，那麼就沒有剩下的數據了ReDim bytData(1 To LenFile - iPos) ''發送剩下的不夠一個數據塊的數據Get #FreeF, iPos + 1, bytDataWinS.SendData bytDataClose #FreeF下面是接收端的程序：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim bytData() As ByteDim lLenFile As LongDim ff = FreeFileOpen strFileName For Binary As #f ''strFileName是文件名lLenFile = LOF(f)ReDim bytData(1 To bytesTotal)Winsock1.GetData bytDataIf lLenFile = 0 Then ''lLenFile=0表示是第一次打開文件，這里有個問題，就是''如果如果該文件存在的話，就會出錯，應該在打開前檢查文件是否存在。（這里我省略了）Put #f, 1, bytDataElsePut #f, lLenFile + 1, bytDataEnd IfClose #fEnd Sub

G. 【飛鴿傳書軟體】 飛鴿傳輸軟體可以區域網內聊天，請問是怎樣實現的呢如果有點嗎實現代碼

區域網聊天軟體飛鴿傳書是目前比較流行的區域網即時通訊軟體，由於歷史悠久，它具有比較多的用戶。 因為 FreeEIM 的實現原理和飛鴿傳書差不多，希望廣大用戶了解其原理後，在使用時更加得心應手。 程序啟動時先讀取用戶配置文件，一般是"*.ini"格式，然後，使用Winsock的廣播消息給整個區域網發送一個數據包，這時候，如果其他電腦已經運行了飛鴿傳書，那麼他收到這個包後，會將包的信息讀取出來，當然，這個包里有用戶的IP，用戶名，性別等等。這樣，在用戶列表裡就多了一個用戶了。他的用戶檢查方式就如此簡單而已。至於跨網段的實現，只需簡單地修改一下廣播地址就行了，如果不考慮速度，你可以給整個internet發廣播消息。 消息發送，文件傳輸這些功能，都比較簡單，如果你會網路編程，給你對方IP地址，這些功能實現起來再簡單不過了。語音、視屏等，只需編寫一些語音視頻採集代碼，傳書的話，就像傳文件一樣。這里給段廣播消息的實現代碼吧： // 發送廣播登陸消息
void EM_UserLogin::SendLogin_BC(LPEM_DATA msg)
{
SOCKET m_socket;
m_socket = socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);
if (INVALID_SOCKET == m_socket)
{
MessageBox(0, "socket failed.", NULL, MB_OK);
}
SOCKADDR_IN sin; sin.sin_addr.s_addr = htonl(INADDR_BROADCAST);
sin.sin_family = AF_INET;
sin.sin_port = htons(BROADCAST_SEND_PORT); BOOL bOpt = TRUE;
if (SOCKET_ERROR == setsockopt(m_socket, SOL_SOCKET, SO_BROADCAST, (char*)&bOpt, sizeof(bOpt)))
{
// Error occurred
::MessageBox(0,"BC setsockopt error.",0,0);
return;
}
char *tmpBuf = msg->GetBuffer();
if (SOCKET_ERROR == sendto(m_socket, tmpBuf, msg->GetLength(), 0, (PSOCKADDR)&sin, sizeof(sin)))
{
// Error occurred
::MessageBox(0,"BC sendto error.",0,0);
return;
} closesocket(m_socket);
} 我們要向QQ、MSN、ICQ、AIM等大型即時通訊看齊，和他們對比，XEIM只是班級裡面的一個差生，要趕得上這些優秀的同學，只有付出更大的努力才有可能追上甚至超趕他們。但是，你什麼也不做，這會變成一個笑話。飛鴿傳書的實現原理：（1）最關鍵的是區域網用戶列表的建立；飛鴿啟動時使用UDP協議向255.255.255.255這個廣播地址發送廣播包,默認埠是2425。廣播包內容包含用戶名、工作組、主機名、IP等信息；
已啟動飛鴿的用戶通過2425埠收到此廣播包後，就會在自己的用戶列表中添加這個用戶的用戶名、工作組等信息，同時向對方IP發送本機用戶的個人信息；從而雙方都能建立起用戶列表；（2）刷新用戶列表時發送的廣播包和啟動時差不多，只不過返回的標識信息略有不同；可以做一個小工具，監控2425埠內存流，就能截獲刷新和聊天時的消息。（3）傳送聊天信息時同樣使用UDP協議；由於UDP協議是無連接協議，傳輸速度快，但是沒有確認機制，是不可靠的協議，需要自己定義返回信息的標志來判斷對方是否收到信息；（4）用戶離線時發送一個離線廣播包到255.255.255.255，收到此廣播包的用戶，根據包中的IP地址（也可能是多種判斷標志或者包含硬體標識，比如網卡地址等）刪除對方的用戶列表信息；

（5）廣域網無法直接使用廣播方式，靠手工添加"區域網外廣播列表"來建立相互的關系；（6）飛鴿傳送文件是使用TCP協議，埠2425；其他一些資料：1.飛鴿使用C++語言，開發工具：Visual C++ 4.1, 6.0, or later；2.飛鴿公開源碼，在作者（來自日本廣島的白水啟章）和漢化者（阿志）網站下載源碼，源碼注釋為日文；可以使用VC++修改、編譯；3.飛鴿傳書是來自日本的軟體，日文版是它的第一版本；此外還有中文，英文，韓文，葡萄牙文等語言；4.飛鴿使用的加密演算法：RSA、Blowfish、RC；5.飛鴿可以使用命令行方式發送信息，命令格式如下： ipmsg [埠] /MSG [/LOG][/SEAL] <主機名或IP地址> <消息> 可以使用IPMsg [埠] 命令改變默認埠，並同時啟動多個實例，但是修改後只有使用相同埠的用戶才能收到相互的信息；6.飛鴿非安裝版，並不是純綠色軟體，直接刪除會在注冊表留下垃圾鍵值； * 飛鴿把所有設置信息都保存在注冊表的以下位置: \\HKEY_CURRENT_USER\Software\HSTools\ 用戶密碼以不可逆加密方式存儲. * 如果你忘記了密碼, 可以在注冊表中將此鍵值刪除，清除密碼*\\HKEY_CURRENT_USER\Software\HSTools\IPMsgEng\PasswordStr7.飛鴿一次傳送文件數達到幾千個時，有丟失文件的可能，懷疑是飛鴿的一個bug，而傳輸大文件則沒有問題；8.飛鴿最穩定的正式版本是V2.06；目前v2.50 alpha6 版正在測試，尚未正式發布；其他如2.71，2007綠色版為修改版本，並非正版；

H. 怎樣下載微信傳輸助手

按照以下方法使用：
1、在電腦上下載安裝PC版本的微信，下載地址為微信PC版；

2、下載完成後登陸微信賬號，需要在手機上確認登陸；

3、登陸後再微信界面會自動跳出「文件傳輸助手」的窗口，點擊打開就可以從電腦傳送文件到手機；

4、手機上的微信界面也會跳出來「文件傳輸助手」，可以從手機傳輸文件到電腦。

5、在對話框點擊文件夾發送文件，選擇文件後點擊發送，就可以完成文件傳輸了。

傳輸的文件可以使歌曲、圖片、文件夾等各種類型的文件。

其他

微信的文件傳輸助手使用方法：
1.打開並登陸微信，在微信主界面點擊「我」，然後點擊進入「設置」界面。
2.在「設置」界面中，點擊「通用」頁面，然後會看到一個「微信網頁版」的選項，就是利用微信網頁版來達到電腦與手機文件傳輸的目的。
3.登錄微信網頁版的操作，點擊「開始掃描」，然後登錄微信網頁版網址，然後利用微信軟體掃描網頁上面的二維碼就可以開始下一步操作。
4.點擊微信軟體界面的「我確認登錄微信網頁版」便可以開始使用網頁版微信。
5.在網頁上面登陸完畢微信之後，然後會在網頁上面看到一個文件傳輸助手，將需要進行傳輸的文件選擇完畢之後，點擊發送就可以。
6.在微信軟體手機客戶端收到文件傳輸確認成功的消息提示，便實現了利用微信軟體文件傳輸助手在電腦和手機之間實現了文件的傳輸了。

擴展

基本功能
聊天：支持發送語音簡訊、視頻、圖片（包括表情）和文字，是一種聊天軟體，支持多人群聊（最高40人，100人和200人的群聊正在內測）。

添加好友：微信支持查找微信號（具體步驟：點擊微信界面下方的朋友們—>添加朋友—>搜號碼，然後輸入想搜索的微信號碼，然後點擊查找即可）、查看QQ好友添加好友、查看手機通訊錄和分享微信號添加好友、搖一搖添加好友、二維碼查找添加好友和漂流瓶接受好友等7種方式。

實時對講機功能：用戶可以通過語音聊天室和一群人語音對講，但與在群里發語音不同的是，這個聊天室的消息幾乎是實時的，並且不會留下任何記錄，在手機屏幕關閉的情況下也仍可進行實時聊天。

其他功能
朋友圈：用戶可以通過朋友圈發表文字和圖片，同時可通過其他軟體將文章或者音樂分享到朋友圈。用戶可以對好友新發的照片進行「評論」或「贊」，用戶只能看相同好友的評論或贊。

語音提醒：用戶可以通過語音告訴Ta提醒打電話或是查看郵件。

通訊錄安全助手：開啟後可上傳手機通訊錄至伺服器，也可將之前上傳的通訊錄下載至手機。

QQ郵箱提醒：開啟後可接收來自QQ郵件的郵件，收到郵件後可直接回復或轉發。

I. VB如何實現傳輸語音和文件，我想做個聊天工具

傳輸語音和文件都可以通過Mswinsock 實現，只是速度方面我沒有試過，我正巧最近也弄了點Mswinsock 相關的東西，代碼發給你看看，希望有幫助
傳送文件對於網路編程來說是基本的功能，比如遠程式控制制軟體。在編制一個軟體時，我從網上下了很多傳文件的程序，這些程序提供的傳文件功能根本就不能用。傳文本還可以，傳二進制文件根本就不行。因此，作為一個基本的功能模塊，有必要單獨介紹一下。
首先，在VB中要傳送字元串，你可以這樣寫：
Dim strData As String
strData = "Test"
Winsock1.SendData strData
但是如果你傳送的二進制文件，你還能用String變數來存放嗎？從理論上分析是不行的，我也做了實驗，確實是不行的。文件雖然可以傳，但是接受的文件和發送的不一樣，原因可能是二進制文件里可以有任何"字元"，但是不是所有的字元都可以放在String變數里。
除了String類型的變數，VB中其他類型的變數都只有幾個位元組長，難道一次只能發幾個位元組嗎？那樣豈不是要累死機器了！其實，情況沒有那麼悲觀，我們完全可以使用數組來解決這個問題，就是使用byte數組。把要傳送的文件都讀到數組里，然後發送出去。程序如下：

FileName 為要傳送的文件名，WinS為發送文件的WinSock控制項。這是一個發送端的程序。
Public Sub SendFile(FileName As String, WinS As Winsock)
Dim FreeF As Integer ''空閑的文件號
Dim LenFile As Long ''文件的長度
Dim bytData() As Byte ''存放數據的數組
FreeF = FreeFile ''獲得空閑的文件號
Open FileName For Binary As #FreeFile ''打開文件
DoEvents

LenFile = LOF(FreeFile) ''獲得文件長度
ReDim bytData(1 To LenFile) ''根據文件長度重新定義數組大小
Get #FreeFile, , bytData ''把文件讀入到數組里
Close #FreeFile ''關閉文件
WinS.SendData bytData ''發送數據
End Sub

接受端的程序如下：

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim bytData() As Byte
Dim f
f = FreeFile
Open strFileName For Binary As #f
ReDim bytData(1 To bytesTotal)
Winsock1.GetData bytData
Put #f, i, bytData
i = i + bytesTotal ''保證每次寫都是在文件的末尾, i是個全局變數
Close #f
End Sub

這里有兩個需要注意的地方，ReDim Preserve bytData(1 To LenFile)，下標是從1開始的，如果你寫成ReDim bytData( LenFile)，下標就是從0開始了，數組就有LenFile+1長了。LenFile = LOF(FreeFile)中的LOF是獲得文件長度的函數，是VB里帶的，我見過很多例子用API，或者循環的讀直到末尾來獲取文件長度，這樣都是很麻煩的，使用LOF函數就可以了。
這樣的程序，即可以傳送文本文件，也可以傳送二進制文件。但是你有沒有發現這個程序的問題呢？如果我要傳送一個50M的文件呢？系統可以為bytData分配50M的內存空間嗎？
於是筆者拿一個50M的文件做實驗吧，接收到的文件和原來的文件不一樣，比原來的大。問題出在那呢？
首先，根據文件大小重新定義bytData數組的大小本身就有問題，系統是不可能無限制的給數組分配空間的，即使可以，也會造成系統響應變慢。在傳50M文件的時候，系統就跟死機了一樣。那麼怎麼解決這個問題呢，一個自然的想法就是把數據分段傳送。程序如下：
發送程序, iPos是個全局變數,初始值為0。這個變數保存著當前數據的位置。Const iMax = 65535是每個數據塊的大小。

Dim FreeF As Integer ''空閑的文件號
Dim LenFile As Long ''文件的長度
Dim bytData() As Byte ''存放數據的數組
FreeF = FreeFile ''獲得空閑的文件號
Open FileName For Binary As #FreeF ''打開文件
DoEvents
LenFile = LOF(FreeF) ''獲得文件長度
If LenFile <= iMax Then ''如果要發送的文件小於數據塊大小，直接發送
ReDim bytData(1 To LenFile) ''根據文件長度重新定義數組大小
Get #FreeF, , bytData ''把文件讀入到數組里
Close #FreeF ''關閉文件
WinS.SendData bytData ''發送數據
Exit Sub
End If
''文件大於數據塊大小，進行分塊發送
Do Until (iPos >= (LenFile - iMax)) ''發送整塊數據的循環
ReDim bytData(1 To iMax)
Get #FreeF, iPos + 1, bytData
WinS.SendData bytData
iPos = iPos + iMax ''移動iPos，使它指向下來要讀的數據
Loop
''這里要注意的是，必須檢查文件有沒有剩下的數據，如果文件大小正好等於數據塊大小的
'' 整數倍，那麼就沒有剩下的數據了
ReDim bytData(1 To LenFile - iPos) ''發送剩下的不夠一個數據塊的數據
Get #FreeF, iPos + 1, bytData
WinS.SendData bytData
Close #FreeF

下面是接收端的程序：
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim bytData() As Byte
Dim lLenFile As Long
Dim f
f = FreeFile
Open strFileName For Binary As #f ''strFileName是文件名
lLenFile = LOF(f)
ReDim bytData(1 To bytesTotal)
Winsock1.GetData bytData
If lLenFile = 0 Then ''lLenFile=0表示是第一次打開文件，這里有個問題，就是''如果如果該文件存在的話，就會出錯，應該在打開前檢查文件是否存在。（這里我省略了）
Put #f, 1, bytData
Else
Put #f, lLenFile + 1, bytData
End If
Close #f
End Sub

J. 有沒有能把文字轉換成語音的軟體 然後能轉成MP3 誰能幫我轉下高分送上 音質好 聲音好聽

這種用於宣傳的語音基本都是用能說會道XP這個專業的語音軟體製作的。這類軟體關鍵是語音效果要好，否則做出來的東西沒法用。能說會道的軟體主頁上提供多個專業級的語音下載，還有男女聲可以選，光一個就要300M，語音越大質量越好，一定要把這些語音下下來安裝上，這樣製作出來的語音才真的流暢，更接近真人錄音。製作語音的操作就很簡單了，只要把你准備好的文字輸到這個軟體裡面，用工具菜單下的「轉換為媒體文件」，就能生成Wav或者MP3的音頻了。網路思維構造創作室可以下載到