所謂的委托（Delegate）實際上就是和C/C++里面的函數(shù)指針差不多，只是增強了類型檢查等其它健壯性方面的內(nèi)容。異步調(diào)用的回調(diào)函數(shù)有格式要求，所謂格式要求就是參數(shù)數(shù)量及類型順序的要求，具體是什么樣的你要看文檔了。一般.NET Framework里面都是AsyncCallBack。
創(chuàng)新互聯(lián)服務項目包括勐海網(wǎng)站建設、勐海網(wǎng)站制作、勐海網(wǎng)頁制作以及勐海網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案，勐海網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到勐海省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！
所謂異步編程，就是說你要求做某樣事情，但是在完成這件事之前，我能接著做下一件事，而當這件事情完成之后，能夠有一種機制通知我完成了。相反，在完成之前一直等待，直到完成了才能進行下一步操作，叫做同步。一般來說，我們平常寫的程序都是“同步”，或者成為“順序執(zhí)行”更加貼切，而“異步”則可以說是“亂序執(zhí)行”的。
可以看到，同步的代碼非常好寫，因為我們可以預測執(zhí)行的順序和情況。而異步就不是很好寫了，因為無法得知完成的時候我正在做什么、做到什么程度。過去寫這些代碼是比較麻煩的，實現(xiàn)的辦法就是自己建立一個處理異步事物的線程，然后在這個線程和主線程之間建立聯(lián)系。而現(xiàn)在這個過程大部分已經(jīng)被系統(tǒng)封裝起來了，你只要調(diào)用BeginXXX，系統(tǒng)就會為你自動建立一個新的線程處理這個事情，當前線程不阻塞，可以馬上進行下一項操作，于是就實現(xiàn)了“異步”了。但是從前面我講道的你就應該知道，開始異步操作并沒有完事，還需要能夠得知操作完成，并能夠進行相應的處理。于是你在調(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)在就應該明白這個回調(diào)函數(shù)在BeginXXX中的作用就是，當你指定的事情做完之后將會調(diào)用這個回調(diào)函數(shù)。
在這個回調(diào)函數(shù)里面，我們就可以進行一些后續(xù)的工作，例如接著進行性質(zhì)相同的工作，或者相應的處理。在這里，我們也許向知道剛才那件事情執(zhí)行的情況和結(jié)果，這個時候我們就可以通過EndXXX來獲得這些東西。說到這里，結(jié)合上面說到的AsyncCallBack以及隨便哪個BeginXXX，我們可能會對下列兩個東西感到困惑：
IAsyncResult
stateObject
首先說IAsyncResult，這個是一個接口，你在回調(diào)函數(shù)中通過參數(shù)獲得的對象具體是什么類型的一般我們不需要關心，我們只需要依照這個接口的定義進行訪問就可以了。簡單點說，這個接口規(guī)定了順利完成異步操作所需信息的最小集合。一般來說，我們需要通過這個參數(shù)（ar）來識別異步操作。比如說，你在一瞬間發(fā)起一百個“從不同的網(wǎng)絡連接獲取數(shù)據(jù)”的異步請求，當某一個請求被完成的時候，如何判斷是那個請求被完成呢？就是依靠回調(diào)函數(shù)的參數(shù)ar。實際上你一般是不需要參與判斷的，你只要將這個ar傳遞給EndXXX就可以了，EndXXX會根據(jù)這個ar自行判斷的。需要注意的是，這個ar就是你調(diào)用BeginXXX的時候的返回值，可以說是一個存根，如果你需要在完成操作前終止他，也可以通過將這個存根傳遞給EndXXX，EndXXX就會根據(jù)情況終止操作。（IAsyncResult里面的IsCompleted提供了是否已經(jīng)完成的判斷，EndXXX就是根據(jù)這個值決定是否有必要終止。當然，你不需要關心他。）
接下來我們看看stateObject，這個東西被稱為狀態(tài)對象。于是大家就可能奇怪了：那個ar不也是狀態(tài)嗎？實際上stateObject是一個留給用戶使用的東西，BeginXXX/EndXXX根本就不使用。這個stateObject會被裝到ar的AsyncState里面，也就是說這個stateObject可以隨時通過訪問存根（BeginXXX的返回值）或者回調(diào)函數(shù)里的ar得到，你完全沒必要額外的保存到什么地方，更不需要費神的去考慮如何和你的某個異步操作對應起來。說了半天，這個東西有什么用呢？你想怎么用就怎么用唄，發(fā)揮一下你的想象力。比如說，你可以保存這是第幾次操作，或者在多個異步操作之間要同步的時候可以作為信號旗，再或者直接是操作這個異步操作的對象（x.BeginXXX的時候?qū)傳遞到stateObject參數(shù)上）。
第一種用法有點多余，第二種用法有點復雜，第三種我用得最多。因為你很可能在協(xié)一個服務端，而服務段必須能夠響應多個客戶端，這決定了必須用異步。同時，對于多個客戶端必然有多個對象，例如網(wǎng)絡連接的時候可能是Socket。而實際上處理的方法或者協(xié)議是和具體哪個客戶端沒有關聯(lián)的，因此我們只需要一套處理程序就夠了。這個時候第三種用法就很有用處，我們完全可以把代碼寫成這樣：
Sub DataReceived(ByVal ar As IAsyncResult)
ar.AsyncState.EndReceive(ar)
ar.AsyncState.BeginReceive(... , ar.AsyncState)
End Sub
這樣就不需要額外的數(shù)據(jù)結(jié)構去記錄有那些正在活動的對象了。
在標準模塊中寫入以下代碼:
Public Const SYNCHRONIZE = H100000
Public Const INFINITE = HFFFFFFFF
Public Const WAIT_TIMEOUT = H102
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
'Form中
Option Explicit
sub RunExe(FileName as string)
Dim pId As Long, pHnd As Long, ret
pId = Shell(FileName, vbNormalFocus)
pHnd = OpenProcess(SYNCHRONIZE, 0, pId)
If pHnd 0 Then
Do
ret = WaitForSingleObject(pHnd, 0)
DoEvents
Loop While ret = WAIT_TIMEOUT
CloseHandle pHnd
End If
End Sub
'用runexe代替shell函數(shù),如runexe("a.bat")
1.配置SQLServer外圍應用服務器,開啟SQL2005遠程連接功能：
操作方式如下，點擊“配置工具”-“SQLServer外圍應用配置器”，然后在打開的窗口中選擇“服務和連接的外圍應用配置器”-然后選擇Database Engine節(jié)點下的 “遠程連接”，選擇“本地連接和遠程連接”，同時選擇“同時使用TCP/IP和named pipes”，確定后然后需要重新啟動數(shù)據(jù)庫服務就可以了。
2.把登陸設置改為SQLServer 和 Windows 身份驗證模式，具體設置如下:
打開SQLServer Management Studio管理器，點擊服務器上面右鍵然后查看屬性，在安全性選項里面對服務身份驗證選擇“SQLServer 和 Windows 身份驗證模式”。
1.綁定的IP是服務器的IP地址，服務器是固定的，客戶端連接的是一個已知的服務器端。
2.客戶端的話，連接到服務器時，服務器accept后，就可以獲得客戶端的連接信息，包括IP地址和端口。
我是學C的，在C語言中，socket-bind-listen-accept-....，在accept函數(shù)中有選項，如下caddr結(jié)構體中就存有accept后客戶端的IP地址 連接端口和傳輸方式等信息，clientsock[1]則為accept新的描述符，如你程序中soc2一樣 。
clientsock[1] = accept(sfd,(struct sockaddr*)caddr,len);
VB中應該也有類時的函數(shù)，你網(wǎng)上好好找一下，或者看看相關書籍.
a+=1; 這條指令必須在dosomething()方法執(zhí)行完畢返回結(jié)果后才可以執(zhí)行，否則就亂了套
異步：異步概念和同步相對，當一個異步過程調(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í)行設備操作時，若不能獲得資源，則進程掛起直到滿足可操作的條件再進行操作。
run需要一個action方法。
這個方法用于用后臺進程執(zhí)行占用大量CPU的工作，你的for代碼段應該寫在里面。
我沒用過這個，粗略看了一下資料，實際情況與他的實例不太一樣，Dim a As Task(of Boolean)=Await Doo()，直接提示錯誤，正確用法是去掉await。
解決以上兩個問題，測試運行通過。（一個文本框滾數(shù)字，另一個打字無壓力）
其實你的要求，不需要這么高級。多線程應該可以。
重慶分公司
重慶分公司
