QQ状态增强工具v3.0 ------已被和谐 请勿下载------------

Bds1r

                             此贴可能引起程序猿以及大牛的反胃症状，还请谅解！                                    
上个版本回顾：http://www.52pojie.cn/thread-206867-1-1.html   

---

*有一点我没看明白，tom96202 这位朋友，他说我用别人源码，他在上个帖子中就说了，然后他这个帖子也说了，然后他贴上来【VB】的源码，再次我说明几点，第一，你看下你VB源码上和我的功能上的区别，先不看语言的区别，再者我并没有在工具上添加任何宣传或者什么傲娇行为，完全是想方便大家，做得更好一点。要是嗟来之食，干嘛要自绘皮肤一个一个控件添加呢，改个标题加个QQ不就完了，第一次在52这样说话，抱歉。*

工具初衷：看到他人程序后进行模仿但是在原有的基础上进行了功能上的创新！感谢 老狼（ID忘了）
当上个很渣很差劲并且BUG不断的版本发布以后，还是很多友友喜欢的并且希望添加别的播放器。
所以现在更新了一下不足挂齿，大牛再次海涵！，再次感谢所有爱友，你们真的让人基情澎湃！

废话不多说：

工  具  名：QQ状态增强工具 v3.0
开发工具：易语言
模块方面：精易模块3.44   感谢koumi提供的模块
工具用途：1.自定义显示QQ歌曲状态显示的文字
                   2.增加酷狗，多米，酷我等数款播放器音乐状态显示在QQ状态，后见图。
工具说明：适用于原版QQ，去广告版QQ请在QQ界面---设置---权限设置---个人状态--勾选显示听歌状态.
                 （功能绝非自慰）
更新说明：增加多米播放器(很棒的音乐分类)的支持
                   增加foobar2000  个别发烧友要求添加！ 等4个播放器
                   增加热键隐藏：Home键 .
上图片：
              
              其他播放器效果相同就不再一一赘述。

举例：正在用酷狗听音乐，那么单击酷狗图标按钮即可实现同步状态显示(前提你已登录QQ)
             关闭播放器同步请再单击一次播放器图标。
关于皮肤第一次使用自绘皮肤弄得一塌糊涂，皮肤就相当于装饰理解一下，想必大家的机器也都能无视400KB+的这个小工具了，挽尊~
绝无后门以及恶意操作，皇上们明鉴！

大众通道：http://url.cn/EhpnqT

宝马通道： QQ状态增强工具 v3.0.rar (429.23 KB, 下载次数: 594)

2013-8-3 15:31 上传

点击文件名下载附件

使用中的问题可以在此帖回复，谢谢，仔细看上文说明，灰常感谢。

鱼子酱

koumi的原版已经做的很好了,真心不知道楼主做的改进在哪里

Diamond

只能走大众通道啊

Bds1r

鱼子酱 发表于 2013-8-3 15:39
koumi的原版已经做的很好了,真心不知道楼主做的改进在哪里

鱼子酱大牛，您好，我就在koumi的群里，他的版本在播放器支持上有BUG  并且已经不做更新了，一直在忙着去广告，还请见谅，本菜也只是把1.7M的皮肤和繁琐的布局欢乐中方式而已，还请手下留情{:1_931:}

tom96202

Visual Basic代码



'(1)检测当前电脑是否挂着QQ：
Set TCK = CreateObject("TimwpDll.TimwpCheck")
isQQRunning = TCK.checkQQRunning

If isQQRunning Then
MsgBox "QQ在线"
Else
MsgBox "QQ离线"
End If



'(2)让QQ显示“正在玩的游戏”的信息：
Function PutRSInfo(uin, strRSPrompt, strRSParam)
Set o = CreateObject("QQCPHelper.CPAdder")
If Not strRSPrompt = "" And Not strRSParam = "" Then
o.PutRSInfo uin, 65572, strRSPrompt, strRSParam
'o.PutRSInfo uin, &H10024, strRSPrompt, strRSParam
End If
End Function

PutRSInfo 495825947,"正在3366玩《植物大战僵尸无敌版》","50521"
PutRSInfo 495825947,"3366小游戏","10000"
PutRSInfo 495825947,"3366游戏中","param"

'例：
'代码：
'PutRSInfo {QQ号码},"{要显示的游戏名称}","{param}"

'打开的地址是：
'http://www.3366.com/?ADUIN={QQ号码}&ADSESSION=1354419693&ADTAG=CLIENT.QQ.4693_{param}.0



