用VB编写一个密码解锁界面

用VB编写一个密码解锁界面我也就是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，就是很富有创造性得电脑语言。

下面就是我瞧了两天书后编写得一个小程序：功能就是能建立两个窗口，一个密码窗口，一个为修改密码窗口。

当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改得密码为解锁密码。

中间有错误提示与误操作提示。

①先建立一个小窗口，如下图：帐号一得“textbox”编号为“text1”，后面一次类推，command指令为1。

②程序得编写Text1：初始帐号为“07823”，如果可以得话可以给加入更多得功能，比如记忆多个账户与多对密码之类得等等。

2、text23、command1初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。

4、command2跳往第二个界面，隐藏第一界面。

5、初始指令6、全局变量全局变量本界面可以修改、其它界面可以调用得变量。

②建立第二个窗口Text得序号从上到下依次顺序排列，command得命令一次从左到右排列③第二个窗口得程序编写1、Text1：Private Sub Text1_LostFocus()Dim b As IntegerDim pw_1 As String, pw_2 As Stringpw_2 = Form1、mpw_1 = Text1、TextIf pw_1 <> pw_2 Thenb = MsgBox("密码错误", 5 + vbExclamation, "错误提示")End IfEnd Sub2、text2：Private Sub Text2_LostFocus()If Text2、Text = "" ThenMsgBox "新密码不能为空"End IfEnd Sub3、text3：Private Sub Text3_LostFocus()If Text2、Text <> Text3、Text ThenMsgBox "两次输入密码不一样"Text2、Text = ""Text3、Text = ""Text2、SetFocusEnd IfEnd Sub4、command1：Private Sub Command1_Click()If Text2、Text = Text3、Text Thenn = Text2、TextEnd IfText1、Text = ""Text2、Text = ""Text3、Text = ""Form1、ShowForm2、HideEnd Sub5、command2：Private Sub Command2_Click() Text1、Text = ""Text2、Text = ""Text3、Text = ""Form1、ShowForm2、HideEnd Sub初始设置（Form）Private Sub Form_Load()Text1、PasswordChar = "*" Text1、Text = ""Text2、PasswordChar = "*" Text2、Text = ""Text3、PasswordChar = "*" Text3、Text = ""End Sub全局变量申明Public n As String。

VB编写好的文件的加密与解密软件

Option Explicit Dim i As Long Dim databuff（） As Byte ’定义数组用于存放文件内容 Dim addbuff（） As Byte ’定义数组用于存放加密后的文件内容 Dim password（） As Byte ’定义数组用于存放密码的ASCII值 Dim filename As String Private Sub Check1_Click（） If Check1.Value Then ’控制是否显示全部文件 File1.Pattern = "*.*" Else File1.Pattern = ".txt" End If End Sub Private Sub Command1_Click（） Dim j As Integer Dim password_len As Integer password_len = Len（Text2.Text） ReDim password（password_len） As Byte For i = 0 To password_len - 1 ’把密码转化为ASCII码 password（i）= Asc（Mid（Text2.Text，i + 1，1）） Next If filename = "" Then Exit Sub Open filename For Binary As #1 ’读取要加密的文件内容 ReDim databuff（LOF（1）） Get #1，， databuff Close #1 ReDim addbuff（UBound（databuff））As Byte For i = 0 To UBound（databuff） If j >= password_len Then ’循环使用密码 j = 0 Else j = j + 1 End If addbuff（i）= databuff（i）Xor password（j）’进行异或运算 Next Open filename For Binary As #1 ’把加密后的内容写入文件 Put #1，，addbuff Close #1 Text1 = StrConv（addbuff vbUnicode）’显示加密后的文件内容 Text2.Text = "" End Sub Private Sub Command2_Click（） .End End Sub Private Sub Dir1_Change（） File1.Path = Dir1.Path ’与文件列表框相关联 End Sub Private Sub Drive1_Change（） On Error GoTo a0 Dir1.Path = Drive1.Drive ’与目录列表框相关联 a0：If Err Then MsgBox（Error（Err））’发生错误，提示错误内容 End Sub Private Sub File1_Click（）’单击文件时，显示文件内容 filename = Dir1.Path + File1.filename If filename = "" Then Exit Sub Open filename For Binary As #1 ReDim databuff（LOF（1）） Get #1，，databuff Close #1 Text1 = StrConv（databuff，vbUnicode） End Sub

VBA实现Excel数据的加密和解密

VBA实现Excel数据的加密和解密在日常工作中，我们经常需要处理大量的敏感数据，为了保护这些数据的安全性，通常需要对其进行加密和解密。

微软的Excel 软件提供了VBA编程语言，通过编写VBA代码，我们可以实现对Excel数据的加密和解密操作，保障数据的机密性。

