Programming Tool Box

home *** CD-ROM | disk | FTP | other *** search

/ Programming Tool Box / SIMS_2.iso / vb_code1 / ipx_spx / client.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-05-20 | 17KB | 596 lines

Client Client Form1% receiveList exitButton SSCommand E&xit userPicture cancelButton SSCommand Ca&ncel connectButton SSCommand &Connect disconnectButton SSCommand &Disconnect userPictureDrop userAddress userAddressLabel Internet Address userLoginDay userName userLoginTimeLabel Login Time userLoginTime userConnLabel Connection Number userConn About SSCommand &About Rescan SSCommand &Rescan ServerNameBox BinderyObjList Courier Line2 Line1 Label10 File Server: Label2 Object Name List1_Click Form_Click @ Form_Load ccode ScanBinderyObject< searchOName OT_WILD oNameG oTypej oHasProp/ oFlag oSecuritye Command1_Click oNameAsY OT_USER| strippedName/ OT_USER_GROUP OT_PRINT_QUEUEk OT_FILE_SERVER OT_JOB_SERVER OT_GATEWAY OT_PRINT_SERVER OT_ARCHIVE_QUEUE OT_ARCHIVE_SERVER< OT_JOB_QUEUE OT_ADMINISTRATION OT_REMOTE_BRIDGE_SERVER* hasProperties List1 ScanBinderyz List2_Click fileServerName logTime connIDB GetFileServerName newFSName ServerNameBox BinderyObjList( ServerNameBox_Click ListCountv BinderyObjectList prefServer GetConnectionID SetPreferredConnectionID ServerNameBox_DblClick Command3_Click< RescanButton_Click Scanning UnloadT Form2 CloseButton_Click Command2_Click AboutButton_ClickQ Label1_Click MousePointer Form1m DrawLinest CheckDLLVersionss success GetDLLVersion majorVer= minorVerG revLevel betaLevelr False CrLfl BinderyObjList_Click ScreenJ oHasProps OT_NAS_SNA_GATEWAY OT_TIME_SYNCHRONIZATION_SERVER; OT_ARCHIVE_SERVER_DYNAMIC_SAPM OT_ADVERTISING_PRINT_SERVER2 OT_BTRIEVE_VAPd OT_PRINT_QUEUE_USER Codez garbageq requests{ objectType bindery` objects FREDm DLLName expMajorVer expMinorVer expRevLevel& expBetaLevel% expMajVer expMinVer, expRev expBeta expRefY above NWGetDLLVersion NWScanBinderyObject NWGetConnectionID NWGetFileServerName NWSetPreferredConnectionID NWCheckDLLVersions- NWScanObject connK NWGetConnectionHandleQ server Thenserver NWCallsInit@ searchName betaLevelasi Label9_Clicky Label8_Click Label7_Click Label6_Click Label5_Click Label4_Click Label3_Click Label2_Click Label15_Click Label14_Click Label11_Click Label10_Click index. GetConnections Drive1_Change File1_Click file1 Path) Drive1 Dir1_Change drvList_Change dirListF drvList Drive[ dirList_Change+ ListIndexj filList filList_ClickW filList_DragDrop$ source Control Command3D1_Click Exit_Click7 Rescan_Click About_Click BinderyObjList_DragDrop- FileListBox> sendForm fileLabelb fileName TagIndex TabIndex BinderyObjList_DblCLick filList_MouseDown ButtonI Shift/ dragNameK LEFT_BUTTONV SendMessageq LB_GETCURSEL dragFilew filList_MouseMove filList_PathChange oldCursor dragCursor6 LoadCursor hInstance GetWindowWordS GWW_HINSTANCE SetCursor IDC_SIZE filList_DblClick| filList_KeyDown KeyCodeh filList_KeyPressv KeyAsciiK filList_KeyUp LB_DIR DDL_READWRITE DDL_READONLY DDL_HIDDEN DDL_SYSTEM DDL_DIRECTORY DDL_ARCHIVE DDL_POSTMSGS: DDL_DRIVES DDL_EXCLUSIVE fileType! result< fileNamesW userNamed NWGetFileServerInformationc maxConns @ ScanUsers NWGetConnectionInformation[ connection" loginTime objectName objectIDm USER_INFO& EndConns VScroll1_Change dirname ATTR_NORMAL diname remfilList ListBox findFiles inPathF right_button filList_MouseUpS GetDC GetTextMetrics TEXTMETRICm cyChar tmHeight> tmExternalLeading GetWindowRectz ReleaseL bottom ReleaseDC# DragIcon3 temp3 dropfileI image1 Picture Selected LB_FIND_STRING LB_ERR LB_FINDSTRINGG BinderyObjList_MouseMoveB filList_DragOver State BinderyObjList_DragOverV userform NWGetConnectionl netWareUser+ netWareUsersA connNum connNumber nIndexp nwUser formatString nwYear nwMonth nwDay nwTime userPicture_Click: Text2_Change userConn_Click userLoginTimeLabel_Click userLoginTime_Clicky userButton_Click\ userPicture Visible Picture1_Click Picture1_DragDrop, userLoginTime userConn userPictureDrop_Clickg userPictureDrop_DragDropp binderyForm userName_Click nwLoginTime nwConny userLoginDay NWGetInternetAddressR inetAddress Inter InternetAddressM networkA wTime userAddress userPictureDrop_DblClick IPXInitialize TaskId^ maxECBs maxPacketSize macPacketSizew IPXGetMaxPacketSize$ Form_Unload4 Cancel| IPXSPXDeinit aboutFormq netFilerFormp GetIPXSPX InitIPXSPX+ DeInitIPXSPX IPXOpenSocket SocketNumberX shortLivedo listenSocketNumber IPXCloseSocket ThenExit9 IPXSPXInit@ socketNumK AlreadyRunning FirsthWnd FirstChildhWnd FindWindowV Found] another running application class instancec already mustI matchF program& which used7 InitApplication/ InitInstance GetLastActivePopup BringWindowToTopA Bring# mainj windowe active SPXInitialize\ majRevNumber minRevNumberV maxConnections< maxConnAvailable* SPX_INSTALLED title CheckUnique Caption formName Handle ShowWindowB SFocus formN Handz Circle1_ClickIn Circle1_ClickOut Circle1_DragDropN IpxSpx1_Click IpxSpx1_Event_1 IpxSpx1_DragOverL IpxSpx1_DragDrop5 Timer1_Timeru IpxSpx1_Event1 FooInitT ecbForm0 Circle1_DragOver Circle1_RClickIn Circle1_Timer IPXSPX1_ClickIn ipxSpx1_Timer[ Comm1_OnComm~ ipxSpx1 InSocket OutSocketQ sendSocketNumber ipxSpx1_Receivex ipxSpx1_Send Inputb ipxSpx2_Receive ipxSpx1_ListenConnection, ipxSpx1_EstablishConnection ipxSpx1_ConnectionT Received NetEventz ipxSpx1_SpxReceive ipxSpx1_SpxSend ipxSpx1_SpxConnection EndButton_Click7 sendButton_Click= Address netList AddressButton_Click OutputD Text1_Change} Text1_KeyDown Text1_KeyPress MSComm1 PortOpen EchoQ sendBox_Change sendBox_KeyPress receiveBox_Click@ receiveBox" sendBox NWGetConnectionNumber myInetAddress netChatForm connectButton_Click disconnectButton_Click. connectButton Enable disConnectButton Enabled NetDatah IPXSPX_CONNECT IPXSPX_DISCONNECT NetDatn cancelButton_Click IPXSPX_DATA Right ConnectionRequest nwString connectionLabel netChatConnectC netChatConnection subroutine procedure DisconnectionRequest_ netChatDisConnectiong disconnectionLabel SocketString IpxSpxConnect( NetChatStateW BinderyObjList_KeyPress BinderObjList DblClk DblClick connectOkx Defaultj SetFocusEnd nwConnNumber- NetString cancelButton exitButton_Click exitButton networkThen ConnectState DisConnectState+ DataState IPXSPX_SENDCONNECTION IPXSPX_SENDCONN IPXSPX_ IPXSPX_RECEIVECONN netChat connectionOKH FormatInternetAddress inString[ outString InAddress caseIf IPXSPX_SEND receiveBox_Change yourInetAddress& Strin receiveBox_KeyPress_ netVal UserInput receveBox GetCaretPos6 lpPoint POINTAPI NTAPI` WindowState connListBuffer connListSize numConnections NWGetConnectionListn logged< users# ConvertInputToData netChatPtr NetChatData NetChatInput etChatPtr checkSum length headery packetType destination socket netChatPtrf IPXSPX_RECEIVECONNMODALn ipxSpx1_ReceiveData ipxSpx1_SendData RemoteName LocalName userAddress_Click ReceivedFrom ReceivedSocket LinkType ipxSpx1_LinkEventB Channel spx1_LinkEventO spx1_ReceiveData spx1_Send spx1_SendData Client receiveList Terminate LinkAttemptFlag Status LocalName1 FALSEconnectButton Event receiveList_Click userAddressLabel_Click userConnLabel_Click userLoginDay_Click About_Click BinderyObjList_DblCLick pretty print the login timer mm-dd-yyyy pretty print the login date, pretty print the internet addressa Error getting internet addresss The following sets up the remote name, the network, node and socket (&h5454) BinderyObjList_KeyPress cancelButton_Click connectButton_Click Unable to directory to yourself disconnectButton_Click exitButton_Click Form_Load Unable to initialize NWCALLS.DLL REM This is the default anyway change mouse cursor to hourglass scan the bindery of the default server FormatInternetAddress Pretty printing for the hexidecimal network and node addresses GetConnections for each connection in workstation's file server name tabled get the table entry, then see if it's null you have to explicitly look for a null in the first character, because Visual Basic doesn't know about null-terminated strings (a null prints as a space) Rescan_Click same effect as if the user had double-clicked on a file server name RescanButton_Click same effect as if the user had double-clicked on a file server name ScanUsers change mouse cursor to hourglass get the connection handle to our default serverl Unable to get connection and get the connection numbero Unable to get connection number myInetAddress = spx1.LocalNameN get our internet address and put it in a global for use later Unable to get internet address get the maximum number of connections the file server has usedL loop through all the possible connection numbers to geth all the logged in usersu change mouse cursor back to how it was ServerNameBox_DblClick no server selectede then go scan its bindery spx1_LinkEvent Link Error: spx1_ReceiveData spx1_SendData Fired when the packet has been senti userPictureDrop_DblClick