返回列表 上一主題 發帖

[發問] 請教如何自動登錄

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2020-4-15 23:33 | 顯示全部帖子
本帖最後由 n7822123 於 2020-4-15 23:39 編輯

回復 1# chiangtien.lin


好像是要第0個才行~ .all("username")(0)="AAAA"  我也還在學習中

以下是從G大的程式修改的，有精準的找到控制項名稱
  1. Sub 麻辣討論區_用戶登入()
  2.     Dim i As Integer, vDoc As Object
  3.     URL$ = "http://forum.twbts.com/logging.php?action=login"
  4.   
  5.     帳號$ = "AAA"
  6.     密碼$ = "CC"
  7.    
  8.     With CreateObject("InternetExplorer.Application")
  9.         .Visible = True
  10.         .Navigate URL
  11.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  12.       
  13.         .Document.getElementsByName("username")(0).Value = 帳號
  14.         .Document.getElementsByName("password")(0).Value = 密碼
  15.         .Document.getElementsByName("cookietime")(0).Status = True '記住我的登入狀態打勾
  16.         .Document.getElementsByName("loginsubmit")(0).Click  '點擊登入
  17.         
  18.         Do
  19.             DoEvents
  20.         Loop Until InStr(.Document.body.innertext, 帳號)
  21.        ' .Quit
  22.     End With
  23. End Sub
複製代碼
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題