个人广告时间
vb编程爱好者群：33688827            vb黑客群：37498778
欢迎大家交流，现在正在招集vb狂热爱好者若干（十人左右，多名成员及一名队长)
条件如下：1.在校大学生（无论专科还是本科，最好是计算机相关专业）2.有团队精神和团队意识，以团队合作为大局3.有个人电脑，充足的上网时间（一周在10小时以上）4.以vb编程为主（有一定vb基础，各个成员可根据自身要求掌握其他编程语言），交流vb编程经验，合作编程和黑客技术 5.有意者请将个人详细网络信息（包括网名，QQ，电子邮箱，上网时间和上网时段，擅长何种编程语言）及所在大学（不要求真实姓名，其他资料一定要真实）发送到我的邮箱fitgore@126.com 6.队长要求：有稳定工作，有远大抱负，有组织交流沟通能力，有团队精神，吃苦耐劳，有深厚的vb编程经验 7.最重要的就是有诚信，没诚信不要来 8.团队运作时间：暑假
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
                            vb定时打开网页或者文件
 大家好，我是fitgore，QQ564657791，

很久没有写过教程了，今天心血来潮，随便写写吧了

大家应该都知道有种病毒是定期发作，例如情人节2月14，又或者愚人节4月1日发作，

总之就是的特定时间或者特定时段病毒就会爆发，今天我们教程就是利用到这个原理。

说了出来大家都明白了吧，其实很简单，用到timer控件就行了，

大家看到这里应该都明白了吧，闲话少说，打开vb6，新建标准exe  添加timer控件

好，，刚才忘了设置interval 郁闷啊，设置成1000吧，

要记住，忘了就没效果呵呵，打开了吧，

api函数声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

这是打开网页，用到shellexecute函数，打开文件也是用到shellexecute函数

Private Sub Timer1_Timer()
Dim xianzai As Date
xianzai = "发作时间"
If Time() = xianzai Then
ShellExecute hWnd, "open", "http://www.baidu.com", vbNullString, vbNullString, conSwNormal
End If
End Sub
等他发作吧，网页打开了，定时打开网页就是这样简单

换成打开程序也一样，这里就不在演示了，好教程就到这里，我是fitgore  QQ564657791
ShellExecute Me.hWnd, "open", "C:\Program Files\Maxthon2\Maxthon.exe", "", "", 1

888888888888888888888888

• [VIP 线路 - 电信高速下载][非高级会员不可下载]
• [VIP 线路 - 双线高速下载][非高级会员不可下载]

• ☉ 定时打开网页或者文件

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR5.6版本压缩，所以请一定升级到WinRAR5.6或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.987654321sf.com