添加了55个QQ的默认表情进来~

新版的QQ默认表情还不错,能比较合适地表现部分心情与状态,于是就添加到这个BLOG里面来.

不过一到后台,才发现没有批量添加功能...只能一个一个添.....这不要命嘛~~55个啊~~

于是直接打开数据库,发现也是很麻烦~~干脆,写个程序来自动输入算了

先手工输入了一下,发现操作过程是这样的:

先输入文件名,再回车,此时输入焦点切换到下一项; (格式: X.gif)

再输入表情码,再回车,此时输入焦点切换到下一行的新记录; (格式: [faceQQxx])

再回车一下,跳过"自动编号".

哈哈,那好说了~~

马上弄了个代码如下:

[codes=vb]Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Timer1.Enabled = True '按了按钮后延时一点...要切换到ACCESS嘛
End Sub

Private Sub Timer1_Timer()
Dim I As Long '时间到,开始模拟键盘~~:D

Timer1.Enabled = False
For I = 0 To 54 '有55个表情,0到54,分别是数字加.gif后缀
SendKeysss I & ".gif" '生成文件名并写入
SendKeysss "[faceQQ" & Format(I, "00") & "]" '生成表情码名并写入
SendKeys "~", True '回车一下,跳过自动编号
Sleep 50
Next I
End Sub

Private Function SendKeysss(ByVal theStr As String)
Clipboard.Clear '把字符复制到剪贴板,并模拟Ctrl + V与回车
Clipboard.SetText theStr
Sleep 50
SendKeys "^v~", True
Sleep 50
End Function[/codes]

嘿嘿,烦人的事情用这程序一分钟不到就搞定了~~

上一篇: 超强的大脑.....
下一篇: VB函数添加大师2.0版快写完了....
文章来自: 本站原创