form1.frm

来自「用于电话拨号上网的 原代码 很好使用的」· FRM 代码 · 共 62 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7830
   LinkTopic       =   "Form1"
   ScaleHeight     =   6645
   ScaleWidth      =   7830
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   735
      Left            =   3000
      TabIndex        =   0
      Top             =   1320
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'关闭软件
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE As Long = &H10

'关闭软件
'''''''''打开软件
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
Const SW_SHOWNORMAL = 1
''打开软件



Private Sub Command1_Click()
  ShellExecute hwnd, "open", App.Path & "\拨号连接上网.exe", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Form_Load()


'打开接收软件
'ShellExecute hwnd, "open", App.Path & "\拨号连接上网.exe", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Form_Unload(Cancel As Integer)  '关闭打开的软件
   Dim l As Long
l = FindWindow(vbNullString, "拨号连接上网")
If l <> 0 Then
    PostMessage l, WM_CLOSE, 0, 0
    MsgBox "关闭成功"
Else
    MsgBox "找不到要关闭的窗体"
End If
End Sub