首先，我们来介绍如何使用VBA代码实现Excel数据的加密操作。

在加密过程中，我们可以使用一种称为"位移"的加密算法。

它通过按照一定的规则将字符进行位移，从而改变字符的ASCII 码值，从而实现加密效果。

下面是实现加密的VBA代码示例：```vbaSub EncryptData()Dim cell As RangeDim originalData As StringDim encryptedData As StringFor Each cell In SelectionoriginalData = cell.ValueencryptedData = ""For i = 1 To Len(originalData)encryptedData = encryptedData &Chr(Asc(Mid(originalData, i, 1)) + 1) ' 将字符的ASCII码值加1Next icell.Value = encryptedDataNext cellEnd Sub```以上代码中，我们首先定义了一个用于循环处理被选择数据单元格的变量`cell`，然后通过`For Each`语句遍历被选择的数据单元格。

在循环中，我们首先获取当前单元格的原始数据，并将其保存在`originalData`变量中。

然后定义一个空字符串`encryptedData`用于存储加密后的数据。

接下来，我们使用`For`循环遍历原始数据中的每个字符。

通过`Mid`函数以及`Asc`和`Chr`函数，我们可以取得原始数据中每个字符的ASCII码值，并将其加1。

给VB程序加密

VB的好处我就不多说了。

VB初学者模仿能力很强，总希望自己的程序看起来专业一点，如用密码登录、制作限次版、限时版、强行启动等等，其实这些东西并不神秘，在VB里只要用少量代码就可实现。

1.最简单的可执行文件密码登录：在程序启动时加入以下代码：Private Sub Form_Load()Dim a as Varianta=InputBox("请输入密码!")If a<>"＊＊＊＊" Then MsgBox "密码错误，您不能使用本软件！": End 注释：＊＊＊＊为预先设定的字符End Sub怎么样，能唬人吧。

什么？太烂！2.在硬盘上建立一个文件用于存放密码，这样就可以读写修改了On Error GoTo sss注释：若文件不存在，则捕获该错误，建立密码Open ("c:\abc.abc") For Input As ＃1注释：文件存在，则打开文件Input ＃1,b 注释：将密码读入变量bClose ＃1a=InputBox("请输入密码!")If a<>b Then MsgBox "密码错误，您不能使用本软件！":EndExit Subsss:a=InputBox("请建立密码!")Open("c:\abc.abc") For Output As ＃2 注释：在硬盘上建立存放密码的文件Print ＃2,aClose ＃2MsgBox "建立密码成功!"使用InputBox输入密码的缺点是密码被显示出来，大家可以另建一个窗体代替输入对话框，加入一TextBox并将其PasswordChar属性设为＊就行了。

文件abc.abc可用任何文本文件打开编辑，因此在你未学会加密算法之前可将文件命名为＊.sys或＊.dll,并放在windows 或system目录下，甚至将其属性设为隐藏，哈哈，系统文件谁敢乱改！不过要小心不要覆盖真正的系统文件。

VB程序加密示例

VB程序示例以下为具有读写、限时功能的五型加密锁加密示例加密对象VB环境下编写的程序（VBSample），在本例中VBSample是一个简单的界面程序；加密目的对VBSample程序进行内嵌加密后，只有通过对应的加密锁才能打开VBSample程序（即显示界面），否则不能打开。

通过限时控制（设定一至三个期限及解开期限的相应密码），控制用户的使用期限；达到加密强度高、程序运行稳定、使用便捷的目的；加密工具五型加密锁(序列号617622)、随锁KEY值（key1=51004，key2=11410，key3=46486，key4=12938）、动态库CDLL5.dll、接口程序、读写函数、限时限次工具、密码修改工具等；准备工作另外开发一个程序write来向加密锁中相应的地址写入数据。

现在向加密锁中的1号地址（该锁有32个地址，可任选）写入数据”12345”。

步骤如下：1、将\内嵌加密\实例\VB\代码中的CDLL5.dll、Module1复制到write的同一目录下;2、写入数据程序代码,并运行：unsigned long data=12345;char *password="abcdefgh";WriteLock(1,data,password);3、成功写入数据后关闭该程序。

加密过程步骤一：首先在VB环境下打开VBSample程序，运行几次，确保程序能正常运行。

确定加密位置，现在根据需要确定在程序入口处进行加密。

步骤二：将光盘中的所有文件拷贝到计算机硬盘上，安装好加密锁，打开tools,使用工具ModPassw修改密码。

新密码值根据个人需要设置，这里我把它设置为“009lirog”。

步骤三：通过路径：\内嵌加密\实例\VB\代码找到CDLL5.dll、Module1并将CDLL5.dll、Module1复制到VBSample的同一目录下。

如图1所示：图1步骤四：通过Add Module添加模块Module1，模块Module1中定义了动态库函数及ShieldPC()函数。

