用VB做的一个小程序

最新推荐文章于 2021-07-30 20:09:43 发布

原创最新推荐文章于 2021-07-30 20:09:43 发布 · 3.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #integer #string #command #qq

coding 专栏收录该内容

7 篇文章

订阅专栏

博客展示了一段VB代码，用于实现QQ临时对话功能。代码中定义了字符串变量num和qqurl，通过点击Command1按钮获取输入的QQ号，生成对应的QQ临时对话链接并在WebBrowser1中打开，还在窗体卸载时给出提示框。

部署运行你感兴趣的模型镜像

Dim num As String
Dim qqurl As String
Private Sub Command1_Click()
num = Me.Text1.Text
qqurl = "http://wpa.qq.com/msgrd?V=1&Uin=" & qqstyle & Me.Text1.Text
Me.WebBrowser1.Navigate qqurl
End Sub

Private Sub Form_Unload(Cancel As Integer)
y = MsgBox("玩够了?骚扰够NB吧!", vbQuestion + vbYesNo, "QQ临时对话")
If y = vbNo Then Cancel = -1
End Sub

您可能感兴趣的与本文相关的镜像

Langchain-Chatchat

AI应用

Langchain

Langchain-Chatchat 是一个基于 ChatGLM 等大语言模型和 Langchain 应用框架实现的开源项目，旨在构建一个可以离线部署的本地知识库问答系统。它通过检索增强生成 (RAG) 的方法，让用户能够以自然语言与本地文件、数据库或搜索引擎进行交互，并支持多种大模型和向量数据库的集成，以及提供 WebUI 和 API 服务