【QQRES.dll详细解释修改】内容的一点补充

这个是原来作者没有的，我现在给写上喽，呵呵。如果以后还有，那接着写！！！

QQ对话框的文字资源在QQres里的位置

聊天窗口
88-1396 短信
2133-34119 影音交谈
201-3214 传文件
2100-33587 游戏
204-3261 控制
204-3260 邀请

群窗口
2125-33992 群设置
2155-34468 多人语音
下面的按钮
对话框-7015 消息模式下各种按钮
对话框-446 聊天模式下各种按钮

如果你要切换消息模式和聊天模式
把这两个地方也改成和上面你在按钮里面设置的一样
143-2278 信息MODE
141-2251 聊天MODE

2122-33941 群聊
2122-33945 相册
2122-33943 共享
2129-34054 热点
2141-34244 升级

【QQRES.dll详细解释修改】

改系统托盘，
菜单：位图 144、148、151、157、250
图标：图标组1775——1790，分男女两组和两种分辨率

改等级、星星、太阳、月亮
位图：1684

改上线提示，应该包括按钮
位图：1407 - 1412

改系统新闻
位图：1668

手机摄像头等好友面版的小图标
位图：1673、1674、1675

超级语音，视频聊天等 位图 1848-1850

隐身绿叶：Bitmap 1840、1859、1865

登陆过渡画面：
背景位图 － Bitmap 131、1710、1733至1744
按钮位图 － Bitmap 145、9097（关闭）、9098、9099（最小化）
gif 动画 － START_GIF 1704

Restorator V2006 Build 1535 汉化版(修正版)

[此贴子已经被作者于2006-8-20 1:21:24编辑过]

《最新的QQ代码补完》

一键所顶
一键所顶的代码，利用的是vbs的文件读写，这段代码是一个比较简单，容易理解的锁定代码：

Sub FixPanel_onClick()
Window.LockPaint()

FixPanel.visible = false
UnFixPanel.visible = true

preH = CurrentHeight
preW = CurrentWidth
Window.minHeight = preH
Window.maxHeight = preH
Window.minWidth = preW
Window.maxWidth = preW
Window.UnLockPaint()
End Sub
Sub UnFixPanel_onClick()
Window.LockPaint()

FixPanel.visible = true
UnFixPanel.visible = false

Window.maxHeight = 1024
Window.minHeight = 92
Window.maxWidth = 1024
Window.minWidth = 145
Window.height = preH
Window.width = preW
Window.UnLockPaint()
End Sub

*注意要定义preH和preW两个变量其他的应该没什么问题了，
Window.maxHeight = 1024
Window.minHeight = 92
Window.maxWidth = 1024
Window.minWidth = 145
这部分的数字都可以进行修改，根据自己的需要，分别是QQ的最大最小高宽

下面这部分是一段收缩面板的代码，显得更为简单

Sub MagicUpButton_onClick() '收缩面板按钮
Window.LockPaint()
Heigh= CurrentHeight
Window.height = 92
Window.UnLockPaint()
End Sub

Sub MagicDownButton_onClick() '展开面板按钮
Window.LockPaint()
If Heigh < 400 Then
Heigh = 400
End If
Window.height = Heigh
Window.UnLockPaint()
End Sub

同样要定义一个变量Heigh

QQ头像变换~~~

1、打开QQ时，默认头像显示为pic1的修改方法

<vbscript.vbs>
--------------------------------------------------
'更换头像
pic1.visible = true '原来是false
pic2.visible = false
...
pic10.visible = false
StatusPic.visible = false '原来是true

sub pic10_onClick()
Window.LockPaint()
pic10.visible = false
pic9.visible = false
...
pic1.visible = false
StatusPic.visible = true '添加上这一行
Window.UnLockPaint()
end sub
---------------------------------------------------

2、打开QQ时，默认隐藏侧栏，且在拉伸时不显示侧栏的修改方法
（侧栏仍可以用，在有侧栏时，拉伸也显示侧栏）

<vbscript.vbs>
---------------------------------------------------
Dim UseNum
...
Dim CurrentWidth
Dim barflag '添加上这一行

sub Window_OnInit()
Window.GetScriptVersion "1.0"
...
UseNumWidth = MyQQNum.width
barflag = 0 '添加上这一行

End sub


IF barflag = 1 THEN '
Bar1.width = BarFrame.width - 30 '这里原来是Bar1.width = BarFrame.width - 30，请用这五行替换之
ELSE '
Bar1.width = BarFrame.width '
END IF '

Bar1.height = BarFrame.height - 4


sub DisableBarBtn_onClick()
Window.LockPaint()
barflag = 0 '添加这一行
...
end sub

sub ShowBarBtn_onClick()
Window.LockPaint()
barflag = 1 '添加这一行
...
end sub


'设置那个Bar在最前
'Window_onClick 2,Var '去掉这一行

------------------------------------------------------------

3、彻底去掉侧栏的方法（再也见不到侧栏了）

<vbscript.vbs>
------------------------------------------------------------
Bar1.width = BarFrame.width '- 30 '去掉-30...
Bar1.width = BarFrame.width '- 30 '去掉-30...
'Window_onClick 2,Var '去掉这一行
------------------------------------------------------------


4、经常问到的一个问题，其实最简单，修改默认的最小宽度和高度

<config.xml>
------------------------------------------------------------
<Window minWidth="160" maxWidth="280" minHeight="334" maxHeight="600" clippingColor="#00FF00">
修改minWidth和minHeight的值

一键锁定

Sub CreateAfile(filespec,filecontents)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(filespec, True)
MyFile.WriteLine(filecontents)
MyFile.Close
Set fso = nothing
End Sub

Sub ReadFile(filespec)
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(filespec, ForReading)
Parameter1 = MyFile.ReadLine
'MyFile.SkipLine
Parameter2 = MyFile.ReadLine
MyFile.Close
Set fso = nothing
End Sub

Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
Set fso = nothing
End Sub

Function ReportFileStatus(filespec)
Dim fso, flag
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
flag = true
Else
flag = false
End If
ReportFileStatus = flag
Set fso = nothing
End Function

