Winsock1.senddata str1 
    結果都出錯，提示： 
    “只有在公共對象模塊中定義的公共用戶定義類型可以被使用為類模塊公共過程的參數或返回類型、或作為公共用戶定義類型的字段 
    這個錯誤的原因與解決方法如下： 
    試圖使用一個公共用戶定義類型作為類模塊公共過程的參數或返回類型、或作為公共用戶定義類型的字段。只有在公共對象模塊中定義的公共用戶定義類型才可以這樣使用。” 
    雖有如上提示，可是我并不十分明白，也不知如何解決，請指教，萬分感謝！ 
<END>
54,如何得到CGI返回的HTTP的標頭 
CGI返 回 瀏 覽 器 的 數 據 有 一 個 HTTP的 標 頭 。 瀏 覽 器 是 看 不 見 它 們 的 ， 能 用 VB編 程 看 到 它 們 嗎 ？ 
<END>
55,怎樣FTP上傳文件 
怎 樣 調 用 win98下 的 ftp上 傳 文 件 ? 
<END>
56,如何使用VB編寫ISAPI擴展 
如 何 設 置 windows NT才 能 用 VB6編 制 ISAPI程 序 ,以 及 怎 樣 編 制 呢 ? 
<END>
57,用VB組件實現WEB方式下對NT域用戶口令的修改
如何用VB組件實現WEB方式下對NT域用戶口令的修改?
<END>
58,如何使用Winsock接受超過1K的數據 
1. 環 境 ： Client/Server結 構 ， Win95為 Client的 OS， AIX為 Server上 的 OS， 通 訊 協 議 為 TCP/IP. AIX上 采 用 C編 寫 的 Server通 訊 程 序 而 Win95上 用 VB及 其 所 帶 的 WinSocket控 件 編 寫 Client程 序 
    2. 當 Server下 送 數 據 小 于 1K Byte時 Client程 序 能 夠 正 確 接 受 而 當 大 于 1K時 則 會 出 問 題 。 具 體 表 現 為 后 面 的 數 據 會 繞 到 前 面 ， 將 前 面 數 據 沖 掉 。 似 乎 Client端 的 接 受 Buffer是 一 個 環 。 請 問 該 如 何 解 釋 或 解 決 ？ 
