大家都知道通过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