Sub FixPanel_onClick()
Window.LockPaint()
CreateAfile "FixPanel.ini",CurrentWidth & vbCrLf & CurrentHeight
FixPanel.visible = false
UnFixPanel.visible = true
ReadFile("FixPanel.ini")
Window.minWidth = Parameter1
Window.maxWidth = Parameter1
Window.minHeight = Parameter2
Window.maxHeight = Parameter2
Window.UnLockPaint()
End Sub

Sub FixPanelLoad()
Window.LockPaint()
FixPanel.visible = false
UnFixPanel.visible = true
ReadFile("FixPanel.ini")
Window.minWidth = Parameter1
Window.maxWidth = Parameter1
Window.minHeight = Parameter2
Window.maxHeight = Parameter2
Window.UnLockPaint()
End Sub

Sub UnFixPanel_onClick()
Window.LockPaint()
FixPanel.visible = true
UnFixPanel.visible = false
If ReportFileStatus("FixPanel.ini") Then
ReadFile("FixPanel.ini")
Window.width = Parameter1
Window.height = Parameter2
DeleteAFile("FixPanel.ini")
Else
Exit Sub
End If
Window.maxHeight = 1024
Window.minHeight = ...
Window.maxWidth = 1280
Window.minWidth = ...
Window.UnLockPaint()
End Sub

"一键锁定"的原理就是将QQ皮肤的最大、最小宽度均设置为锁定时的宽度，将QQ皮肤的最大、最小高度均设置为锁定时的高度；
“记忆功能”的原理就是根据配置文件（.ini文件）的存在与否来决定是否锁定，根据存储在配置文件的数据来决定将QQ皮肤锁定时的大小。

《QQ目录下的DLL文件解说》

