'回调地址，IP，识别索引
Private Declare Sub Ping Lib "Net.dll" (byval BackCall as long , byval IpStr as string,byval KeyId as long)

Private Sub Btn_Click()
	Call Ping(addressof PingBackCall,"125.126.153.144",1)
End Sub

'模块

public sub PingBackCall(byval ms as long,byval keyid as long)
	if keyid = 1 then
		msgbox "a"
	end if
end sub

'DLL

'这是输出函数，主要创建PING的线程
SUB Ping ALIAS "Ping" (BYVAL BackCall AS DWORD ,BYVAL Ipstr AS STRING ,byval KeyId as dword ) EXPORT
    DIM hThread AS DWORD
    gBackCall = BackCall
    gIpstr = Ipstr
	gKeyId = KeyId
    hThread = CreateThread(BYVAL 0,0,CODEPTR(PingProc),0,0,gThreadID)
    SLEEP(30)
    CALL CloseHandle( hThread )
END SUB  

'这里是执行回调和传递参数给VB的 
'类似 Call Vb.PingBackCall(ms,gKeyId)

sub AsmBackCall(byval ms as dword)
	!push gKeyId
	!push ms
	!call gBackCall
end sub

'这里是执行PING的
sub PingProc()
....
	Call AsmBackCall(100) 结果
end sub

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！