【玩转Lighthouse】录制云端讲座

2022-04-12 13:45:46 浏览数 (1)

后疫情时代以来,许多高校实行了严格的防疫要求,这也限制了线下的学术交流。但经过实践发现,线上的学术会议、讲座也独具优势,特别是对于非本校同学来说,线上讲座的可获得性更高。有的时候,存在讲座的安排与其他事务冲突的情况,利用腾讯的轻量应用服务器,可以录制该期讲座,后续观看。具体操作有如下步骤:

一、下载、安装必备软件

1.腾讯会议

https://updatecdn.meeting.qq.com/cos/fcc20e8804b5962335f7d813f344d4aa/TencentMeeting_0300000000_3.6.7.428.publish.exe

2.zoom

https://cdn.zoom.us/prod/5.10.1.4420/x64/ZoomInstaller.exe

3.EV录屏

https://a6367bbd4230223d9e6c0fcf5a0bac6c.dlied1.cdntips.net/dl.softmgr.qq.com/original/multimedia/EVCapture_v4.1.9.exe?mkey=62552b3a7724cf8a&f=0000&cip=119.36.233.127&proto=https

4.按键精灵

http://res.91anjian.com/Pc/qm2014chs.exe

5.onedrive

https://oneclient.sfx.ms/Win/Prod/22.033.0213.0002/OneDriveSetup.exe

6.虚拟声卡

ttps://dl.pconline.com.cn/download/424808.html

二、设置软件

1.腾讯会议/zoom

默认连接电脑音频,关闭摄像头、麦克风等

2.按键精灵

使用按键精灵实现定时进入会议、确认录制请求、离开会议(腾讯会议、zoom通用)等,按键精灵脚本代码如下

代码语言:javascript复制

dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")

UserName=Obj.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionRegisteredOwner")

YN=Obj.Popup()

If YN=6 Then
    Rem InputTime
    SWTime=InputBox ()
    LenS=Len(SWTime)
    Num=Instr(SWTime,":")
    If Num=0 Then
        Num=Instr(SWTime)
    End If
    If Num=0 Then
        Call Obj.Popup()
        Goto InputTime
    End If
    If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0  Then
        Call Obj.Popup()
        Goto InputTime
    End If
    If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then
        Call Obj.Popup()
        Goto InputTime
    End If
    Rem Start
    NowTime=Time
    If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime) Then
        KeyPress "Enter", 1
        Delay 3000
        For 120
        IfColor 688,425,"FF8C19",2 Then
            MoveTo 688, 425
                LeftClick 1
                                                Delay 30000
Else
                                            Delay 30000
End If
            IfColor 665,446,"D8680D",2 Then
                        MoveTo 665, 446
                                LeftClick 1
                                                Delay 30000
Else
                                Delay 30000
End If
            Next
                    MoveTo 969, 658
                                    Delay 3000
                    IfColor 969,653,"3333FF",2 Then
                            LeftClick 1
                                                Delay 3000
                        MoveTo 595, 428
                                        LeftClick 1
                        End If
                                    MoveTo 996, 679
                                                    Delay 3000
                                    IfColor 996,679,"2828DE",2 Then
                                            LeftClick 1
                                                End If
                            MoveTo 1003, 740
                                            Delay 3000
                            IfColor 1003,740,"2828DE",2 Then
                                    LeftClick 1
                                    End If
        KeyPress "F12", 1
    End If
    For 15
    	Delay 1000
    Next
    Goto Start
End If
效果图效果图

0 人点赞