按键精灵QQ强制聊天源码

这个脚本使用实在是很简单啊 ,就按开始键,然后输入对方QQ几可以了 

作者:綦文博 

运行环境:分辨率:1024×768 色深:32位 操作系统:Windows XP 按键精灵版本:7.10.4422

运行环境:分辨率:1680×1050 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.00.9460

VBSBegin   
On Error Resume Next  
Dim word  
s = "set word = GetObject(," & chr(34) & "word.application" & chr(34) & ")"  
execute s  
If Err.Number=0 Then  
    ret = word.activedocument.Path  
    RunApp  ret  
    Set word = Nothing  
End If  
VBSEnd

按键精灵QQ强制聊天源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注