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 & "呼叫操蛋的服务器,听到请回答."
       $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


    感谢你的代码，总算完成了这项问题。谢谢。。。。。。。。。。。{:face (377):}

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

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

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

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

看看怎么处理的。。。。。
页: 1 [2] 3 4
查看完整版本: [网管呼叫] 如何添加播放语音上去，知道的朋友帮忙一下。[已解决]