1) Generate a standard EXE file in Visual Basic. Default Create Form1.2) Add a command button to Form1, the default name of Command1.3) Put the following code in the form of Form1.
Option ExplicitPrivate Const NCBASTAT = & H33Private Const NCBNAMSZ = 16Private Const HEAP_ZERO_MEMORY = & H8Private Const HEAP_GENERATE_EXCEPTIONS = & H4Private Const NCBRESET = & H32Private 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 LongEnd TypePrivate 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 i nteger 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 IntegerEnd TypePrivate Type NAME_BUFFER name As String * NcBnamsz name_num as integer name_flags as intendrend typeprivate type astat adApt as adapter_status namebuff (30) as name_bufferend typeprivate declare function netbios lib "Netapi32.dll"
