index1.txt

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

1,如何获取串口信号如串口鼠标的移动信号
问题：请问如何获取串口信号如串口鼠标的移动信号？不知何故，我用MSCOMM无法获得任何信号。 
<END>
2,能否用WINSOCK传送Picture.hdc
怎样用WINSOCK的TCP/IP协议传送Picture.picture 或PIcture.hdc？ 
<END>     
3,如何在VB6.0 应用程序中调用 windows 电话拨号程序
我想提的问题是：如何在 VB6.0 应用程序中 调用 windows 电话拨号程序 dialer 时，直接传递电话号码。 
    shell "c:\windows\system\dialer.exe " ... ? 
<END>
4,用mscomm控件进行通信，为什么其波特率最高只能设为115200
问题: 用mscomm控件进行通信，为什么其波特率最高只能设为115200，能不能再设的高些？ 
<END>    
5,用MSCOMM读取串口数据的基本步骤
我想了一个读取串口数据的算法（用MSCOMM），请指教。 
    1、打开一个串口 
    2、串口数据保存在缓冲区（缓冲区在什么地方？如何定义与使用？） 
    3、从缓冲区取数据（应如何取？）。 
<END>
6,用vb如何通过modem读取电话机数字键发出的DTMF信号
问题: 用vb如何通过modem读取电话线上的电话机数字键发出的DTMF信号?以实现BITWARE中用电话机对语音信箱的操作。 
<END>
7,利用MSComm控件接收文件并不完全
问题：我在用VB中的MSComm控件实现文件的传送与接收时，采用事件驱动的通讯处理方式，利用MSComm控件的CommEvent属性，当CommEvent属性值为comEvReceive时，接收文件，但用PUT语句写入文件后，再打开文件发现文件接收并不完全，也不知是什么原因？（用文本框控件接收文件正常且完整）由于是初学者，实在想不通，特此请教，望答复，谢谢！！！ 
    主叫机：笔记本电脑MMX200 WIN95 VB6.0 
    被叫机：台式电脑MMX166 WindowsMe VB6.0 
    通讯波特率9600 
     
    Private Sub MSComm1_OnComm() '设置缓冲区大小为1024，属性RThreshold=2 
    ' OnComm 事件被用于捕获 communications 事件及错误。 
    Dim EVMsg$ '存放事件消息的字符串 
    Dim ERMsg$ '存放错误消息的字符串 
     
    '根据事件消息进行分支 
    Select Case MSComm1.CommEvent 
     '以下为事件消息 
     Case comEvReceive 
     Dim N As Long 
     Dim Buffer As Variant 
     Dim Var As Variant 
    'txtReceived为接收信息的文本框，FILESTART为文件传送的开始标志，在文件内容传送开始前发送出，当文本框中出现FILESTART时，就打开接收文件接收 
     
     If InStr(1, txtReceived.Text, "FILESTART") <> 0 Then 
     N = MSComm1.InBufferCount 
     Buffer = MSComm1.Input 
     Dim hSend 
     Dim Temp As String 
     hSend = FreeFile 
     Temp = Me.Dir.Path + "\" + GetFileName(txtReceived.Text) 
     
     Open Temp For Binary Access Write As hSend 
     'Var = Space(N) 
     ' Var = Buffer 
     'txtSend.SelStart = Len(txtSend.Text) ’用另一文本框接受文件，文本框显示出完整的文本文件 
     'txtSend.SelLength = 0 
     'txtSend.SelText = Buffer 
     Put hSend, , Buffer ’写入文件后，打开文件不全 
     Close hSend 
     
     Else 
     ’显示其他信息，如：Modom回应信息，通话聊天信息等 
     Buffer = MSComm1.Input 
     txtReceived.SelStart = Len(txtReceived.Text) 
     txtReceived.SelLength = 0 
     txtReceived.SelText = Buffer 
     End If 
    ....... 
     
     
    另外，请问 
    1.利用MSCcomm控件可传送接收扩展名为哪些的文件（常用）？ 
    2.接收文本文件与二进制文件时处理有无不同？ 
    3.接收文件的大小是否有限制？ 
    对于接收文件的代码请帮助完善，谢谢！！！ 
<END>
8,类似 Win98中“网上邻居”的 VB控件
您 好 ！ 能 否 提 供 类 似 Win98中 “ 网 上 邻 居 ” 的 VB控 件 或 编 程 方 法 ？ 
<END>
9,CRC算法以及实现方法
请 详 细 介 绍 CRC算 法 ， 以 及 实 现 方 法 。 
<END>     
10,如何才能使数据采集变得实时，不至于丢失数据呢
问 题 ： 近 来 用 mscomm控 件 编 写 了 一 个 数 据 采 集 的 程 序 . 
    要 求 ： 将 设 备 送 过 来 的 实 时 数 据 写 入 数 据 库 ,再 将 它 显 示 出 来 。 我 采 用 oncomm事 件 来 接 收 数 据 ， 用 定 时 起 来 控 制 数 据 库 的 写 入 ； 
    目 前 遇 到 的 问 题 是 ： 定 时 器 的 时 间 间 隔 设 定 为 30秒 ， 也 就 是 在 收 到 数 据 30秒 后 （ 数 据 暂 时 写 在 文 本 框 里 ） 开 始 写 数 据 库 操 作 （ 用 写 在 文 本 框 中 的 字 符 串 数 据 在 写 数 据 库 ） 。 因 为 设 备 数 据 的 送 上 是 不 能 控 制 的 ， 如 果 在 30秒 后 — — 写 数 据 库 过 程 正 在 执 行 的 过 程 中 ， 有 数 据 到 达 串 口 就 会 丢 失 。 
    请 问 怎 样 才 能 解 决 这 种 矛 盾 ， 使 数 据 采 集 （ oncomm事 件 ） 的 级 别 高 于 timer事 件 ； 如 何 才 能 使 数 据 采 集 变 得 实 时 ， 不 至 于 丢 失 数 据 呢 ？ 