利用VB制作一个锁定计算机的工具

【趣味程序】利用VB制作一个锁定计算机的工具利用VB制作一个锁定计算机的工具，，这个工具实现的目的，自动解码（即是你输入密码后自动解除，然后才能关闭程序），输入密码的时候只有5秒时间，大于就会自己锁定。

再次按回车才能继续输入密码。

下面是步骤：先照下面的界面做好界面，大家可以自己做，认为怎么好看都可以。

做好界面后先不要写代码，我们还需要一个模块，先建立一个模块模块写入如下代码：--------------------------模块代码开始-------------------------------' Used for DisableCtrlAltDeletePrivate Declare Function SystemParametersInfo Lib _"user32" Alias "SystemParametersInfoA" (ByVal uAction _As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ByVal fuWinIni As Long) As Long'-------------------------------------------' Used for ExitWindowsConst EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" _(ByVal uFlags As Long, ByVal dwReserved _As Long) As Long' ---------------------' Used for AlwaysOnTopConst FLAGS = 3Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Public SetTop As BooleanPrivate Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer '-------------------------------------------Sub ExitWindows(ExitMode As String)Select Case ExitModeCase Is = "shutdown"t& = ExitWindowsEx(EWX_SHUTDOWN, 0)Case Is = "reboot"t& = ExitWindowsEx(EWX_REBOOT Or EXW_FORCE, 0)Case ElseMsgBox ("Error in ExitWindows call")End SelectEnd SubSub AlwaysOnTop(FormName As Form, bOnTop As Boolean)'Sets a form as always on topDim Success As IntegerIf bOnTop = False ThenSuccess% = SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) ElseSuccess% = SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) End IfEnd SubSub DisableCtrlAltDelete(bDisabled As Boolean)' Disables Control Alt Delete Breaking as well as Ctrl-EscapeDim X As LongX = SystemParametersInfo(97, bDisabled, CStr(1), 0)End SubSub OpenApp(File As String)'Shells to another applicationX = Shell(File)End Sub--------------------------模块代码结束-------------------------------再来写我们的窗体中控件的代码,代码如下：--------------------------窗体空间代码开始------------------------------- Option ExplicitDim ter As BooleanPrivate Sub Command1_Click()ter = FalseDisableCtrlAltDelete (False)Unload Form1End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTimer1.Enabled = FalseTimer2.Enabled = TrueText1.Enabled = TrueEnd IfEnd SubPrivate Sub Form_Load()DisableCtrlAltDelete (True)ter = TrueEnd SubPrivate Sub Form_LostFocus()Form1.SetFocusEnd SubPrivate Sub Form_Unload(Cancel As Integer)If ter = True ThenCancel = 5ElseEnd IfEnd SubPrivate Sub Timer1_Timer()Form1.SetFocusLabel2.Caption = 5End SubPrivate Sub Timer2_Timer()Label2.Caption = Val(Label2.Caption) - 1 & " Seconds time to write a password."Text1.SetFocusIf Text1.Text = "musi" Thenter = FalseTimer2.Enabled = FalseTimer1.Enabled = FalseLabel2.Caption = "5"MsgBox "Password accepted, you can close this programm now."Text1.Enabled = FalseCommand1.Enabled = TrueEnd IfIf Val(Label2.Caption) = 0 ThenTimer1.Enabled = TrueTimer2.Enabled = FalseText1.Text = ""Text1.Enabled = FalseCommand1.Enabled = FalseEnd IfEnd Sub--------------------------窗体空间代码结束-------------------------------如果想快速体验，可以先把所有代码复制下来，保存为frm文件，再次打开这个frm,运行的时候直接完全编译即可。

VB制作系统登录界面,包括用户名,密码和错误校验及效果全代码

VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码第十讲:教你用VB制作系统登录界面，包括用户名，密码和错误校验及效果全代码以下代码均为个人学习心得，经过测试并且无误，可以嵌入大型程序中作为身份认证的功能作用。

其中有一些窗体名和效果代码，不必复制，否则会出现错误，请仔细阅读核心代码理解即可。

红色代码部份为实现用户检测的关键代码，必需要有后台数据库用来存放用户信息，通过 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\HISDB.mdb"来连接，然后用If rs.EOF = True Then进行判断表中是否存在用户信息即可。

