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

jy010 发表于 2012-6-5 23:24:02

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

49666684 发表于 2013-10-1 15:15:21

没看明白...SORRY

zitoy 发表于 2013-10-6 19:32:54

看看语音播放！

lygwsc 发表于 2013-10-26 23:55:13

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

laomeng 发表于 2014-6-6 09:54:21

看看这方面的东东

leavey 发表于 2014-6-8 14:33:52

要不要加语音包

mshuking 发表于 2014-12-12 14:29:18

本帖最后由 mshuking 于 2014-12-12 15:16 编辑

回复 23# yingf20


    谢谢 刚好在搞个 网吧点餐的 加了个右键清除列表还是没声音、、、、
看了下这个网管呼叫器
http://www.autoitx.com/forum.php?mod=viewthread&tid=14378&highlight=%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&".wav")
                Sleep(500)
                SoundPlay("woman\100.wav")
                If $FenGe <> 0 Then
                        Sleep(500)
                        SoundPlay("woman\"&$FenGe&".wav")
                        Sleep(500)
                        SoundPlay("woman\10.wav")       
                ElseIf $FenGe = 0 And $FenGe <> 0 Then
                        Sleep(500)
                        SoundPlay("woman\"&$FenGe&".wav")
                EndIf
                If $FenGe <> 0 Then
                        Sleep(500)
                        SoundPlay("woman\"&$FenGe&".wav")
                EndIf
        EndIf
        If $Jihao < 100 And $Jihao > 9 Then
                $JihaoHQ = StringRight($strepl,2)
                $FenGe = StringSplit($JihaoHQ,"")
                SoundPlay("woman\"&$FenGe&".wav")
                Sleep(500)
                SoundPlay("woman\10.wav")
                If $FenGe <> 0 Then
                        Sleep(500)
                        SoundPlay("woman\"&$FenGe&".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 发表于 2015-1-18 09:42:09

呼叫网管服务

wbb870319 发表于 2015-10-2 17:21:36

看看，借鉴下。

zhiye_xg 发表于 2016-3-4 21:44:40

回复 1# yingf20

能不能唱报出来

zhanghao0304 发表于 2016-3-25 16:57:44

看看是什么东东

au3retry 发表于 2016-6-2 00:29:58

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

xmcn 发表于 2016-11-2 02:32:40

看看怎么实现在

cfanpc 发表于 2016-11-3 18:06:50

这个还自己写啊我晕

wln 发表于 2016-11-3 18:15:53

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

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