RbBFBlokProjPSIVStrn2006.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrn0 SVerStrnLVerStrnIVerStrnaiviInt DVewInt _prTpInt DLanInt CLanInt DEncInt BflgInt IconGrup5EndGInt 5MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjgNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$6nameStrnMenuBar PValInt H_EndGInt 6VwBhGrup7EndGInt 7CnstGrup8EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup09pltfInt langInt defnStrnCmd+Q EndGInt 9EndGInt 8CnstGrup:EncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0;pltfInt langInt defnStrnE&xit EndGInt ;CInsGrup0pltfInt langInt defnStrn&Delete EndGInt >CInsGrup0?pltfInt langInt defnStrn&Delete EndGInt ?EndGInt =PadnPadnd****************************************************************************************************BlokpVew_4NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnPropGrupT@EncoInt declStrnbs As BinaryStream flagInt CompStrnshrdInt EndGInt @PDefGrup0AnameStrnMenuBar PValStrn 1209032703 EndGInt APDefGrup(BnameStrn MacProcID PValInt EndGInt BPDefGrup4CnameStrn BalloonHelp EncoInt PValStrnEndGInt CPDefGrup0DnameStrnMinimizeButton PValStrnTrueEndGInt DPDefGrup4EnameStrnMaximizeButton PValStrnFalse EndGInt EPDefGrup0FnameStrn LiveResize PValStrnFalse EndGInt FPDefGrup0GnameStrn Resizeable PValStrnFalse EndGInt GPDefGrup,HnameStrn CloseButton PValStrnTrueEndGInt HPDefGrup0InameStrnMenuBarVisible PValStrnTrueEndGInt IPDefGrup0JnameStrn FullScreen PValStrnFalse EndGInt JPDefGrup(KnameStrnVisible PValStrnTrueEndGInt KPDefGrup8LnameStrnTitle EncoInt PValStrnUntitledEndGInt LPDefGrup$MnameStrnBackdropPValStrnEndGInt MPDefGrup(NnameStrn BackColor PValInt EndGInt NPDefGrup0OnameStrn HasBackColorPValStrnFalse EndGInt OPDefGrup0PnameStrn Composite PValStrnFalse EndGInt PPDefGrup$QnameStrnFrame PValInt EndGInt QPDefGrup(RnameStrn MaxHeight PValInt }EndGInt RPDefGrup$SnameStrnMaxWidthPValInt }EndGInt SPDefGrup(TnameStrn MinHeight PValInt @EndGInt TPDefGrup$UnameStrnMinWidthPValInt @EndGInt UPDefGrup$VnameStrnHeight PValInt ,EndGInt VPDefGrup$WnameStrnWidth PValInt ,EndGInt WPDefGrup(XnameStrn Placement PValInt EndGInt XVwBhGrup YVwPrGrup0ZNameStrnNameVsblInt PrGpStrnID EndGInt ZVwPrGrup8[NameStrn Interfaces VsblInt PrGpStrnID EndGInt [VwPrGrup4\NameStrnSuper VsblInt PrGpStrnID EndGInt \VwPrGrup]NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EnumGrup^defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt ^EndGInt ]VwPrGrupH_NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt _VwPrGrupH`NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt `VwPrGrupHaNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt aVwPrGrupLbNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt bVwPrGrupLcNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt cVwPrGrupPdNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt dVwPrGrupeNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EnumGrupPfdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window EndGInt fEndGInt eVwPrGrupTgNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt gVwPrGrupThNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt hVwPrGrupTiNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt iVwPrGrup<jNameStrnBackdropVsblInt PrGpStrn Appearance EndGInt jVwPrGrupPkNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt kVwPrGrupLlNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt lVwPrGrupTmNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt mVwPrGrupTnNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt nVwPrGrupPoNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt oVwPrGrupTpNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt pVwPrGrupTqNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt qVwPrGrupXrNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt rVwPrGrupTsNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt sVwPrGrup@tNameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt tVwPrGrupPuNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt uVwPrGrup<vNameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt vEndGInt YCBhvGrupwSuprStrn TCPSocket HInsGrupxnameStrn DataAvailable CompStrnVsblInt sorcGruphyEncoInt srclStrnSub DataAvailable() srclStrnbs.Write( me.ReadAll ) srclStrnEnd Sub EndGInt yEndGInt xHInsGrupznameStrn Connected CompStrnVsblInt sorcGrup{EncoInt srclStrnSub Connected() srclStrn9bs = DesktopFolder.Child( "Test" ).CreateBinaryFile( "" ) srclStrnEnd Sub EndGInt {EndGInt zHInsGrup|nameStrnError CompStrnVsblInt sorcGrup}EncoInt srclStrn Sub Error() srclStrnbs.ClosesrclStrnsrclStrnMsgBox "Transfer complete" srclStrnEnd Sub EndGInt }EndGInt |EndGInt wCBhvGrup~SuprStrn PushButton HInsGrupnameStrnAction CompStrnVsblInt sorcGrupEncoInt srclStrn Sub Action()srclStrnTCPSocket1.Port = 8080 srclStrnTCPSocket1.Listen srclStrnEnd Sub EndGInt EndGInt EndGInt ~CBhvGrupSuprStrn PushButton HInsGrupxnameStrnAction CompStrnVsblInt sorcGrup0EncoInt srclStrn Sub Action()srclStrn"TCPSocket2.Address = "192.168.0.3" srclStrnTCPSocket2.Port = 8080 srclStrnsrclStrnTCPSocket2.Connect srclStrnsrclStrnAwhile not TCPSocket2.IsConnected and TCPSocket2.LastErrorCode = 0 srclStrnTCPSocket2.Poll srclStrnwendsrclStrnsrclStrn)if not TCPSocket2.IsConnected then return srclStrnsrclStrntry srclStrn6bs = GetOpenFolderItem( "" ).OpenAsBinaryFile( false ) srclStrncatch srclStrnreturn srclStrnend try srclStrnsrclStrn#if TargetWin32 srclStrnZDeclare Function TransmitFile Lib "Mswsock" ( handle as Integer, otherHandle as Integer, _ srclStrnWbytesToWrite as Integer, bytesInSend as Integer, null as Integer, buffers as Integer, _ srclStrnflags as Integer ) as Boolean srclStrnsrclStrnConst TF_DISCONNECT = &h1 srclStrnsrclStrn`MsgBox CStr( TransmitFile( TCPSocket2.Handle, bs.Handle( BinaryStream.HandleTypeWin32Handle ), _srclStrn0, 0, 0, 0, TF_DISCONNECT ) ) srclStrn#endif srclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn TCPSocket EndGInt CtrlGrupcclsStrn TCPSocket nameStrn TCPSocket PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup nameStrnPortPValInt EndGInt PDefGrup0nameStrnAddress EncoInt PValStrnEndGInt PDefGrup nameStrnTop PValInt  EndGInt PDefGrup nameStrnLeftPValInt oEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn TCPSocket EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn TCPSocket1 EndGInt CBixInt EndGInt CtrlGrupcclsStrn PushButton nameStrn PushButton PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup$nameStrnCancel PValStrnEndGInt PDefGrup$nameStrnDefault PValStrnEndGInt PDefGrup8nameStrnCaption EncoInt PValStrnListen EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn1 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn PushButton1 EndGInt CBixInt EndGInt CtrlGrupcclsStrn PushButton nameStrn PushButton PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup$nameStrnCancel PValStrnEndGInt PDefGrup$nameStrnDefault PValStrnEndGInt PDefGrup4nameStrnCaption EncoInt PValStrnSendEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn2 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn PushButton2 EndGInt CBixInt EndGInt CtrlGrupcclsStrn TCPSocket nameStrn TCPSocket PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup nameStrnPortPValInt EndGInt PDefGrup0nameStrnAddress EncoInt PValStrnEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt oEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn3 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn TCPSocket EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn TCPSocket2 EndGInt CBixInt EndGInt PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuH_ NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupOTabGrupContInt eSptInt EndGInt OTabGrupContInt _EndGInt OTabGrupContInt _EndGInt LsLcStrnWindow1.TCPSocket1.ErrorrEdtRect 2EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!