开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 搜索引擎 > 查看源码
Form2.frm
资源名称：seoseach.rar　[点击查看]
上传用户：cl_dengshi
上传日期：2021-11-16
资源大小：1918k
文件大小：5k
源码类别：

搜索引擎

开发平台：

Visual Basic

Form2.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "注册"
  5.    ClientHeight    =   1365
  6.    ClientLeft      =   5235
  7.    ClientTop       =   4905
  8.    ClientWidth     =   4095
  9.    Icon            =   "Form2.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   1365
  13.    ScaleWidth      =   4095
  14.    Begin VB.Frame Frame1 
  15.       Caption         =   "软件激活"
  16.       Height          =   1215
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   120
  20.       Width           =   4095
  21.       Begin VB.CommandButton Command2 
  22.          Caption         =   "购 买"
  23.          Height          =   375
  24.          Left            =   2880
  25.          TabIndex        =   7
  26.          Top             =   720
  27.          Width           =   1095
  28.       End
  29.       Begin VB.CommandButton Command1 
  30.          Caption         =   "激 活"
  31.          Default         =   -1  'True
  32.          Height          =   375
  33.          Left            =   2880
  34.          TabIndex        =   5
  35.          Top             =   240
  36.          Width           =   1095
  37.       End
  38.       Begin VB.TextBox Text2 
  39.          BeginProperty Font 
  40.             Name            =   "宋体"
  41.             Size            =   10.5
  42.             Charset         =   134
  43.             Weight          =   400
  44.             Underline       =   0   'False
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          Height          =   375
  49.          IMEMode         =   3  'DISABLE
  50.          Left            =   840
  51.          PasswordChar    =   "*"
  52.          TabIndex        =   4
  53.          Top             =   720
  54.          Width           =   1935
  55.       End
  56.       Begin VB.TextBox Text1 
  57.          BackColor       =   &H80000000&
  58.          BeginProperty Font 
  59.             Name            =   "宋体"
  60.             Size            =   10.5
  61.             Charset         =   134
  62.             Weight          =   400
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          Height          =   390
  68.          Left            =   840
  69.          Locked          =   -1  'True
  70.          TabIndex        =   2
  71.          Top             =   240
  72.          Width           =   1935
  73.       End
  74.       Begin VB.Label Label3 
  75.          Alignment       =   2  'Center
  76.          Appearance      =   0  'Flat
  77.          AutoSize        =   -1  'True
  78.          BackColor       =   &H80000005&
  79.          BackStyle       =   0  'Transparent
  80.          ForeColor       =   &H80000008&
  81.          Height          =   180
  82.          Left            =   1920
  83.          TabIndex        =   6
  84.          Top             =   315
  85.          Width           =   90
  86.       End
  87.       Begin VB.Label Label2 
  88.          AutoSize        =   -1  'True
  89.          Caption         =   "激活码："
  90.          Height          =   180
  91.          Left            =   120
  92.          TabIndex        =   3
  93.          Top             =   840
  94.          Width           =   720
  95.       End
  96.       Begin VB.Label Label1 
  97.          AutoSize        =   -1  'True
  98.          Caption         =   "用户号："
  99.          Height          =   180
  100.          Left            =   105
  101.          TabIndex        =   1
  102.          Top             =   360
  103.          Width           =   720
  104.       End
  105.    End
  106. End
  107. Attribute VB_Name = "Form2"
  108. Attribute VB_GlobalNameSpace = False
  109. Attribute VB_Creatable = False
  110. Attribute VB_PredeclaredId = True
  111. Attribute VB_Exposed = False
  113. Dim conn As Object
  114. Private Sub Command1_Click()
  116. Set login = New cmd5
  118. If Text2.Text <> "" Then
  120. If Text2.Text = login.Md5_String_Calc(Text1.Text & "shzf.zuiai12.com") Then
  122. Set rs = CreateObject("adodb.recordset")
  123. SQL = "select * from soft"
  124. rs.open SQL, conn, 3, 3
  125. rs("soft_ok") = True
  126. rs.Update
  127. rs.Close
  128. Set rs = Nothing
  130. MsgBox "注册成功，请重启软件！", vbInformation, "Warning"
  132. Else
  134. MsgBox "对不起！您的激活码有误请重新输入。", vbInformation, "Warning"
  136. End If
  138. Else
  140. MsgBox "对不起！请你输入有效激活码！", vbInformation, "Warning"
  142. End If
  144. End Sub
  147. Private Sub Command2_Click()
  148. Shell "cmd /c start http://item.taobao.com/auction/item_detail-0db1-681845bfa48ad39a80d85f4e56d64b04.jhtml", vbHide
  149. End Sub
  151. Private Sub Form_Load()
  152. Set conn = CreateObject("adodb.connection")
  153. conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "union.mdb ;Persist Security Info=False;Jet OLEDB:Database Password=zuiai12."
  154. End Sub
  156. Private Sub Form_Unload(Cancel As Integer)
  157. Form1.Enabled = True
  158. End Sub