Option ExplicitDim Cnum As IntegerPrivate Sub CmdCancel_Click()'//结束EndEnd SubPrivate Sub CmdLogin_Click()Dim UserName As StringDim PassWord As StringDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim StrSQL As Stringconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path & "\HISDB.mdb"UserName = Trim(TxtUserName.Text) '//将文本框内的值赋给定义好的全局变量PassWord = Trim(TxtPassword.Text) If UserName = "" Or PassWord = "" ThenMsgBox "对不起，用户或密码不能为空～请重新输入～～", vbCritical, "错误"ElseIf UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空Cnum = Cnum + 1StrSQL = "select * from 用户信息表 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打开记录集If rs.EOF = True ThenMsgBox "对不起，无此用户或者密码不正确～请重新输入～～", vbCritical, "错误"TxtUserName.Text = ""TxtPassword.Text = ""TxtUserName.SetFocusrs.CloseIf Cnum >= 3 ThenMsgBox "对不起，您已经多次失败，无权操作本系统～", vbCritical, "无权限"Unload MeExit SubEnd IfElse '登陆成功,以下为权限验证If rs.Fields("用户权限").Value = "系统管理" Then Frmmdimain.Show Unload MeElseIf rs.Fields("用户权限").Value = "挂号" ThenFrmregistration2.ShowUnload MeElseIf rs.Fields("用户权限").Value = "诊断" Then Frmdiagnose2.Show Unload MeElseIf rs.Fields("用户权限").Value = "收费" Then Frmcharges2.Show Unload MeElseIf rs.Fields("用户权限").Value = "发药" Then Frmmedicine2.Show Unload MeEnd Ifrs.CloseEnd IfEnd IfEnd SubPrivate Sub Form_Load()'//加载主窗时给文本框赋值TxtUserName.Text = "Admin"TxtPassword.Text = "123"Cnum = 0End SubPrivate Sub TmrChangeColor_Timer() '//调用定义好的改变颜色过程, Call changecolor(LblWelcome(0), 0, 1, 2, 3, 4, 5, 6, 7)End SubPrivate Sub TmrMoveText1_Timer() '//移动LblShaSiLblShaSi(0).Move LblShaSi(0).Left + 20 LblShaSi(1).Move LblShaSi(1).Left + 20 End SubPrivate Sub TmrMoveText2_Timer() '//移动LblShaSiIf LblShaSi(0).Left + LblShaSi(0).Width >= Me.Width +LblShaSi(0).WidthThenLblShaSi(0).Move -1500End IfIf LblShaSi(1).Left + LblShaSi(1).Width >= Me.Width +LblShaSi(1).WidthThenLblShaSi(1).Move -1500End IfEnd Sub'//定义一个改变颜色的过程,下面的control就是我们所说的控件 Sub changecolor(LCnt As Control, color1 As Integer, _color2 As Integer, color3 As Integer, _color4 As Integer, color5 As Integer, _color6 As Integer, color7 As Integer, _color8 As Integer)Dim tmep As Integertmep = Val(LCnt.Tag) '//将返回包含于字符串内的数字赋给TEMP Select Case tmepCase color1LCnt.Tag = color2Case color2LCnt.Tag = color3Case color3LCnt.Tag = color4Case color4LCnt.Tag = color5Case color5LCnt.Tag = color6Case color6LCnt.Tag = color7Case color7LCnt.Tag = color8Case color8LCnt.Tag = color1End SelectLCnt.ForeColor = QBColor(LCnt.Tag) '//给控件LCnt中的字体赋予颜色,注意QBColor是将一值'//转换为三色,MSDN详解,我也是在那查的````哈End Sub。

VB编程实例.doc

用VB编写一个密码解锁界面我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。

下面是我看了两天书后编写的一个小程序：功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。

当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。

中间有错误提示和误操作提示。

①先建立一个小窗口，如下图：帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。

②程序的编写Text1：初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。

2、text23、command1初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。

4、command2跳往第二个界面，隐藏第一界面。

5、初始指令6、全局变量全局变量本界面可以修改、其它界面可以调用的变量。

②建立第二个窗口Text的序号从上到下依次顺序排列，command的命令一次从左到右排列③第二个窗口的程序编写1、Text1：Private Sub Text1_LostFocus()Dim b As IntegerDim pw_1 As String, pw_2 As Stringpw_2 = Form1.mpw_1 = Text1.TextIf pw_1 <> pw_2 Thenb = MsgBox("密码错误", 5 + vbExclamation, "错误提示")End IfEnd Sub2、text2：Private Sub Text2_LostFocus()If Text2.Text = "" ThenMsgBox "新密码不能为空"End IfEnd Sub3、text3：Private Sub Text3_LostFocus()If Text2.Text <> Text3.Text ThenMsgBox "两次输入密码不一样"Text2.Text = ""Text3.Text = ""Text2.SetFocusEnd IfEnd Sub4、command1：Private Sub Command1_Click() If Text2.Text = Text3.Text Then n = Text2.TextEnd IfText1.Text = ""Text2.Text = ""Text3.Text = ""Form1.ShowForm2.HideEnd Sub5、command2：Private Sub Command2_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Form1.ShowForm2.HideEnd Sub初始设置（Form）Private Sub Form_Load()Text1.PasswordChar = "*" Text1.Text = ""Text2.PasswordChar = "*" Text2.Text = ""Text3.PasswordChar = "*" Text3.Text = ""End Sub全局变量申明Public n As String。

