写了个刷百度关键词网站流量的代码 但是统计不到数据

以下就是全部代码了
功能是 打开百度 输入 普乐美2519 点击搜索 弹出搜索结果网页 再跳转到 目标网址
显示上都没有问题 但是目标网址上的流量统计不显示 这个百度关键词的来路。
我觉得有可能是 最后 倒数第三句的问题。请高手解答

Dim headers As String

Private Sub Form_Load()

headers = "Content-Type: application/x-www-form-urlencoded"
W1.Navigate "http://www.baidu.com"
End Sub
Private Sub Timer1_Timer()
W1.Navigate "http://www.baidu.com"
Timer2.Enabled = True
Timer2.Interval = 2000
End Sub
Private Sub Timer2_Timer()
W1.Document.GetElementByID("wd").InnerText = "普乐美2519"
Timer2.Enabled = False
Timer3.Enabled = True
Timer3.Interval = 2000
End Sub

Private Sub Timer3_Timer()
W1.Document.GetElementByID("su").Click
Timer3.Enabled = False
Timer4.Enabled = True
Timer4.Interval = 2000
End Sub

Private Sub Timer4_Timer()
W1.Navigate "http://www.premiumhr.asia"
Timer4.Enabled = False
End Sub