高分悬赏.怎样在pb内关闭已经打开地外部程序

没个BIOS版都不一样，主板的设置也不一样，你最好确认好自己的主扳型号，才能最快的给你提供解决方法。现在暂时有2个方法你可以尝试一下 方法1:如果网卡不是集成的，则可以拔掉网卡上的引导芯片或者用网卡设置程序，禁止网卡的BootROM引导功能也可以关机，然后在开机之后，当出现“Press Shift-F10 Configure……”时，马上按“Shift+F10”组合键，进入菜单之后，从第4行中将Boot order rom设置为disable，然后按F4键保存退出。 方法2:如果网卡是集成在主板上的，或者将网上的启动程序写进了BIOS中，可以从BIOS设置中修改系统的引导顺序，如设置硬盘最先引导，或者从BIOS中禁止网卡启动系统。 进入bios找lan boot ROM，选disable！ 方法2（另外一种BIOS版本）选择 Integrated Peripherals (周遍设置）步骤2：找到Onboard Lan Boot ROM选项步骤3：设置为Disabled 既关闭步骤4：按F10 保存退出

添加timer控件，intervel=30000

在timer事件里写

Call taskkill("xxexe")'如果存在进程xxexe,则结束xxexe

在空白处写

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String 1024

End Type

Const TH32CS_SNAPHEAPLIST = &H1

Const TH32CS_SNAPPROCESS = &H2

Const TH32CS_SNAPTHREAD = &H4

Const TH32CS_SNAPMODULE = &H8

Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)

Const TH32CS_INHERIT = &H80000000

Dim pid As Long

Dim pname As String

Private Sub taskkill(ByVal taskname As String)

Dim my As PROCESSENTRY32

Dim l As Long

Dim l1 As Long

Dim flag As Boolean

Dim mName As String

Dim i As Integer

l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

If l Then

mydwSize = 1060

If (Process32First(l, my)) Then

Do

i = InStr(1, myszExeFile, Chr$(0))

mName = LCase$(Left$(myszExeFile, i - 1))

If mName = LCase$(taskname) Then

pid = myth32ProcessID

pname = mName

Dim mProcID As Long

mProcID = OpenProcess(1&, -1&, pid)

TerminateProcess mProcID, 0&

flag = True

Else

flag = False

End If

Loop Until (Process32Next(l, my) < 1)

l1 = CloseHandle(l)

End If

End Sub

原因：没有配置环境\x0d\方法：\x0d\1搭建环境，将下面代码保存成一个BAT 文件，例如varbat ，便于一次性配置好编译环境（下面代码中Microsoft Visual Studio 90根据VS版本更改）：\x0d\@echo off\x0d\set INCLUDE=\Microsoft Visual Studio 90\VC\include;\Microsoft SDKs\Windows\v60A\Include\x0d\set LIB=\Microsoft Visual Studio 90\VC\lib;\Microsoft SDKs\Windows\v60A\Lib\x0d\set PATH=\Microsoft Visual Studio 90\VC\bin;\Microsoft Visual Studio 90\Common7\IDE;%path%\x0d\echo on\x0d\2命令行下切换到varbat 所在目录输入var 执行环境配置

可以利用Shell函数调用外部程序后返回PID值的功能将程序关掉，在获得外部程序的PID后，你可以调用命令taskkill或ntsd命令关闭程序，也可以用API编程实现，这里我举个简单的例子（用ntsd命令，格式为 ntsd -c q -p pid）：

Dim x '声明外部变量x，作为记录外部程序PID值的变量

Private Sub Command1_Click() '用Command1按钮调用一个外部程序

x = Shell("cmdexe")

End Sub

Private Sub Command2_Click() '用Command2按钮调用ntsd将其关闭

Dim command As String

command = "ntsd -c q -p " & Str(x)

Shell command, vbHide

End Sub

方法一，先调用CMD然后执行命令

ShellExecute(NULL,"open","cmdexe",NULL,NULL,SW_SHOWNORMAL);

指定为桌面的代码也给你了

ShellExecute(NULL,"open","cmdexe",NULL,"C://Documents

and

Settings////桌面",SW_SHOWNORMAL);

方法二，直接调用程序

ShellExecute(NULL,"open","c://Documents

and

Settings////桌面//daycountexe",NULL,NULL,SW_SHOWNORMAL);

是我的计算机名，不好意思隐藏了~

以上就是关于高分悬赏.怎样在pb内关闭已经打开地外部程序全部的内容，包括:高分悬赏.怎样在pb内关闭已经打开地外部程序、vb 关闭打开的外部程序。、《深入浅出MFC》第一个程序问题“nmake不是内部命令或外部命令，也不是可运行程序”什么意思啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！