vb.net生成序列,vbnet代码生成器

VB.net 中如何实现序列号注册功能

思路是:

创新互联建站专注于凤县网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供凤县营销型网站建设，凤县网站制作、凤县网页设计、凤县网站官网定制、小程序制作服务，打造凤县网络公司原创品牌,更为您提供凤县网站排名全网营销落地服务。

读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.

也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.

win7下vb.net 如何获取硬盘序列号

Private Function 硬盘序列号() As String

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))

Catch

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))

Catch

硬盘序列号 = ""

End Try

End Function

试下，如果返回为空，则表示失败。

在本机win8win8.1有效，不过好像在有些机器上没用。

VB.NET中随机产生十个数字

添加listbox1,label1,command1

Public Class Form1

Dim N(10) As Integer

'生成随机数

Private Sub CreatRand()

Dim I As Integer

Dim Strarr As String

Strarr = ""

ListBox1.Items.Clear()

Dim R As New System.Random

For I = 0 To 9

N(I) = R.Next(30, 100)

ListBox1.Items.Add(Str(N(I)))

Strarr = Strarr Str(N(I)) " "

'添加标签的横向数字序列

Label1.Text = Strarr

End Sub

'获取最大值

Private Function GetMax() As Integer

Dim I As Integer

Dim intMax As Integer

intMax = 0

For I = 0 To 9

intMax = IIf(intMax N(I), intMax, N(I))

Return intMax

End Function

'获取最小值

Private Function GetMin() As Integer

Dim I As Integer

Dim intMin As Integer

intMin = 101

For I = 0 To 9

intMin = IIf(intMin N(I), intMin, N(I))

Return intMin

End Function

'获取平均值

Private Function GetAve() As Single

Dim I As Integer

Dim Sum As Integer

Sum = 0

For I = 0 To 9

Sum = Sum + N(I)

Return Sum / 10

End Function

'生成随机数，显示各种值

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call CreatRand()

MsgBox("最大值=" Str(GetMax()) ",最小值=" Str(GetMin()) ",平均值=" Str(GetAve()))

End Sub

End Class

《VB.NET》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值决定了

Rnd

生成随机数的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作为随机数种子得到的相同结果。

大于

序列中的下一个随机数。

等于

用VB.net编写反向碱基序列

Private Sub Form_Load()

Dim A As String

Dim B As String

A = InputBox("请输入碱基序列：", "输入！")

A = UCase(A) '变成大写

Rem 碱基互补配对

A = Replace(A, "C", "1")

A = Replace(A, "T", "2")

A = Replace(A, "G", "3")

A = Replace(A, "A", "4")

A = Replace(A, "1", "G")

A = Replace(A, "2", "A")

A = Replace(A, "3", "C")

A = Replace(A, "4", "T")

Rem 反向

For i = Len(A) - 1 To 1 Step -1

B = B Mid(A, i, 1)

VB.NET中为什么RND()前必须初始化RANDOMIZE

Randomize()的作用是初始化随机数种子，

它有个带参数的版本

Randomize(double seed)

seed是产生随机数序列的一个标号，如果你不调用Randomize改变这个标号，默认使用的是同一个序列，所以每次你启动程序生成的随机数都是相同的，不带参数的Randomize等价于Randomize(Timer)，也就是使用系统时钟作为随机数种子

因为这个值随程序启动或调用每次都不会相同，所以能实现产生不同的随机数

分享名称：vb.net生成序列,vbnet代码生成器
网页URL：http://azwzsj.com/article/hcciph.html

vb.net生成序列,vbnet代码生成器

VB.net 中如何实现序列号注册功能

win7下vb.net 如何获取硬盘序列号

VB.NET中随机产生十个数字

《VB.NET》中的“Randomize(x)”和“Rnd(x)”

用VB.net编写反向碱基序列

VB.NET中为什么RND()前必须初始化RANDOMIZE

其他资讯