VBA代码破解法

VBA代码破解法
1.打开要猜解的EXCEL文件。

2.按照下列步骤打开VBE并将VBA代码复制到代码窗口中。

3.将光标定位到代码窗口，按F5运行上述代码。

4.之后该代码会依次执行猜解工作簿保护密码、猜解工作表保护密码和将该EXCEL文件撤销工作表保护和工作簿保护的操作。

注意：该代码不提供密码的复制粘贴功能。

因此想记住密码必须手工抄写或者截图。

5.从核心代码可以看到，猜解出来的密码固定12个字符，前11个字符为大写字母A或者B，第12个字符为95个字符可输入字符之一。

2^11*95=194560种组合。

共有不到20万种组合。

每秒100万个，所以更是“秒”破。

猜解的核心代码：
For i = 65To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 =65 To 66
For i2 = 65 To 66: For i3 = 65 To 66:For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66:For n = 32 To 126
您可回复MMPJ获取相应软件和演示文件哦。

vb程序设计登陆界面代码详例

vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。

VBA中常见的文件加密与解密方法与实例

VBA中常见的文件加密与解密方法与实例文件加密和解密是信息安全领域中必不可少的一部分。

VBA（Visual Basic for Applications）是一种编程语言，常用于Microsoft Office软件中，如Excel、Word等。

VBA 提供了许多可用于文件加密和解密的方法和函数，以帮助保护敏感信息和数据。

本文将介绍VBA中常见的文件加密和解密方法，并提供相应的实例。

一、VBA中的加密方法1. 使用密码保护文件Excel和Word都提供了密码保护文件的选项。

你可以设置访问密码，使得未输入正确密码的情况下无法打开或编辑文件。

下面是一个加密Excel文件的示例：```vbaSub PasswordProtectWorkbook()Dim strPassword As StringstrPassword = InputBox("请输入密码：")ThisWorkbook.Password = strPasswordEnd Sub```2. 使用加密算法加密文件内容VBA提供了多种加密算法，如DES、AES等。

你可以使用这些算法对文件内容进行加密。

下面是一个使用DES算法进行加密的示例：```vbaSub EncryptFileContent()Dim strInputFile As String, strOutputFile As StringDim objFSO As FileSystemObjectDim objInputFile As TextStream, objOutputFile As TextStreamDim strFileContent As String, strEncryptedContent As StringDim objDes As New CryptoAPI' 读取原文件内容strInputFile = "原文件路径"Set objFSO = New FileSystemObjectSet objInputFile = objFSO.OpenTextFile(strInputFile) strFileContent = objInputFile.ReadAllobjInputFile.Close' 加密文件内容objDes.Key = "加密密钥"objDes.Message = strFileContentstrEncryptedContent = objDes.Encrypt' 写入加密后的内容到新文件strOutputFile = "加密后的文件路径"Set objOutputFile =objFSO.CreateTextFile(strOutputFile)objOutputFile.Write strEncryptedContentobjOutputFile.CloseEnd Sub```二、VBA中的解密方法1. 使用密码解密文件如果一个文件通过密码保护进行了加密，那么你需要输入正确的密码才能打开和编辑文件。

VB锁定屏幕编程

VB锁定屏幕编程窗体代码Option ExplicitDim m_Exit As Boolean '限制ALT+F4退出窗体'******隐藏任务栏代码************************************'参数；lpClassName 指定了包含了窗口类名中的空中止，字串的指针，或设为0。

表示接收任何类。

'参数；lpWindowName 指向包含了窗口文本的空中止，字串的指针。

或设为0。

表示接收任何窗口标题。

'功能；寻找窗口列表中第一个符合指定条件的顶级窗口。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, _ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ByVal nCmdShow As Long) As LongConst SW_HIDE = 0Const SW_SHOWNORMAL = 1Dim x As LongDim StartWindow As LongDim ClassName As String'******隐藏任务栏代码************************************Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If m_Exit = True ThenCall DelHook '销内存ElseIf m_Exit = False ThenCancel = -1End IfEnd IfEnd SubPrivate Sub Form_Activate()Frame1.Item(0).Move Me.ScaleWidth - (Frame1.Item(0).Width + 300), Me.ScaleHeight - (Frame1.Item(0).Height + 400)Text1.Item(0).SetFocus' ModSuPing.ShuPing Frame1.Item(0) '调用函数。

VB编一个屏幕锁

