📄 注册码算法问题~！！.htm
字号:
document.write(".");
document.write(date);
// -->
</SCRIPT>
</B> </TD></TR>
<TR bgColor=#999999>
<TD colSpan=3 height=1></TD></TR></TBODY></TABLE><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=770>
<TBODY>
<TR>
<TD width=10> </TD>
<TD align=middle vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=right height=20 width=200> </TD>
<TD align=right class=color2 colSpan=2 width=560><B><FONT
color=#ffffff><A
href="http://community.csdn.net/Expert/Forum.asp?TypeNum=7&roomid=0"><FONT
color=#ffffff>我的问题</FONT></A> | <A
href="http://community.csdn.net/Expert/Forum.asp?TypeNum=5&roomid=0"><FONT
color=#ffffff>我参与的问题</FONT></A> | <A
href="http://community.csdn.net/Expert/Forum.asp?TypeNum=6&roomid=0"><FONT
color=#ffffff>我得分的问题</FONT></A> | <A
href="http://community.csdn.net/MyFavorite/My_Favorite.asp"><FONT
color=#ffffff>我的收藏夹</FONT></A> | <A
href="http://community.csdn.net/Message_Board/NewMessage.asp?typestate=0"><FONT
color=#ffffff>短信息</FONT></A> </FONT> <FONT
color=#666666></FONT></B></TD></TR>
<TR>
<TD class=color3 colSpan=3 height=1></TD></TR>
<TR>
<TD align=right colSpan=3><A
href="http://community.csdn.net/">CSDN</A> _ FAQ列表 _ <A
href="http://community.csdn.net/expert/faq/list_faq_index.asp?RoomID=5101">基础类</A> _
<A
href="http://community.csdn.net/expert/faq/list_faq_index.asp?RoomID=5101&SmallClassID=4">VB
技巧</A> </TD></TR>
<TR>
<TD height=20> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=3 cellSpacing=1 width=620>
<TBODY>
<TR bgColor=#eeeeee>
<TD align=right vAlign=top width=40><FONT color=red
style="FONT-FAMILY: Arial; FONT-SIZE: 11pt"><B>Q :</B></FONT></TD>
<TD colSpan=3 vAlign=top width=580>注册码算法问题~！！</TD></TR>
<TR bgColor=#eeeeee>
<TD align=right vAlign=top><FONT color=red><B>主要解答者:</B></FONT></TD>
<TD>hxy1982</TD>
<TD align=right><FONT color=red><B>提交人:</B></FONT></TD>
<TD>stoneman1982</TD></TR>
<TR bgColor=#eeeeee>
<TD align=right vAlign=top><FONT color=red><B>感谢:</B></FONT></TD>
<TD colSpan=3 vAlign=top width=580>Suron128、hxy1982</TD></TR>
<TR bgColor=#eeeeee>
<TD align=right vAlign=top><FONT color=red><B>审核者:</B></FONT></TD>
<TD>online</TD>
<TD align=right><FONT color=red><B>社区对应贴子:</B></FONT></TD>
<TD><A
href="http://community.csdn.net/Expert/TopicView.asp?id=2187589"
target=_blank>查看</A></TD></TR>
<TR bgColor=#eeeeee>
<TD align=left colSpan=4 vAlign=top> <FONT
color=red style="FONT-FAMILY: Arial; FONT-SIZE: 11pt"><B> A
:</B></FONT> </TD>
<TR bgColor=#ffffff>
<TD align=left colSpan=4 vAlign=top><BR>注册码：8位纯数字~！
<BR>根据某种算法，计算得出3-9之间的结果数字~！！
<BR>当然注册码首先要有加密保护功能~！不能一猜就破，最好随机生成后~！ <BR>不要太多，也不要太少~！！
<BR> <BR>希望ggjj们鼎力相助~！！！！
<BR>---------------------------------------------------------------
<BR> <BR>Option Explicit
<BR> <BR>Private Declare Function
GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" _ <BR>
(ByVal lpRootPathName
As String, ByVal lpVolumeNameBuffer As
String, _ <BR>
ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long,
lpMaximumComponentLength As Long, _
<BR>
lpFileSystemFlags As Long, ByVal
lpFileSystemNameBuffer As String, _
<BR>
ByVal nFileSystemNameSize As Long) As
Long <BR> <BR>Private Declare Function
WriteProfileString Lib "kernel32" Alias
"WriteProfileStringA" _ <BR>
(ByVal lpszSection As
String, ByVal lpszKeyName As String,
ByVal lpszString As String) As
Long <BR> <BR>Dim sClick As
String <BR> <BR>Public Property Get
ClickInfo() As String <BR>
ClickInfo = UCase(sClick) <BR>End
Property <BR> <BR>Private Sub
cmdCancel_Click() <BR> sClick
= "Cancel" <BR> Unload
Me <BR>End Sub <BR> <BR>Private
Sub cmdOrder_Click() <BR>
If Trim(Text1.Text) = "" Then
<BR>
Text1.SetFocus <BR> Else
<BR> If
CheckRegKey(Trim(Text1.Text)) = False Then
<BR>
MsgBox
"蛁聊鎢渣昫ㄛ&#63384;笭陔怀&#63541;ㄐ", vbCritical,
"渣昫" <BR>
cmdOrder.Caption =
"怀&#63541;蛁聊鎢 [&O]" <BR>
Text1.Text = "" <BR>
Else <BR>
sClick = "order" <BR>
Call
WriteRegKey <BR>
Unload Me
<BR> End
If <BR> End If
<BR>End Sub <BR> <BR>Private Sub
cmdTest_Click() <BR> sClick
= "Later" <BR> Call
WriteRegDate <BR> Unload
Me <BR>End Sub <BR> <BR>Private
Sub Form_Load() <BR>
<BR> cmdTest.Enabled =
blnData <BR> <BR>
Label3.Caption = GetSerial
<BR> <BR>
Picture1.Height = lblBottom.Top +
lblBottom.Height + 120 <BR>
<BR> Me.Width =
Label1(7).Width + 240 + 180:
Me.Height = Picture1.Height +
Frame1.Height + cmdCancel.Height + 600
<BR>End Sub <BR> <BR>Private Sub
Form_Resize() <BR> On
Error Resume Next <BR>
<BR> Me.Top =
(Screen.Height - Me.Height) / 2
<BR> Me.Left =
(Screen.Width - Me.Width) / 2
<BR> <BR>
lblBottom.Left = (Picture1.ScaleWidth -
lblBottom.Width) / 2 <BR>
<BR> Frame1.Top
= Picture1.Height <BR>
Frame1.Left = 0 <BR>
Frame1.Width = Me.ScaleWidth <BR>
Label2(0).Left = (Frame1.Width
- Label2(0).Width - Label3.Width) /
2 <BR> Label3.Left =
Label2(0).Left + Label2(0).Width <BR>
Label2(1).Left = Label2(0).Left
<BR> Text1.Left =
Label3.Left <BR>
<BR> cmdCancel.Top =
Frame1.Top + Frame1.Height + 120
<BR> cmdCancel.Left =
120 <BR> <BR>
cmdTest.Top = cmdCancel.Top
<BR> cmdTest.Left =
Me.ScaleWidth - 120 - cmdTest.Width
<BR> <BR>
cmdOrder.Top = cmdCancel.Top <BR>
cmdOrder.Left = cmdTest.Left -
cmdOrder.Width - 120 <BR>End Sub
<BR> <BR>Private Function GetSerial()
As String <BR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -