index1.txt

VB技巧问答10000例 VB技巧问答10000例

<END>
17,同时从微机的两个串口接收信息 
最 近 我 在 编 写 一 个 告 警 信 息 监 控 程 序 ,该 程 序 需 要 同 时 从 微 机 的 两 个 串 口 接 收 信 息 ,并 进 行 过 滤 翻 译 处 理 （ 需 要 综 合 多 行 信 息 ） ， 并 将 结 果 显 示 在 屏 幕 上 ， 我 想 用 MSCOM控 件 编 写 ， 请 问 这 是 否 用 到 多 任 务 ？ 我 该 怎 样 处 理 这 个 问 题 ？ 是 用 MSCOM的 ” 事 件 驱 动 “ 方 式 还 是 ” 查 询 “ 方 式 ？ 问 题 的 关 键 在 于 要 同 时 处 理 两 个 串 口 的 数 据 接 收 ！ 两 个 串 口 收 到 数 据 的 处 理 方 式 是 不 同 的 。 
<END>
18,怎样用API函数登录WinNT 
问 题 ： 我 想 知 道 怎 样 用 API函 数 登 录 WinNT,并 通 过 它 来 利 用 NT上 的 资 源 ,而 不 会 弹 出 系 统 的 对 话 框 . 
<END>
19,怎样读取和更改TCPIP协议的IP地址及子网掩码 
问 题 ： 怎 样 读 取 和 更 改 TCP/IP协 议 的 IP地 址 及 子 网 掩 码 ？ 是 用 Windows API吗 ？ 
<END>
20,OutBufferCount为什么为 0 
问 题 ： 用 VB6.0实 现 串 口 收 发 数 据 ,在 一 个 form里 ,添 加 了 一 个 Communications通 讯 控 件 ,一 个 command命 令 按 钮 ,command 的 click事 件 是 发 送 一 个 字 符 串 ,我 是 这 么 写 的 : 
     Private Sub Command1_Click() 
     Form1.MSComm1.CommPort = 1 
     Form1.MSComm1.Settings = "2400,N,8,1" 
     Form1.MSComm1.PortOpen = True 
     Form1.MSComm1.OutBufferCount = 0 
     Form1.MSComm1.Output = "123456789" 
     
    '以 下 为 调 试 用 
     Dim j, k, p, m, n 
     j = Form1.MSComm1.OutBufferCount 
     p = comEventTxFull '1010 
    发 送 缓 冲 区 满 。 在 试 图 将 字 符 传 入 发 送 缓 冲 区 时 ， 该 缓 冲 区 已 满 。 
     k = comEventDCB ' 1011在 为 端 口 获 取 设 备 控 制 块 
    (DCB) 时 ， 发 生 不 可 预 料 的 错 误 。 
     m = comEventBreak '1001 收 到 Break 信 号 。 
     n = comEventFrame '1004 
    帧 错 误 。 硬 件 检 测 到 帧 错 误 。 
     Form1.MSComm1.PortOpen = False 
     End Sub 
     
    MSComm1的 属 性 是 这 么 设 的 : 
     RThreshold =0 
     SThreshold =0 
     InputLen =0 
     Inbuffersize=1024 
     Outbuffersize=512 
     
    可 是 我 在 单 步 调 试 的 时 候 ,发 现 Form1.MSComm1.OutBufferCount=0 
    comEventTxFull =1010 
    comEventDCB = 1011 
    comEventBreak =1001 
    comEventFrame=1004 
    总 之 ,发 送 缓 冲 区 里 字 符 为 0,要 什 么 错 有 什 么 错 ! 
