|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
|
|
2010-07-06, 11:15 AM
|
#1 (permalink) |
|
長老會員
 
|
目前, 我手邊的xxx.vbs跟xxx.bat
除了系統軟體安裝過程中所建立的之外, 其他都是我自己寫的 例如:修改軟體註冊序號, 將2台電腦的時間進行同步設定, 拷貝資料夾等等..... 而這些也就是直接【在XP桌面按右鍵，新增文字文件。】 然後將程式碼寫完之後, 再存檔, 並改名為 xxx.vbs, 或xxx.bat 至於文字檔, 寫了某些內容之後就被防毒軟體判定為病毒, 這我也遇過, 我自已寫的的程式資料夾內, 就有3成的檔案被視為病毒.... (通常都是防毒軟體比較嚴謹, 連文字檔也一併檢查的關係) ===================================== 至於最基礎的指令... "基礎"的定義是什麼??? 每個人的回答都不一樣 很多人會說 : C語言是所有的程式的基礎, 也有人會說 : 更難懂的組合語言, 所有的程式的基礎 當然也有人說 : 上面2種...是給專業人士學的, 我只要學VB就好 ============================================== 總結: 您的問題應該是: 【我們學校的老師, 用了某一種文字語言, 只需要【在XP桌面按右鍵，新增文字文件】 然後在打一些指令, 然後再把檔名改成 .exe, 就可以執行了, 現在我需要用這種方式, 寫出能夠自動登入某個網站的程式, 以及能夠執行數個安裝檔, 並顯示授權, 最後再要求重開機 的程式 然而, 在沒辦法了解您的"基本指令需求" 甚至不知道您的老師...寫了什麼 的情形下, 實在是很難從您的角度來幫您解答... (可能得麻煩你向老師問的更詳細一點了.....)  |
__________________ 姜太公釣魚~ 願者上鉤
|
|
|
送花文章: 4036,
|
|
2010-07-06, 08:50 PM
|
#2 (permalink) | |
|
註冊會員
|
引用:
況且，我曾請教過的老師，也不是學校老師。 很謝謝您的熱心，可惜您的回答無法解決我目前所想要請教的問題。 不管怎麼樣，還是很謝謝您^^ |
|
|
|
送花文章: 34,
|
|
2010-07-07, 01:26 AM
|
#4 (permalink) |
|
長老會員
|
我實際將檔名改成 .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(關閉) －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－  |
|
|
送花文章: 4036,
|
|
2010-07-12, 09:48 AM
|
#5 (permalink) |
|
註冊會員
|
以下是我寫 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..噗) 此帖於 2010-07-12 10:28 AM 被 888888 編輯. |
|
|
送花文章: 34,
|
|
2010-07-12, 01:07 PM
|
#7 (permalink) |
|
長老會員
|
perl 也是一種腳本(指令)
========================== 回正題, AutoIT 所編譯完的執行檔...就是執行檔, 那是不能改的, 你只能把.au3的檔案, 修改完之後, 再用AutoIT 重新編譯成執行檔 如果真的那麼不想用AutoIT, 然後又想要用FireFox的話... 那.... 把下列文字存成 xxx.vbs (底下的寫法跟AutoIT差不多, 但運作模式完全相同) 註：FireFox不提供程式碼直接控制的功能， 所以只能請電腦。。。把 "人 的操作步驟"，執行出來 語法:
Set wshshell=CreateObject("wscript.shell")
wshshell.Run "firefox.exe about:blank" '執行Firefox(並預設一個空白頁, 以便使用)
WScript.Sleep 2000 '等待2秒鐘, 確定FireFox已開啟
'wshshell.AppActivate "Mozilla Firefox" '指定目前正在看的是 視窗標題為 "Mozilla Firefox"的視窗
'(上面這一行雖然可以讓焦點出現在FireFox, 但在控制時, 似乎會沒有效) 反而是不指定會比較好
'另外, 當網頁開始瀏覽之後, 視窗的Title 會變成 【xxxxx ooooo - Mozilla Firefox】
'例如:
' 【iGoogle - Mozilla Firefox】
' 【史萊姆論壇 - Mozilla Firefox】
' 【公告 - 被列管會員緊急通知 (所有會員必先觀看) - 史萊姆論壇 - Mozilla Firefox】
'當標題變更後, 要執行 wshshell.AppActivate 時, 就必須跟著改後面的文字....@_@
'因此, 在執行FireFox.exe時, 加上about:blank, 可以確保一開始的標題是 【Mozilla Firefox】
wshshell.SendKeys "^l" 'Ctrl + L (切換到網址列)
WScript.Sleep 100 '等0.1秒, 確保焦點在網址列(否則還來不及切換到網址列, 底下的字母可能已經打完了...)
wshshell.SendKeys "http://tw.yahoo.com{enter}" '按下鍵盤的英文字母, 再按下Enter
WScript.Sleep 500 '等0.5秒...準備開下一個分頁...
'按下ALT+F, 再按下T ...(如同Ctrl + T, 但 " Ctrl + T " 不一定會開出新的分頁...所以使用Ctrl+T要小心...)
WScript.Sleep 500 '等0.5秒...
wshshell.SendKeys "%f" 'ALT + F
WScript.Sleep 100 '等0.1秒...
wshshell.SendKeys "t"
'開出新的分頁之後...指定網址...
wshshell.SendKeys "^l" 'Ctrl + L (切換到網址列)
WScript.Sleep 500 '等0.5秒, 確保焦點在網址列
wshshell.SendKeys "http://www.seed.net.tw" '按下鍵盤的英文字母
wshshell.SendKeys "{enter}" '按下鍵盤的Enter
WScript.Sleep 500 '等0.5秒, 再開一個視窗
wshshell.SendKeys "^t" 'Ctrl + T (叫出FireFox的分頁視窗, )
WScript.Sleep 500 '等0.5秒
wshshell.SendKeys "^l" 'Ctrl + L (切換到網址列)
WScript.Sleep 100 '等0.1秒, 再輸入網址...
wshshell.SendKeys "http://www.hinet.net"
wshshell.SendKeys "{enter}"
WScript.Sleep 300
msgbox("執行完畢")
|
|
|
送花文章: 4036,
|
|
2010-07-12, 08:57 PM
|
#8 (permalink) |
|
長老會員
|
更簡易的寫法...
(利用FireFox的特性來連開....) 上面的一堆麻煩事都可以省了... ＝＝＝將下列文字存成 xxx.vbs＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Set wshshell=CreateObject("wscript.shell") wshshell.Run "firefox.exe about:blank" '執行Firefox(並預設一個空白頁, 以便使用) WScript.Sleep 10000 '等待10秒鐘, 確定FireFox已出現(從來沒開啟過的時候會需要比較久) wshshell.Run "firefox.exe http://tw.yahoo.com" '執行Firefox(直接給網址) WScript.Sleep 1000 wshshell.Run "firefox.exe http://www.seed.net.tw" WScript.Sleep 1000 wshshell.Run "firefox.exe http://forum.slime.com.tw" WScript.Sleep 1000 wshshell.Run "firefox.exe http://www.pchome.com.tw" ＝＝＝將以上文字存成 xxx.vbs＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ |
|
|
送花文章: 4036,
|
|
向 cwvdavid 送花的會員:
|
|
2010-07-17, 12:06 AM
|
#9 (permalink) |
|
註冊會員
|
更簡易的寫法...
(利用FireFox的特性來連開....) 上面的一堆麻煩事都可以省了... ＝＝＝將下列文字存成 xxx.vbs＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Set wshshell=CreateObject("wscript.shell") wshshell.Run "firefox.exe about:blank" '執行Firefox(並預設一個空白頁, 以便使用) WScript.Sleep 10000 '等待10秒鐘, 確定FireFox已出現(從來沒開啟過的時候會需要比較久) wshshell.Run "firefox.exe http://tw.yahoo.com" '執行Firefox(直接給網址) WScript.Sleep 1000 wshshell.Run "firefox.exe http://www.seed.net.tw" WScript.Sleep 1000 wshshell.Run "firefox.exe http://forum.slime.com.tw" WScript.Sleep 1000 wshshell.Run "firefox.exe http://www.pchome.com.tw" ＝＝＝將以上文字存成 xxx.vbs＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 如果使用FireFox就無法用像跑IE的方式去跑網址嗎？ 分頁開很多，FireFox的記憶體會佔很大~~ |
|
|
送花文章: 34,
|
|
2010-07-17, 12:17 AM
|
#10 (permalink) | |
|
註冊會員
|
引用:
這樣如果是設定注音輸入法，就不會順利執行了@@" 分頁開很多，記憶體會當掉= =+ 此帖於 2010-07-17 01:04 AM 被 888888 編輯. |
|
|
|
送花文章: 34,
|
混合模式
