form5.frm

冰点BaiDNS动态域名解析系统是基于VB程序开发

VERSION 5.00
Begin VB.Form B_reg 
   BackColor       =   &H00FFE7C6&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "冰点[BinDNS] - 免费二级域名注册"
   ClientHeight    =   3045
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4215
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3045
   ScaleWidth      =   4215
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFBEE&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1335
      TabIndex        =   0
      Top             =   255
      Width           =   1115
   End
   Begin VB.TextBox Text5 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFBEE&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1335
      TabIndex        =   4
      Top             =   1695
      Width           =   2315
   End
   Begin VB.TextBox Text4 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFBEE&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1335
      TabIndex        =   3
      Top             =   1335
      Width           =   2315
   End
   Begin VB.TextBox Text3 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFBEE&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1335
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   975
      Width           =   2315
   End
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFBEE&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1335
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   615
      Width           =   2315
   End
   Begin VB.Label ts 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Height          =   180
      Left            =   225
      TabIndex        =   13
      Top             =   2190
      Width           =   90
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00004000&
      Height          =   315
      Left            =   1320
      Top             =   240
      Width           =   1140
   End
   Begin VB.Label Label6 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   ".nouo.com"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   270
      Left            =   2520
      TabIndex        =   12
      Top             =   285
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "帐　号："
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   480
      TabIndex        =   11
      Top             =   300
      Width           =   720
   End
   Begin VB.Shape Shape6 
      BorderColor     =   &H00004000&
      Height          =   315
      Left            =   1320
      Top             =   1680
      Width           =   2355
   End
   Begin VB.Shape Shape5 
      BorderColor     =   &H00004000&
      Height          =   315
      Left            =   1320
      Top             =   1320
      Width           =   2355
   End
   Begin VB.Shape Shape4 
      BorderColor     =   &H00004000&
      Height          =   315
      Left            =   1320
      Top             =   960
      Width           =   2355
   End
   Begin VB.Shape Shape3 
      BorderColor     =   &H00004000&
      Height          =   315
      Left            =   1320
      Top             =   600
      Width           =   2355
   End
   Begin VB.Shape Shape1 
      Height          =   2055
      Left            =   240
      Top             =   120
      Width           =   3735
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "QQ号码："
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   480
      TabIndex        =   10
      Top             =   1740
      Width           =   720
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "邮 箱："
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   570
      TabIndex        =   9
      Top             =   1380
      Width           =   630
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "重复密码："
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   300
      TabIndex        =   8
      Top             =   1020
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "密　码："
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   480
      TabIndex        =   7
      Top             =   660
      Width           =   720
   End
   Begin VB.Label com_t2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "重　填"
      ForeColor       =   &H00008080&
      Height          =   180
      Left            =   2535
      TabIndex        =   6
      Top             =   2595
      Width           =   540
   End
   Begin VB.Label com_t1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "注　册"
      ForeColor       =   &H00008000&
      Height          =   180
      Left            =   1215
      TabIndex        =   5
      Top             =   2595
      Width           =   540
   End
   Begin VB.Image com_2 
      Height          =   330
      Left            =   2280
      Top             =   2520
      Width           =   1065
   End
   Begin VB.Image com_1 
      Height          =   330
      Left            =   960
      Top             =   2520
      Width           =   1065
   End
End
Attribute VB_Name = "B_reg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'|Download by http://www.codefans.net
'|
'|本代码因为网址接口现在正常使用，所以把网址去掉了，程序是绝对正常使用的
'|
'|本程序的原理就是远程获取网页地址，通过网页来对DNS服务器进行操作。
'|
'|如REG.PHP就是注册接口。
'|
'|网页不能直接对DNS服务器操作,操作有命令。可以通过VB编写DLL来执行命令。
'|
'|其实很简单了。版权的也不要了。嘿嘿。
'|
'|这个版本快被俺丢掉了。要想用免费域名的：）http://www.nouo.com去下载。哇哈哈哈哈
'|
'|嗯嗯。最新的是控制台命令+服务版本。很稳定。。以后有机会公布。




'按钮---start
Dim c_c As Boolean

Private Sub com_1_Click()
If N_yzuser(Text1.Text) = False Then
MsgBox "您的帐户输入错误", 0, "提示：输入出现错误"
Exit Sub
End If

If N_yzpass(Text2.Text) = False Or N_yzpass(Text3.Text) = False Then
MsgBox "您的密码输入错误", 0, "提示：输入出现错误"
Exit Sub
End If

If Text2.Text <> Text3.Text Then
MsgBox "二次密码输入不相同", 0, "提示：输入出现错误"
Exit Sub
End If

If N_yzemail(Text4.Text) = False Then
MsgBox "邮箱格式有错误", 0, "提示：输入出现错误"
Exit Sub
End If

If N_yzQQ(Text5.Text) = False Then
MsgBox "QQ号码不正确", 0, "提示：输入出现错误"
Exit Sub
End If

Dim a As String, b As String
com_1.Picture = myf.i3.Picture
b = "http://@(..网址..)@/free/regdomain.php?username=" & Text1.Text & _
    "&password=" & MD5(Text2.Text) & _
    "&email=" & Text4.Text & _
    "&oicq=" & Text5.Text
a = getxml(b)
Select Case a
Case "0"
MsgBox "域名 [" & Text1.Text & ".nouo.com] 已被注册！"
Case "1"
MsgBox "域名 [" & Text1.Text & ".nouo.com] 注册成功！登陆即可使用！"
Wlog "域名 [" & Text1.Text & ".nouo.com] 注册成功！"
Me.Hide
B_login.Show
Case "2"
MsgBox "邮箱 [" & Text4.Text & "] 已被注册！"
Case "3"
MsgBox "同一个IP不能在一天之内注册超过三个域名！"
Case Else
MsgBox "服务器无法连接"
End Select
End Sub

Private Sub com_2_Click()
com_2.Picture = myf.i3.Picture
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub com_t1_Click()
com_1_Click
End Sub

Private Sub com_t2_Click()
com_2_Click
End Sub

Private Sub com_t1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c_c Then
com_1.Picture = myf.i2.Picture
c_c = False
End If
End Sub

Private Sub com_t2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c_c Then
com_2.Picture = myf.i2.Picture
c_c = False
End If
End Sub

Private Sub com_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c_c Then
com_1.Picture = myf.i2.Picture
c_c = False
End If
End Sub

Private Sub com_2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c_c Then
com_2.Picture = myf.i2.Picture
c_c = False
End If
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
com_1.Picture = myf.i1.Picture
com_2.Picture = myf.i1.Picture
c_c = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = 1
Me.Hide
End If
End Sub

Private Sub Text1_GotFocus()
ts.Caption = "帐号即为主机名，长度为10位以下字母数字组合"
HideK Me, Text1, Shape2
End Sub

Private Sub Text2_GotFocus()
ts.Caption = "请输入新密码，长度为6－16位"
HideK Me, Text2, Shape3
End Sub

Private Sub Text3_GotFocus()
ts.Caption = "请再输入一次密码，长度为6－16位"
HideK Me, Text3, Shape4
End Sub

Private Sub Text4_GotFocus()
ts.Caption = "请输入邮箱地址，将来修改密码发送到本信箱"
HideK Me, Text4, Shape5
End Sub

Private Sub Text5_GotFocus()
ts.Caption = "请输入正确的QQ号码，以方便我们为您提供服务"
HideK Me, Text5, Shape6
End Sub