CopyMemory P, ByVal lParam, Len(P)
Select Case P.vKey
Case VK_LWIN, VK_RWIN '如果按了WIN键
fEatKeystroke = True
End Select
End If
End If
If fEatKeystroke Then
Private Const HC_SYSMODALOFF = 5
Private Const HC_SYSMODALON = 4
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYDOWN = &H104
SetActiveWindow Me.hwnd
End Sub
Private Sub Form_Load()
Call keybd_event(vbKeySnapshot, theForm, 0, 0) '若theForm改成theScreen则Copy整个Screen
DoEvents
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

VB编写加密文件

VB编写加密（解密）程序加密程序能对文本文件中的字符进行变换，使原来可以阅读的字符——明文，变成其他读不明白的字符——密文；解密文件可以将密文恢复成明文。

☞步骤：☆（1）准备好一份文本格式的待加密文件。

可用文字处理软件如“记事本”输入一段你认为有意义的文字并保存为文本文件。

☆（2）新建一个VB工程。

启动VB程序，在“新建工程”对话框中双击“标准EXE”，打开VB工作界面，如下图所示。

双击打开工程资源管理器工具栏窗体文件窗体设计器☆（3）输入程序。

单击工程资源管理器中窗体文件及“查看代码”按钮，打开窗体代码窗口，在代码窗口的左上方的对象框中选择Form ，右边选择Load ，在Private Sub Form_Load()与End Sub 之间输入代码，代码如下： Private Sub Form_Load()FileName$ = InputBox("请输入需要加密的文件及路径：")Open FileName$ For Input As #1Line Input #1, yw$Close #1xw$ = ""n = Len(yw$)For i = 1 To nyz$ = Mid$(yw$, i, 1)xz$ = Chr(Asc(yz$) - 10)xw$ = xw$ & xz$NextOpen FileName$ For Output As #1 Print #1, xw$ Close #1MsgBox " # # # # 加密已完成 ! ! # # # # "EndEnd Sub如下图所示：查看代码按钮窗体代码窗口结束按钮启动按钮☆（4）运行程序。

单击工具栏上的启动按钮运行程序，在弹出的对话框中输入待加密文件的文件名及路径，如“D:\vb\tj.txt”，然后按“确定”按钮，弹出“加密已完成”的信息框，说明文件加密成功（你可以去打开文件看看文本内容变成了什么）,单击“确定”结束程序，如下图所示：☆（5）保存程序。

vb登录界面（代码）

Private Sub Command1_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"If users.Text = "" ThenMsgBox ("账号不能为空")users.SetFocusElseIf password.Text = "" ThenMsgBox ("密码不能为空")password.SetFocusElseusername = users.Textpassword = password.Textsql = "Select * From Users where 用户名='" & username & "' and 密码='" & password & "'" Reco.open sql, conn, 1, 3If Reco.EOF ThenMsgBox "没有找到此用户"ElseForm1.HideForm4.ShowForm4.Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "帐号不能为空，请输入", vbCritical, "提示"Text1.SetFocusElseIf Text2.Text = "" ThenMsgBox "密码不能为空，请输入", vbCritical, "提示"Text2.SetFocusElseDim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"sql = "insert into Users(用户名,密码)values('" & Text1.Text & " ','" & Text2.Text & " ')"conn.Execute sqlconn.CloseForm2.HideForm3.Showbel1.Caption = "注册成功！点返回至登录页"End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click() Form3.HideForm1.Showers.SetFocusEnd SubPrivate Sub Form_Load()End SubPrivate Sub Combo1_Change() End SubPrivate Sub Command1_Click()Form4.HideForm5.ShowForm5.Text1.SetFocusEnd SubPrivate Sub Command2_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"sql = "Select * From Users where 用户名='" & Text2.Text & "'"Reco.open sql, conn, 1, 3If Reco.EOF <> True ThenForm4.HideForm7.ShowForm7.List1.AddItem "用户名:" & Reco("用户名").V alueForm7.List1.AddItem "性别:" & Reco("性别").V alueForm7.List1.AddItem "年龄:" & Reco("年龄").V alueForm7.List1.AddItem "地址:" & Reco("地址").V alueElseMsgBox "未找到该用户的资料!", 16Text2.SetFocusEnd IfEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"Reco.open "Select 用户名From liebiao where 类型='" & Combo1.Text & "'", conn, 1, 3 Text1.Text = Reco("用户名").V alueEnd SubPrivate Sub Form_Load()Combo1.AddItem "我的同学"End SubPrivate Sub Command1_Click()Dim conn, RecoSet conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Dim sql As Stringconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"If Text2.Text <> Text3.Text ThenMsgBox ("两次密码输入不一致！"), vbCritical, "提示"Elsesql = "Update Users Set 密码='" & Text2.Text & "' where 用户名='1414087626'" conn.Execute sqlconn.CloseForm5.HideForm6.ShowEnd IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()Form6.HideForm4.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click() Form7.HideForm4.ShowEnd SubPrivate Sub Form_Load()List1.Width = 1695End SubPrivate Sub HScroll1_scroll() End Sub。

