精华内容
下载资源
问答
  • VB终止、杀死进程的几个程序例子,附代码资料,一共7个包括强力杀死进程的例子代码,VB原版(可杀WINLOGON.EXE,不能杀冰刃),还有利用killBR杀死进程的,各有各的特色和方法,相信这些个源码够你参考学习了。
  • 自动终止进程运行的程序vb,希望对大家有用
  • Vb开发编写的关机助手源代码,具体来说可以定时关机、强制终止进程。可设定程序在几小时几分钟内自动关机,关机时强制终止进程,激活本功能后,关机程序将倒计时,在此期间您可终止运行本程序,运行效果图如上所示。
  • 当执行一个VB.NET应用程序时,CLR会把IL翻译成x86指令,并且寻找一个名为Main的方法。 并从该方法开始执行程序。Main方法也称为程序的"入口"(entry point)。 入口方法可以采用不同的形式: 1. 不带参数的Main方法 ...

    当执行一个VB.NET应用程序时,CLR会把IL翻译成x86指令,并且寻找一个名为Main的方法。
    并从该方法开始执行程序。Main方法也称为程序的"入口"(entry point)。

    入口方法可以采用不同的形式:

    1. 不带参数的Main方法

        Module Module1
    
            Sub Main()
    
                Console.WriteLine("Hello World!")
    
                Console.Read()
    
            End Sub
    
        End Module
    

    2.带参数的Main方法

        Module Module1
    
            Sub Main(ByVal Args() As String)
    
                Console.WriteLine("Hello VB.NET!")
    
                For Each arg As String In Args
    
                    Console.WriteLine(arg)
    
                Next
    
                Console.Read()
    
            End Sub
    
        End Module
    

    还可以使用另外一种写法

        Module Module1
    
            Sub Main()
    
                Console.WriteLine("Hello VB.NET!")
    
                '获得的参数第一个为程序的完整的路径名称
                For Each arg As String In Environment.GetCommandLineArgs()
    
                    Console.WriteLine(arg)
    
                Next
    
                Console.Read()
    
            End Sub
    
        End Module
    

    转载于:https://www.cnblogs.com/tengwei6328/p/11257157.html

    展开全文
  • VB列出Windows运行的所有程序,并终止其运行的控 病毒外挂必备
  • 这是一个恶搞小程序,基于VB6.0编写,可将窗口180度翻转,把屏幕上的窗口颠倒显示了,字是反的,鼠标的指针也是反的,很恶搞,弄得不知如何操作电脑了,不过不要紧,若无法操作,按ALT F4强制关闭本窗口就行了。...
  • VB终止Win9X

    2002-02-25 08:51:00
    VB终止Win9X 在Visual Basic程序中,可以使用Windows API函数来重新启动计算机系统,文本介绍如何退出Windows 9X并关闭计算机系统。 一、关闭计算机系统 可以使用Windows API的ExitWindowsEx函数来从Visual ...

    在VB中终止Win9X

     

      在Visual Basic程序中,可以使用Windows API函数来重新启动计算机系统,文本介绍如何退出Windows 9X并关闭计算机系统。
    一、关闭计算机系统

      可以使用Windows API的ExitWindowsEx函数来从Visual Basic程序中重新启动计算机系统。要使用该函数,需要将如下声明语句包含在窗体的通常声明部分中:

    Private Declare Function ExitWindowsEx Lib "user32" (ByVal
    uFlags As Long, ByVal dwReserved As Long) As Long

      ExitWindowsEx 函数需要2个参数,可以使用一个或多个下面的标识的组合来告诉ExitWindowsEx函数希望进行关机过程。

      EWX_FORCE所有的进程都被强制终止。

      EWX_LOGOFF所有的进程被强制终止,并且用户退出登录(logged off)。

      EWX_POWEROFF计算机系统被关机,并且如果支持节电特性,则计算机被物理关机。

      EWX_REBOOT计算机系统被关机并重新启动。

      EWX_SHUTDOWN计算机被物理地安全地关机。

      下面的样例程序中使用了上面的三个标识的组合。该标识组合(EWX_LOGOFF,EWX_FORCE, 以及EWX_REBOOT)告诉Windows95退出所有正在执行的进程,使用户退出网络登录,使计算机系统处于准备状态以供用户关机。

    二. 样例程序

      该样例程序显示了如何关闭计算机系统。

      1、在Visual Basic中开始一个新的项目,采用缺省的方法建立Form1。

      2、将如下常量和声明语句添加到Form1的通常声明部分中(注意该声明语句需要书写在一行内):

    Private Declare Function ExitWindowsEx Lib "user32" (ByVal
    uFlags As Long, ByVal dwReserved As Long) As Long

    Const EWX_LOGOFF = 0

    Const EWX_SHUTDOWN = 1

    Const EWX_REBOOT = 2

    Const EWX_FORCE = 4

    Const EWX_POWEROFF = 8

    Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
     

      3、在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand1。将它的Caption属性设置为“重新启动计算机”。

      4、将如下代码添加到Command1的单击事件中:

    Private Sub Command1_Click()

    Dim X As Long

    X = ExitWindowsEx(EWX_RESET, dwReserved)

    End Sub
     

     按下F5来运行上述样例程序,单击命令按钮,即可重新启动计算机系统。


           以上代码来自: 源代码数据库(SourceDataBase)
               当前版本: 1.0.445
                   作者: Shawls
               个人主页: Http://Shawls.Yeah.Net
                 E-Mail: ShawFile@163.Net
                     QQ: 9181729

    展开全文
  • VB关机程序--包括注销、重启、关机。 附:(源码) Option Explicit Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ...
  • VB快捷键、终止符和加速器检查宏,☆使用方法: - 将解压后的文件复制到 Passolo 系统文件夹中定义的 Macros 文件夹中; - 自动修改宏:打开 Passolo 的工具 -> 宏对话框,将它设置为系统宏并单击主窗口 右下角的...
  • VB系统进程枚举和管理程序,功能类似于Windows的任务管理器,打开后可查看当前正在运行的程序细节,终止程序的运行,功能比Windows默认的进程管理器要多一些,操作起来挺方便。本源码贵在学习一下VB与Windows进程...
  • VB透明窗体 音乐播放 录音程序,MP3播放功能基于MP3ENC.OCX控件实现,支持左右声道调节,Me.LinkTopic = "" ' 这两行用于清除新运行的程序的DDE服务器属性,Me.LinkMode = 0 ' 否则在连接DDE程序时会出乱子的。...
  • VB制作屏幕保护程序

    千次阅读 2001-09-10 18:53:00
    VB制作屏幕保护程序利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。 ---- 一. 基本编程思路 ---- 大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕...
    用VB制作屏幕保护程序
    利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。
    ---- 一. 基本编程思路

    ---- 大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以,屏幕保护程序就是显示不断变化或移动的图形,并且当有鼠标移动或按键时能够终止的程序。

    ---- 1. 编制屏幕保护图形

    ---- 2. 隐藏鼠标

    ---- 用ShowCursor Windows API 函数我们可以实现隐藏鼠标。

    ---- 3. 检测鼠标和按键行为

    ---- 检测上述行为以便退出屏幕保护程序

    ---- 4. Windows 调用屏幕保护程序的参数命令

    ---- /a 在显示器属性对话框中单击了改变口令按钮。

    ---- /p 每当选中显示器属性对话框中屏幕保护程序标签时,在对话框显示预览效果。

    ---- /c 在显示器属性对话框中单击了设置按钮。

    ---- /s 在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。

    ---- 5. 编译屏幕保护程序

    ---- 其实任何VB应用程序都可作为屏幕保护程序来运行,但为了被Windows 95 所调用,需要将它作为屏幕保护程序来编译。首先进入VB5编程环境,编好程序后选择/File/Make project菜单项,然后在File Name文本框中将后缀名EXE改为SCR。最后单击OK按钮,将生成的SCR文件拷到Windows目录下,就完成了屏幕保护程序的创建。

    ---- 二. 实例

    ---- 下面就用一个实例给大家详细说明屏幕保护程序的制作。

    Option Explicit
    Dim quitflag As Boolean ‘声明终止程序标志变量
    Dim lleft
    ‘声明隐藏或显示鼠标的API函数
    Private Declare Function ShowCursor Lib "user32"
    (ByVal bShow As Long) As Long

    ‘检测鼠标单击或移动
    Private Sub Form_Click()
    quitflag = True
    End Sub

    Private Sub Form_MouseMove(Button As Integer,
    Shift As Integer, X As Single, Y As Single)
    Static xlast, ylast
    Dim xnow As Single
    Dim ynow As Single
    xnow = X
    ynow = Y
    If xlast = 0 And ylast = 0 Then
    xlast = xnow
    ylast = ynow
    Exit Sub
    End If
    If xnow < > xlast Or ynow < > ylast Then
    quitflag = True
    End If
    End Sub

    ‘检测按键
    Private Sub Form_KeyDown(KeyCode As Integer,
    Shift As Integer)
    quitflag = True
    End Sub

    Private Sub Form_Load()
    Dim X As Long
    lleft = 0
    ‘横向滚动文字的起始X坐标
    If App.PrevInstance = True Then
    ‘用APP对象的PrevInstance属性
    Unload Me
    ‘防止同时运行屏幕保护程序的两个实例
    Exit Sub
    End If
    Select Case Ucase$(Left$(Command$, 2))
    ‘装载命令行参数
    Case "/S" ‘在显示器属性对话框中单击了
    预览按钮或屏幕保护程序被系统正常调用。
    Show
    ‘全屏显示Form1窗体
    Randomize
    ‘初始化随机数生成器
    X = ShowCursor(False)
    ‘隐藏鼠标
    BackColor = vbBlack
    Do
    Timer2.Enabled = True
    ‘启动Timer2 ,显示屏幕保护滚动文字
    DoEvents
    ‘转让控制权,以便检测鼠标和按键行为
    Loop Until quitflag = True
    ‘运行屏幕保护滚动文字直至有鼠标和按键行为
    Timer2.Enabled = False
    ‘终止滚动文字
    Timer1.Enabled = True
    ‘启动Timer1,退出屏幕保护程序
    Case Else
    Unload Me
    Exit Sub
    End Select
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    Dim X
    X = ShowCursor(True)
    ‘显示鼠标
    End Sub

    Private Sub Timer1_Timer()
    Unload Me
    ‘退出屏幕保护程序
    End Sub

    Private Sub Timer2_Timer()
    显示横向滚动文字
    lleft = lleft + 100
    If lleft >= 11810 Then
    lleft = 0
    Lab1.Top = Int(Rnd * 7000)
    End If
    Lab1.Left = lleft
    Timer2.Enabled = False
    End Sub
    展开全文
  • VB程序中有两个Timer,分别为Timer1,Timer2,Timer1中调用的函数fun()会在开始的时候开启Timer2,让Timer2中检测输入信号Input。若是检测到Input=1时,要立刻终止fun()函数,请问有什么方法可以实现?
  • Vb双进程保护示例源程序程序运行后,生成两个独立进程,结束一个进程 ,会重新启动一个新进程,你会发现进程管理器中始终有两个进程,总是结束不掉,以达到进程保护的功能。不过,在结束进程时先锁定EXE,或者选择...
  • 如果处于全屏屏保状态,则终止屏保程序 当小球圆心坐标值小于其半径值时(碰左边壁时),反弹,并把运动方向参数 BallVx 置反,这样小球会反向运动 或当小球球心坐标值大于屏幕宽与半径差值(碰右边壁时),反弹并把...
  • 这是一个增加图标到托盘的控件.通过该控件您不仅可以轻易把您喜欢的图标增加到托盘,并且在图标上可以响应鼠标的单击和...不会因程序终止或是忘记注销而托盘仍然存在图标。四、全中文的方法接口,适合中国国情o^_^o
  • RESTORE DATABASE 操作异常终止。 说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.Data.SqlClient....

    因为数据库正在使用,所以未能获得对数据库的排它访问权。 RESTORE DATABASE 操作异常终止。

    说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
    异常详细信息: System.Data.SqlClient.SqlException: 因为数据库正在使用,所以未能获得对数据库的排它访问权。 RESTORE DATABASE 操作异常终止。

    代码:

            Dim conn1 As SqlConnection = New SqlConnection("server=95-D37BC46CD5C0; database=master;uid=sa;pwd=;")
            conn1.Open()

            Dim sql As String
            sql = "RESTORE DataBase ps FROM disk='C:/backup/DATA.sql'"
            Dim sqlcmd As SqlCommand = New SqlCommand(sql, conn1)

            sqlcmd.ExecuteNonQuery()

            conn1.Close()

    这个问题怎么解决呢? 找了很多都是用c写的程序 就看不懂 有没有vb 写的朋友指教下新手!!!

    1.有人说先改为单一用户模式,后改为多用户模式 。。。但代码好像有问题  怎么也调试不出来

    2.有人说有专门关闭sql所有进程的代码,但也是用c写的 根本看不懂啊 ,懂的朋友帮助下,只需要最基本的代码就可以了!!!

     


     

    展开全文
  • 选择“取消”终止安装。 确定 取消 在网上查到一些方法,有些尝试过,已成功,记录如下: 1:应该是缺少一个叫:dfst.dll的文件,一般这个文件有毒,会被杀软检查出来。解决办法如下: 在AutoCAD2007安装包的“安装包根...
  • 从 .NET 5 开始,VB 将支持类库、控制台、Windows 窗体、WPF、Woker Service 和 ASP.NET Core Web API,为现有的客户提供了一条将其应用程序迁移到 .NET Core 的不错路径。 开发团队在一篇博客文章中写道:“.....
  • vb 多线程模仿

    2013-04-22 09:37:51
    vb执行大任务时 主线程经常出现假死现象,此示例程序通过ActiveX.exe部件执行耗时长的大任务;主窗体可以拖动 任意改变大小 最大化 最小化 终止任务(关闭窗体) 不足之处:终止任务(关闭窗体)时 Activex.exe 部件...
  • 在ApplicationEvents.vb界面添加(Protected…End Function) Namespace My ' 以下事件可用于 MyApplication: ...如果应用程序异常终止,则不会引发此事件。 ' UnhandledException: 在应用程序遇到未...
  • VB6.0实现关机与重启动计算机,需要允许当前应用程序有关闭操作系统的权限,执行的操作有重起、注销、终止没有响应的进程、关闭电源等功能。
  • 1、在VB.NET中取消窗体的关闭事件;2、如何取消窗体上关闭按钮功能;3、窗体终止事件的过程,见如下说明 如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,则调用该启动...
  • 再发一个VB定时关机代码,关于定时关机的功能,我想大概不需要多介绍了吧,大概就这样子,不过本程序除了定时关机外,还有很多其它实用的小功能,比如提高WINDOWS屏幕刷新速度、显示托盘图标,托盘右键菜单,图形...
  • VB强制关闭进程,输入你要结束的程序PID,点击“终止”即可结束,不知道PID的,可打开任务管理器查看,然后输入进去就行了。程序挺简单的,新手能看懂。
  • beizer曲线算法(vb

    2012-04-25 20:42:00
    beizer算法的vb版 贝塞尔曲线(Bézier curve),又称贝兹曲线或贝济埃曲线,是应用于二维图形应用程序的数学曲线。一般的矢量图形软件通过它来精确画出曲线,贝兹曲线由线段与节点组成,节点是可拖动的支点,线段像可...
  • VB.NET是如何关闭窗体

    千次阅读 2012-01-31 09:09:41
    1、在VB.NET中取消窗体的关闭事件;2、如何取消窗体上关闭按钮功能;3、窗体终止事件的过程,见如下说明 如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,...
  • VB中使用API关闭窗口

    千次阅读 2008-10-09 21:07:00
    在进行VB编程过程中,有时需要通过程序控制终止某些程序。在实践中可以使用一下一些方法: 1。使用SendMessagePrivateDeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByValhwnd As Long, ByVal ...
  • vb开发用的托盘控件

    2010-06-10 20:21:11
    、稳定性强。没有采用子类技术所以不用 担心程序因出错而崩溃; 二、速度较OCX封装快。由于采用的是dll封 ... 被终止或是忘记注销而托盘仍然存在图 标。 四、全中文的方法接口,适合中国国情o^_^o
  • VB中使用API关闭窗口 (转)[@more@] 在进行VB编程过程中,有时需要通过程序控制终止某些程序。在实践中可以使用一下一些方法: 1。使用SendMessage Private Declare Functi...

空空如也

空空如也

1 2 3 4 5
收藏数 82
精华内容 32
关键字:

vb终止程序