- 帖子
- 32
- 主題
- 14
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-5-31
- 最後登錄
- 2025-2-19
|
[發問] 自已寫的仿按精功能vba，自動登入網頁作一連串的動作，目前少了判斷載入完成動作
本帖最後由 幼稚園飛天豬 於 2010-8-11 13:41 編輯
研究了1天24小時沒睡~~
必竟自已懂的不多~
只好上來求助~~
因為某些限制只能用vba來執行~~
於是就寫了類似按精的vba來自動執行一些程序~
這個範例是想用自動登入網頁~登入後想要在用自定鍵盤滑鼠標動作去得到自已想要的資料
目前卡在的地方，就是當鼠標去點完登入後的網頁，卻不知下一個頁面何時加載完~
不知如何加入程式碼來判斷加載完成，然後執行下一個滑鼠標動作
網站部分以yahoo信箱為例
以下是我的vba
'網頁--------此處有辦法判斷登入完成----------------
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate [網頁網址]
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = [網頁帳號] 'All("username").找網頁的原始檔名子
.Document.Forms(0).All("passwd").Value = [網頁密碼] 'All("username").找網頁的原始檔名子
.Document.Forms(0).All(".save").Click 'All("username").找網頁的原始檔名子
End With
'網頁------------------------
登入後，不知登入後的加載何時完成，因為以下將為鼠標動作，鼠標動作後面還有鼠標動作
問題點在於
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate [網頁網址]
Do Until .Readystate = 4 這段碼我知是等待加載完，但我鼠標動作後面的網頁加載，都為同一視窗，而且也不需新開網頁，我該如何修改讓他判斷加載完成，在接下鼠標動作DoEvents
Loop
.Document.Forms(0).All("username").Value = [網頁帳號] 'All("username").找網頁的原始檔名子
.Document.Forms(0).All("passwd").Value = [網頁密碼] 'All("username").找網頁的原始檔名子
.Document.Forms(0).All(".save").Click 'All("username").找網頁的原始檔名子
End WithSleep 3000
For r = 3 To [多少指令] + 2
'滑鼠動作-------------------------------------------------
m = Cells(r, 1)
If m = "" Then
AppActivate [程式名子]
GoTo noms
Else
AppActivate [程式名子]
SetCursorPos Cells(r, 2), Cells(r, 3)
Sleep 200
'滑鼠動作-判斷左右鍵
If Cells(r, 1) = "左鍵1" Then
左鍵1
ElseIf Cells(r, 1) = "左鍵2" Then
左鍵2
ElseIf Cells(r, 1) = "右鍵1" Then
右鍵1
End If
'滑鼠動作-判斷左右鍵
'滑鼠動作-------------------------------------------------
End If
noms: '滑鼠動作為空白跳到這
'鍵盤動作-------------------------------------------------
x = Cells(r, 6)
If x = "" Then
Sleep [暫停]
GoTo nokey
Else
'鍵盤動作次數-------------------------------------------------
y = Cells(r, 5)
If y = "" Then
Sleep 150
Application.SendKeys Cells(r, 6), True
Else
For n = 1 To Cells(r, 5)
Sleep 150
Application.SendKeys Cells(r, 6), True
Next n
End If
'鍵盤動作次數
Sleep [暫停]
End If
'鍵盤動作-------------------------------------------------
nokey: '鍵盤動作為空白跳到這
Next r |
-
-
auto.rar
(34.89 KB)
只欠判斷，待高手指導了
|
發表於 2010-8-11 13:40
| 
