[转载]QQ魔法表情的VBS玩法

作者：一叶 QQ：5794560

大家都知道通过QQ魔法表情的预览功能可以欣赏很多免费或收费的QQ魔法，再把临时魔法表情从magicface文件夹给拖出来保存，然后通过"MagicFlash.exe"程序就可以播放有趣的魔法了。刚刚看过一篇《QQ免费得到魔法表情以及原理》，里面说得很清楚，我就不多说了。下面我们看一看怎样利用vbs文件来玩QQ魔法：
   MagicPath = "C:\Program Files\Tencent\qq\MagicFlash.exe" 'MagicFlash.exe的路径
   FlashPath = "C:\qqmagic.swf" '保存魔法的路径
   Set Shell = CreateObject("WScript.Shell")
   Cmd = chr(34)&MagicPath&chr(34)&" "&chr(34)&FlashPath&chr(34)
   Call Shell.Run(Cmd,1, True) '运用MagicFlash.exe程序播放动画
   将上面的代码保存为qqMagic.vbs，双击就可以播放没有边框的模仿表情了，原理很简单，不用解释吧。接着我们再来看一看如何利用vbs下载QQ魔法表情，下面是我编写的代码，看看先：
Dim ids,mfid
mfid=InputBox(GetInfo(),"QQ魔法表情(Designed By fxsl)")
If mfid"" Then
   call ShowMagic("C:\Program Files\Tencent\qq\MagicFlash.exe","C:\qqmagic.swf",mfid) '具体的路径请自己修改
End If
'=====================================================================BIN to STRING

GetBytes2BSTR(bHtmlStr)
Function GetBytes2BSTR(bHtmlStr)
   dim sReturnStr
   dim i,n
   sReturnStr = ""
   n = LenB(bHtmlStr)
   For i = 1 To n
      dim sCharCode
      dim sNextCharCode
        sCharCode = AscB( MidB(bHtmlStr, i, 1) )
        If (sCharCode