QQ技巧(1)

最新推荐文章于 2024-03-20 22:59:15 发布

风筝

最新推荐文章于 2024-03-20 22:59:15 发布

阅读量1.5k

点赞数 1

分类专栏： Software技巧文章标签： qq path

本文链接：https://blog.csdn.net/SoakTech/article/details/313405

版权

Software技巧专栏收录该内容

3 篇文章 0 订阅

订阅专栏

你注意到QQ面板上方自己头像边上显示的自己的qq号码了吗？你如果在网吧上网，这个小东西就可能无异间将你的qq号码泄漏给别人哦！我们如果将它改变显示成自己的状态或昵称，不仅解决了隐私保密的问题，而且还能拥有与众不同的QQ哦！

以QQ2005皮肤为例，用记事本打开VBScript.vbs文件，找到下面这段代码：

      1   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  ...........

上面代码中第四行的var的值就是qq程序发送来的qq号码，QQNumber.value就是你qq面板上显示的qq号码。显然更改QQNumber.value的值，就能改变面板上的QQ号码显示。其实设置qq号码显示的代码还有以下两处：

    2   Sub Window_OnInit()
                Window.GetScriptVersion "1.0"
                 UserStatus = "(离线)"
                 Path = "NewSkins//2005新春版//"
                 ShowStatus = 1
                 UserNum = "0"
                 petCloseBtn.visible = false
                If 1 = ShowStatus Then
                     UserNum = UserNum + UserStatus
                 End If
                 strQQMailTip = ""
          End Sub ...............

    3   ElseIf code = 5 Then
                     '设置当前的状态。
                     if var = 10 Then
                          UserStatus = "(在线)"
                          StatusIco = "StatusPic.ico"
                     elseif var = 20 Then
                          UserStatus = "(离线)"
                          StatusIco = "StatusPic1.ico"
                    elseif var = 30 Then
                          UserStatus = "(离开)"
                          StatusIco = "StatusPic2.ico"
                     elseif var = 40 Then
                          UserStatus = "(隐身)"
                          StatusIco = "StatusPic3.ico"
                     end If
                     StatusPic.ico = StatusIco
                     If 0 = ShowStatus Then
                         QQNumber.value = UserNum
                     Else
                         QQNumber.value = UserNum + UserStatus
                     End If.................