如何讓ASP程式自動執行

把以下文字存成vbs檔，執行看看＾＾
'---------------------------------
Set IE = CreateObject("InternetExplorer.Application")
URL="http://www.yam.com.tw"
IE.Visible = True
IE.navigate URL
WaitPage
If IE.document.forms.length>0 Then
IE.document.forms.item(0).submit
End If

IE.Quit

Function WaitPage()

While IE.Busy
WScript.Sleep 500
Wend
WScript.Sleep 500
End Function

註解一下.

'開啟物件
Set IE = CreateObject('InternetExplorer.Application')
'下面這一行就是要自動執行的那頁網頁
URL='http://www.yam.com.tw'
'下面這一行如果設為False,則執行過程就不會跳出IE,不知不覺地執行了
IE.Visible = True
IE.navigate URL
WaitPage
'以下這兩行楊該是要將網頁中的form送出,
'如果網頁中沒有form就可以不用
If IE.document.forms.length>0 Then
IE.document.forms.item(0).submit
End If

IE.Quit

Function WaitPage()

While IE.Busy
WScript.Sleep 500
Wend
WScript.Sleep 500
End Function

將以上文字存成附檔名為vbs的檔案,然後點兩下就可以看到效果了.
用windows排程就可以定期自動執行.
若有不只一隻asp要自動執行的話,可以開一個文字檔,
把要自動執行的asp一行一行的寫在裡面.
改寫上面的程式,用開檔+迴圈把要執行的asp一一餵給變數URL.
這樣太方便了!我想要這樣想很久了!
ps:開檔或是其他的WSH功能,上網找有很多.

文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags: 自動執行
相關日誌: