註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請教如何自動登錄
返回列表
下一主題
上一主題
發帖
[發問]
請教如何自動登錄
chiangtien.lin
發短消息
加為好友
chiangtien.lin
當前離線
UID
28021
帖子
1
主題
1
精華
0
積分
2
金錢
2
點名
0
作業系統
WINDOWS
軟體版本
7
閱讀權限
10
性別
男
來自
台南
在線時間
2 小時
註冊時間
2017-3-26
最後登錄
2021-6-3
小學生
帖子
1
主題
1
精華
0
積分
2
點名
0
作業系統
WINDOWS
軟體版本
7
閱讀權限
10
性別
男
來自
台南
註冊時間
2017-3-26
最後登錄
2021-6-3
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2020-2-13 15:10
|
只看該作者
[發問]
請教如何自動登錄
目標是一鍵自動登入公司內網抓取各項資料。我先從本論壇著手,再麻煩各位大大協助幫看一下我的程式碼有何錯誤。 Sub login()
With Create
Object
("InternetExplorer.Application")
.Visible = True
.Navigate "http://forum.twbts.com/logging.php?action=login"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
With .document
.all("username") = "*****"
.all("password") = "*****"
.all("loginsubmit").Click
End With
End With
End Sub
收藏
分享
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
2
#
發表於 2020-4-14 18:47
|
只看該作者
回復
1#
chiangtien.lin
試試看
Sub Ex_用戶登錄()
Dim i As Integer, vDoc As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://forum.twbts.com/logging.php?action=login"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Set vDoc = .Document.getElementsByTAGName("INPUT")
For i = 0 To vDoc.Length - 1
If vDoc(i).Name = "username" Then vDoc(i).Value = "用戶名稱" '**用戶名稱
If vDoc(i).Name = "password" Then vDoc(i).Value = "'用戶密碼" '**用戶密碼
Next
Set vDoc = .Document.getElementsByTAGName("input") '.Click
For i = 0 To vDoc.Length - 1
If vDoc(i).Type = "checkbox" Then vDoc(i).Click
Next
Set vDoc = .Document.getElementsByTAGName("button") '.Click
For i = 0 To vDoc.Length - 1
If vDoc(i).Name = "loginsubmit" Then vDoc(i).Click
Next
Do
DoEvents
Loop Until InStr(.Document.body.innertext, "用戶名稱")
' .Quit
End With
End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.
TOP
n7822123
發短消息
加為好友
n7822123
(阿龍)
當前離線
UID
20045
帖子
406
主題
8
精華
0
積分
453
金錢
453
點名
0
作業系統
WINDOWS 7
軟體版本
2007
閱讀權限
20
性別
男
來自
台灣
在線時間
202 小時
註冊時間
2015-2-7
最後登錄
2021-7-31
暱稱:
阿龍
中學生
帖子
406
主題
8
精華
0
積分
453
點名
0
作業系統
WINDOWS 7
軟體版本
2007
閱讀權限
20
性別
男
來自
台灣
註冊時間
2015-2-7
最後登錄
2021-7-31
3
#
發表於 2020-4-15 23:33
|
只看該作者
本帖最後由 n7822123 於 2020-4-15 23:39 編輯
回復
1#
chiangtien.lin
好像是要
第0個
才行~ .all("username")
(0)
="AAAA" 我也還在學習中
以下是從G大的程式修改的,有精準的找到控制項
名稱
Sub 麻辣討論區_用戶登入()
Dim i As Integer, vDoc As Object
URL$ = "http://forum.twbts.com/logging.php?action=login"
帳號$ = "AAA"
密碼$ = "CC"
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate URL
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.Document.getElementsByName("username")(0).Value = 帳號
.Document.getElementsByName("password")(0).Value = 密碼
.Document.getElementsByName("cookietime")(0).Status = True '記住我的登入狀態打勾
.Document.getElementsByName("loginsubmit")(0).Click '點擊登入
Do
DoEvents
Loop Until InStr(.Document.body.innertext, 帳號)
' .Quit
End With
End Sub
複製代碼
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助
TOP
靜思自在 :
人生最大的成就是從失敗中站起來。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