GotoWeb.bas
资源名称:qq.rar [点击查看]
上传用户:luoweizhao
上传日期:2022-08-01
资源大小:1290k
文件大小:2k
源码类别:
外挂编程
开发平台:
Visual Basic
- Attribute VB_Name = "GotoWeb"
- Sub gotoindex() '跳转到uu23网站
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://www.h876.com")
- End Sub
- Sub gotodh() '跳转到2523网站
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://www.2523.com/?qqbl")
- End Sub
- Sub gotoupdate() '跳转到uu23网站
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://www.h876.com/Update.html")
- End Sub
- Sub gotobbs() '跳转到uu23论坛
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://www.h876.com")
- End Sub
- Sub gotoqqjh() '跳转到QQ号码激活页面
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://im.qq.com/jh/")
- End Sub
- Sub gotojiaoliu() '跳转论坛设置交流
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- objIE.Navigate ("http://www.h876.com/thread.php?fid=4")
- End Sub
- Sub gotoqzoneweb() '打开QQ空间
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- If Len(zzpanelkey) > 0 Then
- objIE.Navigate ("http://imgcache.qq.com/qzone/jump.html#zzpaneluin=" & MyQQ & "&zzpanelkey=" & zzpanelkey & "&url=http://happyfarm.qzone.qq.com/")
- ElseIf Len(MyQQ) > 0 Then
- objIE.Navigate ("http://user.qzone.qq.com/" & MyQQ)
- Else
- objIE.Navigate ("http://qzone.qq.com")
- End If
- End Sub
- Sub gotoqqxiaoyou() '打开QQ校友
- On Error Resume Next
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Visible = True
- If Len(zzpanelkey) > 0 Then
- objIE.Navigate ("http://imgcache.qq.com/qzone/jump.html#zzpaneluin=" & MyQQ & "&zzpanelkey=" & zzpanelkey & "&url=http://happyfarm.xiaoyou.qq.com/")
- Else
- objIE.Navigate ("http://xiaoyou.qq.com")
- End If
- End Sub