按键精灵_获取设备所有信息

Function 获取设备所有信息()
    Dim 设备型号 = Device.GetModel()
    Dim 设备IMEI=GetDeviceID()
    Dim 设备imsi号 = Device.GetImsi()
    Dim SIM卡ID = Device.GetIccid()
    Dim 安卓系统版本号=Sys.OsVersion()
    Dim 屏幕横向分辨率=GetScreenX()
    Dim 屏幕纵向分辨率=GetScreenY()
    Dim 设备屏幕DPI大小=Device.GetDPI()
    Dim 屏幕深度=GetScreenColorDep() 
    Dim i = 屏幕横向分辨率&"x"&屏幕纵向分辨率&".dpi"&设备屏幕DPI大小&".色深:"&屏幕深度
    TracePrint "设备型号:"&设备型号
    TracePrint "设备IMEI"&设备IMEI
    TracePrint "设备imsi号:"&设备imsi号
    TracePrint "SIM卡ID:"&SIM卡ID
    TracePrint "安卓系统版本号:"&安卓系统版本号
    TracePrint "屏幕横向分辨率:"&屏幕横向分辨率
    TracePrint "屏幕纵向分辨率:"&屏幕纵向分辨率
    TracePrint "设备屏幕DPI大小:"&设备屏幕DPI大小
    TracePrint  "屏幕深度:"&屏幕深度
    UI.Newlayout ("获取全部信息", 1) '创建一个名称为"layout1"的布局控件
    UI.AddTextView("获取全部信息","文字框1","设备型号:"&设备型号)
    UI.NewRow("获取全部信息", "new_row_"&1)
    UI.AddTextView("获取全部信息","文字框2","安卓系统版本号:"&安卓系统版本号)
    UI.NewRow("获取全部信息", "new_row_"&1)
    UI.AddTextView("获取全部信息","文字框3","设备IMEI:"&设备IMEI)
    UI.NewRow("获取全部信息", "new_row_"&1)
    UI.AddTextView("获取全部信息","文字框4","设备imsi号:"&设备imsi号)
    UI.NewRow("获取全部信息", "new_row_"&1)
    UI.AddTextView("获取全部信息","文字框5","SIM卡ID:"&SIM卡ID)
    UI.NewRow("获取全部信息", "new_row_"&1)
    UI.AddTextView("获取全部信息","文字框6","分辨率:"&i)
    UI.Show ("获取全部信息")  '显示名称为："layout1" 的布
End Function