index1.txt

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

<END>
16,如何用WINSOCK控件下载软件 
如 何 用 WINSOCK控 件 下 载 软 件 ？ 如 何 用 WINSOCK控 件 与 一 个 软 件 下 载 站 点 进 行 通 信 ？ 可 以 告 诉 我 一 些 源 代 码 吗 ？ 
<END>
17,如何检测是否Modem与网络相连 
我 在 学 用 vb60编 程 ， 现 在 需 要 检 测 是 否 与 网 络 相 连 ， 使 用 MSCOMM控 件 可 以 检 测 到 ， 可 是 先 启 动 它 后 再 启 动 调 制 器 时 显 示 调 制 器 已 经 在 使 用 。 应 该 怎 么 使 用 ?
<END>
18,如何得到网页的名称 
我 将 IE的 地 址 栏 拖 到 我 用 VB6编 写 的 拖 放 窗 口 时 ， 我 可 以 DATA.GETDATA()得 到 网 页 的 地 址 ， 但 我 如 何 得 到 网 页 的 名 称 ？ 就 像 IE的 收 藏 夹 一 样 。 
<END>    
19,如何在程序中过滤某些网站 
如 何 在 程 序 中 过 滤 某 些 网 站 （ 黄 色 、 反 动 ） ？
<END>
20,怎样记录每次拨号上网的时间 
请 问 各 位 高 手 ： 怎 样 记 录 每 次 拨 号 上 网 的 时 间 ?
<END>
21,如何修改FTP服务器文件的属性 
我 使 用 Wininet中 的 API来 实 现 FTP文 件 上 传 功 能 。 现 在 上 传 成 功 .但 是 由 于 登 陆 FTP server需 提 供 用 户 名 和 密 码 ,所 以 上 传 后 文 件 属 性 总 是 644,只 有 上 传 用 户 可 以 修 改 ,覆 盖 它 。 有 没 有 办 法 在 上 传 时 使 文 件 属 性 变 为 664或 者 666,以 使 其 他 用 户 都 可 以 修 改 这 个 文 件 ?
<END>
22,实现下载与上传断点续传所使用的ftp指令是否一样 
我 在 写 一 个 ftp断 点 上 传 的 软 件 ， 我 想 请 问 实 现 下 载 与 上 传 断 点 续 传 所 使 用 的 ftp指 令 是 否 一 样 。 我 的 思 路 是 这 样 的 : 
     先 建 立 一 个 与 ftp服 务 器 的 连 接 (利 用 winsock， 端 口 21)然 后 ， 根 据 返 回 代 码 
    如 FTP_RESPONSE_SERVICE_READY_FOR_NEW_USER 
    然 后 发 送 验 证 用 户 名 和 密 码 的 命 令 。 如 果 返 回 代 码 为 正 确 的 状 态 。 则 表 示 登 录 到 了 ftp服 务 器 
    在 上 传 时 我 使 用 的 是 这 几 个 指 令 : 
    type指 令 传 输 的 文 件 格 式 ascii、 指 令 binary 
    port具 体 含 义 不 知 
    rest指 令 文 件 上 载 开 始 的 地 址 
    sort指 令 表 示 通 知 服 务 器 建 立 一 个 文 件 
    然 后 以 二 制 格 式 循 环 读 取 文 件 、 使 用 winsocket 
    发 送 到 服 务 器 。 
    按 这 个 方 法 ， 文 件 是 上 传 到 服 务 器 上 了 ， 但 是 
    文 件 的 大 小 却 变 了 ， 我 使 用 的 是 binary的 传 输 模 式 。 有 时 候 小 的 文 件 可 以 准 确 无 误 发 送 到 服 务 器 上 。 我 想 请 问 ， 使 用 这 种 办 法 怎 样 实 现 文 件 准 确 无 误 的 上 传 到 服 务 器 ， 并 且 能 续 传 。 
