用钉钉结合简道云的外链在教室大屏中实现通知等功能的思路
    浏览: 14
    回复:
  • 现在很多学校教室里都有类似希沃等大屏供上课使用。基于这个前提,可以利用好以减轻一些上传下达的工作(类如工作布置、通知某个同学打电话回家、快递到校、量化扣分公布)。如果只是简单的布置传达,有的班主任是用一个公共Q的方式开机启动自动接收的方式。要加入学校的统一通知、展示量化结果等,结合钉钉,用简道云做好相关应用并设置好权限,用仪表盘来呈现各种信息是可行的。实现思路如下:做好通知、快递到校、量化扣分的录入表单,以班级为筛选条件单独给每个班做一个仪表盘(可以做好一个复制再改动里面的筛选条件即可),设置每个班得到一个外链链接。得到这个外链链接后,可以直接放到各班大屏的电脑桌面,让学生指定时间(如课间)打开浏览(当然也可以做一个确认的应用来知悉通知到位了)。但这样有个问题就是外链的链接会容易泄露,如果设有密码由于大屏默认没有外接键盘要用屏幕触摸录入也容易泄露。可以考虑用VB等程序设计出一个程序在程序里以教室的网卡地址为比对条件,对了就用WebBrowser控件打开外链链接,再设置屏蔽右键,就不 出现网址了,但简道云的仪表盘外链在网页里有上二维码分享的链接,这里可以用一个图像控件覆盖这个区域即可。这样的程序每个班单独做出 一个EXE程序,复制到别的电脑也打不开网页。一次做好,一直可用,又和钉钉接合,可以显著提高效率。

  • 1 楼

    编程本是不会的,在网上找了很久,算是实现了,VB代码如下,简单点的设计 :Form窗口,一个WebBrowser控件,一个Command1,一个Textbox控件(名字为TeMac,设置为不可见),一个picturebox控件(用来盖住简道云仪表盘外链页面右上角的分享二维码的链接)分享给大家:

     

     
    Dim WithEvents M_Dom As MSHTML.HTMLDocument

    Private Sub Command1_Click()
    If TeMac.Text = "78-E3-B5-9B-FF-6D" Then
    WebBrowser1.navigate "link.jiandaoyun.com/dash/5c89a9b0979ea146a3eae5b5"
    WebBrowser1.Refresh
    End If
    End Sub

    Private Sub Form_Load()
    Dim Mac
    strComputer = "."
    Mac = ""
    '获得MAC信息
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2") '''加上这个
    Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
    For Each objItem In colItems
    Mac = Mac + " " + objItem.macaddress
    Next
    TeMac.Text = Replace(Trim(Mac), ":", "-")
    strComputer = "."
    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    For Each IP In colIP
    If Not IsNull(IP.ipaddress) Then
    For I = LBound(IP.ipaddress) To UBound(IP.ipaddress)
    'Mac = Ip.macaddress(I)objObject.DNSHostName
    Next
    End If
    Next

    End Sub

    Private Function M_Dom_oncontextmenu() As Boolean
             M_Dom_oncontextmenu = False
    End Function
    Private Sub Webbrowser1_DownloadComplete()
           Set M_Dom = WebBrowser1.document
    End Sub