macrosIE控制

不幸的是,我的父母根本不熟悉使用电脑,而我已经搬到另一个城市,所以我不能直接帮助他们。 他们需要每个月login到他们的电话服务提供商,并打印出到期的发票。 我试图通过“只需点击一个button”来执行所有这些操作。

所以我的代码到目前为止:

Private Sub CommandButton1_Click() Set objIE = CreateObject("InternetExplorer.Application") objIE.Top = 0 objIE.Left = 0 objIE.Width = 1027 objIE.Height = 768 objIE.AddressBar = 0 objIE.StatusBar = 0 objIE.Toolbar = 0 objIE.Visible = True objIE.Navigate ("https://login.example.com") Do DoEvents Loop Until objIE.ReadyState = 4 SendKeys "{ENTER}" 'security pop up, press enter Do DoEvents Loop Until objIE.ReadyState = 4 'write in login name and password objIE.document.GetElementByID("f_name_1").Value = "abababa" objIE.document.GetElementByID("password").Value = "cdc999" 'press enter, log in SendKeys "{ENTER}" Do DoEvents Loop Until objIE.ReadyState = 4 'and here I stuck End Sub 

但是有一次我被卡住了。 不幸的是,在login网站时,导航button的代码如下所示:

 <a class="cufon_w" id="tempID" href="fakt.do"> 

我试着用:

 objIE.document.GetElementByID("tempID").Click 

和:

 objIE.document.GetElementByClassName("cufon_w").Click 

但它并不适用于其中任何一个(我假设tempID,但无论如何尝试)。

有没有人试过类似的东西,或知道任何解决scheme?

Interesting Posts