-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
VB.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具，使用前请输入要扫描的网段IP和端口，本程序可将扫描到的开放端口数量显示在窗口中，扫描时应用了多线程技术，扫描时显示当前线程数，适时显示扫描进度和扫描时间，以毫秒计时，扫描速度提升了不少。
注：本程序仅能扫描开放的端口，被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分：1
-
VB6.0 改变扩展名保护Access数据库
VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考：
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
- 2022-05-16 07:33:58下载
- 积分：1
-
VB.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分：1
-
文件夹复制VB6.0实例
文件夹复制VB6.0实例源码，这里用了一个用户自定义函数，此函数可以出现一个对话框，并返回所选择的路径，若没有选择返回("")。模拟了Windows系统的文件夹模拟功能，看上去比较低级，只是通过这个功能，熟悉一些VB与文件操作的函数用法。
- 2022-03-05 20:29:32下载
- 积分：1
-
VB 6.0 对字符串进行加、减、乘、除计算
VB 6.0 对字符串进行加、减、乘、除计算，如何对字符串进行加、减、乘、除计算呢，本示例演示了这个功能，其实就是数学表达式的计算，运算式中可以有括号，程序将按照运算规则，按照括号优先、乘除优先的原则进行运算，计算出结果并显示在Textbox中，最终运行效果如示例图所示。
- 2022-03-02 02:18:41下载
- 积分：1
-
vb.net 故意引发错误演示全局异常捕获处理
本程序主要是演示vb.net全局错误异常消息的捕获处理，程序运行后故意引发错误，并弹出消息处理框，类似于在VB.NET调试器中显示的错误消息，指出错误原因、错误位置和具体代码，方便程序员对错误及时纠正处理，程序运行效果如图所示。
- 2022-09-01 05:15:03下载
- 积分：1
-
内核为VB6的一个下载软件开源源码
内核为VB6的一个下载软件开源源码， 界面方面支持悬浮窗、支持TAB窗口选项卡切换内容，操作方便，关于下载文件方面，已经实现的功能：
1.同时下载两个文件
2.支持断点续传
3.支持代理服务器
使用方法：
1.双击开始或停止
2.其他按鼠标右键
- 2022-10-17 00:05:03下载
- 积分：1
-
VB Socket获取主机名和IP地址
VB Socket获取主机名和IP地址，获取主机名是使用了VB中的GetComputerName直接得到，然后对Socket初始化，使用gethostbyname取得主机地址，再获取到IP后进行转化为标准的IP格式。转换过程如下：
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next i
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
MsgBox "IP:" + ip_address
- 2022-10-23 19:55:03下载
- 积分：1
-
磁性窗体 VB简单实现方法举例
VB简单实现磁性窗体，将窗体粘合，子窗体连接的任何窗体都粘合上，获取所有窗体的矩形区域，并重新设置粘合，连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中，比如播放列表快接近播放主窗口时，自动吸附到主窗口上，紧贴主窗口边缘，像是有种磁性一样吸附在一起，本窗口中的三个子窗口，都具有自动吸附的磁性感觉，有兴趣可下载本源码学习测试。
- 2022-01-21 20:24:46下载
- 积分：1
