form8.frm

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

VERSION 5.00
Begin VB.Form B_about 
   BackColor       =   &H00FFE4BF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "冰点[BinDNS] - 关于我们"
   ClientHeight    =   1365
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   3795
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1365
   ScaleWidth      =   3795
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "软件网址：nouo.net"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1440
      MousePointer    =   2  'Cross
      TabIndex        =   4
      Top             =   1080
      Width           =   1620
   End
   Begin VB.Image Image3 
      Height          =   720
      Left            =   360
      Picture         =   "Form8.frx":0000
      Top             =   120
      Width           =   720
   End
   Begin VB.Label com_t1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "确　定"
      ForeColor       =   &H00C000C0&
      Height          =   180
      Left            =   465
      TabIndex        =   0
      Top             =   1035
      Width           =   540
   End
   Begin VB.Image com_1 
      Height          =   330
      Left            =   210
      Top             =   960
      Width           =   1065
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有：Nouo.com"
      ForeColor       =   &H00FFA902&
      Height          =   180
      Left            =   1440
      TabIndex        =   2
      Top             =   360
      Width           =   1620
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "程序制作：徐袁曙[nouo]"
      ForeColor       =   &H002475FF&
      Height          =   180
      Left            =   1440
      TabIndex        =   1
      Top             =   720
      Width           =   1980
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "冰点[BinDNS] 最终免费版"
      ForeColor       =   &H00000000&
      Height          =   180
      Left            =   1440
      TabIndex        =   3
      Top             =   120
      Width           =   2070
   End
End
Attribute VB_Name = "B_about"
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去下载。哇哈哈哈哈
'|
'|嗯嗯。最新的是控制台命令+服务版本。很稳定。。以后有机会公布。



Dim c_c As Boolean

Private Sub com_1_Click()
com_1.Picture = myf.i3.Picture
Me.Hide
End Sub


Private Sub com_t1_Click()
com_1_Click
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 Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
com_1.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 Label3_Click()

End Sub

Private Sub Label6_Click()
Shell Environ("ProgramFiles") & "\Internet Explorer\IEXPLORE.EXE http://nouo.net", vbNormalFocus
End Sub