<END>
23,如何下载INTERNET上某个站点的所有内容 
我 想 用 VB或 VC编 一 个 程 序 ， 来 下 载 INTERNET上 某 个 站 点 的 所 有 内 容 ， 请 问 怎 么 做 ？ 其 功 能 和 WebZip类 似 。 
<END>
24,第二次连接时提示“错误10048，地址正在使用” 
我 在 VB6中 用 Winsock做 了 Server & Client两 个 软 件 ， 希 望 在 本 地 进 行 信 息 传 输 。 第 一 次 连 接 正 常 ， 但 是 在 第 二 次 连 接 时 总 是 提 示 “ 错 误 10048， 地 址 正 在 使 用 ” ， 不 知 怎 么 解 决 ， 望 赐 教 ！ 
<END>
25,如何在ASP中使用一个DLL中的函数 
如 何 在 ASP中 使 用 一 个 DLL中 的 函 数 ？ 是 普 通 的 DLL， 是 由 别 的 软 件 提 供 的 。
<END>
26,编FTP软件如何知道它传输文件时的速度 
我 编 了 个 FTP软 件 ,我 想 知 道 它 传 输 文 件 时 的 速 度 ,该 怎 么 做 ? 
<END>
27,修改IIS扩展，提示权限被拒绝 
我 在 vb中 写 了 一 个 dll（ 一 个 .cls and module1)正 常 编 译 后 ,我 用 asp的 server.createobject()正 确 , 但 当 我 修 改 dll时 再 编 译 ,提 示 覆 盖 ,确 定 后 提 示 "权 限 被 拒 绝 d:\vb6\a.dll" 信 息 .我 运 行 regsvr32 /u d:\vb6\a.dll", 提 示 dllunregisterserver in d:\vb6\a.dll succeeded. 但 我 再 次 编 译 错 误 依 旧 ,我 直 接 修 改 a.dll名 称 不 行 ,请 问 我 卸 载 dll后 按 理 因 该 改 名 或 删 除 ,可 为 何 不 行 ,总 不 要 我 重 启 吧 .我 错 在 哪 ,我 应 如 何 改 ？ 
<END>        
28,在VB中如何实现URLEncode() 
在VB中如何实现URLEncode() ?
<END>
29,如何用WINSOCK控件句柄去区分client端 
我 公 司 正 在 开 发 一 套 client/server系 统 ,我 负 责 server， server端 要 求 采 用 TCP/IP方 式 接 受 client的 连 入 ， client在 server上 各 自 操 作 各 自 的 工 作 互 不 干 扰 。 我 能 实 现 用 VB的 WINSOCK控 件 能 同 时 接 受 多 用 户 连 ,我 遇 到 的 困 难 是 我 不 知 道 用 WINSOCK控 件 句 柄 去 区 分 那 些 client端 ,所 以 那 些 client端 同 时 给 server端 发 送 数 据 时 只 有 当 前 client端 (即 最 后 创 建 WISOCK(当 前 数 )控 件 组 实 例 连 接 client端 )发 送 的 数 据 server端 能 收 到 ,不 是 当 前 client端 发 送 数 据 ,server端 收 到 的 均 是 空 字 符 串 ,反 之 server端 发 送 的 数 据 ,也 只 有 当 前 client端 能 收 到 ,不 是 当 前 client端 收 到 的 均 也 是 空 字 符 串 ,原 因 当 然 没 有 用 WINSOCK控 件 句 柄 去 区 分 那 些 client端 ,但 我 不 会 用 WINSOCK控 件 如 何 句 柄 去 区 分 那 些 client端 ?如 果 不 是 用 WINSOCK控 件 句 柄 去 区 分 那 些 client端 ,以 上 问 题 该 如 何 解 决 ?
<END>
30,怎样启动系统默认的电子邮件程序 
怎 样 在 vb6.0中 启 动 系 统 默 认 的 电 子 邮 件 程 序 ？ 如 ： outlook,foxmail等 。 
<END>
31,如何使用ShellExecute在新的窗口中打开新的网站 
应用ShellExecute可以把开一个网站，但同时亦会覆盖掉现有的网站内容，请问如何使用ShellExecute在新的窗口中打开新的网站？ 
<END>
32,将某网站放入收藏夹时，IE会使用网站提供的图标，怎么实现的 
在 将 某 网 站 放 入 收 藏 夹 时 ， IE会 将 网 站 所 提 供 的 图 标 也 保 存 起 来 ， 那 么 网 站 的 图 标 放 在 哪 ？ 如 何 才 能 从 程 序 中 获 得 网 站 所 提 供 的 图 标 ？ 
<END>
33,如何还原HZ_GB_2312打头的编码
如 何 还 原 =?HZ-GB-2312?B?打 头 的 编 码 ? 
<END>
34,用WINSCOK1.CLOSE关闭端口后，无法进行第二次连接 
我 有 一 个 问 题 想 请 教 ， 我 用 WINSOCK进 行 两 机 通 信 ， 但 我 无 法 用 WINSCOK1.CLOSE关 闭 服 务 器 端 口 ， 以 致 第 一 次 运 行 能 正 常 ， 但 如 要 进 行 第 二 次 连 接 便 会 出 错 ， 要 隔 一 会 儿 才 能 连 接 ， 不 知 道 我 那 里 错 了 ， 该 怎 么 做 ？ 它 第 二 次 连 接 的 出 错 信 息 是 “ 地 址 正 在 使 用 ” 。 
<END>
35,使用VB的RegExp对象校验电子邮件地址的语法 
使用VB的RegExp对象校验电子邮件地址的语法?
<END>
36,用VB 编写NOKIA 手机程序 
在 前 段 时 间 我 在 网 上 拿 到 了 一 套 NOKIA 的 手 机 软 件 （ http://memsu1.iam.ntu.edu.tw/~jrywu/NLEv2b7.zip） 他 可 以 发 送 中 文 短 信 息 ， 是 VB6 编 写 的 。 还 有 一 些 中 文 的 电 话 簿 程 序 也 是 VB6 编 写 的 。 不 知 是 否 有 用 VB 编 写 NOKIA 手 机 程 序 的 相 应 控 件 以 及 相 应 的 资 料 以 及 技 术 文 章 呢 ？ 软 件 是 台 湾 人 编 写 的 。 
<END>
37,如何监听本机ip地址的一个端口又不影响通讯 
我 想 监 听 本 机 ip地 址 的 一 个 端 口 ， 比 如 监 听 icq的 通 讯 ， 但 是 又 不 能 影 响 icq的 正 常 执 行 ， 请 问 用 什 么 办 法 解 决 好 ？ 
<END>
38,如何调用拨号网络中某个连接的属性对话框 
如 何 用 vb语 句 击 出 "我 的 电 脑 "中 "拨 号 网 络 "中 已 建 立 好 的 某 个 "连 接 "的 属 性 。 
<END>
39,如何在WIN95中安装一个拨号服务器软件 
本 人 想 在 WIN95中 安 装 一 个 拨 号 服 务 器 软 件 ， 不 知 到 哪 里 去 找 ？ 请 各 位 指 教 ！ 
<END>
40,采用POST还是GET方式提交CGI 
我 希 望 使 用 VB 的 Internet Transfer Control实 现 访 问 搜 索 引 擎 ， 比 如 说 ALLTHEWEB。 问 题 发 生 在 我 使 用 Execute方 法 和 POST向 CGI递 交 数 据 ， 我 是 采 用 VB帮 助 文 档 里 的 办 法 操 作 的 ： 
    举 例 讲 ， 我 希 望 在 www.alltheweb.com中 查 询 gis, 相 应 的 地 址 加 参 数 为 
    http://www.alltheweb.com/cgi-bin/asearch?type=all&query=gis 
    我 认 为 http://www.alltheweb.com/cgi-bin/asearch就 是 URL， type=all&query=gis是 向 CGI传 的 参 数 。 
    Private Sub Form_Load() 
    Dim strURL As String, strFormData As String 
    strURL = "http://www.alltheweb.com/cgi-bin/asearch" 
    strFormData = "type=all&query=gis" 
    Inet1.Execute strURL, "post", strFormData 
    end sub 
     
    Private Sub Inet1_StateChanged(ByVal State As Integer) 
     Dim vtData As Variant ' Data variable. 
     Select Case State 
     Case icResponseCompleted 
     vtData = Inet1.GetChunk(1024, icString) 
     Do While LenB(vtData) > 0 
     vtData = vtData + Inet1.GetChunk(1024, icString) 
     Loop 
     End Select 
     
     Text1.Text = vtData 
    End Sub 
    注 ： ITC控 件 已 正 确 放 置 。 
    但 是 ITC控 件 返 回 的 结 果 指 示 CGI的 参 数 有 错 。 因 此 也 无 法 得 到 所 需 结 果 。 请 告 诉 我 一 个 解 决 办 法 ， 谢 谢 。 
