怎么样判断客户端的电脑上有没有安装淘宝旺旺/MSN/QQ等聊天软件？？

Question

简单一点的，查看端口有没有listen

Answer 1

看下这个：http://www.91mq.com/chartroom_1.asp<SCRIPT language=vbscript>
Sub start(ServerTypeName,SetCommandType,flockid,roomname,ServerName,ServerPort,RoomTypeName,RoomDescription,RoomMaxOnlineUser,RoomMaxMike)
On Error Resume Next
'msgbox SetCommandType
ephchat.SetCommandType(SetCommandType)
If Err.Number = 0 then
ephchat.SetServerType(ServerTypeName)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetRoomTypeName(RoomTypeName)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetRoomInfo(RoomDescription)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetMaxUserAmount(RoomMaxOnlineUser)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetMaxMikeAmount(RoomMaxMike)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetChatName(roomname)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetPort(ServerPort)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetIPAddr(ServerName)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SetRoomID(flockid)
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
If Err.Number = 0 then
ephchat.SendMessage()
elseif Err.Number=438 then
else
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
if Err.Number=438 then
MsgBox "请您先下载并安装MQ后,在点'加入'", vbOKOnly, "警告！"
window.open("http://www.91mq.com/download/mqsetup3.1.exe")
end if
end Sub
</script>
<OBJECT id=ephchat style="WIDTH: 1px; HEIGHT: 1px" codeBase="mqrun.dll#version=2003.19.9.0"
classid=clsid:E22BFF56-39F3-11D8-A0C7-0403771226AB name=ephchat></OBJECT>

Answer 2

php可能不好做到，至少有安全问题

Answer 3

一般类似{6E213FC7-DD5A-4115-B7E6-D4C7838C361E}的classid都有对应的progid
比如：{00000514-0000-0010-8000-00AA006D2EA4} -> ADODB.Connection
所以可以用ActiveXObject来创建该对象，如果存在则安装，反之没有安装.
<script language="javascript">
var bInstalled = true;
try {
    var obj = new ActiveXObject("ADODB.Connection");
}
catch(e)
{
    bInstalled = false;
}
if (bInstalled)
{
    alert("Installed");
} else {
    alert("Not installed");
}
</script>
如果没有注册COM就只能找文件了，一般插件都可以的

Answer 4

用javascript检查，一般是用尝试创建对应软件的组件，如果创建成功了，就表明安装了。就像是楼上的楼上。