aboutme.frm

端口扫描器 vb6编写

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于此程序"
   ClientHeight    =   4140
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5475
   Icon            =   "AboutMe.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "AboutMe.frx":22A2
   ScaleHeight     =   4140
   ScaleWidth      =   5475
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   540
      Top             =   1890
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   1620
      MouseIcon       =   "AboutMe.frx":8271
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   0
      Width           =   2310
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有：JHKDIY"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1635
      TabIndex        =   3
      Top             =   3645
      Width           =   2490
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有：JHKDIY"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   285
      Left            =   1665
      TabIndex        =   4
      Top             =   3675
      Width           =   2490
   End
   Begin VB.Label Lab1 
      BackStyle       =   0  'Transparent
      Caption         =   "软件名：端口扫描器"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   330
      Left            =   1530
      TabIndex        =   2
      Top             =   180
      Width           =   2910
   End
   Begin VB.Label Lab3 
      BackStyle       =   0  'Transparent
      Caption         =   "作者：jhkdiy"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   330
      Left            =   1530
      TabIndex        =   1
      Top             =   900
      Width           =   1965
   End
   Begin VB.Label Lab2 
      BackStyle       =   0  'Transparent
      Caption         =   "软件版本：1.0"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1530
      TabIndex        =   0
      Top             =   540
      Width           =   1965
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
  Lab2.Left = Lab1.Left
  Lab3.Left = Lab1.Left
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "X:" & X
  Debug.Print "Y:" & Y
  Lab1.Left = X + 100
  Lab1.Top = Y + 250
  Lab2.Left = Lab1.Left
  Lab3.Left = Lab1.Left
  Lab2.Top = Lab1.Top + Lab1.Height + 10
  Lab3.Top = Lab2.Top + Lab2.Height + 10
  Debug.Print "lab1.left:" & Lab1.Left
End Sub

Private Sub Label1_Click()
  ShellExecute 0, "open", "mailto:[e-mail]", 0, 0, 0
End Sub

Private Sub Timer1_Timer()
  If Label1.Left <= Me.Width Then
     Label1.Left = Label1.Left + 10
  Else
     Label1.Left = -Label1.Width
  End If
End Sub