源代码:
Dim asyncConnection As IpfcAsyncConnection
Dim cAC As CCpfcAsyncConnection
Dim session As IpfcBaseSession
Set cAC = New CCpfcAsyncConnection
Set asyncConnection = cAC.Start(txtExePath.Text + " -g:no_graphics -i:rpc_input", ".")
Set session = asyncConnection.session