百度的小秘密

也学习者

浏览器 打开那个 文件看看

Dim lastresult$, url$, stemp$, fname$

Private Sub Command1_Click()
url = "http://www.baidu.com/"
fname = "c:\test.htm"
lastresult = ""
Inet1.protocol = icHTTP '指明控件协议类型
Inet1.Execute CStr(url), "GET /" '发出请求
While Inet1.StillExecuting
DoEvents
Wend
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12 '表明网络连接检索正常
  
  
stemp = Inet1.GetChunk(1024) '使用GetChunk方法从缓冲区中一次提取1024个字节的回应文本，并存放在stemp临时变量中
  
Open fname For Output As #1
While stemp <> "" '当仍然返回信息时
lastresult = lastresult & stemp & vbCrLf '将整个网页的源文件代码放入LastResult变量中
  
Print #1, stemp
  
stemp = Inet1.GetChunk(1024) '循环
  
Wend
Close #1
  
  
Call Shell("explorer " & fname, 3)
MsgBox "下载完成了"
  
  
  
  
Case 11
MsgBox "未返回搜索结果"
End Select
End Sub

也学习者

c 盘文件药用 ie 打开 opera  can't

或者 直接 搜索 http://www.baidu.com源代码     “百度一下 id=sb”

使命召唤

本来搜索引擎就不是什么复杂的东西, 关键是谁先开始推广和使用这个东西, 最早运用的人赚到了钱, 百度和谷哥一样, 都是老大, 现在做个再好的比百度好的东西也没人访问, 这也是为什么百度值钱的原因, hao123也是个幸运儿.

你们说163和yahoo是不是很简单? 对, 如果你在90年代网络刚刚在中国兴起的时候推出来, 你现在就是第一.

打酱油的

教主天下无底！！

使命召唤

打酱油的: Re:百度的小秘密

教主天下无底！！

第一个推出的人就是原创人, 你的智慧太低, 不用想别的了, 还是研究你的理论吧. [em2]

打酱油的

使命召唤: Re: Re:百度的小秘密



第一个推出的人就是原创人, 你的智慧太低, 不用想别的了, 还是研究你的理论吧. [em2]

what did you say? i can't understand,however,it sounds like piggy..