エレファントカシマシDB 管理人の日記 2017/09/07(木)

一番下へ

『敗北と死に至る道が生活』その4272

Set IE = CreateObject ("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://www.aaa.com/login.php"
Do While .Busy = True Or . readyState <> 4
Loop
With .document
Set UID = .getElementByID ("ID")
Set PWD = .getElmetByID ("Pwd")
End With
End With
UID.Value="userid"
PWD.Value="password"
IE.document.forms (0).Submit

----
このコードを aa.vbs などで保存して適切な値に書き換えるとログインの自動化が出来るかもしれません。

Tweets by ekdb_admin

ランダム日記


過去
2024-01|02|
2023-01|02|03|04|05|06|07|08|09|10|11|12|
2022-01|02|03|04|05|06|07|08|09|10|11|12|
2021-01|02|03|04|05|06|07|08|09|10|11|12|
2020-01|02|03|04|05|06|07|08|09|10|11|12|
2019-01|02|03|04|05|06|07|08|09|10|11|12|
2018-01|02|03|04|05|06|07|08|09|10|11|12|
2017-01|02|03|04|05|06|07|08|09|10|11|12|
2016-01|02|03|04|05|06|07|08|09|10|11|12|
2015-01|02|03|04|05|06|07|08|09|10|11|12|
2014-01|02|03|04|05|06|07|08|09|10|11|12|
2013-01|02|03|04|05|06|07|08|09|10|11|12|
2012-01|02|03|04|05|06|07|08|09|10|11|12|
2011-01|02|03|04|05|06|07|08|09|10|11|12|
2010-01|02|03|04|05|06|07|08|09|10|11|12|
2009-01|02|03|04|05|06|07|08|09|10|11|12|
2008-01|02|03|04|05|06|07|08|09|10|11|12|
2007-01|02|03|04|05|06|07|08|09|10|11|12|
2006-01|02|03|04|05|06|07|08|09|10|11|12|
2005-01|02|03|04|05|06|07|08|09|10|11|12|
2004-01|02|03|04|05|06|07|08|09|10|11|12|
2003-01|02|03|04|05|06|07|08|09|10|11|12|
2002-04|05|06|07|08|09|10|11|12|

一番上へ