<END>
41,从网页上拖URL到程序中是怎么实现的 
在 网 络 吸 血 鬼 中 ， 从 网 页 上 拖 入 URL到 图 片 上 是 怎 么 实 现 的 ？ 
<END>
42,不用Form是否还能使用Internet Transfer控件 
请 问 我 想 将 文 件 和 图 片 从 一 台 FTPServer传 送 到 另 一 FTPServer， 用 Internet Transfer控 件 能 实 现 吗 ？ 是 否 需 要 先 将 文 件 和 图 片 下 载 到 本 地 ， 然 后 从 本 地 上 载 到 另 一 台 。 另 外 如 果 我 的 程 序 不 想 用 Form,是 否 还 能 使 用 Internet Transfer控 件 ？ 如 何 使 用 ？ 
<END>
43,用VB编写程序向其它网站提交数据 
小 弟 正 在 用 VB编 写 数 据 表 多 站 连 发 程 序 ， 即 怎 样 用 所 输 表 信 息 向 其 它 网 站 一 次 性 直 接 传 送 呢 。 亦 即 怎 样 用 VB编 写 internet下 多 站 连 发 的 程 序 。 
     1、 利 用 VB的 什 么 控 件 
     2、 本 地 表 结 构 设 为 企 业 名 称 、 联 系 人 、 联 系 电 话 、 Email、 标 题 、 内 容 、 地 址 、 网 址 等 
     3、 对 方 Web服 务 器 的 结 构 为 ： 企 业 名 称 、 联 系 人 、 联 系 电 话 、 标 题 、 内 容 、 地 址 等 。 
     4、 双 方 表 的 名 称 和 结 构 并 不 一 样 
    务 请 各 位 高 手 指 点 帮 助 。 
