RbBFBlokProjPSIVStrn2007.03 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn9 Ver3Strn2 RelsStrn1 NnRlStrnRegnStrn0 SVerStrnLVerStrn2005 by Barry TraverIVerStrn-RB Browser/Editor for HTML Language Reference aiviInt DVewInt PßÏÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup>çEndGInt >çMacCStrnBMacStrnDownloader (Classic)BCarStrn Downloader BCMOStrn Downloader BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnDownloader2.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn Downloader PadnPadnX********************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj {ÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnMnuHGrup¨>ènameStrnUntitledCompStrnVsblInt sorcGrup`>éEncoInt srclStrnFunction Untitled() As Boolean srclStrnsrclStrn End FunctionEndGInt >éEndGInt >èPDefGrup$>ênameStrnMenuBar PValInt Z7ÿEndGInt >êVwBhGrup>ëEndGInt >ëCnstGrupœ>ìEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0>ípltfInt langInt defnStrnCmd+Q EndGInt >íEndGInt >ìCnstGrupà>îEncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0>ïpltfInt langInt defnStrnE&xit EndGInt >ïCInsGrup0>ðpltfInt langInt defnStrnE&xit EndGInt >ðEndGInt >îCnstGrupä>ñEncoInt nameStrn kEditClear typeInt defnStrnClear flagInt CInsGrup0>òpltfInt langInt defnStrn&Delete EndGInt >òCInsGrup0>ópltfInt langInt defnStrn&Delete EndGInt >óEndGInt >ñPadnPadn˜********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewPßÏÿœNameStrn TextWindow ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup>ônameStrnResizingCompStrnVsblInt sorcGrupÀ>õEncoInt srclStrnSub Resizing() srclStrn/horizSplit.Top = ListBox1.Top + ListBox1.Height srclStrn8HTMLViewer1.Top = horizSplit.Top + horizSplit.Height + 1srclStrnEnd Sub EndGInt >õEndGInt >ôHInsGrupÄ>önameStrnOpenCompStrnVsblInt sorcGrup€>÷EncoInt srclStrn Sub Open() srclStrnTextWindow.Left = 20srclStrn0TextWIndow.Width = Screen(0).AvailableWidth - 40srclStrnsrclStrnTextWIndow.Top = 50 srclStrn2TextWindow.Height = Screen(0).AvailableHeight - 70 srclStrnsrclStrn@ListBox1.Height = ( TextWindow.Height - horizSplit.Height ) / 2srclStrn$HTMLViewer1.Height = ListBox1.HeightsrclStrnhorizSplit.Height = 5 srclStrnsrclStrn/horizSplit.Top = ListBox1.Top + ListBox1.Height srclStrn8HTMLViewer1.Top = horizSplit.Top + horizSplit.Height + 1srclStrnsrclStrnVeryFirstTIme = TruesrclStrnsrclStrnsrclStrnEnd Sub EndGInt >÷EndGInt >öMethGrupˆ>ønameStrnMyJoin CompStrnVsblInt sorcGrupÌ>ùEncoInt srclStrn?Function MyJoin(sarray() as string, delim as string ) As String srclStrn' Dim delimlen, I As Integer srclStrn' Dim mb As MemoryBlocksrclStrn)' Dim mbloc, mbsize, slen, UB As Integer srclStrn' UB = Ubound (sarray) srclStrn@' 'iterate thru loop once to total up the length of the stringssrclStrn' For I = 0 To UB srclStrn&' mbsize = mbsize + Len (sarray (I) ) srclStrn ' Next I srclStrn<' 'add the number of bytes that the delimiters will take upsrclStrn' delimlen = Len (delim) srclStrn+' mbsize = mbsize + (delimlen * (UB + 1) ) srclStrn' mb = NewMemoryBlock (mbsize) srclStrn' If mb = Nil Then Return "" srclStrn=' 'iterate thru loop again, copying strings into memoryblock srclStrn' For I = 0 To UB srclStrn&' slen = Len (sarray (I) ) + delimlen srclStrn4' mb.StringValue (mbloc, slen) = sarray (I) + delimsrclStrn' mbloc = mbloc + slen srclStrn ' Next I srclStrnH' Return mb.StringValue (0, mbsize - delimlen) ///doing -delimlen chopssrclStrnI' ///off an extra delimiter at the end; if you want the final delimiter, srclStrn' ///comment out at this line srclStrn End FunctionEndGInt >ùEncoInt AlasStrnflagInt shrdInt parmStrn$sarray() as string, delim as string rsltStrnString EndGInt >øMethGrup>únameStrnRemoveDuplicatesCompStrnVsblInt sorcGrupp>ûEncoInt srclStrn)Sub RemoveDuplicates(MyArray() As String) srclStrnDim I, UpperBound1 As Integer srclStrn MyArray.SortsrclStrn UpperBound1 = Ubound ( MyArray )srclStrnFor I = UpperBound1 DownTo 1srclStrn)If MyArray ( I ) = MyArray ( I - 1 ) Then srclStrnMyArray.Remove IsrclStrnEnd If srclStrnNext I srclStrnEnd Sub EndGInt >ûEncoInt AlasStrnflagInt shrdInt parmStrnMyArray() As String rsltStrnEndGInt >úMethGrup(>ünameStrnStartIt CompStrnVsblInt sorcGrup˜>ýEncoInt srclStrn Sub StartIt() srclStrnDIm Pos1 As Integer srclStrnURL1 = Trim (EditField1.Text) srclStrnsrclStrn!If Left(URL1, 7) = "http://" Then srclStrnURL1 = Mid(URl1, 8) srclStrnEnd If srclStrnsrclStrnPos1 = RevInStr(URL1, "/") srclStrnIf Pos1 = 0 ThensrclStrnRootPath = URL1 + "/" srclStrnFileName1 = "" srclStrnElsesrclStrnRootPath = Left (URL1, Pos1)srclStrn FileName1 = Mid (URL1, Pos1 + 1)srclStrnEnd If srclStrn'URL1 = "http://" + RootPath + FileName1 srclStrnsrclStrnHTMLViewer1.LoadURL URL1srclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt >ýEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt >üMethGrup >þnameStrnRevInStrCompStrnVsblInt sorcGrupd>ÿEncoInt srclStrnBFunction RevInStr(String1 As String, String2 As String) As Integer srclStrnDim I As IntegersrclStrnFor I = Len(String1) DownTo 1 srclStrn5If Mid ( String1, I, Len ( String2 ) ) = String2 Then srclStrnReturn IsrclStrnExitsrclStrnEnd If srclStrnNext I srclStrnReturn 0srclStrn End FunctionEndGInt >ÿEncoInt AlasStrnflagInt shrdInt parmStrn$String1 As String, String2 As StringrsltStrnInteger EndGInt >þMethGrup?nameStrnMakeListCompStrnVsblInt sorcGrup„?EncoInt srclStrnSub MakeList() srclStrn.If TitleOfNewPage = "Cannot find server" Then srclStrnListBox1.DeleteAllRows srclStrn3ListBox1.AddRow "Invalid URL or Cannot Find Server" srclStrnExitsrclStrnEnd If srclStrnsrclStrnIf ListAlreadyMade Then ExitsrclStrnsrclStrnTextWindow.Title = URL1srclStrnsrclStrn+/////// If RIght(URL1, 2) = "//" Then Exit srclStrnsrclStrn(DIm I, Pos1, Pos2, Pos3, Pos4 As IntegersrclStrnDIm M, Temp2 As String srclStrn!DIm LeftPart, RightPart As String srclStrnsrclStrnMakingList = True srclStrnsrclStrn!If Left(URL1, 7) = "http://" Then srclStrnURL1 = Mid(URl1, 8) srclStrnEnd If srclStrnsrclStrnPos1 = RevInStr(URL1, "/") srclStrnIf Pos1 = 0 ThensrclStrnRootPath = URL1 + "/" srclStrnFileName1 = "" srclStrnElsesrclStrnRootPath = Left (URL1, Pos1)srclStrn FileName1 = Mid (URL1, Pos1 + 1)srclStrnEnd If srclStrnsrclStrnURL1 = RootPath + FileName1 srclStrnsrclStrn!Dim HTTPSocket1 as New HTTPSocket srclStrn$HTMLText = HTTPSocket1.Get(URL1, 30)srclStrnReDim Array1(-1)srclStrn+HTMLText = ReplaceAll (HTMLText, "= ", "=") srclStrn+HTMLText = ReplaceAll (HTMLText, " =", "=") srclStrnPos1 = 1srclStrnDo srclStrn%Pos2 = InStr(Pos1, HTMLText, "href=") srclStrnIf Pos2 = 0 Then Exit srclStrnPos2 = Pos2 + 1 srclStrn%Pos3 = InStr(Pos2, HTMLText, Chr(34)) srclStrnPos3 = Pos3 + 1 srclStrn%Pos4 = InStr(Pos3, HTMLText, Chr(34)) srclStrn)Temp2 = Mid (HTMLText, Pos3, Pos4 - Pos3) srclStrnM = Lowercase(Left(Temp2, 4)) srclStrn LeftPart = "" srclStrnIf M <> "http" Then srclStrnLeftPart = "http://" + RootPath srclStrnRightPart = Temp2 srclStrnTemp2 = LeftPart + RightPartsrclStrnEnd If srclStrn%Temp2 = ReplaceAll (Temp2, "//", "/") srclStrn/Temp2 = ReplaceAll (Temp2, "http:/", "http://") srclStrn1Temp2 = ReplaceAll (Temp2, "https:/", "https://") srclStrnFIf Left (Temp2, 7) <> "http://" And Left (Temp2, 8) <> "https://" Then srclStrnTemp2 = "http://" +Temp2srclStrnEnd If srclStrnArray1.Append Temp2 srclStrnPos1 = Pos2 + 1 srclStrnLoopsrclStrnPos1 = 1srclStrnDo srclStrn$Pos2 = InStr(Pos1, HTMLText, "src=")srclStrnIf Pos2 = 0 Then Exit srclStrnPos2 = Pos2 + 1 srclStrn%Pos3 = InStr(Pos2, HTMLText, Chr(34)) srclStrnPos3 = Pos3 + 1 srclStrn%Pos4 = InStr(Pos3, HTMLText, Chr(34)) srclStrn)Temp2 = Mid (HTMLText, Pos3, Pos4 - Pos3) srclStrnM = Lowercase(Left(Temp2, 4)) srclStrn LeftPart = "" srclStrnIf M <> "http" Then srclStrnLeftPart = "http://" + RootPath srclStrnRightPart = Temp2 srclStrnTemp2 = LeftPart + RightPartsrclStrnEnd If srclStrn%Temp2 = ReplaceAll (Temp2, "//", "/") srclStrn/Temp2 = ReplaceAll (Temp2, "http:/", "http://") srclStrn1Temp2 = ReplaceAll (Temp2, "https:/", "https://") srclStrnsrclStrnFIf Left (Temp2, 7) <> "http://" And Left (Temp2, 8) <> "https://" Then srclStrnTemp2 = "http://" +Temp2srclStrnEnd If srclStrnsrclStrnArray1.Append Temp2 srclStrnPos1 = Pos2 + 1 srclStrnLoopsrclStrnRemoveDuplicates Array1 srclStrn///// ListBox1.DeleteAllRows srclStrnsrclStrn"If Left(URL1, 7) <> "http://" Then srclStrnURL1 = "http://" + URL1 srclStrnEnd If srclStrnsrclStrn@ListBox1.AddRow "Double-click on any item below to download it."srclStrnListBox1.AddRow "" srclStrnsrclStrn$//// If Right(URL1, 2) <> "//" ThensrclStrnListBox1.AddRow URL1srclStrnListBox1.AddRow "" srclStrn ///// End If srclStrnFor I = 0 to UBound(Array1) srclStrnListBox1.AddRow Array1(I) srclStrnNext I srclStrnListBox1.ScrollPosition = 0 srclStrnsrclStrnMakingList = False srclStrnListAlreadyMade = True srclStrnsrclStrnsrclStrnEnd Sub EndGInt ?EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt ?MethGrupÈ?nameStrn PrintList CompStrnVsblInt sorcGrup$?EncoInt srclStrnSub PrintList(lb As ListBox)srclStrn)'/ Name of Routine: PrintResultsListBox srclStrn '/ Location: srclStrn'/ Programmer: srclStrn'/ Date: 8/11/2007srclStrnDim g As Graphics srclStrnDim I, LastRow As Integer srclStrn%Dim LeftMargin As Integer = 1.25 * 72 srclStrnDim LineSpacing As Integer srclStrnDim p As PrinterSetup srclStrn!Dim TopMargin As Integer = 1 * 72 srclStrnDim X, Y, yStart As Integer srclStrn(/// Procedure Header For PrintListBox()srclStrn"/// Name of Routine: PrintSource srclStrn3/// Programmer: "CV" ("Jack") on the RB mail list srclStrn/// Date Added: 9/21/2005 srclStrn/// srclStrnp = New PrinterSetupsrclStrng = OpenPrinter ( p ) srclStrnLineSpacing = g.TextHeight srclStrn#X = LeftMargin - Abs ( p.PageLeft ) srclStrn5yStart = TopMargin - Abs ( p.PageTop ) + g.TextAscent srclStrn Y = yStart srclStrn/////////g.DrawString ResultsTopLabel.Text, X, Y srclStrnY = Y + LineSpacing srclStrng.DrawString "", X, Y srclStrnY = Y + LineSpacing srclStrnLastRow = lb.ListCount - 1 srclStrnFor I = 0 To LastRowsrclStrnIf Y > p.Height ThensrclStrn g.NextPage srclStrn Y = yStart srclStrnEnd If srclStrn!g.DrawString lb.List ( I ) , X, Y srclStrnY = Y + LineSpacing srclStrnNext I srclStrng = Nil srclStrn8Exception 'srclStrn=MsgBox "An error occurred in Window1.PrintResultsListBox." ' srclStrnEnd Sub EndGInt ?EncoInt AlasStrnflagInt shrdInt parmStrn lb As ListBox rsltStrnEndGInt ?PropGrupT?EncoInt declStrnHTMLText As String flagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLines() As String flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnURLToDownload As String flagInt CompStrnshrdInt EndGInt ?PropGrupP?EncoInt declStrnURL1 As String flagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnRootPath As String flagInt CompStrnshrdInt EndGInt ?PropGrupT? EncoInt declStrnFIleName1 As String flagInt CompStrnshrdInt EndGInt ? PropGrupT? EncoInt declStrnArray1() As String flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnMakingList As Boolean flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnClickableLink As String flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnTitleUseful As Boolean flagInt CompStrnshrdInt EndGInt ? PropGrupX?EncoInt declStrnTitleOfNewPage As StringflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLastStatus As StringflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLastTitle As String flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnInvalidURL As Boolean flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnFirstDownload As BooleanflagInt CompStrnshrdInt EndGInt ?PropGrup\?EncoInt declStrnListAlreadyMade As Boolean flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnVeryFirstTime As BooleanflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnURLHolder As String flagInt CompStrnshrdInt EndGInt ?PropGrup\?EncoInt declStrnCannotFindServer As Boolean flagInt CompStrnshrdInt EndGInt ?PDefGrup0?nameStrnMenuBar PValStrn 542783487 EndGInt ?PDefGrup(?nameStrn MacProcID PValInt EndGInt ?PDefGrup4?nameStrn BalloonHelp EncoInt PValStrnEndGInt ?PDefGrup0?nameStrnMinimizeButton PValStrnTrueEndGInt ?PDefGrup0?nameStrnMaximizeButton PValStrnTrueEndGInt ?PDefGrup0?nameStrn LiveResize PValStrnFalse EndGInt ?PDefGrup,?nameStrn Resizeable PValStrnTrueEndGInt ?PDefGrup,?nameStrn CloseButton PValStrnTrueEndGInt ?PDefGrup0?nameStrnMenuBarVisible PValStrnTrueEndGInt ?PDefGrup0? nameStrn FullScreen PValStrnFalse EndGInt ? PDefGrup(?!nameStrnVisible PValStrnTrueEndGInt ?!PDefGruph?"nameStrnTitle EncoInt PValStrn7Downloaderby Barry Traver (with help from Steve Garman) EndGInt ?"PDefGrup$?#nameStrnBackdropPValStrnEndGInt ?#PDefGrup(?$nameStrn BackColor PValInt ÿÿÿEndGInt ?$PDefGrup0?%nameStrn HasBackColorPValStrnFalse EndGInt ?%PDefGrup,?&nameStrn Composite PValStrnTrueEndGInt ?&PDefGrup$?'nameStrnFrame PValInt EndGInt ?'PDefGrup(?(nameStrn MaxHeight PValInt }EndGInt ?(PDefGrup$?)nameStrnMaxWidthPValInt }EndGInt ?)PDefGrup(?*nameStrn MinHeight PValInt @EndGInt ?*PDefGrup$?+nameStrnMinWidthPValInt @EndGInt ?+PDefGrup$?,nameStrnHeight PValInt 7EndGInt ?,PDefGrup$?-nameStrnWidth PValInt ŽEndGInt ?-PDefGrup(?.nameStrn Placement PValInt EndGInt ?.VwBhGrup?/VwPrGrupD?0NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt ?0VwPrGrupL?1NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt ?1VwPrGrupH?2NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt ?2VwPrGrup0?3NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”?4defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt ?4EndGInt ?3VwPrGrupp?5NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt ?5VwPrGrupp?6NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt ?6VwPrGrupp?7NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ?7VwPrGrupt?8NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ?8VwPrGrupt?9NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt ?9VwPrGrupx?:NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt ?:VwPrGrup ?;NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp?NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?>VwPrGrup|??NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt ??VwPrGrupx?@NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt ?@VwPrGrupx?ANameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt ?AVwPrGrupt?BNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?BVwPrGrup|?CNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?CVwPrGrup|?DNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?DVwPrGrupx?ENameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?EVwPrGrup|?FNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?FVwPrGrupx?GNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?GVwPrGrup€?HNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?HVwPrGrup|?INameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?IVwPrGruph?JNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt ?JVwPrGrupx?KNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt ?KVwPrGrupx?LNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt ?LVwPrGrup\?MNameStrnHTMLTextPrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?MVwPrGrupd?NNameStrn URLToDownload PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?NVwPrGrupX?ONameStrnURL1PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?OVwPrGrup\?PNameStrnRootPathPrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?PVwPrGrup`?QNameStrn FIleName1 PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?QVwPrGrupT?RNameStrn MakingList PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?RVwPrGrupd?SNameStrn ClickableLink PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?SVwPrGrupT?TNameStrn TitleUseful PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?TVwPrGrupd?UNameStrnTitleOfNewPage PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?UVwPrGrup`?VNameStrn LastStatus PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?VVwPrGrup`?WNameStrn LastTitle PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?WVwPrGrupT?XNameStrn InvalidURL PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?XVwPrGrupX?YNameStrn FirstDownload PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?YVwPrGrup`?ZNameStrn URLHolder PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?ZVwPrGrupX?[NameStrnListAlreadyMade PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?[VwPrGrupX?\NameStrn VeryFirstTime PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?\VwPrGrupX?]NameStrnCannotFindServerPrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?]EndGInt ?/CBhvGrup \?^SuprStrn HTMLViewer HInsGrupD?_nameStrnDocumentCompleteCompStrnVsblInt sorcGrupô?`EncoInt srclStrn#Sub DocumentComplete(URL as String) srclStrnIf MakingList = True Then Exit srclStrn#If ListAlreadyMade = True Then Exit srclStrnMakeListsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt ?`EndGInt ?_HInsGrupä?anameStrn TitleChangedCompStrnVsblInt sorcGrup˜?bEncoInt srclStrn$Sub TitleChanged(newTitle as String)srclStrn!If LastTitle = newTitle Then Exit srclStrnsrclStrnIf TItleUseful = True Then srclStrnsrclStrn'If Left (newTitle, 7) <> "http://" Then srclStrnTItleOfNewPage = newTitle srclStrnEnd If srclStrnsrclStrnEnd If srclStrnsrclStrnLastTitle = newTitlesrclStrnsrclStrnsrclStrnEnd Sub EndGInt ?bEndGInt ?aHInsGruph?cnameStrn StatusChanged CompStrnVsblInt sorcGrup?dEncoInt srclStrn&Sub StatusChanged(newStatus as String) srclStrnIf InvalidURL = True Then srclStrnHTMLViewer1.Cancel srclStrnExitsrclStrnEnd If srclStrnsrclStrnIf VeryFirstTime = True ThensrclStrnVeryFirstTime = False srclStrnExitsrclStrnEnd If srclStrnsrclStrn0If LastStatus = newStatus Or newStatus = "" ThensrclStrnExitsrclStrnEnd If srclStrnsrclStrnIf MakingList = True Then Exit srclStrnsrclStrn&If Left(newStatus, 7) = "http://" Then srclStrnClickableLink = newStatus srclStrnEnd If srclStrnsrclStrn-If Left(newStatus, 13) = "Opening Page " Then srclStrnTitleUseful = True srclStrnEnd If srclStrnsrclStrnLastStatus = newStatus srclStrnsrclStrnEnd Sub EndGInt ?dEndGInt ?cHInsGrupP?enameStrn DocumentBegin CompStrnVsblInt sorcGrup?fEncoInt srclStrn Sub DocumentBegin(URL as String)srclStrnURLToDownload = URL srclStrnsrclStrnIf URL = ClickableLink Then srclStrn URL1 = URL srclStrnListAlreadyMade = False srclStrnTitleOfNewPage = "" srclStrnListBox1.DeleteAllRows srclStrnsrclStrnsrclStrnElsesrclStrnHTMLViewer1.Cancel srclStrnEnd If srclStrnsrclStrnTitleUseful = False srclStrnsrclStrnInvalidURL = False srclStrnsrclStrnURLHolder = URL srclStrnEnd Sub EndGInt ?fEndGInt ?eEndGInt ?^CBhvGrup P?gSuprStrnCanvas HInsGrupÔ?hnameStrn MouseDown CompStrnVsblInt sorcGrupˆ?iEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrn Return True srclStrn End FunctionEndGInt ?iEndGInt ?hHInsGrupD?jnameStrnPaint CompStrnVsblInt sorcGrupü?kEncoInt srclStrnSub Paint(g As Graphics)srclStrng.ForeColor = FillColor srclStrng.FillRect 0,0,g.Width,g.Height srclStrng.ForeColor = DarkTingeColorsrclStrng.DrawLine 0,0,g.Width,0srclStrng.DrawLine 0,0, 0, g.Height srclStrng.ForeColor = LightTingeColor srclStrn*g.DrawLine 0,g.Height-1,g.Width,g.Height-1 srclStrn)g.DrawLine g.Width-1,0,g.Width-1,g.Height srclStrn<' Draw a little handle at the middle of the splitter region.srclStrnDim x,y As Integer srclStrn If Me.Active And Me.Enabled ThensrclStrnx = Me.Width / 2srclStrny = Me.Height / 2 srclStrng.Pixel(x+4,y) = DarkBevelColor srclStrn"g.Pixel(x+5,y+1) = LightBevelColor srclStrng.Pixel(x+8,y) = DarkBevelColor srclStrn"g.Pixel(x+9,y+1) = LightBevelColor srclStrng.Pixel(x-4,y) = DarkBevelColor srclStrn"g.Pixel(x-3,y+1) = LightBevelColor srclStrng.Pixel(x-8,y) = DarkBevelColor srclStrn"g.Pixel(x-7,y+1) = LightBevelColor srclStrnEnd If srclStrnEnd Sub EndGInt ?kEndGInt ?jHInsGrupÀ?lnameStrnOpenCompStrnVsblInt sorcGrup|?mEncoInt srclStrn Sub Open() srclStrn2me.MouseCursor = System.Cursors.SplitterNorthSouth srclStrnEnd Sub EndGInt ?mEndGInt ?lHInsGrup¸?nnameStrnMouseUp CompStrnVsblInt sorcGrupp?oEncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrn me.Refresh srclStrnEnd Sub EndGInt ?oEndGInt ?nHInsGrup0?pnameStrn MouseDrag CompStrnVsblInt sorcGrupä?qEncoInt srclStrn)Sub MouseDrag(X As Integer, Y As Integer) srclStrnDim tp As Integer srclStrn tp = Self.MouseY - Me.Height / 2srclStrntp = max(tp,ListBox1.Top + 20 ) srclStrnBtp = min(tp,HTMLViewer1.Top + HTMLViewer1.Height - 20 - me.Height) srclStrn Me.Top = tp srclStrn'ListBox1.Height = Me.top - ListBox1.Top srclStrn(HTMLViewer1.Top = Me.Top + Me.Height + 1srclStrn2HTMLViewer1.Height = Self.Height - HTMLViewer1.Top srclStrnEnd Sub EndGInt ?qEndGInt ?pEndGInt ?gCBhvGrup?rSuprStrn EditField EndGInt ?rCBhvGrupX?sSuprStrnListBox HInsGrup(?tnameStrn DoubleClick CompStrnVsblInt sorcGrupÜ?uEncoInt srclStrnSub DoubleClick() srclStrnDim Temp1 As String srclStrnJ' If ListBox1.Text = "" Or Left(ListBox1.Text, 13) = "Double-click " Then srclStrn' Exit srclStrn ' End If srclStrnDim http as New HTTPSocket srclStrnDim DefaultFile As String srclStrnURLToDownload = ListBox1.Text srclStrnDim I As IntegersrclStrnDim f As FolderItem srclStrn#For I = Len(URLToDownload) DownTo 1 srclStrn&If Mid(URLToDownload, I, 1) = "/" Then srclStrn(DefaultFile = Mid (URLToDownload, I + 1)srclStrnExitsrclStrnEnd If srclStrnNext I srclStrnTemp1 = DefaultFile srclStrn)If "http://" + Temp1 = URLToDownload Then srclStrnDefaultFile = "index.html" srclStrnEnd If srclStrn3If DefaultFile = "" Then DefaultFile = "index.html" srclStrn.DefaultFile = ReplaceAll(DefaultFile, "?", "") srclStrn'f = GetSaveFolderItem ("", DefaultFile) srclStrnhttp.Get URLToDownload, f srclStrnEnd Sub EndGInt ?uEndGInt ?tEndGInt ?sCBhvGrup?vSuprStrn StaticText EndGInt ?vCBhvGrup4?wSuprStrn PushButton HInsGrup?xnameStrnAction CompStrnVsblInt sorcGrup¸?yEncoInt srclStrn Sub Action()srclStrnListAlreadyMade = False srclStrnListBox1.DeleteAllRows srclStrnTitleOfNewPage = "" srclStrnStartIt srclStrnEnd Sub EndGInt ?yEndGInt ?xEndGInt ?wCtrlGrup?zcclsStrn HTMLViewer nameStrn HTMLViewer PDefGrup(?{nameStrnEnabled PValStrnTrueEndGInt ?{PDefGrup0?|nameStrnAutoDeactivate PValStrnTrueEndGInt ?|PDefGrup0?}nameStrnHelpTag EncoInt PValStrnEndGInt ?}PDefGrup(?~nameStrnVisible PValStrnTrueEndGInt ?~PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup,?€nameStrn TabPanelIndex PValInt EndGInt ?€PDefGrup,?nameStrn LockBottom PValStrnTrueEndGInt ?PDefGrup,?‚nameStrn LockRight PValStrnTrueEndGInt ?‚PDefGrup(?ƒnameStrnLockTop PValStrnTrueEndGInt ?ƒPDefGrup(?„nameStrnLockLeftPValStrnTrueEndGInt ?„PDefGrup$?…nameStrnHeight PValInt EndGInt ?…PDefGrup$?†nameStrnWidth PValInt ŽEndGInt ?†PDefGrup ?‡nameStrnTop PValInt šEndGInt ?‡PDefGrup ?ˆnameStrnLeftPValInt EndGInt ?ˆPDefGrup8?‰nameStrn ControlOrderEncoInt PValStrn0 EndGInt ?‰PDefGrup<?ŠnameStrnSuper EncoInt PValStrn HTMLViewer EndGInt ?ŠPDefGrup$?‹nameStrnIndex PValInt €EndGInt ?‹PDefGrup8?ŒnameStrnNameEncoInt PValStrn HTMLViewer1 EndGInt ?ŒCBixInt EndGInt ?zCtrlGrup8?cclsStrnCanvas nameStrnCanvas PDefGrup8?ŽnameStrn InitialParent EncoInt PValStrnEndGInt ?ŽPDefGrup0?nameStrnEraseBackground PValStrnTrueEndGInt ?PDefGrup(?nameStrn AcceptTabs PValStrnEndGInt ?PDefGrup(?‘nameStrn AcceptFocus PValStrnEndGInt ?‘PDefGrup$?’nameStrnBackdropPValStrnEndGInt ?’PDefGrup,?“nameStrn UseFocusRingPValStrnTrueEndGInt ?“PDefGrup(?”nameStrnEnabled PValStrnTrueEndGInt ?”PDefGrup0?•nameStrnAutoDeactivate PValStrnTrueEndGInt ?•PDefGrup0?–nameStrnHelpTag EncoInt PValStrnEndGInt ?–PDefGrup(?—nameStrnVisible PValStrnTrueEndGInt ?—PDefGrup,?˜nameStrn TabPanelIndex PValInt EndGInt ?˜PDefGrup(?™nameStrn LockBottom PValStrnEndGInt ?™PDefGrup,?šnameStrn LockRight PValStrnTrueEndGInt ?šPDefGrup$?›nameStrnLockTop PValStrnEndGInt ?›PDefGrup(?œnameStrnLockLeftPValStrnTrueEndGInt ?œPDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$?žnameStrnWidth PValInt ŽEndGInt ?žPDefGrup ?ŸnameStrnTop PValInt ”EndGInt ?ŸPDefGrup ? nameStrnLeftPValInt EndGInt ? PDefGrup8?¡nameStrn ControlOrderEncoInt PValStrn1 EndGInt ?¡PDefGrup8?¢nameStrnSuper EncoInt PValStrnCanvas EndGInt ?¢PDefGrup$?£nameStrnIndex PValInt €EndGInt ?£PDefGrup8?¤nameStrnNameEncoInt PValStrn horizSplit EndGInt ?¤CBixInt EndGInt ?CtrlGrup ?¥cclsStrn EditField nameStrn EditField PDefGrup8?¦nameStrn InitialParent EncoInt PValStrnEndGInt ?¦PDefGrup4?§nameStrn DataField EncoInt PValStrnEndGInt ?§PDefGrup4?¨nameStrn DataSource EncoInt PValStrnEndGInt ?¨PDefGrup(?©nameStrn Alignment PValInt EndGInt ?©PDefGrup(?ªnameStrn AcceptTabs PValStrnEndGInt ?ªPDefGrup(?«nameStrn LimitText PValInt EndGInt ?«PDefGrup$?¬nameStrnReadOnlyPValStrnEndGInt ?¬PDefGrup,?­nameStrnMaskEncoInt PValStrnEndGInt ?­PDefGrup<?®nameStrnTextEncoInt PValStrnrealsoftware.comEndGInt ?®PDefGrup(?¯nameStrn Underline PValStrnEndGInt ?¯PDefGrup$?°nameStrnItalic PValStrnEndGInt ?°PDefGrup ?±nameStrnBoldPValStrnEndGInt ?±PDefGrup$?²nameStrnTextSizePValInt EndGInt ?²PDefGrup8?³nameStrnTextFontEncoInt PValStrnSystem EndGInt ?³PDefGrup0?´nameStrnAutoDeactivate PValStrnTrueEndGInt ?´PDefGrup0?µnameStrnHelpTag EncoInt PValStrnEndGInt ?µPDefGrup(?¶nameStrnVisible PValStrnTrueEndGInt ?¶PDefGrup0?·nameStrnFormat EncoInt PValStrnEndGInt ?·PDefGrup(?¸nameStrnEnabled PValStrnTrueEndGInt ?¸PDefGrup(?¹nameStrn BackColor PValInt ÿÿÿEndGInt ?¹PDefGrup(?ºnameStrn TextColor PValInt EndGInt ?ºPDefGrup,?»nameStrn UseFocusRingPValStrnTrueEndGInt ?»PDefGrup$?¼nameStrnPasswordPValStrnEndGInt ?¼PDefGrup$?½nameStrnStyled PValStrnEndGInt ?½PDefGrup4?¾nameStrnScrollbarVertical PValStrnTrueEndGInt ?¾PDefGrup0?¿nameStrnScrollbarHorizontal PValStrnEndGInt ?¿PDefGrup(?ÀnameStrn Multiline PValStrnEndGInt ?ÀPDefGrup(?ÁnameStrnBorder PValStrnTrueEndGInt ?ÁPDefGrup,?ÂnameStrn TabPanelIndex PValInt EndGInt ?ÂPDefGrup(?ÃnameStrn LockBottom PValStrnEndGInt ?ÃPDefGrup,?ÄnameStrn LockRight PValStrnTrueEndGInt ?ÄPDefGrup(?ÅnameStrnLockTop PValStrnTrueEndGInt ?ÅPDefGrup(?ÆnameStrnLockLeftPValStrnTrueEndGInt ?ÆPDefGrup$?ÇnameStrnHeight PValInt #EndGInt ?ÇPDefGrup$?ÈnameStrnWidth PValInt ãEndGInt ?ÈPDefGrup ?ÉnameStrnTop PValInt EndGInt ?ÉPDefGrup ?ÊnameStrnLeftPValInt KEndGInt ?ÊPDefGrup8?ËnameStrn ControlOrderEncoInt PValStrn2 EndGInt ?ËPDefGrup<?ÌnameStrnSuper EncoInt PValStrn EditField EndGInt ?ÌPDefGrup$?ÍnameStrnIndex PValInt €EndGInt ?ÍPDefGrup8?ÎnameStrnNameEncoInt PValStrn EditField1 EndGInt ?ÎCBixInt EndGInt ?¥CtrlGrup 4?ÏcclsStrnListBox nameStrnListBox PDefGrup8?ÐnameStrn InitialParent EncoInt PValStrnEndGInt ?ÐPDefGrup4?ÑnameStrn DataField EncoInt PValStrnEndGInt ?ÑPDefGrup4?ÒnameStrn DataSource EncoInt PValStrnEndGInt ?ÒPDefGrup4?ÓnameStrnAutoHideScrollbars PValStrnTrueEndGInt ?ÓPDefGrup,?ÔnameStrnColumnsResizablePValStrnEndGInt ?ÔPDefGrup,?ÕnameStrn SelectionType PValInt EndGInt ?ÕPDefGrup0?ÖnameStrnRequiresSelection PValStrnEndGInt ?ÖPDefGrup0?×nameStrnEnableDragReorder PValStrnEndGInt ?×PDefGrup(?ØnameStrn EnableDrag PValStrnEndGInt ?ØPDefGrup(?ÙnameStrn HierarchicalPValStrnEndGInt ?ÙPDefGrup(?ÚnameStrn Underline PValStrnEndGInt ?ÚPDefGrup$?ÛnameStrnItalic PValStrnEndGInt ?ÛPDefGrup ?ÜnameStrnBoldPValStrnEndGInt ?ÜPDefGrup$?ÝnameStrnTextSizePValInt EndGInt ?ÝPDefGrup8?ÞnameStrnTextFontEncoInt PValStrnSystem EndGInt ?ÞPDefGrup,?ßnameStrn _ScrollOffset PValInt EndGInt ?ßPDefGrup(?ànameStrn _ScrollWidthPValInt ÿÿÿÿEndGInt ?àPDefGrup,?ánameStrnDefaultRowHeightPValInt ÿÿÿÿEndGInt ?áPDefGrup0?ânameStrnGridLinesVertical PValInt EndGInt ?âPDefGrup0?ãnameStrnGridLinesHorizontal PValInt EndGInt ?ãPDefGrup4?änameStrnScrollBarVertical PValStrnTrueEndGInt ?äPDefGrup0?ånameStrnScrollbarHorizontal PValStrnEndGInt ?åPDefGrup(?ænameStrn HeadingIndexPValInt ÿÿÿÿEndGInt ?æPDefGrup4?çnameStrn InitialValueEncoInt PValStrnEndGInt ?çPDefGrup,?ènameStrn UseFocusRingPValStrnTrueEndGInt ?èPDefGrup(?énameStrn HasHeading PValStrnEndGInt ?éPDefGrup4?ênameStrn ColumnWidthsEncoInt PValStrnEndGInt ?êPDefGrup(?ënameStrn ColumnCount PValInt EndGInt ?ëPDefGrup(?ìnameStrnEnabled PValStrnTrueEndGInt ?ìPDefGrup0?ínameStrnAutoDeactivate PValStrnTrueEndGInt ?íPDefGrup0?înameStrnHelpTag EncoInt PValStrnEndGInt ?îPDefGrup(?ïnameStrnVisible PValStrnTrueEndGInt ?ïPDefGrup,?ðnameStrn TabPanelIndex PValInt EndGInt ?ðPDefGrup(?ñnameStrn LockBottom PValStrnEndGInt ?ñPDefGrup,?ònameStrn LockRight PValStrnTrueEndGInt ?òPDefGrup(?ónameStrnLockTop PValStrnTrueEndGInt ?óPDefGrup(?ônameStrnLockLeftPValStrnTrueEndGInt ?ôPDefGrup$?õnameStrnHeight PValInt nEndGInt ?õPDefGrup$?önameStrnWidth PValInt ŽEndGInt ?öPDefGrup ?÷nameStrnTop PValInt 0EndGInt ?÷PDefGrup ?ønameStrnLeftPValInt EndGInt ?øPDefGrup8?ùnameStrn ControlOrderEncoInt PValStrn3 EndGInt ?ùPDefGrup8?únameStrnSuper EncoInt PValStrnListBox EndGInt ?úPDefGrup$?ûnameStrnIndex PValInt €EndGInt ?ûPDefGrup4?ünameStrnNameEncoInt PValStrnListBox1EndGInt ?üCBixInt EndGInt ?ÏCtrlGrupÜ?ýcclsStrn StaticText nameStrn StaticText PDefGrup8?þnameStrn InitialParent EncoInt PValStrnEndGInt ?þPDefGrup4?ÿnameStrn DataField EncoInt PValStrnEndGInt ?ÿPDefGrup4@nameStrn DataSource EncoInt PValStrnEndGInt @PDefGrup(@nameStrn Underline PValStrnEndGInt @PDefGrup$@nameStrnItalic PValStrnEndGInt @PDefGrup @nameStrnBoldPValStrnEndGInt @PDefGrup$@nameStrnTextSizePValInt EndGInt @PDefGrup8@nameStrnTextFontEncoInt PValStrnSystem EndGInt @PDefGrup0@nameStrnAutoDeactivate PValStrnTrueEndGInt @PDefGrup0@nameStrnHelpTag EncoInt PValStrnEndGInt @PDefGrup(@nameStrnVisible PValStrnTrueEndGInt @PDefGrup(@ nameStrnEnabled PValStrnTrueEndGInt @ PDefGrup(@ nameStrn Multiline PValStrnEndGInt @ PDefGrup(@ nameStrn TextColor PValInt EndGInt @ PDefGrup(@ nameStrn TextAlign PValInt EndGInt @ PDefGrup0@ nameStrnTextEncoInt PValStrnURL:EndGInt @ PDefGrup,@nameStrn TabPanelIndex PValInt EndGInt @PDefGrup(@nameStrn LockBottom PValStrnEndGInt @PDefGrup(@nameStrn LockRight PValStrnEndGInt @PDefGrup(@nameStrnLockTop PValStrnTrueEndGInt @PDefGrup(@nameStrnLockLeftPValStrnTrueEndGInt @PDefGrup$@nameStrnHeight PValInt #EndGInt @PDefGrup$@nameStrnWidth PValInt +EndGInt @PDefGrup @nameStrnTop PValInt EndGInt @PDefGrup @nameStrnLeftPValInt EndGInt @PDefGrup8@nameStrn ControlOrderEncoInt PValStrn4 EndGInt @PDefGrup<@nameStrnSuper EncoInt PValStrn StaticText EndGInt @PDefGrup$@nameStrnIndex PValInt €EndGInt @PDefGrup8@nameStrnNameEncoInt PValStrn StaticText1 EndGInt @CBixInt EndGInt ?ýCtrlGrup@cclsStrn PushButton nameStrn PushButton PDefGrup8@nameStrn InitialParent EncoInt PValStrnEndGInt @PDefGrup(@nameStrn Underline PValStrnEndGInt @PDefGrup$@nameStrnItalic PValStrnEndGInt @PDefGrup @nameStrnBoldPValStrnEndGInt @PDefGrup$@ nameStrnTextSizePValInt EndGInt @ PDefGrup8@!nameStrnTextFontEncoInt PValStrnSystem EndGInt @!PDefGrup0@"nameStrnAutoDeactivate PValStrnTrueEndGInt @"PDefGrup0@#nameStrnHelpTag EncoInt PValStrnEndGInt @#PDefGrup(@$nameStrnVisible PValStrnTrueEndGInt @$PDefGrup(@%nameStrnEnabled PValStrnTrueEndGInt @%PDefGrup$@&nameStrnCancel PValStrnEndGInt @&PDefGrup(@'nameStrnDefault PValStrnTrueEndGInt @'PDefGrup4@(nameStrnCaption EncoInt PValStrnGo! EndGInt @(PDefGrup,@)nameStrn TabPanelIndex PValInt EndGInt @)PDefGrup(@*nameStrn LockBottom PValStrnEndGInt @*PDefGrup,@+nameStrn LockRight PValStrnTrueEndGInt @+PDefGrup(@,nameStrnLockTop PValStrnTrueEndGInt @,PDefGrup$@-nameStrnLockLeftPValStrnEndGInt @-PDefGrup$@.nameStrnHeight PValInt #EndGInt @.PDefGrup$@/nameStrnWidth PValInt 5EndGInt @/PDefGrup @0nameStrnTop PValInt EndGInt @0PDefGrup @1nameStrnLeftPValInt EEndGInt @1PDefGrup8@2nameStrn ControlOrderEncoInt PValStrn5 EndGInt @2PDefGrup<@3nameStrnSuper EncoInt PValStrn PushButton EndGInt @3PDefGrup$@4nameStrnIndex PValInt €EndGInt @4PDefGrup8@5nameStrnNameEncoInt PValStrn PushButton1 EndGInt @5CBixInt EndGInt @PadnPadnØ************************************************************************************************************************************************************************************************************************BlokpFTymÿNameStrn FileTypes1 ContInt paswStrnfTypGrupt@6nameStrnTextMacCStrn????typeStrnTEXTdefnStrn.html; .htm; .css; .xml flagInt NameStrnTEXTEndGInt @6PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewO3çÿNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup$@7nameStrnMenuBar PValStrnEndGInt @7PDefGrup(@8nameStrn MacProcID PValInt EndGInt @8PDefGrup4@9nameStrn BalloonHelp EncoInt PValStrnEndGInt @9PDefGrup0@:nameStrnMinimizeButton PValStrnTrueEndGInt @:PDefGrup4@;nameStrnMaximizeButton PValStrnFalse EndGInt @;PDefGrup,@nameStrn CloseButton PValStrnTrueEndGInt @>PDefGrup0@?nameStrnMenuBarVisible PValStrnTrueEndGInt @?PDefGrup0@@nameStrn FullScreen PValStrnFalse EndGInt @@PDefGrup(@AnameStrnVisible PValStrnTrueEndGInt @APDefGrup8@BnameStrnTitle EncoInt PValStrnUntitledEndGInt @BPDefGrup$@CnameStrnBackdropPValStrnEndGInt @CPDefGrup(@DnameStrn BackColor PValInt ÿÿÿEndGInt @DPDefGrup0@EnameStrn HasBackColorPValStrnFalse EndGInt @EPDefGrup0@FnameStrn Composite PValStrnFalse EndGInt @FPDefGrup$@GnameStrnFrame PValInt EndGInt @GPDefGrup(@HnameStrn MaxHeight PValInt }EndGInt @HPDefGrup$@InameStrnMaxWidthPValInt }EndGInt @IPDefGrup(@JnameStrn MinHeight PValInt @EndGInt @JPDefGrup$@KnameStrnMinWidthPValInt @EndGInt @KPDefGrup$@LnameStrnHeight PValInt ,EndGInt @LPDefGrup$@MnameStrnWidth PValInt ,EndGInt @MPDefGrup(@NnameStrn Placement PValInt EndGInt @NVwBhGrupà@OVwPrGrupD@PNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt @PVwPrGrupL@QNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt @QVwPrGrupH@RNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt @RVwPrGrup0@SNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”@TdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt @TEndGInt @SVwPrGrupp@UNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @UVwPrGrupp@VNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @VVwPrGrupp@WNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @WVwPrGrupt@XNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @XVwPrGrupt@YNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @YVwPrGrupx@ZNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @ZVwPrGrup @[NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp@\defnStrn 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 defnStrn11 - Modeless DialogEndGInt @\EndGInt @[VwPrGrup|@]NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @]VwPrGrup|@^NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @^VwPrGrup|@_NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt @_VwPrGrupx@`NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt @`VwPrGrupx@aNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt @aVwPrGrupt@bNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @bVwPrGrup|@cNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @cVwPrGrup|@dNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @dVwPrGrupx@eNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @eVwPrGrup|@fNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @fVwPrGrupx@gNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @gVwPrGrup€@hNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @hVwPrGrup|@iNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @iVwPrGruph@jNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt @jVwPrGrupx@kNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt @kVwPrGrupx@lNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt @lEndGInt @OPadnPadn(****************************************BlokpVew)ÿNameStrnWindow2 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup$@mnameStrnMenuBar PValStrnEndGInt @mPDefGrup(@nnameStrn MacProcID PValInt EndGInt @nPDefGrup4@onameStrn BalloonHelp EncoInt PValStrnEndGInt @oPDefGrup0@pnameStrnMinimizeButton PValStrnTrueEndGInt @pPDefGrup4@qnameStrnMaximizeButton PValStrnFalse EndGInt @qPDefGrup0@rnameStrn LiveResize PValStrnFalse EndGInt @rPDefGrup0@snameStrn Resizeable PValStrnFalse EndGInt @sPDefGrup,@tnameStrn CloseButton PValStrnTrueEndGInt @tPDefGrup0@unameStrnMenuBarVisible PValStrnTrueEndGInt @uPDefGrup0@vnameStrn FullScreen PValStrnFalse EndGInt @vPDefGrup(@wnameStrnVisible PValStrnTrueEndGInt @wPDefGrup8@xnameStrnTitle EncoInt PValStrnUntitledEndGInt @xPDefGrup$@ynameStrnBackdropPValStrnEndGInt @yPDefGrup(@znameStrn BackColor PValInt ÿÿÿEndGInt @zPDefGrup0@{nameStrn HasBackColorPValStrnFalse EndGInt @{PDefGrup0@|nameStrn Composite PValStrnFalse EndGInt @|PDefGrup$@}nameStrnFrame PValInt EndGInt @}PDefGrup(@~nameStrn MaxHeight PValInt }EndGInt @~PDefGrup$@nameStrnMaxWidthPValInt }EndGInt @PDefGrup(@€nameStrn MinHeight PValInt @EndGInt @€PDefGrup$@nameStrnMinWidthPValInt @EndGInt @PDefGrup$@‚nameStrnHeight PValInt ,EndGInt @‚PDefGrup$@ƒnameStrnWidth PValInt ,EndGInt @ƒPDefGrup(@„nameStrn Placement PValInt EndGInt @„VwBhGrupà@…VwPrGrupD@†NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt @†VwPrGrupL@‡NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt @‡VwPrGrupH@ˆNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt @ˆVwPrGrup0@‰NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”@ŠdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt @ŠEndGInt @‰VwPrGrupp@‹NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @‹VwPrGrupp@ŒNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @ŒVwPrGrupp@NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupt@ŽNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @ŽVwPrGrupt@NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupx@NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrup @‘NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp@’defnStrn 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 defnStrn11 - Modeless DialogEndGInt @’EndGInt @‘VwPrGrup|@“NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @“VwPrGrup|@”NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @”VwPrGrup|@•NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt @•VwPrGrupx@–NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt @–VwPrGrupx@—NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt @—VwPrGrupt@˜NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @˜VwPrGrup|@™NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @™VwPrGrup|@šNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @šVwPrGrupx@›NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @›VwPrGrup|@œNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @œVwPrGrupx@NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup€@žNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @žVwPrGrup|@ŸNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @ŸVwPrGruph@ NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt @ VwPrGrupx@¡NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt @¡VwPrGrupx@¢NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt @¢EndGInt @…PadnPadn$************************************BlokpUIsWnStGrupÈ@£OTabGrup@¤ContInt eSptInt  EndGInt @¤OTabGrup4@¥ContInt {ÿAltEInt LSptInt  ciIDInt EndGInt @¥OTabGrup@¦ContInt mÿEndGInt @¦OTabGrupd@§ContInt PßÏÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt @§OTabGrup4@¨ContInt PßÏÿAltEInt LSptInt  ciIDInt EndGInt @¨OTabGrup@©EndGInt @©LsLcStrnTextWindow Layout rEdtRect2¦EndGInt @£PadnPadnô********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!