查看單個文章
舊 2010-07-07, 01:26 AM   #18 (permalink)
cwvdavid
長老會員
 
cwvdavid 的頭像
榮譽勳章
UID - 476
在線等級: 級別:46 | 在線時長:2395小時 | 升級還需:2小時級別:46 | 在線時長:2395小時 | 升級還需:2小時級別:46 | 在線時長:2395小時 | 升級還需:2小時級別:46 | 在線時長:2395小時 | 升級還需:2小時級別:46 | 在線時長:2395小時 | 升級還需:2小時級別:46 | 在線時長:2395小時 | 升級還需:2小時
註冊日期: 2002-12-06
住址: 天與地的夾縫
文章: 3106
精華: 0
現金: 5256 金幣
資產: 2034465 金幣
預設



我實際將檔名改成 .exe, 就是無法執行 >_<
(應該是執行環境不同...不然就是我的電腦有問題...)

http://img809.imageshack.us/img809/5901/snapshot062.png


撇開程式碼的種類不談...

以下是我寫 vbscript 的寫法 (用記事本,填入下列資料,然後直接改名為 xxx.vbs ) 就可以執行了...
------------------------------------
set IE = WScript.CreateObject("InternetExplorer.Application")
IE.ToolBar = true
IE.StatusBar = true
IE.Resizable = true
IE.Width = 640
IE.Height = 480

IE.Visible = True '開啟IE...

IE.Navigate "http://www.atlaspost.com/farm.php?id=10490"
Do
Loop While IE.Busy
msgbox("第1個")

IE.Navigate "http://www.atlaspost.com/farm.php?id=38577"
Do
Loop While IE.Busy
msgbox("第2個")

IE.Navigate "http://www.atlaspost.com/farm.php?id=243"
Do
Loop While IE.Busy
msgbox("第3個")

IE.Navigate "http://blog.xuite.net/eoe888/H"
Do
Loop While IE.Busy
msgbox("第4個")

IE.Visible = false '隱藏IE(關閉)
------------------------------------
http://img651.imageshack.us/img651/2784/snapshot063.png
__________________
姜太公釣魚~ 願者上鉤
cwvdavid 目前離線  
送花文章: 4036, 收花文章: 2466 篇, 收花: 10141 次
回覆時引用此帖
有 2 位會員向 cwvdavid 送花:
888888 (2010-07-12),a471 (2010-07-12)
感謝您發表一篇好文章