VB如何暫停一個(gè)程序的運(yùn)行？

補(bǔ)充： 看到其他答案說到修改EXE、設(shè)斷點(diǎn)、特權(quán)指令等，其實(shí)沒那么復(fù)雜，現(xiàn)在的系統(tǒng)是按線程調(diào)度的，線程的狀態(tài)是有系統(tǒng)決定的，要讓進(jìn)程暫停，只需讓系統(tǒng)把進(jìn)程的所有線程掛起，不分配CPU，進(jìn)程當(dāng)然就沒法運(yùn)行啦，而系統(tǒng)就提供了這樣的接口啊，用就可以了。 對于修改EXE，可以在你要暫停的地方插入JMP指令，跳到你的暫停代碼里，暫停代碼用Sleep或WaitforSingleObject等待都可以，不過想在原代碼插入JMP指令很難，修改了原指令就要恢復(fù)的，這可不簡單啊。 對于設(shè)斷點(diǎn)，這個(gè)可以，VB也可以實(shí)現(xiàn)，用DEBUG API就可以了，不過這是暫停的程序就處于DEBUG狀態(tài)，而不是普通狀態(tài)了，這是有差別的。 至于用特權(quán)指令暫停CPU，這好像不行吧，CPU停了，我們的程序也暫停了。這是內(nèi)核級調(diào)試程序用的。 追問： 能給出代碼嗎，看是看懂了，但不知道這些函數(shù)怎么聲明和使用。 回答： 不好意思，我用手機(jī)上的網(wǎng)，沒電腦，沒法給你聲明，也沒法給你代碼，不過你可以查查MSDN的C原型，在轉(zhuǎn)為VB聲明，VB有個(gè)可以插入API聲明的工具，可以用該工具對已有的聲明進(jìn)行修改。

創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括恩平網(wǎng)站建設(shè)、恩平網(wǎng)站制作、恩平網(wǎng)頁制作以及恩平網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，恩平網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到恩平省份的部分城市，未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

在VB.net中我想實(shí)現(xiàn)“先暫停該程序，等其他程序運(yùn)行完再繼續(xù)執(zhí)行該程序”的功能，請問怎么實(shí)現(xiàn)？

詳細(xì)查看了你的問題，完全不需要使用線程sleep的方法。

在這邊，我要給你引入一個(gè)概念。就是Form窗體的兩個(gè)方法。

Form.Show()和Form.ShowDialog()

第一個(gè)Show方法運(yùn)行后，你的主程序還是會進(jìn)行，你的代碼還是會繼續(xù)進(jìn)行下去。此時(shí)，窗體還是彈出的。

第二個(gè)ShowDialog方法運(yùn)行后，此時(shí)，彈出的一個(gè)窗體，你不將其關(guān)閉，那么，主程序就會一直等待這個(gè)窗體關(guān)閉后，才執(zhí)行后面的代碼。

所以，你只需要使用showdialog這個(gè)方法，即可達(dá)到你想要的結(jié)果。

那么，如何才能讓彈出的窗體不改變呢？很簡單

你可以找到窗體的formcloseing事件，在這個(gè)事件中，有一個(gè)參數(shù)：e

這個(gè)e有一個(gè)屬性，就是e.handle，表示是否處理過這個(gè)事件了。

這個(gè)時(shí)候，如果你不想讓窗體關(guān)閉，你可以寫：

e.handle=true，那么表示已經(jīng)處理過窗體關(guān)閉的事件了。

注：有些情況，可能是：e.cancel=true

vb.net中如何結(jié)束一個(gè)線程

vb.net中如何結(jié)束一個(gè)線程

一般而言,如果您想終止一個(gè)線程,您可以使用System.Threading.Thread類的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

當(dāng)然,在調(diào)用Abort方法后,線程并不是立刻終止,要等線程的所有finally快中的代碼完成后才會完全終止. 所以在主線程中可以用Join方法來同步,當(dāng)線程還未完全終止時(shí),t.Join()將處于等待,直到t線程完全結(jié)束后再繼續(xù)執(zhí)行后面的語句。

Abort方法是會導(dǎo)致線程跳出一個(gè)異常錯(cuò)誤的，你需要在代碼中捕獲該異常。下面是一個(gè)比較完整的VB.NET線程例子：

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用來永久銷毀一個(gè)線程，而且將拋出ThreadAbortException異常。使終結(jié)的線程可以捕獲到異常但是很難控制恢復(fù)，僅有的辦法是調(diào)用Thread.ResetAbort()來取消剛才的調(diào)用，而且只有當(dāng)這個(gè)異常是由于被調(diào)用線程引起的異常。因此，A線程可以正確的使用Thread.Abort()方法作用于B線程，但是B線程卻不能調(diào)用Thread.ResetAbort()來取消Thread.Abort()操作。

