疑問 - 請問使用文字文件撰寫指令檔應該如何寫呢?

[cwvdavid]

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




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

以下是我寫 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(關閉)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

[888888]

以下是我寫 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(關閉)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
[/quote]

謝謝您！！程式碼真是寫的簡單明瞭！！
嗯，就算不是.exe檔，只要能在系統上執行，就OK啦~
我有稍微修改了一下XD，讓他直接跑。
其實是因為最近加入了"地圖日記"這種東西，點別人的農場連結就能夠讓對方得到東西，因為有些人會幫忙點，但我雖然可以幫他們點連結，卻覺得每天好像花越來越多的時間在等待網頁打開，乾脆寫個程式讓他自己跑，我就先做別的事情，反而省時又省力。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
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://blog.xuite.net/eoe168/EmpressG"
Do
Loop While IE.Busy

IE.Navigate "http://www.atlaspost.com/farm.php?id=38577"
Do
Loop While IE.Busy

IE.Navigate "http://www.atlaspost.com/farm.php?id=243"
Do
Loop While IE.Busy

IE.Navigate "http://blog.xuite.net/eoe888/H"
Do
Loop While IE.Busy

IE.Visible = false '隱藏IE(關閉)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
話說，如果要用火狐去開網頁該怎麼改呢？
我試過把IE的部份改成firefox.exe，但沒辦法跑@@(舉一真是反不了3..噗)