VB.net 中創(chuàng)建線程時，線程所要執(zhí)行的 任務(wù)函數(shù) 怎么實現(xiàn)后期定義(就像回調(diào)函數(shù)一樣的)？

這個線程對象一定有個完成時或者進行中的動作，你可以用AddHandler語句來將過程委托給ProcessChanged或者ProcessConpleted動作。

創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的秦皇島網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

求vb.net句柄實例，實現(xiàn)操作其他程序窗口。如我給的例子

Imports?System.Text

Imports?System.Runtime.InteropServices

Public?Class?Form1

'?相關(guān)API函數(shù)聲明,注釋掉的這里沒用到，但是也比較常用吧，這些函數(shù)的功能都能搜到。

Private?Declare?Function?FindWindow?Lib?"user32"?Alias?"FindWindowA"?(ByVal?lpClassName?As?String,?ByVal?lpWindowName?As?String)?As?IntPtr

Private?Declare?Function?FindWindowEx?Lib?"user32"?Alias?"FindWindowExA"?(ByVal?hWnd1?As?IntPtr,?ByVal?hWnd2?As?IntPtr,?ByVal?lpsz1?As?String,?ByVal?lpsz2?As?String)?As?IntPtr

Private?Delegate?Function?EnumChildProc(ByVal?hWnd?As?IntPtr,?ByVal?lParam?As?Integer)?As?Boolean

Private?Declare?Function?EnumChildWindows?Lib?"user32.dll"?(ByVal?hWndParent?As?IntPtr,?ByVal?lpEnumFunc?As?EnumChildProc,?ByVal?lParam?As?Integer)?As?Boolean

Private?Declare?Auto?Function?SendMessage?Lib?"User32.dll"?(ByVal?hWnd?As?IntPtr,?ByVal?Msg?As?Integer,?ByVal?wParam?As?Integer,?ByVal?lParam?As?String)?As?Integer

'Private?Declare?Function?CheckDlgButton?Lib?"user32"?Alias?"CheckDLGButtonA"?(ByVal?hDlg?As?IntPtr,?ByVal?nIDButton?As?IntPtr,?ByVal?wCheck?As?Integer)?As?Integer

Private?Declare?Function?GetClassName?Lib?"user32"?Alias?"GetClassNameA"?(ByVal?hWnd?As?IntPtr,?ByVal?lpClassName?As?StringBuilder,?ByVal?nMaxCount?As?Integer)?As?Integer

'Private?Declare?Function?GetWindowThreadProcessId?Lib?"user32"?Alias?"GetWindowThreadProcessId"?(ByVal?hwnd?As?IntPtr,?ByVal?lpdwProcessId?As?Long)?As?Integer

Private?Declare?Auto?Function?GetWindowTextLength?Lib?"user32"?Alias?"GetWindowTextLength"?(ByVal?hwnd?As?IntPtr)?As?Integer

Private?Declare?Function?GetWindowText?Lib?"user32"?Alias?"GetWindowTextA"?(ByVal?hwnd?As?IntPtr,?ByVal?lpString?As?StringBuilder,?ByVal?cch?As?Integer)?As?Integer

'?相關(guān)消息定義，也有沒用到的

Const?WM_SETTEXT?=?HC

Const?WM_GETTEXT?=?HD

'Const?WM_SETFOCUS?=?H7

'Const?WM_KILLFOCUS?=?H8

'Const?WM_CLOSE?=?H10

'Const?WM_SYSCOMMAND?=?H112

'Const?SC_CLOSE?=?HF060

'Const?SC_MINIMIZE?=?HF020

Const?BM_GETCHECK?=?HF0

Const?BM_SETCHECK?=?HF1

Const?BM_GETSTATE?=?HF2

Const?BM_SETSTATE?=?HF3

Const?BM_SETSTYLE?=?HF4

Const?BM_CLICK?=?HF5

'Const?BM_GETIMAGE?=?HF6

'Const?BM_SETIMAGE?=?HF7

Const?BST_UNCHECKED?=?O0

Const?BST_CHECKED?=?O1

Const?BST_INDETERMINATE?=?O2

'?儲存窗口句柄

Dim?WindowHandle?As?IntPtr

'?儲存兩個（或者多個）編輯框句柄

Dim?EditHandle?As?New?List(Of?IntPtr)

Dim?EditWindowsText?As?List(Of?String)

'?儲存復(fù)選框句柄

Dim?CheckHandle?As?IntPtr?=?0

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Button1_Click(sender,?e)

End?Sub

'?EnumChildWindows?回調(diào)函數(shù)，該函數(shù)名作為API函數(shù)EnumChildWindows?的一個參數(shù)

'?該函數(shù)實現(xiàn)了枚舉各個子窗口，找出編輯框?qū)傩缘墓δ?/p>

Public?Function?EnumChildProcC(ByVal?hwnd?As?IntPtr,?ByVal?lParam?As?Integer)?As?Boolean

Dim?dwWindowClass?As?StringBuilder?=?New?StringBuilder(100)