Vb.net問題 是這樣，我寫了一個(gè)坦克大戰(zhàn)游戲，我想暫停，就用了Thread.sleep()方法

暫停，就是除恢復(fù)外所有操作都無效，你可以用一變量來控制，不需掛起。

vb.net 中我現(xiàn)實(shí)現(xiàn),線程的暫停與開始!請教高手一下!請留下你的聯(lián)系方式!

在你給textbox設(shè)置text值后直接使用sleep()，因?yàn)樵谑褂胹leep（）的時(shí)候，當(dāng)前的主進(jìn)程是被掛起了，也就是說設(shè)置的text屬性后，還來不及在屏幕上顯示lbi的內(nèi)容就執(zhí)行了sleep，所以在執(zhí)行sleep()掛起主進(jìn)程前，你必須讓textbox的內(nèi)容先顯示出來再執(zhí)行sleep，可嘗試使用下DoEvents（）將控制權(quán)暫時(shí)移交一下，讓系統(tǒng)有時(shí)機(jī)來刷新textbox里面的內(nèi)容，讓系統(tǒng)有機(jī)會來刷新textbox里面的內(nèi)容。由于我沒有安裝visual studio的開發(fā)環(huán)境，無法調(diào)試代碼的正確性，但我記得我以前也遇到此類問題，采取的DoEvents()的方式。你可嘗試下。

lbl.Visible = True

Sleep(5000)

lbl.Text = "我是中國人"

lbi.Refresh '刷新一下lbi，具體你可以調(diào)試下，看需要不需要這條

Application.DoEvents() ‘設(shè)置完lbi的text屬性，將操作權(quán)限釋放一下，讓系統(tǒng)有機(jī)會顯示lbi的內(nèi)容。

Sleep(3000) ’待顯示后，再執(zhí)行掛起

lbl.Text = "我愛自己的祖國"

lbi.Refresh ‘同上

Application.DoEvents() ’同上

DoEvents（）的功能解釋是：轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。

如執(zhí)行一次不行，可嘗試重復(fù)多執(zhí)行幾次，特別在循環(huán)語句中，對于窗口的刷新顯示DoEvents特別有用，但是在循環(huán)體內(nèi)使用了DoEvents后，當(dāng)前進(jìn)程的執(zhí)行效率會有大幅降低，因?yàn)橐平豢刂茩?quán)必然損失當(dāng)前進(jìn)程的運(yùn)行效率。

vb怎么暫停程序？

使用OpenProcess打開進(jìn)程，然后用ToolhelpAPI的CreateToolhelp32Snapshot函數(shù)創(chuàng)建線程快照，然后用Thread32First和用Thread32Next枚舉該進(jìn)程的線程，對于枚舉出來的該進(jìn)程的每個(gè)線程結(jié)構(gòu)中獲取線程ID,用OpenThread打開線程，用SuspendThread掛起該線程。當(dāng)該進(jìn)程的所有線程被掛起，該進(jìn)程就被掛起了，也就被暫停了。反之，想恢復(fù)該進(jìn)程，只需用函數(shù)ResumeThread恢復(fù)該進(jìn)程的所有線程即可。 以上的做法是因?yàn)閣in32子系統(tǒng)沒有導(dǎo)出SuspendProcess函數(shù)，只能繞個(gè)彎實(shí)現(xiàn)，可在Native API，卻有該函數(shù)，函數(shù)名為ZwSuspendProcess(也可能是SuspendProcess，我用手機(jī)寫這個(gè)的，沒電腦，沒法查，反正有一個(gè)是對的，你可以用VS里的工具DEPEND查查看函數(shù)名)，在ntdll.dll被導(dǎo)出，該函數(shù)可以在vb中使用，不過得自己寫聲明，他的聲明和SuspendThread幾乎是一樣的，就是句柄是進(jìn)程句柄而不是線程句柄而已，與之對于的是ZwResumeProcess(也可能是ResumeProcess)。

分享名稱：vb.net讓線程暫停 c語言停止線程
本文URL：http://chinadenli.net/article40/hhjoho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機(jī)、企業(yè)網(wǎng)站制作、做網(wǎng)站、品牌網(wǎng)站制作、微信公眾號、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)