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

xiaominjun 2010-03-19 02:58:08
以下就是全部代码了
功能是 打开百度 输入 普乐美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




...全文
311 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaominjun 2010-03-22
  • 打赏
  • 举报
回复
呵呵。
无·法 2010-03-22
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 xiaominjun 的回复:]
没有人看到帖子吗?
[/Quote]
有,但是我这上不了百度
xiaominjun 2010-03-22
  • 打赏
  • 举报
回复
没有人看到帖子吗?

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