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

jy010

学习到不少东西  非常感谢！

49666684

没看明白...SORRY

zitoy

看看语音播放！

lygwsc

看一下，，，，，，，，，，，

laomeng

看看这方面的东东

leavey

要不要加语音包

mshuking

回复 23# yingf20


    谢谢 刚好在搞个 网吧点餐的 加了个右键清除列表  还是没声音、、、、
看了下这个网管呼叫器
http://www.autoitx.com/forum.php ... hlight=%CD%F8%B9%DC
结合一下

加入代码 如何加入才好呢？？？？？？？？？？

Func _PLAYJH($Jihao)
        $JihaoHQ = StringRight($Jihao,3)
        $FenGe = StringSplit($JihaoHQ,"")
        SoundPlay("woman\fw.wav")
        Sleep(2000)
        If $Jihao < 1000 And $Jihao > 99 Then
                SoundPlay("woman"&$FenGe[1]&".wav")
                Sleep(500)
                SoundPlay("woman\100.wav")
                If $FenGe[2] <> 0 Then
                        Sleep(500)
                        SoundPlay("woman"&$FenGe[2]&".wav")
                        Sleep(500)
                        SoundPlay("woman\10.wav")        
                ElseIf $FenGe[2] = 0 And $FenGe[3] <> 0 Then
                        Sleep(500)
                        SoundPlay("woman"&$FenGe[2]&".wav")
                EndIf
                If $FenGe[3] <> 0 Then
                        Sleep(500)
                        SoundPlay("woman"&$FenGe[3]&".wav")
                EndIf
        EndIf
        If $Jihao < 100 And $Jihao > 9 Then
                $JihaoHQ = StringRight($strepl,2)
                $FenGe = StringSplit($JihaoHQ,"")
                SoundPlay("woman"&$FenGe[1]&".wav")
                Sleep(500)
                SoundPlay("woman\10.wav")
                If $FenGe[2] <> 0 Then
                        Sleep(500)
                        SoundPlay("woman"&$FenGe[2]&".wav")
                EndIf
        EndIf
        If $Jihao < 10 And $Jihao > 0 Then
                $JihaoHQ = StringRight($strepl,1)
                SoundPlay("woman"&$JihaoHQ&".wav")
        EndIf
        Sleep(500)
        SoundPlay("woman\hao.wav")
        Sleep(500)
        SoundPlay("woman\dc.wav")
EndFunc

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#Include <Date.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);鼠标指针
$List = GUICtrlCreateContextMenu($ListView1)
$Cls = GUICtrlCreateMenuItem("清空数据", $List)
GUICtrlCreateMenuItem("", $List)
$Quit = GUICtrlCreateMenuItem("退出", $List)
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,$Quit
                Exit
    Case $Cls
          GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0)
EndSwitch
$tcpSocket = TCPAccept($tcpMainListen);接收客户端连接
If $tcpSocket <> -1 Then;客户端连接成功
  While 1
   $TcpRecvData = TCPRecv($tcpSocket, 2048, 1);接收客户端发送的数据
   If @error Then ExitLoop ;如果接收信息出现错误，则退出循环.
   If $TcpRecvData <> '' Then
    $TcpRecvData = GUICtrlCreateListViewItem(BinaryToString($TcpRecvData, 4), $ListView1);将信息写入到$listview1控件
    ExitLoop
   EndIf
  WEnd
EndIf
WEnd

316861798

呼叫网管服务

wbb870319

看看，借鉴下。

zhiye_xg

回复 1# yingf20

能不能唱报出来

zhanghao0304

看看是什么东东

au3retry

哎呀，兄弟好啊。WGLM。哈哈 ~ 低调。。。

xmcn

看看怎么实现在

cfanpc

这个还自己写啊  我晕

wln

学习了，谢谢楼主分享，感谢