初学者API入门事例,VB锁屏小程序源码,及窗体布局!

自己编写的一个VB锁屏小程序里面涉及到的内容有：（主要的）API 窗体置顶（setwindowpos）获得活动窗体句柄（GetForegroundWindow）查找指定窗体句柄（findwindow）还有个窗体透明化的几个API，注释里面有标记下面是全部代码及窗体布局及运行效果：'窗口透明化申明语句，函数定义Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 常数：Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1'消息（msgbog）函数声明Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long'窗体前置API函数申明Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowPos& Lib "user32" (ByVal hWnd As Long, _ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)Private num As Long '定义一变量来保存第一次输入的密码Private n As Long '定义一变量来记录密码输入格式规范（全数字密码），且按钮Cmd1按下的次数'定义一授权密码Private Const sc = 492158181密码部分编写代码Private Sub cmd1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If IsNumeric(Text1.Text) Thenn = n + 1If n = 1 Thennum = Val(Text1.Text)Cmd2.Enabled = FalseText1.Text = ""cmd1.Caption = "请输入解锁密码"Form1.ShowForm2.ShowEnd IfIf Val(n) > 1 And Val(Text1.Text) = num ThenEndEnd IfIf n > 1 And Val(Text1.Text) <> num ThenMessageBoxTimeout Me.hWnd, "亲出错了，请想想再输入，.", "出错了", 48, 0, 2000Text1.Text = ""End IfElseMessageBoxTimeout Me.hWnd, "请输入全数字密码，.", "出错了", 48, 0, 2000Text1.Text = ""End IfEnd SubPrivate Sub Cmd2_Click()EndEnd Sub'软件授权密码编写Private Sub Form_Load()q = InputBox("请输入程序授权密码", "锁屏小程序", 0)If q <> sc Then EndForm2.Show '窗体2激活'窗体Dim th As Longth = GetWindowLong(hWnd, GWL_EXSTYLE)th = th Or WS_EX_LAYEREDSetWindowLong hWnd, GWL_EXSTYLE, thSetLayeredWindowAttributes hWnd, vbBlue, 230, LWA_COLORKEY Or LWA_ALPHA Form1.Width = Screen.WidthForm1.Height = Screen.HeightForm1.Top = 0Form1.Left = 0Form1.BackColor = vbBlueForm1.ForeColor = vbRed'文本框设置Text1.BackColor = RGB(65, 210, 79)Text1.ForeColor = vbRed'按钮（cmd1）设置cmd1.BackColor = RGB(65, 210, 79)'按钮Cmd2设置Cmd2.BackColor = RGB(65, 210, 79)'标签（lb1）设置lb1.BackColor = RGB(133, 87, 179)lb1.ForeColor = vbRed'框架设置Frm1.BackColor = RGB(133, 87, 179)Frm1.Top = Screen.Height / 4'lb2设置Lb2.BackColor = RGB(133, 87, 179)Lb2.ForeColor = vbRedTimer4.Enabled = False'img1的设置img1.Width = Form1.Widthimg1.Height = Form1.HeightEnd SubPrivate Sub Frm1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Timer7.Enabled = TrueEnd SubPrivate Sub Text1_Change()Timer7.Enabled = TrueEnd SubPrivate Sub Timer2_Timer()Dim h1, h2 As Longh1 = FindWindow(vbNullString, "锁屏小程序")h2 = GetForegroundWindow()If h1 <> h2 ThenCall SetWindowPos(h1, -1, 0, 0, 0, 0, 3) End IfEnd SubPrivate Sub Timer3_Timer()Frm1.Left = Frm1.Left - 30If Frm1.Left < 0 ThenTimer4.Enabled = True:Timer3.Enabled = FalseEnd IfEnd SubPrivate Sub Timer4_Timer()Frm1.Left = Frm1.Left + 30If Frm1.Left >= Form1.Width - Frm1.Width Then Timer4.Enabled = FalseTimer3.Enabled = TrueEnd IfEnd SubPrivate Sub Timer7_Timer() Timer8.Enabled = True Timer3.Enabled = False Timer4.Enabled = False Timer7.Enabled = False End SubPrivate Sub Timer8_Timer() Timer3.Enabled = True Timer4.Enabled = False Timer8.Enabled = False End Sub。

excel2013利用VBA编程解锁密码的教程

excel2013利用VBA编程解锁密码的教程在Excel中经常需要用到密码保护进行对重要数据保护，而因为时间过得久了，久而久之就忘记密码了，这个时候就需要我们动用一些技术利用VBA编程进行解锁密码，具体该如何操作呢，下面是店铺带来的关于excel2013利用VBA编程解锁密码的教程，希望阅读过后对你有所启发!excel2013利用VBA编程解锁密码的教程：利用VBA编程解锁步骤1：将你要破解的Excel文件关闭，切记一定要关闭呀!然后新建一个Excel文件利用VBA编程解锁步骤2：打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示利用VBA编程解锁步骤3：将代码复制到这个模块中，代码如下：Private Sub VBAPassword() '你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。

