VB6.0实现人工智能脚本.汇编CALL

最新推荐文章于 2023-11-27 12:47:22 发布
最新推荐文章于 2023-11-27 12:47:22 发布
阅读量1.2k 收藏
点赞数
分类专栏： VB6.0程序制作
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/i735740559/article/details/113488121
版权

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

VB6.0这个语言我就不多说了太老了，互联网上大部分的人的认知是VB已经过时了。其实不然，还有人工智能和目前网络上的游戏智能脚本其实性质都差不多的，都是为了减轻重复而又频繁的动作，实现自动化的模式。如果你对于VB6.0这款老语言还有兴趣可以关注 www.zai996.com 技术交流QQ 1016058890

侠客软件开发
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
用VB6.0编写的基于百度ai的OCR文字识别
05-15
可以识别手写体，文字识别，车牌识别等，识别精度高，需要自己在百度ai申请免费接口后才能测试，因为需要 apiKey。
python在人工智能中的应用,python人工智能100例子
神经网络爱好者
09-09 381
1、人生苦短，我用Python：简单、高效、易入门在讨论为什么选择Python之前我们首先得知道Python是个什么东西。Python是一种面向对象、解释型计算机程序设计语言。它的设计初衷就是优雅、明确、简单。比起同样是面向对象的Java语言，函数、模块、字符串、数字对于Python来说全都是对象，而不像Java中还有基本类型一说。有些小伙伴可能要问了，Python作为脚本语言，运行速度没有Java和c++快，为什么还要选择Python。人工智能的核心计算全是C语言写好的底层，Python只是写逻辑。
对程序员有用的AI角色扮演脚本
商务合作 / 项目定制开发 / 前端一对一培训、答疑
07-18 517
以下脚本虽然是英文，但是你可以输入英文后，告诉它，接下来请用中文来回答即可。
用VB6.0写的游戏假人系统-采用人工智能AI算法
追逐光芒，追随内心
02-01 714
标题有点夸张，采用人工智能AI算法，不少人看到用VB6.0写的就会吐槽，因为在这些人的脑子里面因为只有 刀剑才能伤人，其实我们在看金庸武侠电视的时候发现树脂，头发都可以伤人。不过从智能技术的角度看，确实是比较AI的。人工智能在工业领域上，和在虚拟世界领域上其实性质都是一样的，两个字 “智能”。 ...
10 个例子带你学会 AI 编程（含提示词）
最新发布
伍六七的博客
11-27 1361
大家好，我是伍六七。AI 编程是一个程序员群体普遍关注的领域，但是真的使用 AI 编程实现提效的还是少数。有的人没有大模型资源，有的人不知道可以在哪些方面使用 AI 进行提效，还有的人不相信使用 AI 可以提效。今天，阿七就 10 个例子带大家入门 AI 编程！AI 可以在多方面，为 Java 程序员提效：更高阶的有 AI 代码可视化、AI 助力故障根因分析等，我们下期分享。PS：下面分享的所有的 prompt，都是基于 ZelinAI 或者 GPTs，所有的都提前指定了角色。
人工智能中的脚本语言及编程常用工具
audyxiao001的博客
04-07 591
本文介绍了人工智能中的脚本语言及编程常用工具，方便读者自学MATLAB、Python、Julia、R等脚本语言。
用VB做一个AI智能对话008
2201_75936381的博客
05-27 423
answer(2) = "我无法生成复杂的作文，但我可以写一篇简短的作文：站在户外，轻轻的嘘一口气，一团白雾裹着一份温暖袅袅升空，在半空中伸展，氤氲，半晌又汇入了干冷的空气。answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。草是嫩绿色的，树是新绿色的。
用VB做一个AI智能对话005
2201_75936381的博客
05-02 113
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"你好")>0 then Text2.Text =Text1.Text & "你好！IF Instr(lcase(Text1.Text),"你")>0 then Text2.Text =Text1.Text & "是的。
用VB做一个人工智能补丁代码2.0
2201_75936381的博客
05-06 91
IF Instr(lcase(Text1.Text),"版本")>0 then Text2.Text = "AI补丁版本2.0"If InStr(1, Text1, "食物") 0 Then。If InStr(1, Text1, "嘿") 0 Then。answer(5) = "有事吗"answer(4) = "怎么了"answer(1) = "挺好的"answer(1) = "干嘛"answer(3) = "额"answer(3) = "额"answer(4) = "嗯"
【源码】VB6聊天机器人
qq_28406527的博客
02-09 504
用VB6.0制作的聊天机器人，利用的是网上的API接口
人工智能OCR文字识别程序(VB源代码)
04-02
人工智能OCR文字识别程序(VB源代码) Artificial Intellegence 欢迎下载！！！
vb编写人工智能对话
06-30
可以人工这能对话，仅供参考.源代码： IF Instr(lcase(Text1.Text),"笨")>0 then Text2.Text =Text1.Text & "你才笨！" IF Instr(lcase(Text1.Text),"傻")>0 then Text2.Text =Text1.Text & "你才傻！" IF Instr(lcase(Text1.Text),"呆")>0 then Text2.Text =Text1.Text & "你也呆！" IF Instr(lcase(Text1.Text),"岁")>0 then Text2.Text =Text1.Text & "我有零岁。" IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》" IF Instr(lcase(Text1.Text),"多少")>0 then Text2.Text =Text1.Text & "你说呢？" IF Instr(lcase(Text1.Text),"什么")>0 then Text2.Text =Text1.Text & "难道世界上所有事多要有答案吗？" IF Instr(lcase(Text1.Text),"吃")>0 then Text2.Text =Text1.Text & "你真是个吃货！" IF Instr(lcase(Text1.Text),"你好")>0 then Text2.Text =Text1.Text & "你好！" IF Instr(lcase(Text1.Text),"是")>0 then Text2.Text =Text1.Text & "我同意。" IF Instr(lcase(Text1.Text),"不是")>0 then Text2.Text =Text1.Text & "确定？" IF Instr(lcase(Text1.Text),"鹦鹉")>0 then Text2.Text =Text1.Text & "我也是！" IF Instr(lcase(Text1.Text),"你")>0 then Text2.Text =Text1.Text & "是的。" IF Instr(lcase(Text1.Text),"网络")>0 then Text2.Text =Text1.Text & "也许。" IF Instr(lcase(Text1.Text),"软件")>0 then Text2.Text =Text1.Text & "你也是。"
VB6.0中DataGrid的应用.doc
03-13
VB6.0中DataGrid的应用
VB6.0 实现WebSocket 例子.7z
09-23
用VB6.0 实现WebSocket的例子
vb6.0英文企业版.txt
11-04
英文版vb企业版，给装了MINICAD2000导致中文版不能用和运行报警的朋友，给WIN7,WIN10不能用的朋友，给日文系统装不了中文版的朋友，百度网盘的分享下载链接在附件里。
MD5加密算法的VB6.0类模块实例.doc
03-13
MD5加密算法的VB6.0类模块实例
VB6.0的运行库.zip
05-29
VB6.0的运行库，安装的时候一定运行bat文件注册就行，遇到提示是否重启电脑，一定要选“否”，要不然可能导致安装失败
VB用CreateProcess创建进程注入DLL开源，不用第三方VC写的库
追逐光芒，追随内心
02-19 2740
Public Enum DebugEventTypes EXCEPTION_DEBUG_EVENT = 1& CREATE_THREAD_DEBUG_EVENT = 2& CREATE_PROCESS_DEBUG_EVENT = 3& EXIT_THREAD_DEBUG_EVENT = 4& EXIT_PROCESS_DEBUG_EVENT = 5& LOAD_DLL_DEBUG_EVENT = 6& UNLOAD_DLL_DEBUG_EVENT = 7&am
红月3.8登入器重新设计并且支持窗口化兼容win10
追逐光芒，追随内心
02-10 2695
时间过去了太久，VB6.0似乎被程序员圈子所遗忘。毕竟这是一款1998年的编程工具。虽然没有向易语言那样火爆，但是在我的工作生涯中必不可少。不是说看不懂易语言，而是不习惯或不喜欢易语言的代码风格。红月的原始登入器采用的是VC6写的，通过逆向分析了 红月处理游戏渲染的一些细节目标是实现窗口化并且画面依旧流畅，特别是win10窗口后 卡顿等问题的原因。窗口化有很多种方法，HOOK钩子是难免不了的。但是对于2000的红月这款古老游戏，坚决HOOk后的win10兼容问题才是重点。所以请不要喷VB6过时了，VB6在.
VB6.0中Screen.PrimaryScreen.WorkAreaLeft提示PrimaryScreen未找到方法
05-27
在VB6.0中，没有Screen.PrimaryScreen这个属性。相反，您可以使用Screen对象来获取屏幕的一些信息，例如工作区宽度、高度和左侧位置等。以下是获取工作区左侧位置的代码示例： ``` Dim leftPos As Long leftPos = ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

侠客软件开发

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值