-------------------------------QQDLL修改网上收集-------------------------------------------
QQ目录下各文件用途不完全揭密
ACodec.dll (音频聊天)
　　+BQQApplication.dll (企业好友面板)
　　*CameraDll.dll (截图文件)
　　ChatLib.dll (聊天室相关文件)
　　ContentTab.dll (自定义面板)
　　Content_Config.ini (跟自定义面板有关)
　　*CQQApplication.dll (好友面板)
　　help_01.gif~help_13.gif (跟自定义面板有关)
　　InPlus.dll (视频语音聊天的设置对话框有关)
　　*ipsearcher.dll (ip搜索插件)
　　------ipwry.dat 新格式的ip库,
　　MailDll.dll (以下mail开头的信箱有关)
　　+MyIP.dat (自定义ip文件)
　　NewSkin.dll (皮肤,使用默认皮肤的可以删除)
　　OEMApplication.dll (内容资讯面板)
　　*QQ.exe (qq主文件)
　　QQAvatar.dll (和qq秀有关)
　　QQBUserApplication.dll (腾讯服务面板)
　　QQexternal.exe (跟广告有关)
　　QQFileTransfer.dll (文件传送)
　　*QQHook.dll (监视键盘的文件)
　　*QQLdr.exe (以下qqldr开头的和外挂有关)
　　QQMail.exe (以下mail开头的和信箱有关)
　　QQMailCore.dll
　　QQMailHelper.dll
　　+QQMMSender.dll (短信发送面板)
　　*QQPlugin.dll (查找好友)
　　*QQRes.dll (资源文件)
　　QQUdpGetFileLib.dll (升级,QQ自动下载更新文件的模块)
　　QQupdate.exe (同上)
　　QRingMng.dll (炫玲管理)
　　ShareFiles.dll (共享文件夹)
　　+vbscript.dll (qq皮肤有关)
　　VCodec.dll (以下几个和视频有关)
　　*vqqset.dll (视频设定文件,vqqset.dll 千万别删，否则第一次使用视频语音聊而出现设置对话框时，就会令QQ因错误退出!)
　　[IMScene] (场景)
　　[sound] (声音文件)
　　[smsdata] (短信)
　　[QRingFiles] (叫什么炫铃吧)
　　*[newface] (QQ头像)我做了更新版的,具体改变大家自己体会吧.
　　[help] (帮助,别告诉我你不回用qq)
　　[mailImage] (QQ邮箱)
　　*[Face] (表情文件)
　　+[Dat] (一些引用的图片文件,视情况保留)
　　[chatTheme] (聊天室相关文件)
　　[Chat] (聊天室相关文件)
　　[bface] (服务面板头像)
以下这些文件千万不能删:
　　CameraDll.dll
　　CQQApplication.dll
　　ImageOle.dll
　　IPSearcher.dll
　　Mfc42.dll
　　msvcp60.dll 其实也可以(各个系统兼容性决定)
　　QQAllInOne.dll
　　QQBaseClassInDll.dll
　　QQHelperInDll.dll
　　QQHook.dll 其实也可以(各个系统兼容性决定)
　　QQMainFrame.dll
　　QQPlugin.dll
　　QQRes.dll
QQZip.dll
　　riched20.dll 其实也可以(各个系统兼容性决定)
　　Riched32.dll 其实也可以(各个系统兼容性决定)
　　vbscript.dll
　　vqqset.dll
　　如果不想视频聊天，只用语音聊天，删VCodec1.dll、VCodec2.dll、VCodec.dll、VideoDevice.dll、VqqDVCapture.dll、InPlus.dll。如果再删ACodec.dll、AudioDevice.dll、vphone.dll、VqqAllInOne.dll，则在两人世界里仍可语音聊，但在收发消息里就无法语音聊天了。
　　QQ号码文件夹下的文件
　　Config.db QQ系统设置
　　Content_Config.ini 自定义面板设置
　　ewh.db QQ密码
　　MsgEx.db QQ聊天记录
　　notes.db QQ备忘录
　　QQMailSettingEx.dat QQMail 设置
　　QQMailAddr.dat QQMail 地址本
　　QQMailIndex.dat QQMail
　　QRT.dat QQ炫铃信息
　　MailData QQMail 本地邮件
　　ShareInfo.db 共享文件夹设置
　　User.db QQ本地好友列表
　　VQQ.db QQ视频设置
　　·下面是QQ程序的目录
　　QQAVFile 好友QQ秀缓存目录
　　CustomFace QQ自定义表情目录
　　CustomFaceRecv 接收的 QQ自定义表情保存目录
1，关于QQ登陆介面，大家可以找到QQ文件夹里的loginctrl.dll 位图-----963------找到相应的图片导入即可。(再也不用看别人的广告了！）除了这个还可以在对话框450哪里隐藏些功能，比如说记住密码....
2接下了是优化QQ，对于来网吧上网的人来说，很多功能都是用不到的，一来是占资源，二来则是引起死机。
QQ邮箱： 删除QQMail.exe
QQ共享文件：删除ShareFiles.dll
QQ网络硬盘：删除QQNetDisk.dll
QQ传送文件：删除QQFileTransfer.dll
QQ在线升级：删除QQLiveUpdate.exe
禁传送文件
用exescope打开qqres.dll
资源下字符串下25里面的389,删掉接收2个字
2099里面的33575,删掉另存为
[dat]里面的ad.gif、default_av_chatroom.gif、infoad.gif、vqqad.gif
BugReport:BugReport.exe BugReport.smp QQHangReport.exe
QQ邮箱（对普通用户来说太小了）
[mailImage]MailDll.dll MailRes.dll QQMail.exe QQMailCore.dll QQMailHelper.dll rm sm
QQ聊天室（我从来不去的）
[chat] [chatTheme] ChatLib.dll ChatRes.dll
一键切换（就是QQ与TM的互换，如果你只用QQ，那应该没用了吧）
QQOneClickApp.exe
QQOneClick.dll
接下来是定制QQ侧边面板了！！
QQ好友: cqqapplication.dll（这个都删了…………）
互动空间:
[SCFace] (互动空间里面按钮的图标) SBuddyApplication.dll SBuddyCall.exe SBuddyFriend.dll
企业好友:
[dat]里面的rtx_enter.jpg、rtx_friend.jpg、RTXIndex.jpg bqqapplication.dll
手机娱乐面板、内容资讯面板、音乐中心：oemapplication.dll（删除了它，直接搞定3个面板）
自定义面板：ConternTab.dll Content_Config.ini
网络硬盘: qqnetdisk.dll
无用文件：
custom_help.html help_01.gif、help_02.gif、help_03.gif、help_04.gif、help_05.gif、help_10.gif、help_11.gif、help_13.gif whatsnew.txt QQFileInfo.dat uninst.exe
近来大家都受QQ病毒的困饶，很多人都在找QQ的修改方法，特将方法集中公布如下：
QQ邮箱： 删除QQMail.exe
QQ共享文件：删除ShareFiles.dll
QQ网络硬盘：删除QQNetDisk.dll
QQ在线升级：删除QQLiveUpdate.exe
禁传送文件
用exescope打开qqres.dll
资源下字符串下25里面的389,删掉接收2个字
2099里面的33575,删掉另存为
禁记住密码
用exescope打开LoginCtrl.dll
资源下对话框里面的450，点记住密码，右边把可见的钩去掉
注：[****]这样的是文件夹，*.*的是文件。开工了！！
首先是安装好QQ后的IE右键菜单:
AddPanel.html——添加到QQ自定义面板
AddEmotion.htm——添加到QQ表情
SendMMS.htm——用QQ彩信发送该图片
AddToNetDisk——添加到QQ网络硬盘
QQ广告Qexternal.exe
[dat]里面的ad.gif、default_av_chatroom.gif、infoad.gif、vqqad.gif
BugReport:BugReport.exe BugReport.smp QQHangReport.exe
QQ邮箱（对普通用户来说太小了）
[mailImage]MailDll.dll MailRes.dll QQMail.exe QQMailCore.dll QQMailHelper.dll rm.swf sm.swf
QQ聊天室（我从来不去的）
[chat] [chatTheme] ChatLib.dll ChatRes.dll
一键切换（就是QQ与TM的互换，如果你只用QQ，那应该没用了吧）
QQOneClickApp.exe
QQOneClick.dll
接下来是定制QQ侧边面板了！！
QQ好友: cqqapplication.dll（这个都删了…………）
互动空间:
[SCFace] (互动空间里面按钮的图标) SBuddyApplication.dll SBuddyCall.exe SBuddyFriend.dll
企业好友:
[dat]里面的rtx_enter.jpg、rtx_friend.jpg、RTXIndex.jpg bqqapplication.dll
手机娱乐面板、内容资讯面板、音乐中心：oemapplication.dll（删除了它，直接搞定3个面板）
自定义面板：ConternTab.dll Content_Config.ini
网络硬盘: qqnetdisk.dll
（注：如果你有删除侧面板按钮，那么建议不要使用奥运版皮肤，否则按钮与按钮之间会有间隔，QQ2004面板没有问题，还可使用这个面板pixos）
无用文件：
custom_help.html help_01.gif、help_02.gif、help_03.gif、help_04.gif、help_05.gif、help_10.gif、help_11.gif、help_13.gif whatsnew.txt QQFileInfo.dat uninst.exe（我卸载QQ从来都是直接删除的，因为这个QQ是复制过来的）
还有这两个文件：TIMPlatform.exe（此文件会随QQ自动启动）、TIMProxy.dll，我不知道有什么用，但我删了，未影响QQ的使用，你自己选吧！！
------------------------------禁QQ功能的方法---------------------------------------------
禁QQ一些功能的方法
QQ邮箱： 删除QQMail.exe
QQ共享文件：删除ShareFiles.dll
QQ网络硬盘：删除QQNetDisk.dll
QQ传送文件：删除QQFileTransfer.dll
QQ在线升级：删除QQLiveUpdate.exe
禁传送文件
用exescope打开qqres.dll
资源下字符串下25里面的389,删掉接收2个字
2099里面的33575,删掉另存为
禁记住密码
用exescope打开LoginCtrl.dll
资源下对话框里面的450，点记住密码，右边把可见的钩去掉
注：[****]这样的是文件夹，*.*的是文件。开工了！！
首先是安装好QQ后的IE右键菜单:
AddPanel.html——添加到QQ自定义面板
AddEmotion.htm——添加到QQ表情
SendMMS.htm——用QQ彩信发送该图片
AddToNetDisk——添加到QQ网络硬盘
QQ广告Qexternal.exe
[dat]里面的ad.gif、default_av_chatroom.gif、infoad.gif、vqqad.gif
BugReport:BugReport.exe BugReport.smp QQHangReport.exe
QQ邮箱（对普通用户来说太小了）
[mailImage]MailDll.dll MailRes.dll QQMail.exe QQMailCore.dll QQMailHelper.dll rm sm
QQ聊天室（我从来不去的）
[chat] [chatTheme] ChatLib.dll ChatRes.dll
一键切换（就是QQ与TM的互换，如果你只用QQ，那应该没用了吧）
QQOneClickApp.exe
QQOneClick.dll
接下来是定制QQ侧边面板了！！
QQ好友: cqqapplication.dll（这个都删了…………）
互动空间:
[SCFace] (互动空间里面按钮的图标) SBuddyApplication.dll SBuddyCall.exe SBuddyFriend.dll
企业好友:
[dat]里面的rtx_enter.jpg、rtx_friend.jpg、RTXIndex.jpg bqqapplication.dll
手机娱乐面板、内容资讯面板、音乐中心：oemapplication.dll（删除了它，直接搞定3个面板）
自定义面板：ConternTab.dll Content_Config.ini
网络硬盘: qqnetdisk.dll
（注：如果你有删除侧面板按钮，那么建议不要使用奥运版皮肤，否则按钮与按钮之间会有间隔，QQ2004面板没有问题，还可使用这个面板pixos）
无用文件：
custom_help.html help_01.gif、help_02.gif、help_03.gif、help_04.gif、help_05.gif、help_10.gif、help_11.gif、help_13.gif whatsnew.txt QQFileInfo.dat uninst.exe（我卸载QQ从来都是直接删除的，因为这个QQ是复制过来的）
还有这两个文件：TIMPlatform.exe（此文件会随QQ自动启动）、TIMProxy.dll，我不知道有什么用，但我删了，未影响QQ的使用，你自己选吧！！
禁网址连接的修改方法：
用UE打开qq的qqhelperdll.dll文件，点搜索-查找
将“查找ASCII（A）”前选“v”，如下图：
然后查找“www”，搜索结果如下图：
大家注意在找到的“www”上方有个“open”，修改“open”中的任意一个字母
保存退出，修改完毕

找到的一份《Q皮vv2006版代码》

VV的代码--------------------------------------------------------------------------------------------------------------------------------------

Dim sDate
Dim sHour
Dim sMinute
Dim sSecond
Dim eDate
Dim eHour
Dim eMinute
Dim eSecond
Dim UserNum
Dim UserStatus
Dim Path
Dim strQQMailTip
Dim ShowStatus
Dim CurrentWidth
Dim CurrentHeight
Dim PicIndex
Dim barflag
Dim barflag1
Dim preH
Dim preW
Dim preH1
Dim preW1
Dim AlbumPicIndexIndex
Dim picplay
Dim msgruning
Dim sysMsg
Dim gifsNum
Dim zhuangtai
Dim dtimeN
Dim ooo
ooo = 1

'注释

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "(离线)"
Path = " "
PicIndex = 1
AlbumPicIndexIndex = 1
ShowStatus = 0
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum + UserStatus
End If
strQQMailTip = ""
gifsNum = 0
msgruning = 0
MagicUpButton.image = 0
MagicDownButton.image = 0
sysMsg = 0
Gifs.Start

dtimeN = 0
xntime.start
End Sub

Sub Window_OnSize(cx,cy)
Window.LockPaint()
CurrentWidth = cx
CurrentHeight = cy

BackgroundRT.left = cx - 15
BackgroundT.width = cx - 30
BackgroundC.width = cx - 30
BackgroundC.height = cy - 101
BackgroundL.height = cy - 101
BackgroundR.left = cx - 15
BackgroundR.height = cy - 101
BackgroundRB.left = cx - 15
BackgroundRB.top = cy - 39
BackgroundLB.top = cy - 39
BackgroundB.top = cy - 39
BackgroundB.width = cx - 30


ScrollUpButton.top = cy -60
ScrolldownButton.top = cy -55
NewPanels.left = cx - 36
NewPanels.height = cy -170
NewPanels.top = 104
Bar1.top = 65
Bar1.height = cy - 98
Away.top = cy - 10
Visible.top = cy - 10
Online.top = cy - 10
out.top = cy - 10
Gifs.left = cx - 66
Gif1.left = cx - 66
Gif0.left = cx - 66
Gifs.top = cy - 10
Gif1.top = cy - 10
Gif0.top = cy - 10
dtime.left = cx - 67
StatusButton.left = cx - 72
MailButton.left = cx - 67
UserPic.left = cx - 53
StatusPic.left = cx - 53
MagicDownclick.left = cx - 53
MagicUpclick.left = cx - 53
clockclick.left = cx - 53
PictureBorder.left = cx -55
StatusWeather.top = cy - 29
ChangePic.left = cx - 82
MinButton.left = cx - 16
ColorButton.left = cx - 16
CloseButton.left = cx - 16
MobileMsgButton.top = cy - 30
GameButton.top = cy - 30
TTButton.top = cy - 30
ChatRoomButton.top = cy - 30
MenuButton.top = cy - 30
MsgManagerclick.top = cy - 28
MsgManagerButton.top = cy - 30
Checksysmsg1.top = cy - 30
Checkfriendmsg1.top = cy - 30
msgflash1.top = cy - 28
msgflash.top = cy - 28
ContentsButton1.top = cy - 30
SearchButton.top = cy - 30
Searchclick.top = cy - 28
ClrTrashButton.top = cy - 30
Menuclick.top = cy - 28
Qvv.top = cy - 30
aboutQvv.top = cy - 80
ShowMainBtn.left = cx - 18
ShowMainBtn.top = cy - 25
ShowOtherBtn.left = cx - 18
ShowOtherBtn.top = cy - 25
ShowLinkBtn.left= cx - 18
ShowLinkBtn.top= cy - 25
petOpenBtn.top= cy - 30
PaymentButton.top= cy - 31
QQMusic.top= cy - 30
ChatRoomButton.top= cy - 30
TTButton.top= cy - 30
QQTV.top= cy - 30


IF barflag1 =1 THEN
Bar1.width = CurrentWidth - 44
NewPanels.visible="true"
ELSE
Bar1.width = CurrentWidth -14
NewPanels.visible="false"
END IF
MailButton.label= strQQMailTip

Window.UnLockPaint()
End Sub

Sub MinButton_onClick()
Window.ExeCommand 1,2
End Sub

Sub CloseButton_onClick()
Window.ExeCommand 1,3
End Sub

Sub ColorButton_onClick()
Window.ExeCommand 4,7
End Sub

Sub Window_onClick(code, Name)
Window.LockPaint()
Window.DisableBar CStr(Name)
Window.ExeCommand code,CStr(Name)
Window.UnLockPaint()
End Sub

sub StatusPic_onClick()
Window.LockPaint()
StatusPic.visible = false
UserPic.visible = true
Window.UnLockPaint()
s = CStr(StatusButton.Left + StatusButton.width - 10)&"."&CStr(StatusButton.Top + StatusButton.height - 8)
' Window.ExeCommand 6,s
end sub

sub UserPic_onClick()
Window.LockPaint()
PicIndex = PicIndex + 1

IF PicIndex > 2 then
PicIndex = 1
UserPic.visible = false
StatusPic.visible = true
End if

UserPic.image = Path & "pic" & PicIndex & ".bmp"
Window.UnLockPaint()
end sub

Function TimeDiff(ByVal bDate ,ByVal bHour,ByVal bMinute,ByVal bSecond,ByVal eDate,ByVal eHour,ByVal eMinute,ByVal eSecond)
Dim iHourB,iMinuteB,iSecondB
Dim iHourE,iMinuteE,iSecondE
Dim dTimeB,dTimeE,dTimeDiff
Dim iHour,iMinute,iSecond
Dim day

iHourB = clng(bHour)
iMinuteB = clng(bMinute)
iSecondB = clng(bSecond)

iHourE = clng(eHour)
iMinuteE = clng(eMinute)
iSecondE = clng(eSecond)

day = DateDiff("d",bDate,eDate)
iHourE = iHourE + 24 * day

dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB
dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE
dTimeDiff = dTimeE - dTimeB

iHour = Int(dTimeDiff / 3600)
dTimeDiff = dTimeDiff - iHour * 3600
iMinute = Int(dTimeDiff / 60)
dTimeDiff = dTimeDiff - iMinute * 60
iSecond = Int(dTimeDiff)
dTimeDiff = dTimeDiff - Int(dTimeDiff)
iMiniSecond = dTimeDiff

TimeDiff = iHour & ":" & iMinute & ":" & iSecond
End Function

Sub xntime_onStopRun()
xntime.Start
if dtimeN = 0 Then

eDate = Date
eHour = Hour(now)
eMinute = Minute(now)
eSecond = Second(now)

Mytime = TimeDiff(sDate,sHour,sMinute,sSecond,eDate,eHour,eMinute,eSecond)
if ooo =0 then
QQNumber.value = Mytime
end if

end if
End Sub

Sub dtime_onClick()
if dtimeN = 1 Then
dtimeN = 0
else
dtimeN = 1
QQNumber.value = UserNum
end if
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum + UserStatus
End If
clockclick.start
clockclick.visible = true
s = CStr(dtime.Left + 6)&"."&CStr(dtime.Top - 30)
End Sub

sub NickName1_onClick()
NickName1.visible = false
NickName.visible = false
QQNumber.visible = true
end sub

sub NickName_onClick()
NickName.visible = false
NickName1.visible = false
QQNumber.visible = true
end sub

sub QQNumber_onClick()
QQNumber.visible = false
NickName.visible = true
NickName1.visible = true

end sub

Sub UpButton_onClick()
Window.LockPaint()

preH1 = CurrentHeight
preW1 = CurrentWidth
Window.minHeight = 283
Window.maxHeight = 283
Window.minWidth = 230
Window.maxWidth = 230
ChangePic.visible=true
AlbumPic.visible=true
bar1.visible = false
UpButton.visible = false
DownButton.visible = true
UnFixPanel.visible = false
FixPanel.visible = false
showBarBtn.visible = false
DisableBarBtn.visible = false
ContentsButton1.visible = false

Window.UnLockPaint()
End Sub

Sub DownButton_onClick()
Window.LockPaint()

bar1.visible = true
AlbumPic.visible=false
ChangePic.visible=false
Window.maxHeight = 1024
Window.minHeight = 178
Window.maxWidth = 1024
Window.minWidth = 155
Window.height = preH1
Window.width = preW1
Window.DisableBar CStr(1001)
Window.ExeCommand 2,CStr(1001)
ContentsButton1.visible = true
if SearchButton.visible = false then
ContentsButton1.visible = false
end if
UpButton.visible = true
DownButton.visible = false
UnFixPanel.visible = false
FixPanel.visible = true
showBarBtn.visible = True

Window.UnLockPaint()
End Sub

Sub ChangePic_onClick()
Window.LockPaint()
AlbumPicIndexIndex = AlbumPicIndexIndex + 1
IF AlbumPicIndexIndex > 5 then
AlbumPicIndexIndex = 1
End if
AlbumPic.image=path & "AlbumPic" & AlbumPicIndexIndex & ".bmp"
Window.UnLockPaint()
End Sub

Sub StatusButton_onClick()
s = CStr(StatusPic.Left + StatusPic.width - 10)&"."&CStr(StatusPic.Top + StatusPic.height - 8)
Window.ExeCommand 6,s
End Sub

sub StatusPic_onMouseMove(nX,nY)
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 20,s
end Sub

sub StatusPic_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
end Sub
sub UserPic_onMouseMove(nX,nY)
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 20,s
end Sub

sub UserPic_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
end Sub

sub StatusWeather_onMouseMove(nX,nY)
s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
Window.ExeCommand 31,s
end Sub

sub StatusWeather_onMouseLeave()
s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
Window.ExeCommand 30,s
end Sub

Sub StatusWeather_onClick()
Window.ExeCommand 61,0
End Sub

Sub MailButton_onClick()
Window.ExeCommand 7,1
End Sub

Sub HostingButton_onClick()
Window.ExeCommand 15,1
End Sub

Sub MobileMsgButton_onClick()
Window.ExeCommand 4,2

End Sub

Sub GameButton_onClick()
Window.ExeCommand 4,5

End Sub

Sub MenuButton_onClick()
s = CStr(MenuButton.Left)&"."&CStr(MenuButton.Top)
Window.ExeCommand 5,s
Menuclick.start
Menuclick.visible = true
End Sub

Sub MsgManagerButton_onClick()
Window.ExeCommand 4,6
MsgManagerclick.start
MsgManagerclick.visible = true
End Sub

Sub SearchButton_onClick()
Window.ExeCommand 4,3
Searchclick.start
Searchclick.visible = true
End Sub

Sub ContentsButton1_onClick()
Window.ExeCommand 4,9
End Sub

'Sub QQHome_onClick()
' Window.ExeCommand 16,1
'End Sub

sub PaymentButton_onClick()
Window.ExeCommand 4,8
end Sub

sub QQMusic_onClick()
Window.ExeCommand 25,1
end Sub

Sub ChatRoomButton_onClick()
Window.ExeCommand 4,1
End Sub

Sub TTButton_onClick()
Window.ExeCommand 4,4
End Sub


sub petOpenBtn_onClick()
Window.ExeCommand 40,12
end Sub

Sub QQTV_onClick()
Window.ExeCommand 26,1
End Sub

Sub ScrollUpButton_OnClick()
Window.ExeCommand 17,1
End Sub

Sub ScrollDownButton_OnClick()
Window.ExeCommand 18,1
End Sub
Sub PanelMngButton_OnClick()
Window.ExeCommand 19,1
End Sub



Sub ClrTrashButton_onClick() 'QQ魔棒按钮

magicflag = MsgBox( "提示: 此魔棒将清空QQ垃圾和系统垃圾。" & chr(10) & chr(10) & "QQ垃圾包括接收的文件,图片,头像,截图,宠物资料,临时文件,小秘书,自定义表情,断续文件等等；" & chr(10) & "QQ目录下的垃圾文件包括QQ眩铃,QQ交友,图片收藏夹,QQ场景,QQFileCache,侧边图标,smsdata,动态QQ秀" & chr(10) & "系统垃圾包括IE缓存、回收站和Temp文件夹。" & chr(10) & chr(10)&"特别提示:可以修改皮肤目录下的VBScript.vbs文件来自定义删除项。"& chr(10) & chr(10) & "请确保以上文件夹没有重要资料，继续吗？"& chr(10) & " ",1,"QQ魔棒")
If magicflag = 1 Then
ClearQQ
MsgBox "恭喜你，垃圾已清除!",0,"QQ魔棒"

End If
End Sub

'清除垃圾
'----------------------------------------------------------------------------------
Function ClearQQ()

N = 23
ReDim RecyclerPath(N)
QQPath = Left(Path,Len(Path) - 20)

'特殊文件夹
Set objShell = CreateObject("Shell.Application")

SpecialFdr = &Ha& '回收站
Set objFolder = objShell.Namespace(SpecialFdr)
Set objFolderItem = objFolder.Self
RecyclerPath(0) = objFolderItem.Path

Set myfilesys = CreateObject("Scripting.FileSystemObject")
RecyclerPath(1) = myfilesys.GetSpecialFolder(2) 'Temp文件夹
Set myfilesys = Nothing

SpecialFdr = &H20& 'TEMPORARY_INTERNET_FILES
Set objFolder = objShell.Namespace(SpecialFdr)
Set objFolderItem = objFolder.Self
RecyclerPath(2) = objFolderItem.Path

'SpecialFdr = &H21& 'COOKIES
'Set objFolder = objShell.Namespace(SpecialFdr)
'Set objFolderItem = objFolder.Self
RecyclerPath(3) = " " 'objFolderItem.Path

'SpecialFdr = &H22& 'LOCAL_SETTINGS_HISTORY
'Set objFolder = objShell.Namespace(SpecialFdr)
'Set objFolderItem = objFolder.Self
RecyclerPath(4) = " " 'objFolderItem.Path

Set objShell = Nothing

RecyclerPath(5) = QQPath & UserNum & "\CustomFaceRecv"
RecyclerPath(6) = QQPath & UserNum & "\image"
RecyclerPath(7) = QQPath & UserNum & "\QQAVFile"
RecyclerPath(8) = QQPath & UserNum & "\UserHead"
RecyclerPath(9) = QQPath & UserNum & "\SCreen"
RecyclerPath(10) = QQPath & UserNum & "\MyRecvFiles"
RecyclerPath(11) = QQPath & UserNum & "\QQPetFile"
RecyclerPath(12) = QQPath & UserNum & "\Temp"
RecyclerPath(13) = QQPath & UserNum & "\HostAlertData"
RecyclerPath(14) = QQPath & UserNum & "\CacheFolder"

RecyclerPath(15) = QQPath & "QRingFiles"
RecyclerPath(16) = QQPath & "smsdata"
RecyclerPath(17) = QQPath & "AirDLIcon"
RecyclerPath(18) = QQPath & "QQFileCache"
RecyclerPath(19) = QQPath & "IMScene"
RecyclerPath(20) = QQPath & "图片收藏夹"
RecyclerPath(21) = QQPath & "flashshow"
RecyclerPath(22) = QQPath & "QLoveFiles"
RecyclerPath(23) = QQPath & "QRingFiles"

FOR i = 0 To 1
'msgbox RecyclerPath(i)
Call CleanFile(i)
NEXT

Call CleanFile2(2)

FOR i = 5 To N
'msgbox RecyclerPath(i)
Call DelFolder(i)
Next

End Function

Sub DelFolder(i)

On Error Resume Next
Set oShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemobject")
FSO.DeleteFolder RecyclerPath(i),True
END Sub

Sub CleanFile2(i)
On Error Resume Next
strPath = RecyclerPath(i) & "\*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile strPath,True
End Sub


Sub CleanFile(i)
On Error Resume Next
Set oShell = CreateObject("Shell.Application")
Set oSHFolder = oShell.Namespace(RecyclerPath(i))
Set FSO = CreateObject("Scripting.FileSystemobject")

Set oSHFItems = oSHFolder.Items

FOR each oSHFItem IN oSHFItems
IF (oSHFItem.type = "File Folder") THEN '删除文件夹
FilePath = oSHFItem.Path
FSO.DeleteFolder FilePath,True
ELSE '删除文件
FilePath = oSHFItem.Path
FSO.DeleteFile FilePath,True
End IF
NEXT
END Sub


Sub Online_onStopRun()
If zhuangtai = 1 Then
Online.Start
End If
End Sub

Sub Away_onStopRun()
If zhuangtai = 2 Then
Away.Start
End If
End Sub

Sub Visible_onStopRun()
If zhuangtai = 3 Then
Visible.Start
End If
End Sub

Sub gif1_onStopRun()
If msgruning = 1 Then
gif1.Start
End If
End Sub

Sub gif0_onStopRun()
If msgruning = 1 Then
gif0.Start
End If
End Sub

Sub gifs_onStopRun()

If msgruning = 1 or Var = 0 Then
gifs.start
gifs.visible = true
End If
End Sub

Sub msgflash_onStopRun()

If sysmsg = 1 Then
msgflash.Start
End If
If MsgManagerButton.Visible=false Then
msgflash.Visible = false

End If

End Sub

Sub msgflash1_onStopRun()

If msgruning = 1 Then
msgflash1.Start
End If
If MsgManagerButton.Visible=false Then
msgflash1.Visible = false

End If
End Sub

Sub Checkfriendmsg1_onClick()
If msgruning = 1 Then
Window.ExeCommand 50,1
End If
End Sub

Sub Checksysmsg1_onClick()
If msgruning = 1 Then
Window.ExeCommand 50,1
End If
End Sub

Sub MsgManagerclick_onStopRun()
If gifsNum <0 Then
MsgManagerclick.start
gifsNum = gifsNum +1
Else

MsgManagerclick.visible="false"
end if

End Sub


Sub Menuclick_onStopRun()
If gifsNum <0 Then
Menuclick.start
gifsNum = gifsNum +1
Else

Menuclick.visible="false"
end if

End Sub

Sub Searchclick_onStopRun()
If gifsNum <0 Then
Searchclick.start
gifsNum = gifsNum +1
Else

Searchclick.visible="false"
end if
End Sub
Sub clockclick_onStopRun()
If gifsNum <0 Then
clockclick.start
gifsNum = gifsNum +1
Else

clockclick.visible="false"
end if
End Sub

Sub MagicDownclick_onStopRun()
If gifsNum <0 Then
MagicDownclick.start
gifsNum = gifsNum +1
Else

MagicDownclick.visible="false"
end if

End Sub

Sub MagicUpclick_onStopRun()
If gifsNum <0 Then
MagicUpclick.start
gifsNum = gifsNum +1
Else

MagicUpclick.visible="false"
end if
End Sub

Sub MagicUpButton_onClick()
Window.LockPaint()
barflag = 0
MagicUpclick.start
MagicUpclick.visible = true
preH = CurrentHeight
Window.height = 178
If NewPanels.visible = true Then

Bar1.width = CurrentWidth -14
NewPanels.height = 0
end if
If window.height > 178 Then
MagicUpButton.visible = true
MagicDownButton.visible = false
Else
MagicUpButton.visible = false
MagicDownButton.visible = true
End If

preW = CurrentWidth
Window.width = 155

If window.width > 155 Then
MagicUpButton.visible = true
MagicDownButton.visible = false
Else
MagicUpButton.visible = false
MagicDownButton.visible = true
End If
Window.UnLockPaint()
End Sub

Sub MagicDownButton_onClick()
Window.LockPaint()
barflag = 1
MagicDownclick.start
MagicDownclick.visible = true
If preH < 550 Then
preH = 550
End If

Window.height = preH

If window.height > 178 Then
MagicUpButton.visible = true
MagicDownButton.visible = false
Else
MagicUpButton.visible = false
MagicDownButton.visible = true
End If

Window.UnLockPaint()
End Sub

petOpenBtn.visible = False
PaymentButton.visible = False
QQMusic.visible = False
ChatRoomButton.visible = False
TTButton.visible = False
QQTV.visible = False
ShowMainBtn.visible = False
ShowLinkBtn.visible = False
MobileMsgButton.visible = False
ClrTrashButton.visible = False
GameButton.visible = False

sub ShowOtherBtn_onClick()
Window.LockPaint()
msgflash1.Visible = false
msgflash.Visible = false
ShowLinkBtn.visible = True
ShowMainBtn.visible = False
ShowOtherBtn.visible = False
ContentsButton1.visible = False
MobileMsgButton.visible = False
GameButton.visible = true
MenuButton.visible = False
MsgManagerButton.visible = False
SearchButton.visible = False
StatusWeather.visible = False
petOpenBtn.visible = True
PaymentButton.visible = True
QQMusic.visible = True
ChatRoomButton.visible = True
TTButton.visible = false
QQTV.visible = True
Window.UnLockPaint()
end sub

sub ShowLinkBtn_onClick()
Window.LockPaint()
ShowMainBtn.visible = True
ShowOtherBtn.visible = False
ShowLinkBtn.visible = False
petOpenBtn.visible = False
PaymentButton.visible = False
QQMusic.visible = False
ChatRoomButton.visible = False
TTButton.visible = true
QQTV.visible = False
ContentsButton1.visible = False
MobileMsgButton.visible = False
GameButton.visible = False
MenuButton.visible = False
MsgManagerButton.visible = False
SearchButton.visible = False
StatusWeather.visible = False
ClrTrashButton.visible = true
MobileMsgButton.visible = true

Window.UnLockPaint()
end sub

sub ShowMainBtn_onClick()
Window.LockPaint()
ShowMainBtn.visible = False
ShowOtherBtn.visible = True
ShowLinkBtn.visible = False
petOpenBtn.visible = False
MobileMsgButton.visible = False
ClrTrashButton.visible = False
GameButton.visible = False
PaymentButton.visible = False
QQMusic.visible = False
ChatRoomButton.visible = False
TTButton.visible = False
QQTV.visible = False
MenuButton.visible = true
MsgManagerButton.visible = true
SearchButton.visible = true
StatusWeather.visible = true
if ChangePic.visible = false then
ContentsButton1.visible = true
else ContentsButton1.visible = false
end if
Window.UnLockPaint()
end sub

ShowBarBtn.visible = true
DisableBarBtn.visible = false
sub QvvButton_onClick()
Window.LockPaint()
Window.DisableBar CStr(1001)
Window.ExeCommand 2,CStr(1001)
Window.UnLockPaint()
end sub
sub DisableBarBtn_onClick()
Window.LockPaint()
barflag1 = 0
Bar1.width = CurrentWidth -14
DisableBarBtn.visible = False
NewPanels.visible= false
upButton.visible= true
QvvButton.visible = false
Window.UnLockPaint()
end sub

sub ShowBarBtn_onClick()
Window.LockPaint()

barflag1 = 1
Bar1.width = CurrentWidth - 44
DisableBarBtn.visible = True

DownButton.visible= false
upButton.visible = false
QvvButton.visible = true
If preH < 201 Then
preH = 550
End If
NewPanels.visible= false

If window.height > 200 Then

NewPanels.visible= true
Else
NewPanels.visible= false
End If
Window.UnLockPaint()
end sub

Sub FixPanel_onClick()
Window.LockPaint()

FixPanel.visible = false
UnFixPanel.visible = true

preH = CurrentHeight
preW = CurrentWidth
Window.minHeight = preH
Window.maxHeight = preH
Window.minWidth = preW
Window.maxWidth = preW
Window.UnLockPaint()
End Sub

Sub UnFixPanel_onClick()
Window.LockPaint()

FixPanel.visible = true
UnFixPanel.visible = false

Window.maxHeight = 1024
Window.minHeight = 178
Window.maxWidth = 1024
Window.minWidth = 155
Window.height = preH
Window.width = preW
Window.UnLockPaint()
End Sub

Sub Window_OnNotify(code ,var)
If code = 1 Then
'设置当前的Uin
UserNum = var
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum + UserStatus
End If
ElseIf code = 2 Then
'闪系统消息按钮 var 为1是开始闪。为2是停止
If(var = 1) Then
sysMsg = 1
msgflash.visible="true"
msgflash.start
Else
sysMsg = 0
msgflash.visible="false"
End If
ElseIf code = 3 then
'闪状态按钮 var 为0,1,2,3是对应的ico。为4表示停止
if var = 0 then
StatusPic.ico = "Online.ico"
elseif var = 1 Then
StatusPic.ico = "leave.ico"
elseif var = 2 Then
StatusPic.ico = "invisible.ico"
elseif var = 3 Then
StatusPic.ico = "Offline.ico"
elseif var = 4 then
StatusPic.Ico = "StatusIco"
end if
ElseIf code = 4 Then
'设置那个Bar在最前
Window_onClick 2,Var
ElseIf code = 5 Then
'设置当前的状态。
if var = 10 Then
UserStatus = "(在线)"
StatusIco = "StatusPic.ico"
if ooo =1 then
sDate = Date
sHour = Hour(Now)
sMinute = Minute(Now)
sSecond = Second(Now)
ooo =0
end if
zhuangtai = 1
Visible.visible="false"
Visible.End
Away.visible="false"
Away.End
Online.visible="true"
Online.Start
elseif var = 20 Then
UserStatus = "(离线)"
StatusIco = "StatusPic.ico"
ooo = 1
zhuangtai = 0
Visible.visible="false"
Visible.End
Away.visible="false"
Away.End
Online.visible="false"
Online.End
elseif var = 30 Then
UserStatus = "(离开)"
StatusIco = "StatusPic.ico"
if ooo =1 then
sDate = Date
sHour = Hour(Now)
sMinute = Minute(Now)
sSecond = Second(Now)
ooo =0
end if

zhuangtai = 2
Visible.visible="false"
Visible.End
Online.visible="false"
Online.Start
Away.visible="true"
Away.Start
elseif var = 40 Then
UserStatus = "(隐身)"
StatusIco = "StatusPic.ico"
if ooo =1 then
sDate = Date
sHour = Hour(Now)
sMinute = Minute(Now)
sSecond = Second(Now)
ooo =0
end if
zhuangtai = 3
Online.visible="false"
Online.Start
Away.visible="false"
Away.End
Visible.visible="true"
Visible.Start
end If
StatusPic.ico = StatusIco
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum + UserStatus
End If
ElseIf code = 6 Then
'设置Skin的起始路径
Path = Var

ElseIf code = 50 Then

If Var = 1 and msgruning = 0 and sysMsg = 0 Then
msgruning = 1
gif1.visible ="true"
gif1.Start

msg.visible ="true"
msg.Start

Checkfriendmsg1.visible="true"
msgflash1.visible="true"
msgflash1.start

End if

If Var = 1 and msgruning = 0 and sysMsg = 1 Then
msgruning = 1
gif0.visible="true"
gif0.Start
Checksysmsg1.visible="true"
End if

If Var = 0 and msgruning = 1 Then
msgruning = 0
gif1.End
gif1.visible="false"
gif0.End
gif0.visible="false"
msg.End
msg.visible ="false"
Checkfriendmsg1.visible="false"
msgflash1.visible="false"
msgflash1.End
Checksysmsg1.visible="false"
End If


ElseIf code = 100 Then

strQQMailTip = "[" + CStr(var) + "]"
MailButton.label = strQQMailTip
if(MailButton.label <> "[0]") then
newmail.visible = true
newmail.Start
end if
ElseIf code = 101 Then
HostingButton.label = "(" + CStr(var) + ")"
End If
End Sub

Sub msg_onStopRun()

If msgruning = 1 Then
msg.Start
End If
End Sub

Sub newmail_onStopRun()
newmail.Start
End Sub

Sub Msg_onClick()
If msgruning = 1 Then
Window.ExeCommand 50,1
End If
End Sub

Sub newmail_onClick()
newmail.visible = false
Window.ExeCommand 7,1
End Sub

使QQ可以调用外部程序的vbscript.dll

提取地址

[此贴子已经被作者于2006-8-20 2:20:02编辑过]

都看晕了

不过做的很充分

仅收集了部分，这个是我好不容易搜集来了，希望老大可以加精或置顶。