'?獲得某一個句柄的類名

GetClassName(hwnd,?dwWindowClass,?100)

If?dwWindowClass.ToString.Contains("EDIT")?Or?dwWindowClass.ToString.Contains("Edit")?Then?????'?類名包含EDIT的為編輯框

EditHandle.Add(hwnd)????????????????????????'?存儲該句柄

End?If

'?返回?True?一直枚舉完

Return?True

End?Function

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

WindowHandle?=?FindWindow(vbNullString,?"登陸")

If?WindowHandle.ToInt32?=?0?Then

MsgBox("未捕獲到窗口"?+?"登陸")

Return

End?If

'?枚舉所有主窗口的子窗口（控件），枚舉時自動調(diào)用回調(diào)函數(shù)，完成編輯框句柄的獲取

EnumChildWindows(WindowHandle,?AddressOf?EnumChildProcC,?0)

'?尋找復(fù)選框

CheckHandle?=?FindWindowEx(WindowHandle,?IntPtr.Zero,?vbNullString,?"記住密碼")

Dim?str?As?New?StringBuilder

Dim?j?As?Integer?=?0

'?對編輯框文本賦值

For?j?=?0?To?EditHandle.Count?-?1

SendMessage(EditHandle(j),?WM_SETTEXT,?0,?"Text")

'GetWindowText(EditHandle(j),?str,?20)

'EditWindowsText.Add(Str.ToString)

'Str.Clear()

Next

If?EditHandle.Count?=?0?Then

MsgBox("未找到輸入框！")

End?If????????

If?CheckHandle.ToInt32??0?Then

'CheckDlgButton(WindowHandle,?id,?1)

'?對復(fù)選框進行鼠標單擊操作

SendMessage(CheckHandle,?BM_CLICK,?0,?0)

'SendMessage(CheckHandle,?BM_SETCHECK,?True,?0)

End?If

End?Sub

End?Class

vb.net問題:如何將回調(diào)函數(shù)中取得的結(jié)果返回到主程序

你先定義一個公用變量

將你獲得的hwdn傳遞到這個公用變量上

再調(diào)用這個公用變量不久可以了么

VB.NET Socket通信 回調(diào)函數(shù)里的數(shù)據(jù)無法顯示到界面控件內(nèi)

a+=1; 這條指令必須在dosomething()方法執(zhí)行完畢返回結(jié)果后才可以執(zhí)行，否則就亂了套

異步：異步概念和同步相對，當(dāng)一個異步過程調(diào)用發(fā)出后，調(diào)用者不能立刻得到結(jié)果。實際處理這個調(diào)用的部件在完成后，通過狀態(tài)、通知和回調(diào)來通知調(diào)用者（百度上抄的）。理解了同步概念后異步也就不難理解了，以javascript的ajax為例

ajax(arg1,arg2,function(){

//回調(diào)函數(shù)

a=3；

});

a=4；

這個代碼段執(zhí)行完成后一般情況會把a賦值為3而不是4，因為在ajax方法調(diào)用后，a=4;這條語句并沒有等待ajax()返回結(jié)果就執(zhí)行了，也就是在ajax()執(zhí)行完成調(diào)用回調(diào)函數(shù)之前，a=4；已經(jīng)執(zhí)行了，回調(diào)函數(shù)再把a賦值為3使之成為最后結(jié)果，為此在ajax調(diào)用中我們經(jīng)常會使用回調(diào)函數(shù)，其實在很多異步處理中我們都會使用到回調(diào)函數(shù)。

阻塞

阻塞操作是指，在執(zhí)行設(shè)備操作時，若不能獲得資源，則進程掛起直到滿足可操作的條件再進行操作。

vb的回調(diào)函數(shù)轉(zhuǎn)為vb.NET

先聲明一個委托：

Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer

然后才能使用回調(diào)函數(shù)，回調(diào)函數(shù)的參數(shù)要和委托完全一致。

然后那個 API 函數(shù)需要這樣聲明：

Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer

vb.net 中的異步委托機制，最好有相關(guān)的詳細資料講解，我是新手

所謂的委托（Delegate）實際上就是和C/C++里面的函數(shù)指針差不多，只是增強了類型檢查等其它健壯性方面的內(nèi)容。異步調(diào)用的回調(diào)函數(shù)有格式要求，所謂格式要求就是參數(shù)數(shù)量及類型順序的要求，具體是什么樣的你要看文檔了。一般.NET Framework里面都是AsyncCallBack。

所謂異步編程，就是說你要求做某樣事情，但是在完成這件事之前，我能接著做下一件事，而當(dāng)這件事情完成之后，能夠有一種機制通知我完成了。相反，在完成之前一直等待，直到完成了才能進行下一步操作，叫做同步。一般來說，我們平常寫的程序都是“同步”，或者成為“順序執(zhí)行”更加貼切，而“異步”則可以說是“亂序執(zhí)行”的。

