一款VB基础实例，通过系统函数简单获取计算机名称，然后通过input组件操作注册表从而实现修改计算机名称的小例子，对于VB新手是一个不错的东西，高手请飘过。

内容概要：用VB.net编写的简易串口通讯程序 适合人群：有简单编程基础的新手，想要快速上手做一些实际项目操作者。 功能模块：具有扫描本地串口、收发数据的功能，满足最基本的使用，但没有更高级对的功能，如果有需求，可以自己扩展，源程序可以随意修改 总述：本程序主要是为了适用于工控领域对仪器仪表的读写，或者与PLC等工控产品的连接通讯，后期有时间会升级程序，即添加更多功能，如有需求或疑问，也可以直接私信询问。

自己做的一个小程序，很实用。有数据的增删改查，上传照片，最关键的是有概率的算法，概率可以根据答题的对错来加减。

非常好的AES加密解密源代码，已用于商业项目，现分享

摘要:VB源码,系统相关,单片机控制,继电器控制
　　原创VB程序，继电器控制实验——单片机串口继电器控制系统，控制继电器断开与吸合，继电器工作指示灯，并在面板上给出提示。上位机程序由VB编写，串口继电器控制实验文件夹内的代码用C实现的。
　　实验板：
　　K1按键 按一下 开始倒计时
　　K2按键 按一下 停止倒计时

6个用VB和DELPHI编写的FOR USB驱动程序,用于初步学习

摘要:VB源码,数据库应用,PK游戏　　VB编写的姓名PK小游戏源码，试玩时输入两个人的中文姓名，就可以模拟PK了。关于游戏的一些属性说明： 　　 【生命】 当战斗时小于0时，战斗就失败并结束。当生命小于10时，有几率进行垂死挣扎，恢复生命。 　　 【攻击】 当战斗时大于对方防御力，进行相减，加修正值就是输出的伤害 　　 【防御】 当战斗时大于对方攻击力，对方攻击力减修正值就是受到的伤害。 　　 【敏捷】 决定出手顺序，当战斗时，敏捷高的有一定几率躲避掉对方的攻击。 　　 【运气】 当战斗时，有几率出现双倍伤害，运气高的有几率触发恢复，运气低的有几率攻击失效。 　　受伤部位

VB RichTextBox 打印预览源码实例，所见即所得的RichTextBox打印实例，支持图文排版，支持图片打印，像WORD一样的功能，打印预览 [ 温馨提醒: 打印印刷页可能有轻微的变化,本例只是一个粗略的示例，抛砖引玉.]

由本人第一次尝试制作的录像视频教程，由于电脑速度较慢，播放时间较慢，请谅解。 本录像讲解最基础的VB封装ASP代码生成DLL的制作教程，适合初级学习者参考。也是本人学习VB制作ASP组件的第一个尝试，录像基本成功。 用vb编写asp组件(dll)示例 下面,将演示如何使用vb制作asp的dll组件... 1. 启动你的vb,选择activex dll图标,然后在点击菜单的工程>>引用,接 着在弹出的"引用"窗口从中选择 microsoft active server pages object library. 2. 给工程和类重命名,在asp中调用时,就全靠它了^_^!我们的工程名改 为aspdll,类名为demo.在asp中调用的方法是: set objreference = server.createobject("工程名.类名") 本例调用的相应代码如下: set objreference = server.createobject("aspdll.demo") 调用的方法和一般常见的,比如fso等组件的方法一模一样. 心动了吧,呵呵,下面我们继续.... 3. 接着,我们开始编写代码,打开我们刚才新建工程类窗口,第一步,先声 明我们要用到的变量.主要是在vb声明替代asp几大对象的变量名,定义这 asp的几大对象后,我们就可以像在asp环境中调用类似request,server等 这样的几大对象了.(声明的变量名完全可以和asp对象名一样)代码如下: '********************************************** private mys criptingcontext as s criptingcontext private myapplication as application private myrequest as request private myresponse as response private myserver as server private mysession as session '********************************************** 4. 声明完变量后,我们必须在类中写onstartpage子函数.本函数的作用是 当用户访问一个带有本组件的asp文件时,iis就会把s criptingcontext传 送给我们vb组件对象.这个s criptingcontext包括了全部的asp方法和属性 .这样,就使得我们有能力访问所有asp的对象.代码如下: '***************************************************************** public sub onstartpage(passeds criptingcontext as s criptingcontext) set mys criptingcontext = passeds criptingcontext set myapplication = mys criptingcontext.application set myrequest = mys criptingcontext.request set myresponse = mys criptingcontext.response set myserver = mys criptingcontext.server set mysession = mys criptingcontext.session end sub '***************************************************************** 通过上面的函数,我们在asp中调用本组件后,上面的几大对象就完全可以 像平时我们在asp使用一样了,举个例子: 在asp中实现接收提交的表单值并输出屏幕: <% formvalue=request.form("username") response.write ("你提交的用户名是"&myformvalue&",欢迎您!") %> 在vb中实现方法是: formvalue=myrequest.form("username") myresponse.write ("你提交的用户名是"&myformvalue&",欢迎您!") 5. 相对应于onstartpage函数,我们还要编写一个关闭onstartpage中对象 的onendpage函数,代码如下: '********************************* public sub onendpage() set mys criptingcontext = nothing set myapplication = nothing set myrequest = nothing set myresponse = nothing set myserver = nothing set mysession = nothing end sub '******************************** 6.通过编写上面的代码,我们在vb中编写asp组件实例的环境已经具备了, 下面,我就尝试写两个与asp中基本相类似的函数,也就是说,关键部位就在 这里了,你完全可以把你所有的asp源码封装在这里... 先写个最简单的输出屏幕信息函数: '******************************************** public sub welcomeinfo() myresponse.write ("阿里西西_web开发,欢迎访www.alixixi.com!") end sub '******************************************** 再写个带参数传递及显示now()现在时间的函数: '********************************** public sub setinfo(content as string) myresponse.write content & "
" myresponse.write "现在的时间是:" & now() end sub '********************************** 通过上面的asp代码实例,你会发现其实这和asp源码基本没有区别^_^ 7. 好了,整个类就编写完了,我们开始打包封装成dll.我们先保存工程, 这里我们保存到e:\vbdll,接着选择菜单上的文件>>生成aspdll.dll,很 快的dll组件就封装并生成完毕了. 8. 生成dll文件后,我们开始调试和使用.在系统运行栏输入cmd,进入dos 命令行状态,我们要注册刚才生成的dll组件,注册方法是可以直接输入 regsvr32 e:\vbdll\aspdll.dll ,为了安装方便,你同时可以写个批处理 文件,这里不一一举例了...好,注册成功! 9.注册完dll组件后,我们针对刚才的组件,按照上面介绍过的方法编写一 个asp文件来调试.代码如下: <% set redll = server.createobject("aspdll.demo") redll.welcomeinfo response.write "

---

" redll.setinfo("传递参数到服务器组件,并返回值及当前日期now()!") response.write "

---

" set redll = nothing %> 在iis中打开此文件,屏幕显示:

VB6.0 使用libmySQL.dll 连接MYsql数据库的方法 包含 libmySQL.dll 文件 不使用ODBC 连接 查询 修改 删除mysql数据库 比较全面 适合初学者