如何使用VBScript仅使用类名识别隐藏字段

-1

我试图使用VBScript自动化SharePoint表单，因为我没有权限在计算机上安装任何软件。如何使用VBScript仅使用类名识别隐藏字段

目前有一个字段，默认情况下是一个textarea。它不会是可见的，并点击它的类名变化:(预期类没有其他领域来识别它

我试着使用类名访问它，但VBScript找不到它， classname有一些空白，所以我elemenating它。下面是代码。

For Each elem In IE.Document.getElementsByTagName("div") 
    Dim r, s 
    Set r = New RegExp 
    r.Global = True 
    r.Pattern = "^\s+|\s+$" 
    id = r.Replace(id, "") 
    s = r.Replace(elem.getAttribute("class"), "") 

    If s = id Then 
     WScript.Echo "found class" 
     WScript.Sleep 1000 
     WshShell.SendKeys "found" 
     s.value = "found" 
     elem.value = "found" 
     Exit For 
    End If 
Next

我甚至尝试下面的代码，但不能被执行的操作，显示回波信息，但点击或直接进入操作不执行数据。

AllObjects = IE.Document.all.length 
for i=0 to AllObjects 
    If Trim(IE.Document.all(i).getAttribute("class")) = "nicEdit-main" Then 
     IE.Document.all(i).Click 
     IE.Document.all(i) = "found" 
     WScript.Echo i, IE.Document.all(i).getAttribute("class") 
     Exit For 
    End If 
Next

来源

2016-11-07 Vincent

一些人给这问题的负面点，为什么？很多人都问过这个问题，我找到了答案。 – Vincent

这个嘛是混乱的，我已经试过这没有奏效过，但现在它的工作，只是使用focus方法和它的作品

和

WsShell.SendKeys "text"

享受：d

来源

2016-11-07 09:54:32 Vincent

如何使用VBScript仅使用类名识别隐藏字段

回答

相关问题