求局域网工具或者解决思路!!!(100分)

Question

我想实现在局域网的主机上点击一个按钮后，在所有的客户机上全频显示一个图片和声音！请做过类似项目的不吝赐教！！！越具体越好

Answer 1

'客户端Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
On Error GoTo acd
If App.PrevInstance Then '如果程序已经被打开就退出
    Unload Me
Else
    App.TaskVisible = False
    Me.Visible = False
    Winsock1.RemotePort = 10301
    Winsock1.Bind 10300
End If
Exit Sub
acd:
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Form1.Picture1.Picture = LoadPicture("f:\abc.bmp")
Form1.Visible = True
Form1.Show '显示
sndPlaySound "D:\rate3.wav" '播放声音
End Sub
'服务器端.Private Sub Command1_Click()
Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 10300
Winsock1.Bind 10301
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.SendData "abc"End Sub

Answer 2

在"部件"中添加 microsoft Winsock Control 6.0就有Winsock1控件了

Answer 3

这里有个C/S的即时消息程序可以参考下
http://www.21code.com/codebase/?pos=down&id=1704只要把播放命令发到客户端
不管图片还是声音
客户端自己放就可以了～

Answer 4

to  tztz520(午夜逛街) :多谢，如果调试通过，马上揭帖

Answer 5

to  tztz520(午夜逛街) :2个程序分别能编译通过，但是服务器端点击按钮之后，客户端运行的程序没有反应，不知道是怎么回事？我是在自己的机器上调试的，ip改成了自己机器的ip，不知道是不是跟我用代理有关系，望祥加指教，谢谢！

Answer 6

to  tztz520(午夜逛街) ( ) :问题已经解决，你给我的程序客户端没有指定协议 ：），多谢！！！现在揭帖，另一个相同的帖子也同时揭帖！