<END>
21,对方来电后并接通后，怎样判断对方又按了哪个按键 
问 题 ： 对 方 来 电 后 &接 通 后 ,怎 样 判 断 对 方 又 按 了 哪 个 按 键 ？ 
<END>
22,如何在客户机上建立服务器上的一个共享的文件目录 
问 题 : 如 何 在 客 户 机 上 建 立 服 务 器 上 的 一 个 共 享 的 文 件 目 录 ， 而 且 能 建 立 不 止 一 层 目 录 ？ 
<END>
23,如何在网络上搜索别的机子上的符合条件的文件 
我 单 位 用 的 是 局 域 网 ， 我 们 科 室 有 18台 计 算 机 。 我 想 编 一 程 序 ， 在 任 一 台 机 上 搜 索 别 的 机 子 上 的 符 合 一 定 条 件 的 文 件 ？ 
<END>
24,如何检测对方是否已经接听或对方是否挂断 
我 在 设 计 一 个 用 Modem 与 电 话 通 讯 的 软 件 ， 用 的 是 MSCOMM控 件 ， 但 现 在 无 法 检 测 对 方 是 否 已 经 接 听 （ 即 提 起 电 话 ） 或 对 方 是 否 挂 断 （ 放 下 电 话 ） ， 请 教 高 手 是 否 有 解 决 的 办 法 ， 我 已 查 了 你 们 的 问 题 解 答 ， 没 有 我 满 意 的 答 案 。
<END>
25,如何在VB中实现Open Com语句 
本 人 在 将 一 个 QBASIC 的 程 序 转 到 VB 下 运 行 时 遇 到 如 下 语 句 OPEN“ COM2： 4800， N， 8,1, RS， CS， DS， CD” FOR RANDOM AS #1不 能 运 行 ， 请 问 在 VB下 如 何 编 写 具 有 同 样 功 能 的 语 句 ? 
<END>
26,MSComm无法在中文Windows 95下传递二进制数据 
本 人 在 利 用 vb6的 串 行 通 信 口 控 件 （ MSComm） 进 行 通 信 时 发 现 无 法 正 确 发 送 ASCII值 >128的 字 符 ， 或 者 说 无 法 发 送 二 进 制 数 。 具 体 情 况 是 ： 用 另 外 一 台 微 机 监 视 由 vb6发 送 来 的 字 符 ， 并 显 示 字 符 和 ASCII值 。 当 用 函 数 chr$(>128)发 送 时 ， 收 到 的 字 符 的 ASCII值 却 是 0， 如 果 用 函 数 chrw(>128)发 送 时 ， 收 到 值 是 63。 监 视 程 序 是 QuikBasic7.1编 写 的 。 发 送 程 序 部 分 属 性 如 下 ： 
     MSComm1.settings="4800,n,8,1" 
     MSComm1.inputlen=1 
     MSComm1.PortOpen=Ture 
     MSComm1.InputMode=comInputModeBinary 
