index1.txt

VB技巧问答10000例,是一个教程

     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>