如何在VB中关闭一个指定的命令行窗口-CSDN论坛

⋅如何在VB中关闭一个指定的命令行窗口 ⋅怎么使用java script实现类似SQL Builder的查询条件编辑功能 ⋅查询到当前用户下所有的表名，SQL语句怎么写？ 更多帖子 关注空间博客 ghw 本版专家分：3 结帖率 100%: 我想在VB中关闭一个指定标题的命令行窗口（这个命令行窗口可能正在运行一个程序），应该怎么做？
请大家帮帮忙，提前谢谢啦！

0 2008-03-27 23:06:53

回复数 11 只看楼主引用举报楼主

ghw 本版专家分：3: 自己顶一下，高手们睡觉了吗

0 2008-03-27 23:32:59

只看TA 引用举报 #1 得分 0

⋅【CBM666 感谢CSDN客服的热心与耐心】 ⋅【新年快乐 VB梦天空欢迎各网站链接交流】 ⋅104M那个文件俺准备用电驴做种一个月 更多帖子 关注空间博客 cbm6666 本版专家分：17633 红花 2008年4月 VB大版内专家分月排行榜第一 2008年3月 VB大版内专家分月排行榜第一: 指定标题计算器, 你先运行 calc.exe

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Dim hProcess&
Private Sub Command1_Click()
   hProcess = FindWindow(vbNullString, "计算器")
   If hProcess > 0 Then SendMessage hProcess, WM_CLOSE, 0, 0
End Sub

'睡觉去啦...........

0 2008-03-28 00:25:04

只看TA 引用举报 #2    得分 40

⋅微软停止VB6支持，前来散分 ⋅内存释放问题 更多帖子 关注空间博客 barenx 本版专家分：544



Attribute VB_Name = "Enum_Window"

Option Explicit

Option Base 0

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Const LWA_COLORKEY = &H1

Public Const LWA_ALPHA = &H2

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = &H80000

Public Const WS_EX_TRANSPARENT As Long = &H20&

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Public Const GW_CHILD = 5

Public Const GW_HWNDNEXT = 2

Public Const WM_CLOSE = &H10

Public Const WM_QUIT = &H12

Public Const MAX_PATH As Integer = 260



'***************************************************************************************************************

Public Sub CloseWindow(ByRef WinText() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

    If StrName <> vbNullString Then

      For i = 0 To UBound(WinText)

        If InStr(1, UCase$(StrName), UCase$(WinText(i))) > 0 Then

          PostMessage lngHand, &H11, 0, 0 'public Const WM_QUERYENDSESSION = &H11

          PostMessage lngHand, WM_QUIT, 0, 0

          PostMessage lngHand, &H16, 0, 0 'public Const WM_ENDSESSION = &H16

          PostMessage lngHand, WM_QUIT, 0, 0

        End If

      Next i

    End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub



Public Sub GetWindowsList(ByRef WindowsName() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  i = 0

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

      If StrName <> vbNullString Then

        ReDim Preserve WindowsName(i)

        WindowsName(i) = StrName

        Debug.Print StrName

        i = i + 1

      End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub

Public Function StrCutNull(IStr As String) As String

  Dim i As Long

  i = InStr(1, IStr, Chr(0))

  If i <= 1 Then

    StrCutNull = vbNullString

  Else

    StrCutNull = Left$(IStr, i - 1)

  End If

End Function

0 2008-03-28 01:39:31

只看TA 引用举报 #3 得分 20

⋅微软停止VB6支持，前来散分 ⋅内存释放问题 更多帖子 关注空间博客 barenx 本版专家分：544



Attribute VB_Name = "Enum_Window"

Option Explicit

Option Base 0

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Const LWA_COLORKEY = &H1

Public Const LWA_ALPHA = &H2

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = &H80000

Public Const WS_EX_TRANSPARENT As Long = &H20&

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Public Const GW_CHILD = 5

Public Const GW_HWNDNEXT = 2

Public Const WM_CLOSE = &H10

Public Const WM_QUIT = &H12

Public Const MAX_PATH As Integer = 260



'***************************************************************************************************************

Public Sub CloseWindow(ByRef WinText() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

    If StrName <> vbNullString Then

      For i = 0 To UBound(WinText)

        If InStr(1, UCase$(StrName), UCase$(WinText(i))) > 0 Then

          PostMessage lngHand, &H11, 0, 0 'public Const WM_QUERYENDSESSION = &H11

          PostMessage lngHand, WM_QUIT, 0, 0

          PostMessage lngHand, &H16, 0, 0 'public Const WM_ENDSESSION = &H16

          PostMessage lngHand, WM_QUIT, 0, 0

        End If

      Next i

    End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub



Public Sub GetWindowsList(ByRef WindowsName() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  i = 0

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

      If StrName <> vbNullString Then

        ReDim Preserve WindowsName(i)

        WindowsName(i) = StrName

        Debug.Print StrName

        i = i + 1

      End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub

Public Function StrCutNull(IStr As String) As String

  Dim i As Long

  i = InStr(1, IStr, Chr(0))

  If i <= 1 Then

    StrCutNull = vbNullString

  Else

    StrCutNull = Left$(IStr, i - 1)

  End If

End Function

0 2008-03-28 01:56:30

只看TA 引用举报 #4 得分 0

⋅微软停止VB6支持，前来散分 ⋅内存释放问题 更多帖子 关注空间博客 barenx 本版专家分：544



Attribute VB_Name = "Enum_Window"

Option Explicit

Option Base 0

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Const LWA_COLORKEY = &H1

Public Const LWA_ALPHA = &H2

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = &H80000

Public Const WS_EX_TRANSPARENT As Long = &H20&

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Public Const GW_CHILD = 5

Public Const GW_HWNDNEXT = 2

Public Const WM_CLOSE = &H10

Public Const WM_QUIT = &H12

Public Const MAX_PATH As Integer = 260



'***************************************************************************************************************

Public Sub CloseWindow(ByRef WinText() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

    If StrName <> vbNullString Then

      For i = 0 To UBound(WinText)

        If InStr(1, UCase$(StrName), UCase$(WinText(i))) > 0 Then

          PostMessage lngHand, &H11, 0, 0 'public Const WM_QUERYENDSESSION = &H11

          PostMessage lngHand, WM_QUIT, 0, 0

          PostMessage lngHand, &H16, 0, 0 'public Const WM_ENDSESSION = &H16

          PostMessage lngHand, WM_QUIT, 0, 0

        End If

      Next i

    End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub



Public Sub GetWindowsList(ByRef WindowsName() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  i = 0

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

      If StrName <> vbNullString Then

        ReDim Preserve WindowsName(i)

        WindowsName(i) = StrName

        Debug.Print StrName

        i = i + 1

      End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub

Public Function StrCutNull(IStr As String) As String

  Dim i As Long

  i = InStr(1, IStr, Chr(0))

  If i <= 1 Then

    StrCutNull = vbNullString

  Else

    StrCutNull = Left$(IStr, i - 1)

  End If

End Function

0 2008-03-28 08:48:04

只看TA 引用举报 #5 得分 0

⋅微软停止VB6支持，前来散分 ⋅内存释放问题 更多帖子 关注空间博客 barenx 本版专家分：544



Attribute VB_Name = "Enum_Window"

Option Explicit

Option Base 0

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Const LWA_COLORKEY = &H1

Public Const LWA_ALPHA = &H2

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = &H80000

Public Const WS_EX_TRANSPARENT As Long = &H20&

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Public Const GW_CHILD = 5

Public Const GW_HWNDNEXT = 2

Public Const WM_CLOSE = &H10

Public Const WM_QUIT = &H12

Public Const MAX_PATH As Integer = 260



'***************************************************************************************************************

Public Sub CloseWindow(ByRef WinText() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

    If StrName <> vbNullString Then

      For i = 0 To UBound(WinText)

        If InStr(1, UCase$(StrName), UCase$(WinText(i))) > 0 Then

          PostMessage lngHand, &H11, 0, 0 'public Const WM_QUERYENDSESSION = &H11

          PostMessage lngHand, WM_QUIT, 0, 0

          PostMessage lngHand, &H16, 0, 0 'public Const WM_ENDSESSION = &H16

          PostMessage lngHand, WM_QUIT, 0, 0

        End If

      Next i

    End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub



Public Sub GetWindowsList(ByRef WindowsName() As String)

  On Error Resume Next

  Dim i As Long, lngDeskTopHandle As Long, lngHand As Long, StrName As String

  lngDeskTopHandle = GetDesktopWindow()

  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)

  i = 0

  Do While lngHand <> 0

    StrName = Space(MAX_PATH)

    GetWindowText lngHand, StrName, MAX_PATH

    StrName = StrCutNull(Trim$(StrName))

      If StrName <> vbNullString Then

        ReDim Preserve WindowsName(i)

        WindowsName(i) = StrName

        Debug.Print StrName

        i = i + 1

      End If

    lngHand = GetWindow(lngHand, GW_HWNDNEXT)

  Loop

  CloseHandle lngDeskTopHandle

  CloseHandle lngHand

End Sub

Public Function StrCutNull(IStr As String) As String

  Dim i As Long

  i = InStr(1, IStr, Chr(0))

  If i <= 1 Then

    StrCutNull = vbNullString

  Else

    StrCutNull = Left$(IStr, i - 1)

  End If

End Function

0 2008-03-28 10:29:38

只看TA 引用举报 #6 得分 0

⋅微软停止VB6支持，前来散分 ⋅内存释放问题 更多帖子 关注空间博客 barenx 本版专家分：544: Public Sub CloseWindow(ByRef WinText() As String)
将要关闭的标题数组传入便可以关闭所有含有指定关键词的窗口连卡巴斯基都可以。。。。

0 2008-03-28 10:31:05

只看TA 引用举报 #7 得分 0

⋅我电脑怎么啦，为什么老是这样！是不是中毒了？？ ⋅非常奇怪的问题 ⋅哪有免费的午餐？ 更多帖子 关注空间博客 东方之珠 本版专家分：44561 黄花 2013年4月 VB大版内专家分月排行榜第二 2012年12月 VB大版内专家分月排行榜第二 2012年6月 VB大版内专家分月排行榜第二 2012年3月 VB大版内专家分月排行榜第二 2009年3月 VB大版内专家分月排行榜第二 2008年4月 VB大版内专家分月排行榜第二 2008年2月 VB大版内专家分月排行榜第二 2008年1月 VB大版内专家分月排行榜第二 2007年12月 VB大版内专家分月排行榜第二 蓝花 2009年4月 VB大版内专家分月排行榜第三 2007年10月 VB大版内专家分月排行榜第三: 楼上正解。

0 2008-03-28 10:59:59

只看TA 引用举报 #8 得分 0

⋅我电脑怎么啦，为什么老是这样！是不是中毒了？？ ⋅非常奇怪的问题 ⋅哪有免费的午餐？ 更多帖子 关注空间博客 东方之珠 本版专家分：44561 黄花 2013年4月 VB大版内专家分月排行榜第二 2012年12月 VB大版内专家分月排行榜第二 2012年6月 VB大版内专家分月排行榜第二 2012年3月 VB大版内专家分月排行榜第二 2009年3月 VB大版内专家分月排行榜第二 2008年4月 VB大版内专家分月排行榜第二 2008年2月 VB大版内专家分月排行榜第二 2008年1月 VB大版内专家分月排行榜第二 2007年12月 VB大版内专家分月排行榜第二 蓝花 2009年4月 VB大版内专家分月排行榜第三 2007年10月 VB大版内专家分月排行榜第三: CloseWindow（hwnd）。hwnd是找到指定窗口的句柄。

0 2008-03-28 11:39:01

只看TA 引用举报 #9 得分 10

⋅【CBM666 感谢CSDN客服的热心与耐心】 ⋅【新年快乐 VB梦天空欢迎各网站链接交流】 ⋅104M那个文件俺准备用电驴做种一个月 更多帖子 关注空间博客 cbm6666 本版专家分：17633 红花 2008年4月 VB大版内专家分月排行榜第一 2008年3月 VB大版内专家分月排行榜第一: 呵呵, 就是这个思路, 建立 "病毒库列表" , 自动关掉进程

【CBM666 的木马EXE专杀】
http://download.csdn.net/source/358139

主要是随时检测进程中有没有指定列表中的exe, 发现了便停止它的进程并干掉这个exe文件.

楼主要的话请留下邮箱, CSDN上传的资源最近都无法下载了.

0 2008-03-28 12:08:30

只看TA 引用举报 #10 得分 20

⋅我电脑怎么啦，为什么老是这样！是不是中毒了？？ ⋅非常奇怪的问题 ⋅哪有免费的午餐？ 更多帖子 关注空间博客 东方之珠 本版专家分：44561 黄花 2013年4月 VB大版内专家分月排行榜第二 2012年12月 VB大版内专家分月排行榜第二 2012年6月 VB大版内专家分月排行榜第二 2012年3月 VB大版内专家分月排行榜第二 2009年3月 VB大版内专家分月排行榜第二 2008年4月 VB大版内专家分月排行榜第二 2008年2月 VB大版内专家分月排行榜第二 2008年1月 VB大版内专家分月排行榜第二 2007年12月 VB大版内专家分月排行榜第二 蓝花 2009年4月 VB大版内专家分月排行榜第三 2007年10月 VB大版内专家分月排行榜第三: sendkeys exit

0 2008-03-28 12:48:36

只看TA 引用举报 #11 得分 10

如何在VB中关闭一个指定的命令行窗口 [问题点数：100分，结帖人ghw]