|
本帖最后由 mshuking 于 2015-7-16 13:34 编辑
已解决$ListView1 = GUICtrlCreateListView("计算机|IP地址|时间|信息", 0, 0, 458, 414,$LVS_SORTDESCENDING)
变
把时间最先的在下面,刚刚的时间 搞到上面 顺序由下而上 怎么写代码?谢谢#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,$LVS_SORTDESCENDING)
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 & '\configs.ini', 'Config', 'ServerIP', '192.168.0.7');从配置文件中读取IP
$port = IniRead(@ScriptDir & '\configs.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控件
;这里如何写 下面语音才生效
_PLAYJH($Jihao)
ExitLoop
EndIf
WEnd
EndIf
WEnd
;=============================================================================
;语音叫号
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 <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("语音呼叫", 273, 249)
$Button1 = GUICtrlCreateButton("呼叫网管", 16, 24, 243, 41)
$Button2 = GUICtrlCreateButton("呼叫技术员", 16, 88, 241, 41)
$Button3 = GUICtrlCreateButton("呼叫服务员", 16, 152, 243, 41)
GUISetState(@SW_SHOW)
TCPStartup(); 开始 TCP 服务; 开始 TCP 服务
$ip = IniRead(@ScriptDir & '\wglm.ini', 'Config', 'ServerIP', @IPAddress1);从配置文件中读取IP
$port = IniRead(@ScriptDir & '\wglm.ini', 'Config', 'ServerPort', '21991');从配置文件中读取端口
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1;呼叫网管
_Callinfo('呼叫网管')
Case $Button2;呼叫技术员
_Callinfo('呼叫技术员')
Case $Button3;呼叫服务员
_Callinfo('叫服务员')
EndSwitch
WEnd
;呼叫信息
Func _Callinfo($CallInfo)
$tcpMainSocket = TCPConnect($ip, $port);连接服务端
If $tcpMainSocket = -1 Then
MsgBox(64, '错误', '连接到服务端失败!',2)
Else
TCPSend($tcpMainSocket, StringToBinary(@ComputerName & '|' & @HOUR & ":" & @MIN & ":" & @SEC & '|' & $CallInfo & "|" & @IPAddress1, 4))
EndIf
EndFunc ;==>_Callinfo
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|