[网管呼叫] 如何添加播放语音上去，知道的朋友帮忙一下。[已解决]

qq342252004 · 发表于 2012-6-2 09:58:52

这个UDF好强大，支持一下。

yingf20 · 发表于 2012-6-2 12:40:14

本帖最后由 yingf20 于 2012-6-2 12:46 编辑

回复 17# lanfengc

谢谢你的帮助。你这个用到别的代码上是好强的。
我想要知道的是，如上我的代码怎判断收到001或002时怎播放相关的内容？

xms77 · 发表于 2012-6-2 13:00:51

本帖最后由 xms77 于 2012-6-2 13:02 编辑

回复 1# yingf20

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("语音", 460, 444)
$ListView1 = GUICtrlCreateListView("计算机|号数信息|播放时间|IP地址", 0, 0, 458, 414)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100);调整宽度
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);设置表格边框
GUICtrlSetCursor(-1, 0);鼠标指针
GUISetState(@SW_SHOW)
TCPStartup(); 开始 TCP 服务
$ip = IniRead(@ScriptDir & '\wglm.ini', 'Config', 'ServerIP', '192.168.0.7');从配置文件中读取IP
$port = IniRead(@ScriptDir & '\wglm.ini', 'Config', 'ServerPort', '21991');从配置文件中读取端口
$tcpMainListen = TCPListen($ip, $port, 100);创建监听，用于接收数据
If $tcpMainListen = -1 Then
MsgBox(4096, '错误', '创建监听失败！')
Exit
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
$tcpSocket = TCPAccept($tcpMainListen);接收客户端连接
If $tcpSocket <> -1 Then;客户端连接成功
  While 1
   $TcpRecvData = TCPRecv($tcpSocket, 2048, 1);接收客户端发送的数据
   If @error Then ExitLoop ;如果接收信息出现错误，则退出循环.
   If $TcpRecvData <> '' Then
        ;===你需要的代码如下=========================================================================
         $splited = StringSplit(BinaryToString($TcpRecvData),"|")  ;接受到的信息以“|”符号来分割到数组
         ;下面是语音播报
         $sTalk = "狗日的"& $splited[2] & "呼叫操蛋的服务器,听到请回答."
         $oVoice = ObjCreate("SAPI.SpVoice")
         $oVoice.Volume = 100
         $oVoice.Speak($sTalk)
        ;====代码结束================================================================================
    $TcpRecvData = GUICtrlCreateListViewItem(BinaryToString($TcpRecvData, 4), $ListView1);将信息写入到$listview1控件
    ExitLoop
   EndIf
  WEnd
EndIf
WEnd

nian_jin · 发表于 2012-6-2 14:44:09

之前有寫過類似的,只要自己對不同接收的信息做一下判斷就可以啦..

yingf20 · 发表于 2012-6-3 13:04:24

回复 20# xms77

感谢你的代码，总算完成了这项问题。谢谢。。。。。。。。。。。

yingf20 · 发表于 2012-6-3 13:11:55

本帖最后由 yingf20 于 2012-6-3 13:15 编辑

感谢各位热心帮助的朋友！在此把完成的代码发表一下，需要的朋友可以学习一下。

游客，如果您要查看本帖隐藏内容请回复

xdcysten · 发表于 2012-6-4 09:00:40

多谢楼主分享方法

jtzxgfy · 发表于 2012-6-4 11:06:16

回复 23# yingf20

rhrh看看

hzxymkb · 发表于 2012-6-4 20:20:18

回复 14# lpxx

WGLM的L老师，晚上好！

xms77 · 发表于 2012-6-4 21:03:33

回复 26# hzxymkb
WGLM = 网管联盟？？？

chengjinn · 发表于 2012-6-4 21:59:26

学习一下。看看

hzxymkb · 发表于 2012-6-4 22:52:03

回复 27# xms77

是的！

xgysww · 发表于 2012-6-4 23:34:49

谢谢了哈，有您的支持，我们将做得更专业了。

setandy · 发表于 2012-6-5 16:27:33

看看..............

jy010 · 发表于 2012-6-5 22:53:43

看看怎么处理的。。。。。

		自动登录	找回密码
密码			加入

[网络通信] [网管呼叫] 如何添加播放语音上去，知道的朋友帮忙一下。[已解决]