可以看到，同步的代碼非常好寫，因為我們可以預(yù)測執(zhí)行的順序和情況。而異步就不是很好寫了，因為無法得知完成的時候我正在做什么、做到什么程度。過去寫這些代碼是比較麻煩的，實現(xiàn)的辦法就是自己建立一個處理異步事物的線程，然后在這個線程和主線程之間建立聯(lián)系。而現(xiàn)在這個過程大部分已經(jīng)被系統(tǒng)封裝起來了，你只要調(diào)用BeginXXX，系統(tǒng)就會為你自動建立一個新的線程處理這個事情，當(dāng)前線程不阻塞，可以馬上進行下一項操作，于是就實現(xiàn)了“異步”了。但是從前面我講道的你就應(yīng)該知道，開始異步操作并沒有完事，還需要能夠得知操作完成，并能夠進行相應(yīng)的處理。于是你在調(diào)用BeginXXX的時候就需要傳遞一個回調(diào)函數(shù)，在.NET里是以委托的方式傳遞的。回調(diào)函數(shù)的意思就是“回過頭來調(diào)用你”，或者說A調(diào)用B并且傳遞函數(shù)C的地址，于是B在指定的情況下調(diào)用A指定的函數(shù)C?，F(xiàn)在就應(yīng)該明白這個回調(diào)函數(shù)在BeginXXX中的作用就是，當(dāng)你指定的事情做完之后將會調(diào)用這個回調(diào)函數(shù)。

在這個回調(diào)函數(shù)里面，我們就可以進行一些后續(xù)的工作，例如接著進行性質(zhì)相同的工作，或者相應(yīng)的處理。在這里，我們也許向知道剛才那件事情執(zhí)行的情況和結(jié)果，這個時候我們就可以通過EndXXX來獲得這些東西。說到這里，結(jié)合上面說到的AsyncCallBack以及隨便哪個BeginXXX，我們可能會對下列兩個東西感到困惑：

IAsyncResult

stateObject

首先說IAsyncResult，這個是一個接口，你在回調(diào)函數(shù)中通過參數(shù)獲得的對象具體是什么類型的一般我們不需要關(guān)心，我們只需要依照這個接口的定義進行訪問就可以了。簡單點說，這個接口規(guī)定了順利完成異步操作所需信息的最小集合。一般來說，我們需要通過這個參數(shù)（ar）來識別異步操作。比如說，你在一瞬間發(fā)起一百個“從不同的網(wǎng)絡(luò)連接獲取數(shù)據(jù)”的異步請求，當(dāng)某一個請求被完成的時候，如何判斷是那個請求被完成呢？就是依靠回調(diào)函數(shù)的參數(shù)ar。實際上你一般是不需要參與判斷的，你只要將這個ar傳遞給EndXXX就可以了，EndXXX會根據(jù)這個ar自行判斷的。需要注意的是，這個ar就是你調(diào)用BeginXXX的時候的返回值，可以說是一個存根，如果你需要在完成操作前終止他，也可以通過將這個存根傳遞給EndXXX，EndXXX就會根據(jù)情況終止操作。（IAsyncResult里面的IsCompleted提供了是否已經(jīng)完成的判斷，EndXXX就是根據(jù)這個值決定是否有必要終止。當(dāng)然，你不需要關(guān)心他。）

接下來我們看看stateObject，這個東西被稱為狀態(tài)對象。于是大家就可能奇怪了：那個ar不也是狀態(tài)嗎？實際上stateObject是一個留給用戶使用的東西，BeginXXX/EndXXX根本就不使用。這個stateObject會被裝到ar的AsyncState里面，也就是說這個stateObject可以隨時通過訪問存根（BeginXXX的返回值）或者回調(diào)函數(shù)里的ar得到，你完全沒必要額外的保存到什么地方，更不需要費神的去考慮如何和你的某個異步操作對應(yīng)起來。說了半天，這個東西有什么用呢？你想怎么用就怎么用唄，發(fā)揮一下你的想象力。比如說，你可以保存這是第幾次操作，或者在多個異步操作之間要同步的時候可以作為信號旗，再或者直接是操作這個異步操作的對象（x.BeginXXX的時候?qū)傳遞到stateObject參數(shù)上）。

第一種用法有點多余，第二種用法有點復(fù)雜，第三種我用得最多。因為你很可能在協(xié)一個服務(wù)端，而服務(wù)段必須能夠響應(yīng)多個客戶端，這決定了必須用異步。同時，對于多個客戶端必然有多個對象，例如網(wǎng)絡(luò)連接的時候可能是Socket。而實際上處理的方法或者協(xié)議是和具體哪個客戶端沒有關(guān)聯(lián)的，因此我們只需要一套處理程序就夠了。這個時候第三種用法就很有用處，我們完全可以把代碼寫成這樣：

Sub DataReceived(ByVal ar As IAsyncResult)

ar.AsyncState.EndReceive(ar)

ar.AsyncState.BeginReceive(... , ar.AsyncState)

End Sub

這樣就不需要額外的數(shù)據(jù)結(jié)構(gòu)去記錄有那些正在活動的對象了。