VB编PiView4注册机
以下为VB6源代码,欢迎转载
程序代码: |
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "PiView4Keygen Code By 杨兴宇"
ClientHeight = 1530
ClientLeft = 45
ClientTop = 330
ClientWidth = 4695
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 1530
ScaleWidth = 4695
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdClear
Caption = "清空"
Height = 375
Left = 1680
TabIndex = 3
Top = 1080
Width = 1335
End
Begin VB.TextBox txtKey
Alignment = 2 'Center
Appearance = 0 'Flat
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Locked = -1 'True
MaxLength = 40
TabIndex = 2
Top = 600
Width = 4455
End
Begin VB.CommandButton cdmGetKey
Caption = "获取"
Height = 375
Left = 3240
TabIndex = 1
Top = 1080
Width = 1335
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Appearance = 0 'Flat
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
MaxLength = 20
TabIndex = 0
Top = 120
Width = 4455
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名:frmMain
'**说 明:PiView4注册机
'**创 建 人:杨兴宇
'**日 期:2010-01-20 15:20:09
'**版 本:V1.0.0
'*************************************************************************
Option Explicit
Private Function GetRegKey(ByVal m_Input As String) As String
On Error GoTo ErrHandle
Dim m_ConstData(3, 7) As Long
Dim m_Temp1(3) As Long
Dim m_Temp2(7) As Long
Dim m_Temp3 As String
Dim m_Str As String
Dim m_Index As Long
Dim i As Long
Dim j As Long
Dim m_Key(3) As String
GetRegKey = vbNullString
m_ConstData(0, 0) = 32
m_ConstData(0, 1) = 222
m_ConstData(0, 2) = 43
m_ConstData(0, 3) = 61
m_ConstData(0, 4) = 65
m_ConstData(0, 5) = 44
m_ConstData(0, 6) = 217
m_ConstData(0, 7) = 5
m_ConstData(1, 0) = 30
m_ConstData(1, 1) = 29
m_ConstData(1, 2) = 48
m_ConstData(1, 3) = 67
m_ConstData(1, 4) = 223
m_ConstData(1, 5) = 332
m_ConstData(1, 6) = 212
m_ConstData(1, 7) = 53
m_ConstData(2, 0) = 31
m_ConstData(2, 1) = 75
m_ConstData(2, 2) = 323
m_ConstData(2, 3) = 234
m_ConstData(2, 4) = 22
m_ConstData(2, 5) = 4
m_ConstData(2, 6) = 234
m_ConstData(2, 7) = 41
m_ConstData(3, 0) = 31
m_ConstData(3, 1) = 152
m_ConstData(3, 2) = 24
m_ConstData(3, 3) = 354
m_ConstData(3, 4) = 10
m_ConstData(3, 5) = 41
m_ConstData(3, 6) = 12
m_ConstData(3, 7) = 52
m_Str = UCase$("0123456789abcdef")
If Len(m_Input) > 8 Or Len(m_Input) = 0 Then
MsgBox "请正确输入注册号或者您当前选择的PiView版本错误", vbCritical + vbOKOnly, "提醒"
Exit Function
End If
For i = 0 To Len(m_Input) - 1
m_Temp3 = Mid$(m_Input, i + 1, 1)
m_Index = InStr(1, m_Str, m_Temp3) - 1
If m_Index = -1 Then
MsgBox "请正确输入注册号或者您当前选择的PiView版本错误", vbCritical + vbOKOnly, "提醒"
Exit Function
End If
m_Temp2(i) = m_Index
Next
For i = 0 To 3
m_Temp1(i) = 999
For j = 0 To 7
m_Temp1(i) = m_Temp1(i) + m_Temp2(j) * m_ConstData(i, j)
Next
Next
m_Key(0) = CStr(Hex(m_Temp1(0) + m_Temp1(1)))
m_Key(1) = CStr(Hex(m_Temp1(1) * m_Temp1(2)))
m_Key(2) = CStr(Hex(m_Temp1(2)))
m_Key(3) = CStr(Hex(m_Temp1(3)))
For i = 0 To 3
m_Index = Len(m_Key(i))
If m_Index < 4 Then
For j = 1 To 4 - m_Index
m_Key(i) = "0" & m_Key(i)
Next
End If
Next
GetRegKey = Join(m_Key, "-")
ErrHandle:
If Err.Number <> 0 Then
MsgBox "错误描述:" & Err.Description & vbCrLf & vbCrLf & "提醒:请正确输入注册号或者您当前选择的PiView版本错误", vbCritical + vbOKOnly, "有错误发生,错误号:" & CStr(Err.Number)
Err.Clear
End If
End Function
Private Sub cdmGetKey_Click()
txtKey.Text = GetRegKey(txtInput.Text)
If Len(txtKey.Text) = 0 Then
txtInput.SelStart = 0
txtInput.SelLength = Len(txtInput.Text)
txtInput.SetFocus
End If
End Sub
Private Sub cmdClear_Click()
txtInput.Text = vbNullString
txtKey.Text = vbNullString
End Sub
文章来自:http://blog.csdn.net/yangxingyu/article/details/6077088
★VB部分相关文章推荐:★
※vb中line的用法[转]
※画图工具的VB实现
※VB 一个获得自己外网 IP 地址的程序代码
※VB程序中实现IP地址子网掩码网关DNS的更改 [转]
※在 VB 中应用 FSO 对象模型介绍(摘自网络)
※[转] Vb中FSO 对象的介绍
※VB 画坐标轴
※VB 二进制文件的操作
※[VB]BMP转JPGVB中KeyCode常数用法
※vb实时曲线的绘制和保存
※VB操作EXCEL
※vb初学回顾:最大公约数 最小公倍数 素数求取
※vb 关于窗口样式的API以及处理文本的API参考
※【引用】在VB6.0中实现弹出式菜单的几种方法
※【引用】URLDownloadToFile_VB下载文件!
※利用WinRar压缩和解压缩文件
※VB 剪切板
※VB实现指示窗口中拖动方框的程序
※VB绘制走动的表针
※如何用VB制作DLL文件
※【引用】VB修改IP地址
※VB多窗体退出代码
※[转]VB:如何检测到U盘的插拔(源代码)
※巧用SendMessage函数扩展Treeview功能
※vb中如何在任务管理器里面隐藏应用程序进程
※如何实现VB与EXCEL的无缝连接
※一个API方式存取日志文件的模块[VB]
※VB用记录集填充表格函数
※VB打开文本文件各种方法
※vb ClipBoard 剪切板应用(复制剪切粘贴)
※【引用】窗口处理技巧大全 vb(窗体控件)
※【转】 Md rd命令之VB
※vb:读写文本文件
※在vb中实现真正锁定的带自定义菜单的文本控件
※【引用】使用CommonDialog的ShowSave后如何判断是保存还是※取消?
※vb 关于commondialog的多选VB获取Windows操作系统所有版本
※vb UTF文本文件访问
※VB编程中的Unicode vs Ansi
※VB编PiView4注册机
※VB获取超过2G文件的大小
※比CopyMemory还要快的函数SuperCopyMemory
※VB:编程效率快步提高之:十七种可用一行代码完成的技巧
※VB画出来的五星红旗
※Qt第一印象——Qte与Qt
更多精彩>>>
VB编PiView4注册机相关推荐
- [原创]VB注册机独辟蹊径-----注册机也可以这样写
近段时间接了个项目,是关于一个称重传感器的上位机系统,需要一机一码针对不同的客户机分别注册,第一次注册完后,下次打开后不必注册. 刚开始想用正规的注册机办法去完成,搜罗了半天,发现现在大部分的硬盘注册 ...
- [转载]注册机破解法的原理以及应对方法
[--- 资料是从免费网站上获取的,上载在这里,只为交流学习目的,文章原作者保留所有权力, 如本博客的内容侵犯了你的权益,请与以下地址联系,本人获知后,马上删除.同时本人深表歉意,并致以崇高的谢意! ...
- AutoCAD 2021 macOS Big Sur 11版 注册机无法打开?注册机怎么使用?
autocad2021这个新版本,依然是款十分出色的计算机辅助设计 (CAD) 软件,可依靠它来完成任何的2D和3D图形设计.同时该软件内置了专业强大的MEP.MAP 3D.PLANT 3D等智能工具 ...
- 几行VB代码拿下注册表
'****************************注册表操作函数********************** '声明:以下代码由轻风工作室REDICE编写,引用时请作一说明. '******* ...
- coreldraw x4离线激活_coreldraw x4怎么激活 coreldraw x4注册机使用方法
很多用户在下载安装了 我们知道在安装coreldrawx4程序的时候是需要输入coreldraw注册码号才能顺利完成安装,本文小编就为大家推荐coreldraw注册机这款工具,那么coreldraw ...
- 威力导演注册机|威力导演(Cyberlink PowerDirector)15破解工具下载
点击下载:威力导演(Cyberlink PowerDirector)15 注册机 威力导演15注册机一款专门为威力导演15而制作的破解工具,一步即可获取注册码,小编下文还整合的破解教程可以参考.再也不 ...
- Alias Design 2019注册机
Alias Design 2019注册机点击下载 Alias Design 2019注册机激活使用方法 小编这里以下载好AutoCAD 2019注册机进行激活举例 1.首先先在本站下载AutoCAD ...
- rhino7.0破解版下载|Rhinoceros 7中文破解版下载(附注册机)
点击下载出处:Rhinoceros 7中文破解版 Rhinoceros 7由Robert McNeel公司打造开发的全新版本,一款强大且专业的三维建模软件,优化了部分功能,全新的界面让你建模更加地方便 ...
- Pix4Dmapper注册机
点击下载来源:Pix4Dmapper注册机 Pix4Dmapper注册机是一款由网友针对功能丰富的无人机建模软件Pix4Dmapper进行激活而制作的破解工具,通过使用它获取并生成注册激活码进行软件注 ...
最新文章
- Codeforces 1408 D. Searchlights(优化DP、思维)
- Win10双系统设置默认启动系统的图文教程
- Linux下巧妙使用邮件服务器之postfix(认证+web)
- 新建centos6虚拟机黑屏_虚拟机centos无法进去选择系统界面,也就是开机过bios就黑屏解决方案...
- Java多线程:示例代码
- 湖北2018年GDP同比增长7.8% 进出口增速有所回升
- Quartz是一个任务调度
- Pytorch1.7.1与SimpleITK2.0.0在centos7上终端运行冲突的情况
- HDU2082 找单词【母函数】
- Lanenet论文解读
- 外部SRAM实验,让STM32的外部SRAM操作跟内部SRAM一样(转)
- C#两路list数组归并去重
- 论文笔记_S2D.73_ICCV2021_单目深度估计的可解释深度网络研究
- 测试网速的c语言代码,如何用C语言编个测网速的小工具
- plsqldev连oracle,plsqldev怎么联接oracle客户端
- VS2010 如何调试进(step into)项目引用的第三方开源源代码,比如Qt源码
- 龙芯电脑使用Loongnix系统
- 小心利用大家的爱国热情来传播Worm.Win32.AutoRun.dgk的网页
- python基础——文件与IO
- python采用Basemap绘制完美中国地图
热门文章
- BAT 七年经验,却抵不过外企面试的两道算法题?
- AI 崛起?科技公司却偷偷用人类做机器人的工作!
- 区块链开发人员短缺?各大公司献上连环招
- Java定时器quartz停止
- oppoJava面试!java开发视频聊天
- linux服务器视频转换,将动画gif转换为linux服务器上的视频,同时保留帧速率
- 怎么查看表用了那个序列_3套阴瑜伽序列,让你身心平衡
- linux 什么数据类型 8字节,linuxea:go数值类型(8)
- gitleb 登陆方式_gitlab连接方式
- GitHub Actions 持续集成