form6.frm

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

VERSION 5.00
Begin VB.Form B_ini 
   BackColor       =   &H00FFE7C6&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "冰点[BinDNS] - 查看日志"
   ClientHeight    =   6030
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9690
   Icon            =   "Form6.frx":0000
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6030
   ScaleWidth      =   9690
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFFBEE&
      Height          =   5175
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   120
      Width           =   9375
   End
   Begin VB.Label com_t1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "打开日志"
      ForeColor       =   &H00008000&
      Height          =   180
      Left            =   4485
      TabIndex        =   1
      Top             =   5595
      Width           =   720
   End
   Begin VB.Image com_1 
      Height          =   330
      Left            =   4313
      Top             =   5520
      Width           =   1065
   End
End
Attribute VB_Name = "B_ini"
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_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 com_1_Click()
 com_1.Picture = myf.i3.Picture
          Dim OFName     As OPENFILENAME
            
          OFName.lStructSize = Len(OFName)
          OFName.hwndOwner = Me.hwnd
          OFName.hInstance = App.hInstance
          OFName.lpstrInitialDir = App.Path & "\log"
          OFName.lpstrFilter = "冰点[BinDNS]日志文件" & Chr(0) & "*.Blog"
          OFName.lpstrFile = Space$(254)
          OFName.nMaxFile = 255
          OFName.lpstrFileTitle = Space$(254)
          OFName.nMaxFileTitle = 255
          OFName.lpstrTitle = "请选择要打开的冰点[BinDNS]日志文件"
          OFName.flags = 0
 If GetOpenFileName(OFName) Then
  Dim tmp     As String
  Dim str     As String
  Open Trim(OFName.lpstrFile) For Input As #1
  Do Until EOF(1)
          Line Input #1, tmp
          tmp = Replace(tmp, "[BinDNS Log]", "　")
          tmp = Replace(tmp, "=", "　")
          str = str & tmp & vbCrLf
  Loop
  Close #1
  Text1.Text = str
Dim a
a = Left(OFName.lpstrFileTitle, InStr(OFName.lpstrFileTitle, ".") - 1)
End If
End Sub


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