'(3)打开QQ登录框，自动选取指定QQ号：
Dim o As Object
Set o = CreateObject("QQCPHelper.CPAdder")
o.StartupIM "{要登录的QQ号}"



'(4)QQ自动添加表情：
STR="http://www.baidu.com/img/baidu_logo.gif"
Addface(STR)

Sub Addface(strurl)
     Dim QQ1
     set QQ1 = CreateObject("TimwpDll.TimwpCheck")
     If (QQ1.CheckValid) Then
         Dim QQ2
         set QQ2 = CreateObject("QQCPHelper.CPAdder")
             QQ2.AddCustomEmotion(strurl)   
     Else
         If Not file("QQ.EXE") Then
             Dim WSH
             set WSH = CreateObject("wscript.Shell")
                 WSH.Run "D:QQBinQQ.exe" '这里改为实际路径
                 Wsh.AppActivate "QQ"
                 WScript.Sleep 1000
                 WSH.SendKeys "{ENTER}"
                 End If
         Call Addface(STR)
         End If
End Sub

Function File(fileName)
'On Error Resume Next
File = False
for each ps in getobject("winmgmts:.rootcimv2:win32_process").instances_   '循环进程
if Ucase(ps.name)=Ucase(fileName) Then              
     File=True
     Exit For
End If
Next
End Function



'(5)TimwpDllVersion：
Set TCK = CreateObject("TimwpDll.TimwpCheck")
TimwpDllVersion = TCK.GetVersion()
MsgBox TimwpDllVersion

Function IsInstallSupMiniQQ()
Set TCK = CreateObject("TimwpDll.TimwpCheck")
TimwpDllVersion = TCK.GetVersion()
IsInstallSupMiniQQ = True
If TimwpDllVersion < 2.1 Then
IsInstallSupMiniQQ = False
End If
End Function



'(6)QQ电脑管家相关：
Set QMPlugin = CreateObject("npQMExtensionsIE.Basic")

'If Browser.isIE Then
'bInstall = QMPlugin.QMIsInstalled()
'Else
'bInstall = QMPlugin.QMIsInstall()
'End If

getQMmgrVersion = QMPlugin.QMGetVersion() '返回管家版本号
getQmgrSupplyID = QMPlugin.QMGetSupplyID() '返回supplyid

MsgBox getQMmgrVersion, 64, "QMGetVersion()"
MsgBox getQmgrSupplyID, 64, "QMGetSupplyID()"


'Call QMPlugin.QMStartUp(index, parms)
Call QMPlugin.QMStartUp(16, "/traytip=1")

'sid = "1018"
'Call QMPlugin.QMStartUp(5, "/page=taskmgr /softdetailid=" & sid & " /action=download /parent=baidusearch")


'index(-1 < index < 23):
'0 QQPCMgr.exe
'1 QQPCTray.exe
'2 (Null)
'3 QQPCSysOptimize.exe
'4 QQPCSoftGame.exe
'5 QQPCSoftMgr.exe
'6 - 13 (Null)
'14 QQRepair.exe
'15 QQPCLaunch.exe
'16 QQPCClinic.exe
'17 QQPCHardware.exe
'18 - 19 (Null)
'20 QMPersonalCenter.exe
'21 (Null)
'22 QMAutoClean.exe



'解释：
'index(-1 < index < 23):
'0 打开“电脑管家”

'4 打开“软件管理” - “游戏专区”

'5 打开“软件管理” "/page=taskmgr /softdetailid=" & sid & " /action=download /parent=baidusearch" '开始下载某个软件，如“Total Commander”是“1018”。

'15 打开“小Q书桌”

'16
'/traytip=1 '打开 桌面右下角 的提示
'/from=1 /detail=1001 '打开“电脑诊所” - “QQ空间无法正常显示”

Bds1r

tom96202 发表于 2013-8-3 15:43
Visual Basic代码

还请阅读 两个帖子中的前言，谢谢，并且还请看下功能上的不同，OK？

alexjeniks

做的很到位了，只是我个人觉得这个没什么意思吧。

Bds1r

alexjeniks 发表于 2013-8-3 16:05
做的很到位了，只是我个人觉得这个没什么意思吧。

非常感谢，上个帖子很多友友M我弄好看一点 添加foobar什么的，然后昨天大半夜的有人也在Q问我，就完善了，

baronbiny

精神上支持下楼主,

huxinyou6688

谢谢分享！收藏了