【www.gdgbn.com--安卓教程】

<% Option Explicit%>
<%
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte "Integer
ncb_retcode As Byte "Integer
ncb_lsn As Byte "Integer
ncb_num As Byte " Integer
ncb_buffer As Long "String
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte "Integer
ncb_sto As Byte " Integer
ncb_post As Long
ncb_lana_num As Byte "Integer
ncb_cmd_cplt As Byte "Integer
ncb_reserve(9) As Byte " Reserved, must be 0
ncb_event As Long
End Type
Private Type ADAPTER_STATUS
adapter_address(5) As Byte "As String * 6
rev_major As Byte "Integer
reserved0 As Byte "Integer
adapter_type As Byte "Integer
rev_minor As Byte "Integer
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type
Private Type NAME_BUFFER

本文来源:http://www.gdgbn.com/shoujikaifa/7406/