<END>
59,如何在實時交流時避免中文亂碼 
為 什 么 在 日 文 （ 或 英 文 ） 系 統 下 vb6的 字 符 串 變 量 不 能 正 常 保 存 中 文 字 符 串 ? 
    比 如 : 
     Dim Str as String 
     
     Str=ClipBoard.GetText 
    　 　 ． ． ． 
     ClipBoard.SetText Str 
    此 時 ClipBoard中 的 字 符 已 經 變 成 了 一 堆 亂 碼 。 請 問 有 辦 法 解 決 這 個 問 題 嗎 ？ 本 人 在 國 外 ， 迫 切 寫 一 個 支 持 中 文 的 ICQ(自 己 的 ICQ服 務 器 ） 與 國 內 的 朋 友 實 時 交 流 ， 故 需 要 以 上 操 作 。 
<END>
60,如何斷開撥號網絡 
如 何 才 能 用 程 序 來 斷 線 ， 再 回 到 程 序 ？ 就 是 斷 開 撥 號 網 絡 、 離 開 internet! 
<END>     
61,如何自動下載HTTP文件 
我 想 用 VB編 制 一 個 程 序 ,自 動 下 載 并 保 存 一 個 遠 程 文 件 ,這 個 文 件 可 能 是 htm文 件 ,txt文 件 ,或 者 其 他 可 以 訪 問 的 文 件 ,比 如 :.dbf文 件 。 請 問 具 體 如 何 實 現 ? 
<END>    
62,Winsock控件發送二進制文件出現亂碼問題 
Winsock控 件 發 送 文 件 出 現 亂 碼 問 題 ， 怎 摸 解 決 ？ 如 果 是 文 本 文 件 ， 則 沒 有 問 題 ， 但 若 是 二 進 制 文 件 ， 則 出 現 亂 碼 。 代 碼 和 文 件 內 容 如 下 ： 
    發 送 ： 
    Open "c:\t.bin" For Binary Access Read As #1 
    flen = LOF(filenum) '文 件 長 度 
    strfile = Input(flen, #1) ' 
    Close #1 
    TcpClient.SendData strfile 
    接 收 ： 
    TcpServer(Index).GetData strfile, vbArray + vbByte 
    temp1 ="c:\test.bin" 
    Open temp1 For Binary Access Write Lock Read Write As #1 
    Put #1, , strfile 
    close #1 
<END>
63,CGI程序檢驗數據時使用MsgBox提示 
我 用 VB寫 CGI， 我 做 了 一 個 有 輸 入 框 的 網 頁 ， 當 別 人 輸 入 錯 誤 數 據 時 ， 我 用 MsgBox提 示 出 錯 ， 而 當 對 方 按 了 OK后 ， 停 留 在 當 前 的 網 頁 。 請 問 如 何 實 現 這 一 功 能 ？ 我 是 用 WebSite 1.0,MS Access,Visual Basic 4.0,而 亦 用 到 CGI32.Bas這 一 模 塊 來 實 現 ， 但 當 我 用 MsgBox后 再 按 OK， 則 會 出 現 500 Server Error---CGI Output Error,大 致 是 說 沒 有 CGI輸 出 表 單 。
<END>
64,WINSOCK控件中的端口號是否可以隨意設置 
在 使 用 WINSOCK控 件 中 ， 我 怎 么 知 道 LOCALPORT， REMOTEPORT的 端 口 號 ， 是 不 是 隨 意 設 置 ? 
<END>
65,如何獲得FTP服務器返回的信息  
用 win的 ftp軟 件 的 命 令 open xxx.xxx.xxx.xxx登 陸 一 個 服 務 器 
    隨 后 顯 示 一 些 信 息 
    220- hello this is hj's server 
     Ready for login. All accesses to this server are logged. 
    220 Xitami FTP 2.4b2 (c) 1991-98 iMatix <http://www.imatix.com> 
    331 Password required for user hanju 
    230 User hanju logged-in 
    ********************** 
    請 問 : 
    調 用 什 么 函 數 可 以 取 得 服 務 器 登 陸 時 的 信 息 (就 是 上 面 這 種 信 息 )? 
<END>
66,VB如何處理HTML表單提交的文件 
小弟正在用VB編寫一個CGI，其中提交的表單（HTML FORM)牽涉到類型為FILE的表單域，我的本意是用它收集一個用戶計算機上的文件，可是表單提交時這個文件的代碼和其它表單信息一起合成了一個TMP文件，當原文件為文本文件時問題不大，可一旦原文件是二進制文件時，我在服務器上就無法還原它了，不知哪位大蝦能就在下一命，感激涕零。
<END>
67,使用Winsock建立多個連接 
用 WINSOCK進 行 點 對 點 通 信 很 簡 單 
    主 機 :winsock1.senddata text1.text 
    客 戶 機 :winsock1.getdata s 
    可 是 用 一 個 主 機 :發 兩 個 客 戶 機 同 時 收 卻 不 知 怎 么 樣 實 現 。 我 加 載 兩 個 WINSOCK: 
    主 機 :WINSOCK1.SENDDATA TEXT1.TEXT 
    主 機 :WINSOCK2.SENDDATA TEXT1.TEXT 
    卻 只 有 第 二 臺 客 戶 機 連 上 來 的 能 收 到 。 敬 請 賜 教 。 如 果 將 text1.text換 成 文 件 如 何 兩 個 客 戶 機 同 時 收 ? 
<END>
68,如何檢測下載是否完成 
我 遇 到 的 問 題 如 下 ： 
    近 來 我 使 用 VB自 帶 的 INET控 件 來 進 行 FTP編 程 ， 在 用 這 個 控 件 進 行 連 續 下 載 多 個 文 件 時 出 現 “ 仍 進 行 上 一 次 請 求 ” 的 錯 誤 。 我 的 具 體 做 法 是 先 把 要 下 載 的 多 個 文 件 名 （ 包 括 路 徑 ） 存 放 在 一 個 數 組 中 ， 然 后 循 環 調 用 GET命 令 來 進 行 下 載 。 
    程 序 清 單 如 下 ： 
    m為 文 件 個 數 ， a()為 存 放 文 件 名 的 數 組 ， FileName為 存 放 文 件 的 變 量 
    For i = 1 To m 
     FileName = a(i) 
     Inet1.Execute , "get " & FileName & " C:\" & FileName 
    Next 
    我 曾 經 試 用 延 時 來 解 決 這 一 問 題 ， 但 因 為 每 個 文 件 的 大 小 不 一 ， 故 很 難 控 制 延 時 的 時 間 。 （ 延 時 長 了 影 響 程 序 下 載 的 速 度 ， 延 時 短 了 問 題 又 解 決 不 了 。 ） 請 各 位 編 程 高 手 多 多 幫 忙 。
<END>
69,Winsock與對等網 
如 何 在 WIN95的 對 等 網 中 (無 服 務 器 )實 現 點 對 點 通 信 ?我 用 WINSOCK試 過 ,但 通 訊 時 會 時 不 時 的 自 動 打 開 撥 號 網 絡 ,并 且 有 時 還 會 地 址 錯 亂 ,也 就 是 說 發 給 A機 的 信 息 會 被 誤 發 給 B機 , A一 點 也 接 收 不 到 。 懇 請 各 位 幫 幫 忙 ,非 常 感 謝 。 
<END>
70,如何分析電子郵件文件EML
我 想 把 一 個 目 錄 下 的 電 子 郵 件 內 容 讀 出 并 顯 示 在 一 個 HTML頁 面 里 。 這 些 電 子 郵 件 都 以 .eml為 擴 展 名 。 但 是 ,我 不 知 如 何 分 解 這 個 文 件 ,包 括 ,收 件 人 ,發 件 人 ,內 容 ,附 件 等 等 。 
<END>
71,斷開與服務器的連接 
Client斷 開 連 接 后 再 與 Server連 接 就 連 接 不 上 ， 必 須 退 出 應 用 重 新 進 入 才 能 連 接 ， 請 問 如 何 解 決 ?
<END>
72,用vb6寫圖形化PING 工具 
用 vb6寫 圖 形 化 PING 工 具 ?1.用 shell函 數 調 用 PING.EXE實 現 ， 但 無 法 將 PING.EXE的 DOS屏 幕 輸 出 保 存 到 文 件 。 2.是 否 能 用 vb6現 有 控 件 寫 圖 形 化 PING 工 具 ？ 望 能 給 以 指 教 ， 非 常 感 謝 ！ ！ ！ 
<END>
73,實現兩個IP地址之間傳送語音的程序 
我 想 開 發 一 個 利 用 WINSOCKET控 件 來 實 現 兩 個 IP地 址 之 間 傳 送 語 音 的 程 序 ,請 問 我 這 個 思 路 可 行 嗎 ?請 告 訴 我 具 體 的 方 法 。 這 個 語 音 是 用 麥 克 風 錄 的 實 時 聲 音 ,程 序 類 似 于 NETMEET。 
<END>
74,如果不啟動瀏覽器是否可以直接用程序來向web服務器發送 
我 是 一 名 初 學 者 ,用 vb編 寫 的 程 序 來 定 時 啟 動 瀏 覽 器 ,再 用 sendkeys發 送 字 符 串 ,卻 丟 失 了 一 些 開 始 的 字 符 ,怎 么 解 決 ?如 果 不 啟 動 瀏 覽 器 ,是 否 可 以 直 接 用 程 序 來 向 web服 務 器 發 送 ? 
<END>
75,如何實現通過代理的通信 
我 想 問 一 個 關 于 通 信 方 面 的 問 題 ： 我 跟 一 個 朋 友 是 在 兩 個 不 同 的 公 司 工 作 ， 我 們 兩 個 都 是 通 過 代 理 服 務 器 上 網 的 ， 現 我 想 寫 一 個 程 序 實 現 我 們 兩 個 的 實 時 通 話 ， WINSOCK這 個 控 件 好 象 不 能 做 到 ， 希 望 你 能 告 訴 我 如 何 實 現 這 種 通 過 代 理 的 通 信 ！ 
<END>
76,VB的CGI程序解碼時不認漢字的情況 
我 在 用 CGI4VB寫 VB的 CGI程 序 時 ， 碰 到 不 認 漢 字 的 情 況 。 如 在 客 戶 端 的 “ 庾 ” 字 經 過 編 碼 傳 過 來 的 是 “ %E2%D7".經 過 解 碼 程 序 ： 
    Public Function UrlDecode(ByVal sEncoded As String) As String 
    '======================================================== 
    ' Accept url-encoded string 
    ' Return decoded string 
    '======================================================== 
     
    Dim pos As Long ' position of InStr target 
     
    If sEncoded = "" Then Exit Function 
     
    ' convert "+" to space 
    pos = 0 
    Do 
     pos = InStr(pos + 1, sEncoded, "+") 
     If pos = 0 Then Exit Do 
     Mid$(sEncoded, pos, 1) = " " 
    Loop 
     
    ' convert "%xx" to character 
    pos = 0 
     
    On Error GoTo errorUrlDecode 
     
    Do 
     pos = InStr(pos + 1, sEncoded, "%") 
     If pos = 0 Then Exit Do 
     
     Mid$(sEncoded, pos, 1) = Chr$("&H" & (Mid$(sEncoded, pos + 1, 2))) 
     sEncoded = Left$(sEncoded, pos) _ 
     & Mid$(sEncoded, pos + 3) 
    Loop 
    On Error GoTo 0 'reset error handling 
    UrlDecode = sEncoded 
    Exit Function 
     
    errorUrlDecode: 
    '-------------------------------------------------------------------- 
    ' If this function was mistakenly called with the following: 
    ' UrlDecode("100% natural") 
    ' a type mismatch error would be raised when trying to convert 
    ' the 2 characters after "%" from hex to character. 
    ' Instead, a more descriptive error message will be generated. 
    '-------------------------------------------------------------------- 
    If Err.Number = 13 Then 'Type Mismatch error 
     Err.Clear 
     Err.Raise 65001, , "Invalid data passed to UrlDecode() function." 
    Else 
     Err.Raise Err.Number 
    End If 
    Resume Next 
    End Function 
    返 回 的 是 空 格 。 請 問 我 該 怎 么 解 決 這 一 問 題 ！ ！
<END>
77,如何使用ShellExecute給大量人同時發mail 
我 發 現 使 用 ShellExecute 這 個 API 函 數 后 面 跟 mailto:1@1.1;2@2.2 等 可 以 給 多 人 發 郵 件 ， 但 后 面 的 mailto:... 字 符 串 長 度 大 到 一 、 兩 百 時 ， 上 述 方 法 就 失 效 了 。 這 是 怎 么 回 事 ？ 如 何 給 大 量 人 同 時 發 mail？ 
<END>
78,請問如何在VB 5.0中使用超文本連接 
請 問 如 何 在 VB 5.0中 使 用 超 文 本 連 接 ？ 怎 樣 讓 鼠 標 變 成 "手 "形 光 標 ？ 
<END>