按键精灵使用到期怎么才能弹出购买链接

[复制链接]
查看11 | 回复1 | 2011-5-6 20:23:42 | 显示全部楼层 |阅读模式
给个能用的源代码~!急~~~~

回复

使用道具 举报

千问 | 2011-5-6 20:23:42 | 显示全部楼层
If CDate("2010-5-6")>CDate("2010-5-5") Then
a=InputBox("你的精灵已经到期了,请前往以下链接购买:","hi","http://www.baidu.com")
If a="" then
EndScript
Else
RunApp a
End IfElse
MessageBox "你是会员"End If
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行