05.扩展命令01.Element 元素命令
,

Element.GetWebView 获取WEB页面内容

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

获取更详细的信息附带html代码

语法

结果 = Element.GetWebView([JavaScript])

参数

参数 数据类型 解释
JavaScript 字符串 可选, 要执行的JavaScript代码（可对内容进行筛选操作）

返回值

字符串, 返回json格式的详细内容.

示例

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
//------------例子1--------------//
Dim AppName, Flag, iRet, Json
//火狐浏览器包名 "org.mozilla.firefox"
AppName = "com.android.browser"
KillApp (AppName)  //首先关闭应用
Do 
    Flag = False
    //调用注入（会自动打开APP）
    iRet = Element.InjectWebView(AppName)
    TracePrint iRet  //绑定返回值成功为0
    If iRet = 0 Then 
        For 10  //等待应用打开
            Delay 5000
            //判断应用是否在前台
            If Sys.AppIsFront(AppName) = True Then 
                //等待应用打开完成
                Delay 5000
                //绑定成功后可以调用
                Json = Element.GetWebView()
                Flag = True
                TracePrint Json
                ShowMessage Json
                Delay 5000
                Exit For
            End If
        Next
    End If
    If Flag = True Then 
        Exit Do
    End If
Loop
TracePrint "Over"

//------------例子2--------------//
Dim iRet, info
//先关闭应用（防止绑定失败）
KillApp("com.android.browser")
//会自动打开浏览器APP
iRet = Element.InjectWebView("com.android.browser")
If iRet = 0 Then 
    TracePrint "绑定成功"
    //只有p标签
    //JScode = "(function(){var a=document.querySelectorAll('p');"
    //JScode = JScode & "var b='';for(i of a){b=b+i.outerText;};return b;})();"
    info = Element.GetWebView()
    TracePrint info 
Else 
    TracePrint "绑定失败"
End If

//------------例子3--------------//
Dim nRet, Json, table
//先关闭应用（防止绑定失败）
KillApp("com.android.browser")
//会自动打开浏览器APP
nRet = Element.InjectWebView("com.android.browser")
TracePrint nRet//绑定返回值为0说明绑定成功
If nRet = 0 Then 
    //绑定成功后可以调用
    Json = Element.GetWebView()
    TracePrint Json
    table = Encode.JsonToTable(Json)
    Dim web()
    get_webhtml(table, web)
    //如果找到显示html代码，否则null
    TracePrint web[1]["webhtml"]
End If
Function get_webhtml(table,target)   
    If table["webhtml"]<>Null  Then
        TracePrint "找到"
        target[1] = table		
        Exit Function
    End If
    If table["children"]<>Null Then 
        For Each k2, v2 In table["children"]
            get_webhtml(v2,target)
        Next
    End If    
End Function

备注

  • 仅支持安卓5.0及以上系统版本