www.pudn.com > TCP-IP数据库查询.zip > frmSplash.frm

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         =   "verburgh.peter@skynet.be" 
         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