<END>
44,怎么在程序里向服务器的cgi提交数据 
请 问 怎 么 在 程 序 里 向 服 务 器 的 cgi提 交 数 据 ? 
<END>
45,使用VB编接收EMAIL程序一定要Exchange吗 
因为我第一次用VB编接收EMAIL的程序,我订的一份杂志上有一些介绍,但他的第一步我就遇到了难题,他说要进入EXCHANGE系统进行收发EMAIL的一些相关设置,我日常用VB只编一些MIS系统,接触的都是一些与数据库之间的连接,所以对EXCHANGE不了解,请专家们帮我介绍一下EXCHANGE及其作用,还有在哪里能够找到EXCHANGE,本人将不胜感激! 
<END>
46,ASP、WebClass、DHTML应用程序、ActiveX文档的发展前景如何 
我 想 请 问 微 软 对 ASP技 术 和 VB的 WebClass,DHTML应 用 程 序 ,ActiveX文 档 的 发 展 策 略 是 什 么 ?有 文 章 说 DHTML应 用 程 序 和 ActiveX文 档 不 是 长 远 目 标 ,但 WebClass会 替 代 ASP吗 ? 
<END>
47,如何知道服务器关闭连接 
我 试 图 用 winsock控 件 访 问 TCP/IP网 上 UNIX系 统 的 服 务 程 序 ； 建 立 连 接 后 ， 如 果 服 务 器 关 闭 连 接 ， vb程 序 如 何 知 道 ,从 而 相 应 地 关 闭 socket。 
    再 问 winsock1.getdata的 参 数 及 具 体 解 释 。 
    （ 我 知 道 ， 在 unix c中 ， 只 要 读 socket-ID， 如 果 read函 数 返 回 -1， 则 可 认 为 socket已 断 开 。 ） 
