![](http://tiebapic.baidu.com/forum/w%3D580/sign=6b6bf32f27d9f2d3201124e799ee8a53/7fc97b899e510fb31fbbbb599c33c895d0430c66.jpg?tbpicau=2024-07-03-05_4a5f02d9c66b1c4195db0f25b3619486)
Private Sub Form_Load()
'消除弹窗
WebBrowser1.Silent = True
'程序装入后进入IE设定的起始页
WebBrowser1.Navigate "https://http://cxfw.jtyst.xinjiang.gov.cn/home/index"
'0.5s响应一次
Timer1.Interval = 500
'宏定义量进行赋值
inf = 9999
'数据库初始化
End Sub
Private Sub Timer1_Timer()
If qq = 3 Then '只执行一次
'移动网页
WebBrowser1.Document.parentwindow.scrollby 280, 460
'消除滚动条
WebBrowser1.Document.Body.Scroll = "no"
'缩放
WebBrowser1.Document.Body.Style.Zoom = 0.75
End If
qq = qq + 1
End Sub