QQ技巧(1)

最新推荐文章于 2018-06-09 21:59:11 发布

原创最新推荐文章于 2018-06-09 21:59:11 发布 · 2.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#qq #path

Software技巧专栏收录该内容

3 篇文章

订阅专栏

在网吧上网时，QQ面板上显示的号码可能导致隐私泄露。本文以QQ2005皮肤为例，介绍通过修改VBScript.vbs文件中的代码，改变面板上QQ号码的显示，还可选择是否显示状态，从而隐藏号码、打造个性QQ。

你注意到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.................