vb做一个简单小程序

'已经发送到你的邮箱，请查收。
'在窗体上需要添加 webbrowser1控件,timer1控件,label1 label2 控件
Private Sub Form_Load()
'me.hide为隐藏窗体，可以删除或注释。
Me.Hide
Dim strin As String
'如果文件不存在则中断程序运行.文本文件名称为:当前程序相同目录test.txt
If Dir(App.Path & "\test.txt") = "" Then End

Open App.Path & "\test.txt" For Input As #1
Line Input #1, strin
Label1.Caption = strin

Close #1
Timer1.Enabled = True
' 1000为1秒
Timer1.Interval = 1000

WebBrowser1.Navigate (Label1.Caption)

Label2.Caption = "0"
End Sub

Private Sub Timer1_Timer()

If WebBrowser1.Busy = False Then

'值为600表示600秒即十分钟
If Label2.Caption = "600" Then

WebBrowser1.Refresh
Label2.Caption = 0
Debug.Print "刷新完成" & Now()
End If

Label2.Caption = Label2.Caption + 1

End If

End Sub

Private Sub Form_Load()
Me.Hide
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

这个用VB做不了
因为EXE不能被破解
这个要用JavaScript做才可以的
分给我 我帮你做