用deepseek 实现QQ微信自动回复 [复制链接]

'配置一下本地数据参数 这来用OLLAMA部署
serverIP = "127.0.0.1" '本地服务地址
port = 11434 'Ollama默认端口
modelName = "deepseek-r1:7b" '需与部署的模型名称一致
'创建HTTP对象
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.Open "OST", "http://" & serverIP & ":" & port & "/api/generate", False
'构建请求数据
prompt = "你好" '用户输入的问题 这里你可以用变量代替你好或者直接把prompt变量获取微信数据
jsonBody = "{""model"": """ & modelName & """, ""prompt"": """ & prompt & """}"
http.SetRequestHeader "Content-Type", "application/json"
http.Send jsonBody
'处理响应
If http.Status = 200 Then
response = http.ResponseText
'解析JSON响应(需手动处理)
result = ExtractResponse(response)
MsgBox "DeepSeek回答：" & vbCrLf & result
Else
MsgBox "调用失败！错误代码：" & http.Status & vbCrLf & http.ResponseText
End If
'JSON响应解析函数
Function ExtractResponse(rawJson)
Set regex = New RegExp
regex.Pattern = """response"":""([\s\S]*?)"""'正则下需要的数据
Set matches = regex.Execute(rawJson)
If matches.Count > 0 Then
responseText = matches(0).SubMatches(0)
'处理转义字符
responseText = Replace(responseText, "\n", vbCrLf)
responseText = Replace(responseText, "\""", """")
ExtractResponse = responseText
Else
ExtractResponse = "解析响应失败"
End If
End Function
这是按键精灵版的 我没测试 我是用python改过来的 思路就是这么个思路，有啥不懂的可以站内我，我基本的关键点都加了注释。必须是ollama部署的才可以，端口是ollama的端口，如果你用的版本不同可能会有端口不一的情况，自定查询OLLama官网

那个笑脸是P字母 p-o-s-t不知道为啥搞成笑脸了

https://bbs.anjian.com/showtopic-714572-1.aspx 这个命令库有现成的命令直接使用 免费的