magic.frm

一个QQ魔法表情播放器

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "QQ魔法表情播放器"
   ClientHeight    =   5400
   ClientLeft      =   4755
   ClientTop       =   2430
   ClientWidth     =   6060
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5400
   ScaleWidth      =   6060
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   495
      Left            =   2400
      TabIndex        =   2
      Top             =   4680
      Width           =   1215
   End
   Begin VB.FileListBox File1 
      Height          =   3330
      Left            =   120
      Pattern         =   "*.swf"
      TabIndex        =   0
      Top             =   600
      Width           =   5775
   End
   Begin VB.Label Label1 
      Caption         =   "本程序要放在QQ的安装目录才能正常运行"
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   4080
      Width           =   3255
   End
   Begin VB.Label Label2 
      Caption         =   "单击一个文件即可播放"
      Height          =   375
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   5535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************
'*    http://hi.baidu.com/lblo   *
'*    QQ:23658015                *
'*    Email:[e-mail]        *
'*************************************
Private Sub Form_Load()
Dim path
path = App.path & "\magicface"
If Dir(path, vbDirectory) <> "" Then '判断自己是否在QQ的安装目录中
File1.path = App.path & "\magicface"
Else
MsgBox "请将本程序放在QQ的安装目录", vbExclamation, "请合作" '如果不是就退出
End
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub File1_Click()
Dim cmdline
Call creatfile '在QQ安装目录的magicface文件夹下生成播放QQ魔法表情所需要的临时文件
cmdline = App.path & "\magicflash.exe " & App.path & "\magicface\" & File1.FileName & " " & App.path & "\magicface\magic.tmp"
Shell "cmd.exe /c " & cmdline, vbHide '播放QQ魔法表情
End Sub
Private Sub creatfile()
Dim file
file = App.path & "\magicface\magic.tmp"
If Dir(file) <> "" Then
Kill (file)
End If
Dim a(17) As Byte
a(0) = &HA '下面为文件十六进制形式的内容
a(1) = &H4A
a(2) = &H13
a(3) = &H86
a(4) = &H74
a(5) = &H9C
a(6) = &H34
a(7) = &H43
a(8) = &H24
a(9) = &HD9
a(10) = &HB9
a(11) = &HFF
a(12) = &H3A
a(13) = &HD9
a(14) = &H4D
a(15) = &HF2
a(16) = &H30
a(17) = &H90
Open file For Binary As #1 '写入到文件
Put #1, , a
Close #1
End Sub