"Exit SubElseFileCopy Filename, Filename & ".bak" '备份文件。

End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = "CMG=""" Then CMGs = iIf GetData = "[Host" Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"Exit SubEnd IfDim St As String * 2Dim s20 As String * 1'取得一个0D0A十六进制字串Get #1, CMGs - 2, St'取得一个20十六制字串Get #1, DPBo + 16, s20'替换加密部份机码For i = CMGs To DPBo Step 2Put #1, i, StNext'加入不配对符号If (DPBo - CMGs) Mod 2 <> 0 ThenPut #1, DPBo + 1, s20End IfMsgBox "文件解密成功......", 32, "提示"Close #1End Sub利用VBA编程解锁步骤4：然后点击运行按钮，如图所示，绿色的小三角就是利用VBA编程解锁步骤5：你会看到，打开了一个文件夹，找到我们要破解的这个文件，然后点击打开利用VBA编程解锁步骤6：稍等几分钟你就会看到破解成功的提示了利用VBA编程解锁步骤7：再次打开你要破解的这个文件，你会看到这里已经可以查看代码了哈哈。

给VB程序加密

VB的好处我就不多说了。

VB初学者模仿能力很强，总希望自己的程序看起来专业一点，如用密码登录、制作限次版、限时版、强行启动等等，其实这些东西并不神秘，在VB里只要用少量代码就可实现。

1.最简单的可执行文件密码登录：在程序启动时加入以下代码：Private Sub Form_Load()Dim a as Varianta=InputBox("请输入密码!")If a<>"＊＊＊＊" Then MsgBox "密码错误，您不能使用本软件！": End 注释：＊＊＊＊为预先设定的字符End Sub怎么样，能唬人吧。

什么？太烂！2.在硬盘上建立一个文件用于存放密码，这样就可以读写修改了On Error GoTo sss注释：若文件不存在，则捕获该错误，建立密码Open ("c:\abc.abc") For Input As ＃1注释：文件存在，则打开文件Input ＃1,b 注释：将密码读入变量bClose ＃1a=InputBox("请输入密码!")If a<>b Then MsgBox "密码错误，您不能使用本软件！":EndExit Subsss:a=InputBox("请建立密码!")Open("c:\abc.abc") For Output As ＃2 注释：在硬盘上建立存放密码的文件Print ＃2,aClose ＃2MsgBox "建立密码成功!"使用InputBox输入密码的缺点是密码被显示出来，大家可以另建一个窗体代替输入对话框，加入一TextBox并将其PasswordChar属性设为＊就行了。

文件abc.abc可用任何文本文件打开编辑，因此在你未学会加密算法之前可将文件命名为＊.sys或＊.dll,并放在windows 或system目录下，甚至将其属性设为隐藏，哈哈，系统文件谁敢乱改！不过要小心不要覆盖真正的系统文件。

软件:VB编写屏保口令破解程序

软件：VB编写屏保口令破解程序
秦恒
【期刊名称】《电脑知识与技术》
【年(卷),期】2000(000)0S4
【摘要】使用 Windows的用户对屏幕保护程序都不陌生，都曾经利用屏保密码防止他人使用自己的机器。

今天我们谈谈如何利用 VB来编写破解 windows9X的屏幕保护密码程序。

一、原理Windows9X与 WindowsNT的用户都知道，对 Windows系统的设置在 Windows注册表中都会有相应的记录，屏幕保护与屏保密码设置也会如此。

我们运行 regedit.exe，在注册表编辑器中找到
“ HKEY_CURRENT_USER[(ontrol Panel)〗esktop”下有键值名为
“ ScreenSave_Data”及相应的值（当然您必须曾经设置过屏保密码），其值即为屏保密码，当然
【总页数】2页(P36-37)
【作者】秦恒
【作者单位】合肥工业大学计算机信息学院
【正文语种】中文
【中图分类】TP3
【相关文献】
1.用EXCEL中的VBA编写植物病害流行学常用程序软件包 [J], 刘影;马海霞;杨信东
2.口令保护在VB程序开发中的几点应用 [J], 乔爽;张忠伟;徐鹿眉
3.用C语言编写口令保护程序 [J], 董杨琴
4.关于用VFP编写"设置及修改口令"程序的尝试 [J], 朱文兵
5.用VB编写串口通讯程序实现应用程序与扫描器通讯 [J], 王成国;何勇
因版权原因，仅展示原文概要，查看原文内容请购买。