Question

我正在尝试使用VBScript自动化SharePoint表单，因为我没有权限在计算机上安装任何软件。

目前有一个字段，默认为textarea。它将不可见，并且在点击它时它的类名更改:(，期望类没有其他字段来识别它。

我尝试使用classname访问它，但VBScript找不到它， classname有一些空格，所以我正在使用它。以下是代码。

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

我甚至尝试了以下代码，但无法执行操作，显示了Echo消息，但未执行点击或数据输入操作。

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

Answer 1

这是令人困惑的，我已经尝试了它之前它没有工作，但现在它工作，只是使用focus方法，它的工作

IE.Document.all(i).focus

和

WsShell.SendKeys "text"

享受：D

如何使用VBScript

1 个答案: