精华内容
下载资源
问答
  • vb.net关闭应用程序的代码 本例是关闭QQ的代码 关闭其它应用程序只要稍改一下就可以
  • 在我们日常编程中,进入VB编程开发界面后,默认窗体运行后是下图状态,右上角的关闭按钮是直接可用状态。但是在实际开发中,有时候根据实际功能需要,会出现不想让右上角的关闭按钮起作用时情形,那么应该...

    在我们日常编程中,进入VB编程开发界面后,默认的窗体运行后是下图的状态,右上角的关闭按钮是直接可用的状态。

    b0dbc262058437ff23f72d97c97071db.png

    但是在实际开发中,有时候根据实际功能需要,会出现不想让右上角的关闭按钮起作用时的情形,那么应该如何做呢?

    74e868815afa2da935306221e9b0c1a4.png

    代码实现:

    标准模块代码:

    Option ExplicitDeclare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongDeclare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongDeclare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As LongPublic Const MF_BYPOSITION = &H400&

    窗体中代码:

    Option ExplicitPrivate Sub Form_Load() '窗体载入时调用模块中的方法禁用关闭按钮    Dim hwndMenu As Long    Dim c As Long    hwndMenu = GetSystemMenu(Me.hwnd, 0)    c = GetMenuItemCount(hwndMenu)    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION    c = GetMenuItemCount(hwndMenu)    DeleteMenu hwndMenu, c - 1, MF_BYPOSITIONEnd SubPrivate Sub Command1_Click() '退出    EndEnd Sub

    赶快实际运行,体验一下吧~

    ▼更多编程干货▼VB编程语言基础知识点总结(转)VB6.0中文简体版安装视频教程!VB开发的实际项目展示!VB编程就是这么强大!

    大家在学习VB编程的过程中有不懂之处,可以添加下图小编微信号:vbyjk521 ,学习问题在线解答。

    72449c6e34fdc06a1c01129e1692dde4.png

    展开全文
  • VB 枚举窗口和关闭程序窗口的代码

    千次阅读 2008-03-28 09:53:00
    Attribute VB_Name = "Enum_Window"Option ExplicitOption Base 0Powered by barenxPublic Declare Function FindWindow()Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ...
    Attribute VB_Name = "Enum_Window"
    Option Explicit
    Option Base 0
    'Powered by barenx
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As StringAs Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongByVal hWnd2 As LongByVal lpsz1 As StringByVal lpsz2 As StringAs Long
    Public Declare Function SetParent Lib "user32" (ByVal hWndChild As LongByVal hWndNewParent As LongAs 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 LongByVal nIndex As LongAs Long
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongByVal nIndex As LongByVal dwNewLong As LongAs Long
    Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As LongByVal crKey As LongByVal bAlpha As ByteByVal dwFlags As LongAs Long

    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LongByVal lParam As LongAs Long
    Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongByVal lpString As StringByVal cch As LongAs Long
    Public Declare Function GetDesktopWindow Lib "user32" () As Long
    Public Declare Function GetWindow Lib "user32" (ByVal hwnd As LongByVal wCmd As LongAs 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(1UCase$(StrName), UCase$(WinText(i))) > 0 Then
              PostMessage lngHand, 
    &H11, 00 'public Const WM_QUERYENDSESSION = &H11
              PostMessage lngHand, WM_QUIT, 00
              PostMessage lngHand, 
    &H16, 00 'public Const WM_ENDSESSION = &H16
              PostMessage lngHand, WM_QUIT, 00
            
    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 StringAs 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

     
    展开全文
  • VB关闭显示器、关闭监视器代码,可以实现节能省电效果,但是小编在使用液晶显示器测试时发现,没有反应,不知道为什么,没有界面和图标,只有进程项,功能就单一了些,不过程序中有热键。 利用时间控件推迟几秒再...
  • 弹出和关闭光驱程序(VB6.0源代码编写) 弹出和关闭光驱程序,很有用代码,希望下载朋友喜欢 更希望能成为您朋友.
  • 打开程序托盘有气泡提示 点程序关闭图标后隐藏在托盘并且气泡提示 等等很多实用功能
  • VB ADODB 根据字段内容排序、VB ADODB 关闭数据库、VB ADODB 过滤不重复编号或序号、VB ADODB 过滤大于或小于编号或序号记录
  • 一个功能超级丰富的VB自定义定时关机程序代码,可快速安全关闭,定时关闭或重启计算机,用其它用户名重新登录系统,也可以关闭当前正在运行所有程序(进程),以提高系统利用率!编者:徐景周。大家看一下测试截图,...
  • 关闭窗口时弹出提示,VB的代码,不要搞错噢,本代码不是网页特效,是VB程序代码,在退出程序时弹出一个提示询问是否真要关闭窗口,让用户确认,仅供参考。
  • VB编写下载模块代码,调用IE默认下载程序,只是简单了实现了下载功能,不带进度条,高手可以直接关闭网页了。
  • VB关闭其他运行应用程序

    千次阅读 2018-08-31 08:52:56
    ‘下面的代码放到模块中 Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ‘FindWindowAPI函数 Declare Function Post...

    ‘下面的代码放到模块中
    Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ‘FindWindowAPI函数
    Declare Function PostMessage Lib “user32” Alias “PostMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ‘PostMessageAPI函数
    Public Const WM_CLOSE = &H10 ‘常用变量定义

    ‘程序代码
    Dim winHwnd As Long ‘定义一个长整形变量winHwnd
    Dim RetVal As Long ‘定义一个长整形变量RetVal
    winHwnd = FindWindow(vbNullString, “Calculator”) ‘API函数查找”Calculator”这个窗口
    Debug.Print winHwnd ‘显示这个窗口句柄
    If winHwnd <> 0 Then ‘如不为0,表示找到窗口
    RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) ‘向这个窗口发送关闭信息
    If RetVal = 0 Then ‘如果返回信息为0.表示失败,未发送成功
    MsgBox “Error posting message.” ‘提示发送失败
    End If
    Else
    MsgBox “The Calculator is not open.” ‘提示没有找到打开的程序
    End If

    你用 Shell ,那就继续用 Shell 吧
    有一个命令是 :taskkill ,用这命令直接结束进程吧。

    如果第一次调用 Shell 时,保留了 pid ,那就就 pid 参数,防止结束错了,否则就只能用 映像 名了。

    taskkill是用来终止进程的。具体的命令规则如下:
    TASKKILL [/S [/U [/P []]]]
    { [/FI ] [/PID | /IM ] } [/F] [/T]
    描述:
    这个命令行工具可用来结束至少一个进程。
    可以根据进程 id 或图像名来结束进程。
    参数列表:
    /S system 指定要连接到的远程系统。
    /U [domain]user 指定应该在哪个用户上下文
    执行这个命令。
    /P [password] 为提供的用户上下文指定密码。如果忽略,提示输入。
    /F 指定要强行终止的进程。
    /FI filter 指定筛选进或筛选出查询的的任务。
    /PID process id 指定要终止的进程的PID。
    /IM image name 指定要终止的进程的图像名。通配符 ‘*’可用来指定所有图像名。
    /T Tree kill: 终止指定的进程和任何由此启动的子进程。
    /? 显示帮助/用法。
    筛选器:
    筛选器名 有效运算符 有效值


    STATUS eq, ne 运行 | 没有响应
    IMAGENAME eq, ne 图像名
    PID eq, ne, gt, lt, ge, le PID 值
    SESSION eq, ne, gt, lt, ge, le 会话编号
    CPUTIME eq, ne, gt, lt, ge, le CPU 时间,格式为
    hh:mm:ss。
    hh - 时,
    mm - 钟,ss - 秒
    MEMUSAGE eq, ne, gt, lt, ge, le 内存使用,单位为 KB
    USERNAME eq, ne 用户名,格式为
    [domain]user
    MODULES eq, ne DLL 名
    SERVICES eq, ne 服务名
    WINDOWTITLE eq, ne 窗口标题
    注意: 只有带有筛选器的情况下,才能跟 /IM 切换使用通配符 ‘*’。
    注意: 远程进程总是要强行终止,
    不管是否指定了 /F 选项。

    展开全文
  • vb编写的根据网络流量确定打开或关闭某个程序的代码,如果网络流量小于某一值,则关闭指定程序或打开指定程序,可用于根据网络流量实现程序监控
  • 怎样才能用VB.NET的代码关闭一个在运行的程序????? 小弟遇到一个问题: 我想用代码编写一个关闭一些应用程序呢!!! 各位大哥能否帮小弟这个忙????? ____________________________________________________________...
    VB.NET源码-156个实用实例哦……
    
    <script type="text/javascript"
    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
    </script>
    
    怎样才能用VB.NET的代码来关闭一个在运行的程序?????
    小弟遇到一个问题:
    我想用代码编写一个关闭一些应用程序呢!!!
    各位大哥能否帮小弟这个忙?????
    __________________________________________________________________________
    Process类
    __________________________________________________________________________
    具体用法和例子 参考MSDN
    __________________________________________________________________________
    我要代码啊!!!!!!!
    我不知道怎样弄啊!!!
    帮我写一出来啊
    __________________________________________________________________________

    For Each myprocess As Process In Process.GetProcesses

    If InStr(myprocess.ProcessName, 你要关谁 ) Then

    myprocess.Kill()

    End If

    Next

    别忘了 给分,睡了。
    __________________________________________________________________________
    当然 你用

    myprocess.ProcessName= 你要关谁 来判断也可以
    __________________________________________________________________________
    你可以试着 杀 诺顿
    __________________________________________________________________________
    问题太笼统了,对于要关的应用程序,你都没说是知道了它的名字,还是进程ID,还是窗口的标题。对应不用的信息,都有不同的处理方法。
    __________________________________________________________________________
    要知道正在运行的应用程序名称:
    Dim 联众() = { GLWorld , ourfriend , Mahjong }
    Dim i, j
    Dim pProcess() As Process
    pProcess = Process.GetProcesses()
    For i = 0 To pProcess.Length() - 1
    For j = 0 To 联众.Length - 1
    If (pProcess(i).ProcessName = 联众(j)) Then
    pProcess(i).Kill() 关闭联众
    End If
    Next
    Next
    __________________________________________________________________________
    多谢各位大哥!!!
    但我不知道怎样给分!!!
    __________________________________________________________________________
    我还想问问如果设置关机了,怎样才能取消关机啊???
    __________________________________________________________________________
    晕了,都不知道你用什么设置关机的,如何能告诉你怎样取消?你是用flashget的下载完关机么?还是瑞星的杀毒完毕关机?
    __________________________________________________________________________
    展开全文
  • 关闭程序时会生成幸运星名单luckystars.txt 记录有时间 所中奖项 奖品名 姓名,请及时保存luckystars.txt,以免被下次运行程序时覆盖。 本程序awards.txt保存各奖项目 如: 三等奖 二等奖 awardsname.txt 保存奖项...
  • 该程序是本人在翔德电子科技(深圳)有限公司就职期间用Visual Basic为2009年尾牙晚会做... 程序运行时会产生抽奖名单一份,关闭程序后会生成中奖名单。 Dengzhong dwjnhkbc123@163.com QQ 751667650 2010-01-20
  • 这是个老程序,以前编这个程序的人吧密码忘了,现在没办法进入调试界面,求解决的办法,下面是调试窗口的代码 Private Sub CmdCancel_Click() mainM3.Image_ManualTest.Picture = LoadPicture(App.Path + "\test....
  • VB编写简单挂机锁,DarkS——专用挂机锁,输入至少三位任意字符设置为密码,单击确定就锁定电脑了,如上图所示,还可以设置提示语。除非你直接关闭电源,否则是无法破解,非常不错的程序,欢迎下载源代码
  • vb退出程序遇到问题,有时会退不出。在进程列表中依然能够看到该程序。... 一丶在退出程序前(一般为End语句有)加入以下清除资料的代码: Dim myForm As Form For Each myForm In Forms ...
  • VB居然可以开发这么多实用程序软件●VB编程各文件格式大全,你值得一看!●VB知识之常量与变量命名规则与使用注意Visual Basic文件操作方法知识要点一、顺序文件访问模式1.打开文件2.读/写文件3.关闭文件二、随机...
  • VB精典实用源代码

    2011-10-07 23:57:41
    如何用VB建立快捷方式 如何让程序在 Windows 启动时自动执行? 在 TextBox 中如何限制只能输入数字? 如何让鼠标进入 TextBox 时自动选定 TextBox 中之整串文字?...如何让你的程序在任务列表隐藏 .........
  • 文件服务器的电脑放在一个房间里,门经常被锁了。人没办法进去关闭计算机。于是参考网络上的文章,写了这样一个程序。...下载地址:http://download.csdn.net/source/712724 附加:主模块的代码
  • 关闭指定IP远程计算机,VB网络实例源代码,压缩包内共有两个工程,必须在指定IP计算机上先运行一个子程序才可以哦,目前在局域网内使用可以,在公网上使用还有些问题,一个网络操作相关实例。
  • VB编写设置“蜘蛛纸牌”游戏的程序代码,可设置蜘蛛纸牌是否动画效果、是否关闭声音功能,没看明白朋友下载代码测试便知。
  • VB杀死KILL进程实例程序程序运行后,指定某一个需要关闭的进程,可强制关闭其进程,杀死进程相关线程,其实比较简单方法,请细看代码吧。
  • 会出现“实时错误’-2147417848(80010108)':对象‘SendData’的方法'IMSWinsockControl'失败”,然后VB程序就自己关闭了。 这是怎么回事啊?该怎么解决呢? 同样的代码放在winsock控件所在的窗体,运行正常 对了...
  • 我们经常需要实现“用户关闭窗体,但窗体并不关闭而是最小化”功能,这个功能实现非常简单,只需在FormClosing事件中写入如下代码即可: If e.CloseReason = CloseReason.UserClosing Then '判断是不是用户做出...
  • VB关机代码

    2012-01-19 15:24:34
    VB关机代码 2011年07月20日  .首先在Form1窗体上添加一个Label1控件属性text设置为:今天:2.然后分别添加3个button控件name分别为button1、button2、button3它们text属性分别为1. 关闭计算机(启动定时器)2. ...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 297
精华内容 118
关键字:

vb关闭程序的代码