frmbrowser.frm

就是定时刷新

      Begin VB.Menu Y1 
         Caption         =   "-"
      End
      Begin VB.Menu MNUZHU 
         Caption         =   "首页"
         Shortcut        =   ^H
      End
      Begin VB.Menu MNUSS 
         Caption         =   "搜索"
         Shortcut        =   ^S
      End
      Begin VB.Menu Y2 
         Caption         =   "-"
      End
      Begin VB.Menu MNUEXIT 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnuzb 
      Caption         =   "作弊(&Z)"
      Begin VB.Menu MNUDH 
         Caption         =   "导航"
         Shortcut        =   ^D
      End
      Begin VB.Menu Y3 
         Caption         =   "-"
      End
      Begin VB.Menu MNUKSZB 
         Caption         =   "开始作弊"
         Shortcut        =   ^K
      End
      Begin VB.Menu MNUTZ 
         Caption         =   "停止作弊"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu MNUABOUT 
      Caption         =   "关于(&A)"
      Begin VB.Menu MNUH 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu Y4 
         Caption         =   "-"
      End
      Begin VB.Menu MNUXX 
         Caption         =   "给我写信"
         Shortcut        =   {F3}
      End
      Begin VB.Menu MNUFW 
         Caption         =   "访问作者主页"
         Shortcut        =   {F4}
      End
      Begin VB.Menu MNUY7 
         Caption         =   "-"
      End
      Begin VB.Menu MNUAB 
         Caption         =   "关于"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "frmBrowser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 影子 整理  VB爱好者乐园 http://yingzi007.126.com

Public StartingAddress As String
Dim mbDontNavigateNow As Boolean

Private Sub Command1_Click()
 On Error Resume Next
 timTimer.Enabled = True
 brwWebBrowser.GoBack
End Sub

Private Sub Command10_Click()
 brwWebBrowser.Navigate cboAddress.Text
End Sub

Private Sub Command11_Click()
 Timer1.Interval = 1000 * Val(Trim(Combo1.Text))
 Timer1.Enabled = True
End Sub

Private Sub Command12_Click()
 Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
On Error Resume Next
 timTimer.Enabled = True
 brwWebBrowser.GoForward
End Sub

Private Sub Command3_Click()
On Error Resume Next
 timTimer.Enabled = True
 timTimer.Enabled = False
 brwWebBrowser.Stop
 Me.Caption = brwWebBrowser.LocationName
End Sub

Private Sub Command4_Click()
On Error Resume Next
 timTimer.Enabled = True
 brwWebBrowser.Refresh
End Sub

Private Sub Command5_Click()
On Error Resume Next
 timTimer.Enabled = True
  brwWebBrowser.GoHome
End Sub

Private Sub Command6_Click()
On Error Resume Next
 timTimer.Enabled = True
 brwWebBrowser.GoSearch
End Sub

Private Sub Command7_Click()
 frmAbout.Show
End Sub

Private Sub Command8_Click()
 help0.Show
End Sub

Private Sub Command9_Click()
 If Trim(cboAddress) <> "" Then
  Open "c:\windows\net.net" For Output As #1
  Print #1, Trim(cboAddress)
  Close #1
 End If
 End
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Me.Show
    Form_Resize
   cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
    If FileExist("c:\windows\net.net") Then
     Open "c:\windows\net.net" For Input As #1
     Input #1, StartingAddress
     Close #1
    If Len(StartingAddress) > 0 Then
        cboAddress.Text = StartingAddress
        cboAddress.AddItem cboAddress.Text
        '试图浏览到起始地址
        timTimer.Enabled = True
        brwWebBrowser.Navigate StartingAddress
    End If
   End If
End Sub
Private Sub brwWebBrowser_DownloadComplete()
    On Error Resume Next
    Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
    Dim I As Integer
    Dim bFound As Boolean
    Me.Caption = brwWebBrowser.LocationName
    For I = 0 To cboAddress.ListCount - 1
        If cboAddress.List(I) = brwWebBrowser.LocationURL Then
            bFound = True
            Exit For
        End If
    Next I
    mbDontNavigateNow = True
    If bFound Then
        cboAddress.RemoveItem I
    End If
    cboAddress.AddItem brwWebBrowser.LocationURL, 0
    cboAddress.ListIndex = 0
    mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
    If mbDontNavigateNow Then Exit Sub
    timTimer.Enabled = True
    brwWebBrowser.Navigate cboAddress.Text
    cboAddress.AddItem cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        cboAddress_Click
    End If
End Sub
Private Sub Form_Resize()
  If Me.ScaleWidth <> 0 Then
    cboAddress.Width = Me.ScaleWidth - 100
    brwWebBrowser.Width = Me.ScaleWidth - 100
    brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height + Picture1.Height) + 300
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 If Trim(cboAddress) <> "" Then
  Open "c:\windows\net.net" For Output As #1
  Print #1, Trim(cboAddress)
  Close #1
 End If
 End
End Sub

Private Sub MNUAB_Click()
Command7_Click
End Sub

Private Sub MNUBACK_Click()
Command1_Click
End Sub

Private Sub MNUDH_Click()
Command10_Click
End Sub

Private Sub MNUEXIT_Click()
 If Trim(cboAddress) <> "" Then
  Open "c:\windows\net.net" For Output As #1
  Print #1, Trim(cboAddress)
  Close #1
 End If
 End
End Sub

Private Sub MNUFOR_Click()
Command2_Click
End Sub

Private Sub MNUFW_Click()
ShellExecute 0&, vbNullString, "Http:\\vbskys.yeah.net", vbNullString, vbNullString, vbNormalFocus
End Sub

Private Sub MNUH_Click()
Command8_Click
End Sub

Private Sub MNUKSZB_Click()
Command11_Click
End Sub

Private Sub MNUS_Click()
Command4_Click
End Sub

Private Sub MNUSS_Click()
Command6_Click
End Sub

Private Sub MNUSTOP_Click()
Command3_Click
End Sub

Private Sub MNUTZ_Click()
Command12_Click
End Sub

Private Sub MNUXX_Click()
 ShellExecute 0&, vbNullString, "MailTo:[e-mail]", vbNullString, vbNullString, vbNormalFocus
End Sub

Private Sub MNUZHU_Click()
Command5_Click
End Sub

Private Sub Timer1_Timer()
 brwWebBrowser.Navigate cboAddress.Text
End Sub

Private Sub timTimer_Timer()
    If brwWebBrowser.Busy = False Then
       timTimer.Enabled = False
       Me.Caption = brwWebBrowser.LocationName
    Else
        Me.Caption = "正在打开..."
    End If
End Sub