按精技巧請教~

VBS Dim objIE,x,s
// 啟動IE
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Visible=true
// 打開預設網頁 台南房屋
VBS objIE.Navigate "http://tw.search.yahoo.com/search?p=%E5%8F%B0%E5%8D%97%E6%88%BF%E5%B1%8B&rd=r1&fr=yfp&fr2=sb-top&xargs=12KPjg1upSvYGmmvmnN%2DmZDrDaoAtP0cHwsd5sCpIIXYZL8wZvWPV9aOGQxZ5tTphm7xvSy%5FI4zJNHf%2Db47PqLMz6%2D&pstart=7&b=21"
// 判斷頁面是否讀取完畢
While objIE.Busy Or  objIE.ReadyState <> 4
EndWhile
// 讀取完成，開始其它腳本動作
VBS strIE = objIE.Document.Body.InnerHTML
LeftClick 1
Delay 100
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 500
SayString "KHome"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
KeyDown 16, 1
KeyPress "Tab", 1
KeyUp 16, 1
Delay 500
KeyPress "Enter", 1
Delay 10000
KeyDown 18, 1
KeyPress 115, 1
KeyUp 18, 1


拍謝啦！小亂 因為第一次編輯
這是我自已寫的
大致上是   
開起yahoo網頁(已搜尋好"台南房屋"的網址)
然後點一下(為了讓電腦可以在瀏灠器上搜尋)
ctrl + F  (單純搜尋 開新視窗)
輸入 KHome
然後enter (找到 keyword)
再esc(關掉搜尋視窗)
再來 shift + tab (選擇 keyword)
enter
停留十秒
新視窗 ctrl + f4 (關閉)


但我實際run了一下  他新開的視窗好像會跑掉
所以 我滑鼠點一下後  會沒有用 =  =

請教大大 我怎麼把他改成
開 奇摩首頁 然後在指定的框內 key入我的keyword(比如：台南買屋)
然後搜尋 我的keyword
再網頁上 從第一頁選擇到有我 另一個 keyword (例如：KHome)
開起我的網站後   停留一下 關閉    斷線 再連線  然後一直重覆

主要是要寫  我想把我的網站衝到 奇摩的第一頁的第一~二個= =
簡單說 就是 seo  我有寫大致了 不過感覺不好用@.@
或者有什麼方法可以修正
我想寫 奇摩 yahoo...等站 讓他run 一次 關鍵字後 點擊一下
清一次cookie 斷線 再重連~
(重點是在點那一下 = = 然後斷線)

希望有大大可以幫我 謝謝~"~