<END>    
11,如何用编程的方法实现在服务器上知道有哪些用户已登录
问 题 ： 在 Windows2000网 域 中 ， 如 何 用 vb6.0编 程 的 方 法 实 现 在 服 务 器 上 知 道 有 哪 些 用 户 已 登 录 ， 并 修 改 他 们 的 密 码 。 
<END>
12,执行Connect，VB显示Run-time error10049 
问 题 ： 我 用 winsock编 了 一 个 C/S程 序 ， 想 在 局 域 网 上 用 TCP/IP实 现 它 ， 并 两 台 机 器 的 IP都 设 为 局 域 网 地 址 192.168.0.1和 192.168.0.1， 当 在 client端 输 入 server的 IP地 址 后 ， 按 command键 ， 执 行 "winsockclient.connect"时 ， vb6显 示 " Run-time error'10049':Address is not available from the local machine "这 是 什 么 原 因 呢 ？ 
<END>
13,Mscomm 无法稳定完整接收数据 
问 题 ： 请 问 专 家 ： DOS操 作 系 统 通 过 串 口 发 送 字 符 数 据 （ 连 续 不 断 ） ， win98下 vb6.0 mscomm 无 法 稳 定 完 整 接 收 数 据 （ 特 别 是 在 win98下 同 时 有 其 他 任 务 在 执 行 时 ， 系 统 处 理 变 慢 时 ） ， 请 问 如 何 解 决 。 
<END>    
14,当绑定时，所有的网卡都出故障怎么处理 
问 题 ： 本 人 在 VB中 用 winsock编 程 进 行 前 台 通 讯 ， 并 使 用 多 块 网 卡 以 便 切 换 。 当 其 中 只 要 有 一 块 网 卡 可 用 时 ， 程 序 能 在 绑 定 出 错 时 根 据 On Error跳 到 NextFor标 志 处 ， 但 是 当 所 有 的 网 卡 都 出 故 障 时 ， 用 bind绑 定 最 后 一 块 时 系 统 出 错 ， 提 示 “ 本 地 机 器 没 有 可 用 的 地 址 ” ， Winsock错 误 号 为 10049； On Error语 句 不 再 有 效 ， 也 不 触 发 Winsock控 件 的 Error事 件 ， 不 知 怎 样 才 能 在 程 序 中 先 于 系 统 捕 捉 到 错 误 进 行 处 理 ， 而 不 是 出 现 系 统 提 示 的 错 误 信 息 。 望 赐 教 ！ 
     下 面 是 实 现 绑 定 的 源 代 码 ： 
     IsOneWorking=False 
     
     For i = 0 To UBound(IPAddress) 
     Winsock_bc.Protocol = sckUDPProtocol 
     Winsock_bc.RemotePort = 4000 Winsock_bc.LocalPort = 4000 
     Winsock_bc.RemoteHost = RemoteHost(i) 
     
     On Error GoTo NextFor 
     Winsock_bc.Bind nLocalPort, IPAddress(i) 
     
     IsOneWorking = True 
     
     Exit For 
    NextFor: 
     Winsock_bc.Close 
     Next 
     
     If Not IsOneWorking Then 
     MsgBox "当 前 网 络 中 没 有 一 块 网 卡 可 用 !", vbOKOnly, "网 络 连 接 错 误 " 
     End If 
    其 中 ， Winsock_bc为 Winsock控 件 名 ,RemoteHost(i)、 IPAddress(i)分 别 为 第 i块 网 卡 的 广 播 地 址 及 IP。 如 能 解 答 不 胜 感 激 ,谢 谢 ！ 另 外 ， 如 何 编 程 才 能 获 得 本 地 机 器 的 多 块 网 卡 的 IP地 址 ？ 
<END>
15,如何编写一个接收手机短消息的程序 
问 题 ： 我 想 编 写 一 个 接 收 手 机 短 消 息 的 程 序 ， 不 知 如 何 下 手 ？ 
<END>    
16,从MSComm的缓冲区取出一部分数据，数据在缓冲区中还存在吗 
问 题 ： mscomm控 件 的 接 收 缓 冲 区 是 如 何 管 理 的 ?如 果 有 一 个 外 设 不 断 随 机 往 接 收 缓 冲 区 发 数 据 ， 取 出 一 部 分 数 据 ， 这 部 分 数 据 在 缓 冲 区 中 还 存 在 吗 ？