frmsplash.frm

TCP-IP数据库查询.zip

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   3300
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   3300
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.Frame fraMainFrame 
      Height          =   2775
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3300
      Begin SHDocVwCtl.WebBrowser WebBrowser2 
         Height          =   495
         Left            =   360
         TabIndex        =   6
         Top             =   2040
         Visible         =   0   'False
         Width           =   495
         ExtentX         =   873
         ExtentY         =   873
         ViewMode        =   0
         Offline         =   0
         Silent          =   0
         RegisterAsBrowser=   0
         RegisterAsDropTarget=   1
         AutoArrange     =   0   'False
         NoClientEdge    =   0   'False
         AlignLeft       =   0   'False
         ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
         Location        =   "res://C:\WINNT\system32\shdoclc.dll/dnserror.htm#http:///"
      End
      Begin SHDocVwCtl.WebBrowser WebBrowser1 
         Height          =   495
         Left            =   2280
         TabIndex        =   5
         Top             =   2040
         Visible         =   0   'False
         Width           =   615
         ExtentX         =   1085
         ExtentY         =   873
         ViewMode        =   0
         Offline         =   0
         Silent          =   0
         RegisterAsBrowser=   0
         RegisterAsDropTarget=   1
         AutoArrange     =   0   'False
         NoClientEdge    =   0   'False
         AlignLeft       =   0   'False
         ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
         Location        =   "res://C:\WINNT\system32\shdoclc.dll/dnserror.htm#http:///"
      End
      Begin VB.PictureBox picLogo 
         Height          =   585
         Left            =   360
         Picture         =   "frmSplash.frx":0000
         ScaleHeight     =   525
         ScaleWidth      =   2595
         TabIndex        =   1
         Top             =   360
         Width           =   2655
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   1320
         Picture         =   "frmSplash.frx":0CCF
         ToolTipText     =   "Click to See Who's using TCP-IP"
         Top             =   2040
         Width           =   480
      End
      Begin VB.Label lblProductName 
         AutoSize        =   -1  'True
         Caption         =   "Multiple connections"
         BeginProperty Font 
            Name            =   "Courier"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   240
         TabIndex        =   4
         Tag             =   "Product"
         Top             =   1440
         Width           =   2805
      End
      Begin VB.Label lblCompanyProduct 
         AutoSize        =   -1  'True
         Caption         =   "Created by Pvu"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   435
         Left            =   360
         TabIndex        =   3
         Tag             =   "CompanyProduct"
         Top             =   960
         Width           =   2670
      End
      Begin VB.Label lblPlatform 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackColor       =   &H80000004&
         Caption         =   "[e-mail]"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   240
         Left            =   360
         TabIndex        =   2
         Tag             =   "Platform"
         Top             =   1680
         Width           =   2490
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

WebBrowser2.Navigate ("http://users.skynet.be/verburgh.peter/Datalook/trace.htm")
End Sub

Private Sub Image1_Click()
'Connect to  My website
WebBrowser1.Navigate "http://www.ipstat.com/cgi-bin/stats?name=datatrace", 1
End Sub