祼求怎么打开指定的网址？和 如何在指定的时间内刷新指定的页面？

Question

请问怎么打开指定的网址？和如何在指定的时间内刷新指定的网址？
比如，两分钟，，刷新一次。http://www.163.com  不是刷新当前该页面，是刷新指定的。
我的IE有毛病,如果刷新当前该页面不成功就会跳转到其它网站，下次刷新就不是我想刷新的地址了，所以需要指定的，
麻烦前辈们给段教程和源代码！小弟在此谢过!

Answer 1

'打开网页.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
Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
ShellExecute Me.hWnd, vbNullString, "http://www.163.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Answer 2

//请问怎么打开指定的网址？
//和如何在指定的时间内刷新指定的页面？
两个问题是同一个答案WebBrowser1.Navigate "网址"

Answer 3

倒，不是在IE里打开呀，是在VB里的WebBrowse控件里打开指定的网址并定时刷新指定的网址。(比如：http://www.163.com)但还是要感谢“ tztz520(午夜逛街) ”

Answer 4

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1050
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4170
   LinkTopic       =   "Form1"
   ScaleHeight     =   1050
   ScaleWidth      =   4170
   StartUpPosition =   3  '窗口缺省
   Begin SHDocVwCtl.WebBrowser wb 
      Height          =   2250
      Left            =   1035
      TabIndex        =   2
      Top             =   1935
      Width           =   4500
      ExtentX         =   7937
      ExtentY         =   3969
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin VB.CommandButton Command2 
      Caption         =   "开始"
      Height          =   375
      Left            =   270
      TabIndex        =   1
      Top             =   330
      Width           =   1560
   End
   Begin VB.CommandButton Command1 
      Caption         =   "停止"
      Height          =   405
      Left            =   2265
      TabIndex        =   0
      Top             =   330
      Width           =   1605
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub Command1_Click()
    stopfre = True
End SubPrivate Sub Command2_Click()
    If stopfre Then
        stopfre = False
        freshAlways
        
    End If
End SubPrivate Sub Form_Load()
    wb.Navigate "http://www.163.net"
    Me.Hide
    freshAlways
End Sub
Private Sub freshAlways()
    On Error Resume Next
    Do While stopfre = False
        DoEvents
        Sleep (1000)
        wb.Refresh
    Loop
End Sub
把上面保存成frm就可以了，一秒刷一次。

Answer 5

//WebBrowser1.Navigate "网址"这个我明白了，感谢“BlueBeer(1win)”的教导。但还有一个问题，如何设置在5分钟刷新一次。 可以教教我吗

Answer 6

wwqna(york)。。你也太夸张了吧！！我啥都看不明白。

Answer 7

//WebBrowser1.Navigate "网址"这个好像不会刷重新读取服务器数据。。..

Answer 8

Private Sub Form_Load()
   Timer1.Interval = 30000 '五分钟
   WebBrowser1.Navigate "http://www.163.com"
End SubPrivate Sub Timer1_Timer()
   WebBrowser1.Navigate "http://www.163.net"
End Sub

Answer 9

Timer的Interval没法设那么长，可以判断系统时间，或者计数来实现

Answer 10

时间不是问题，，
问题是用WebBrowser1.Navigate这个，第二次的时间不会重新从服务器读取数据。只是刷新本地IE记录的页面如何现实直接读取服务器的数据，而不是读IE记录的。

Answer 11

会再从服务器读取数据的，如果你时间长一点的话，可以把刷新的动作time事件里面，上面那段程序原来是用来刷新我们公司网站的，结果，10分钟之后，服务器上就会有一大堆的记录。

Answer 12

Timer的Interval设为60000，在Timer里定义一个static变量，执行一次timer事件就给变量加1，变量值为5即五分钟了，将变量的值清0，并重新引导WebBrowser