<END>
27,如何实现用modem拨号时检查电话是否占线 
请 问 如 何 实 现 用 modem拨 号 时 检 查 电 话 是 否 占 线 ? 
<END>
28,如何在VB中利用MODEM来测试到电话振铃 
请 问 如 何 在 VB中 利 用 MODEM来 测 试 到 电 话 振 铃 ? 
<END>
29,如何通过编程向另一个应用程序的菜单发送消息 
如 何 通 过 编 程 实 现 向 另 一 个 应 用 程 序 （ 不 是 自 己 编 的 ， 没 有 原 码 ） 的 菜 单 发 送 消 息 ， 模 拟 人 工 进 行 菜 单 操 作 ？ 
<END>
30,被拨入方如何应答和判断MODEM是否连通 
用 MScomm控 件 设 计 串 行 通 信 程 序 ,需 要 连 接 两 个 MODEM,并 传 输 文 件 。 拨 入 方 和 被 拨 入 方 都 设 置 了 CommPort, Settings,并 使 PortOpen 为 TRUE,下 一 步 是 否 拨 入 方 只 需 拨 号 即 可 连 通 对 方 的 MODEM(我 在 调 试 中 ,发 现 拨 号 后 被 拨 入 方 的 电 话 一 直 响 个 不 停 ,似 乎 不 能 连 通 ),如 果 不 是 ,被 拨 入 方 还 需 对 MODEM输 出 什 么 命 令 或 者 还 需 进 行 那 些 设 置 ,怎 样 才 能 判 断 两 个 MODEM是 否 已 连 通 ,有 的 说 查 询 cdholding是 否 为 true,但 我 在 调 试 中 cdholding始 终 为 false。 因 不 能 判 断 MODEM是 否 已 连 通 ,所 以 传 输 文 件 时 提 示 错 误 也 不 清 楚 问 题 到 底 出 在 那 里 。 
<END>
31,如何调用WINDOWS中映射网络驱动器的对话框 
如何用vb6调用WINDOWS中映射网络驱动器的对话框？ 
<END>
32,如何通过串口接收数值0 
我 正 在 写 一 个 程 序 ， 是 一 个 串 口 接 收 程 序 （ 无 发 送 数 据 ） ， 串 口 连 线 为 简 易 自 制 ， ---用 2， 3， 5三 线 互 连 ， 对 方 送 来 的 数 据 包 时 间 上 不 定 ， 包 大 小 不 定 ， 连 续 包 数 量 不 定 。 判 断 包 开 始 为 两 个 数 值 0， 注 意 是 数 值 0， 而 不 是 字 符 0！ ！ ！ 包 内 容 为 纯 文 本 ， 不 定 长 ， 包 结 束 又 是 两 个 数 值 0。 求 教 在 VB中 如 何 写 这 样 的 监 视 采 集 程 序 ？ 
<END>
33,如何设置串口参数 
哪 位 可 以 提 供 对 串 口 有 丰 富 操 作 的 控 件 （ 如 设 置 ， 设 置 奇 偶 校 验 位 ， 二 进 制 数 据 传 送 等 ） ？ 
<END>     
34,利用modem修改另一部电脑里的资料库 
如 果 两 部 同 为 win98的 电 脑 ,可 否 利 用 modem修 改 另 一 部 电 脑 里 的 资 料 库 ? 
<END>
35,如何调用API知道本计算机的网络名 
如 何 调 用 API知 道 本 计 算 机 的 网 络 名 ? 
<END>
36,得知EXCHANGE5.5中用户信箱中新邮件的数量需要什么权限 
问 题 ： 如 何 利 用 VB+CDO组 件 得 知 EXCHANGE5.5中 众 多 用 户 信 箱 中 新 邮 件 的 数 量 ？ （ 在 不 知 密 码 的 情 况 下 怎 么 登 录 各 用 户 ？ 需 要 怎 样 的 授 权 ？ ） 
<END>     
37,如何在拨号时等待2—3秒后再拨出号码 
小 弟 初 涉 VB编 程 之 道 ， 我 用 的 操 作 系 统 是 WIN98， 编 程 软 件 是 vb6.0中 文 企 业 版 。 在 这 里 有 一 问 题 请 教 ， 请 问 我 在 调 用 MSCOMM控 件 编 写 拨 号 程 序 时 ， 如 何 能 够 实 现 ： 先 拨 一 个 号 码 ， 在 不 断 线 的 情 况 下 ， 等 待 2— — 3秒 ， 再 拨 出 号 码 ？ ？ ？ 我 试 过 用 TIMER控 件 ， 可 我 的 调 制 解 调 器 对 后 一 个 号 码 没 有 反 应 ！ ！ 
<END>
38,怎样用VB编写传真软件 
怎 样 用 VB编 写 传 真 软 件 ?或 者 FAX/MODEM有 关 传 真 的 指 令 是 什 么 ?假 如 自 己 不 想 用 第 三 方 控 件 ,用 VB提 供 的 MSCOMM能 实 现 这 个 功 能 吗 ?假 如 不 行 ,请 问 哪 里 有 传 真 的 第 三 方 控 件 下 载 ? 
<END>
39,VB与C语言利用串口进行数据转换 
你 好 ， 有 一 个 问 题 请 教 ， 是 关 于 数 据 转 换 的 。 我 们 知 道 不 同 的 数 据 类 型 采 用 不 同 长 的 字 节 数 ， 如 integer (2 byte), long (4 byte), Double(8 byte), 现 在 我 正 在 做 一 个 和 DOS环 境 下 用 BC31开 发 的 程 序 接 口 ， 他 发 送 给 我 的 数 据 是 按 照 上 述 二 进 制 的 格 式 存 放 的 ， 我 采 用 串 口 接 收 二 进 制 的 数 据 流 。 请 问 如 何 将 他 的 数 据 转 换 出 来 。 好 象 VB中 没 有 现 成 的 函 数 。 我 用 的 是 vb6 (16 Bit)。 请 帮 忙 ， 是 否 有 API或 其 他 函 数 ？ 
<END>
40,在拨通对方主机电话后，再拨分机号 
如 何 利 用 已 经 安 装 的 MODEM， 在 拨 通 对 方 主 机 电 话 后 ， 再 拨 分 机 号 ？ （ 例 如 ： 对 方 的 电 话 号 码 是 1234567转 1234） 
<END>
41,如何获得系统已安装的MODEM的端口号 
如 何 获 得 系 统 已 安 装 的 MODEM的 端 口 号 ？ 
<END>     
42,在VB应用程序中怎样获得NT服务器的时间 
在 VB应 用 程 序 中 怎 样 获 得 NT服 务 器 的 时 间 ？ 
<END>
43,通过MODEM传递语音 
我 想 用 vb6的 MSCOMM控 件 通 过 MODEM拨 到 对 方 的 电 话 上 ， 并 放 一 个 语 音 到 对 方 的 电 话 上 。 
<END>
44,编写程序控制串口 
我 看 了 QA000018 “用VB编程可否控制I/O口”, 觉 得 有 些 疑 问 ， vb6.0企 业 版 和 vb6.0专 业 版 中 不 是 有 一 个 控 件 Mscomm， 能 否 使 用 它 来 编 写 程 序 控 制 串 口 ？ 如 果 可 以 ， 能 否 给 出 一 个 样 例 。
<END>
45,检测MODEM是否正在使用 
我 想 编 一 个 Windows 95下 的 小 程 序 ， 功 能 是 检 测 MODEM 是 否 正 在 使 用 ， 请 问 用 Visual Basic如 何 实 现 或 使 用 什 么 API函 数 能 实 现 呢 ？ 
<END>