<END>
48,Winsock客户程序发送数据的时候，出现错误40006 
我 用 Winsock做 客 户 /服 务 程 序 ,当 客 户 程 序 发 送 数 据 的 时 候 
    出 现 错 误 : 
     "Wrong protocol or connection state for the requested transaction or request" 
    我 的 语 句 是 : 
     socClient.SendData txtSend.Text 
    请 问 这 是 何 故 ?
<END>
49,如何自动安装浏览器和设置上网相关参数 
有 客 户 (ISP)想 做 一 个 自 动 安 装 浏 览 器 和 设 置 上 网 相 关 参 数 的 程 序 ,有 以 下 技 术 问 题 我 无 法 解 决 : 
    1)安 装 完 IE或 NETVIGATOR后 , 一 般 都 要 重 新 启 动 机 器 ,我 如 何 才 能 接 着 做 刚 才 程 序 的 下 一 步 (即 设 置 参 数 )?而 无 须 重 头 运 行 程 序 , 问 用 户 要 不 要 安 装 BROWSER?我 用 的 是 VB; 
    2)我 如 何 用 程 序 自 动 设 置 以 下 参 数 (假 定 给 定 参 数 值 ): 
     (1)Set homepage to Netvigator.com; 
     (2)configure Windows dial-up networking; 
     (3)modem speed or service subscribed; 
     (4)dial up access number automatically generated based on modem speed; 
     (5)login ID( Let user input and you need set it to system); 
     (6)Email Address(Automatically generated, ask user to confirm; or let user input and confirm); 
     (7)Set Pop/Smtp Server; 
     (8)Add new bookmark to Browser default bookmark; 
<END>
50,怎样将程序转换成网页的形式 
我 设 计 了 一 个 软 件 （ 用 VB） ， 但 只 能 单 机 运 行 ， 怎 样 才 能 将 它 转 换 成 网 页 的 形 式 ， 使 得 能 在 网 上 运 行 ？ 
<END>
51,DHTML里怎么实现定时功能 
请 问 ： 在 vb6.0 中 的 DHTML里 怎 么 实 现 定 时 功 能 ， 也 就 是 不 用 timer控 件 怎 么 实 现 延 时 功 能 ？ 或 者 象 delay()之 类 的 函 数 ？ 
<END>
52,VB的WINSOCK 控件能不能写同时接受多用户连入的服务器 
我 公 司 正 在 开 发 一 套 client/server系 统 ， 我 负 责 server， server端 要 求 采 用 TCP/IP方 式 接 受 client的 连 入 ， client在 server上 各 自 操 作 各 自 的 工 作 互 不 干 扰 。 我 遇 到 的 困 难 是 我 不 知 道 用 VB的 WINSOCK 控 件 能 不 能 写 一 个 同 时 接 受 8000用 户 连 入 的 服 务 器 ， 因 为 VB是 单 线 程 的 ， 我 怕 连 入 的 用 户 多 后 服 务 器 端 会 因 其 中 一 个 用 户 的 工 作 处 理 时 间 过 长 后 ， 无 法 及 时 的 处 理 其 他 更 多 用 户 的 请 求 。 服 务 器 端 能 不 能 用 多 线 程 方 式 ， 如 果 行 用 VB 该 怎 样 做 或 请 专 家 指 点 其 它 的 方 法 。
<END>
53,使用WINSOCK控件通讯，可否使用自定义类型数据包 
两台机子使用WINSOCK控件通讯，不知可否使用自定义类型数据包？如果可以该怎样做？ 我欲使用WINSOCK控件接发自定义类型的数据，如 
     Type sendpack 
     Flag As Byte 
     connum As String 
     weight1 As long 
     weight2 as long 
     End Type 
    将上述定义放在MODULES中或使用WINSOCK的窗体中，定义STR1 为以上类型，使用