外挂编程

开发平台：

Visual Basic

GotoWeb.bas：源码内容

							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

						