Бегущая строка

Найти: на

Самый простейший ВЕБбраузер, какой только можно придумать :)

Внимание: не копируйте этот текст, а лучше возьмите его в текстовом виде здесь

'**************************************
' Name: WEB браузер за 1 минуту !!!
' Description: чёрно-белый простейший браузер!!!
' By: Peter Zhou
'
'
' Inputs:None
'
' Returns:None
'
'Assumes: Необходимо создать проект и назвать его  Webfrm.frm
'                 далее просто вставить данный исходник в webfrm.frm !!!
'
'**************************************

*** далее идут строки, которые соответственно надо добавить в webfrm.frm ***
VERSION 5.00
Object = &quot;{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0&quot;; &quot;SHDOCVW.DLL&quot;
Begin VB.Form Webfrm 
BackColor=&amp;H00000000&amp;
BorderStyle =3 'Fixed Dialog
Caption =&quot;Web Browser&quot;
ClientHeight=5295
ClientLeft =45
ClientTop=330
ClientWidth =7455
BeginProperty Font 
Name=&quot;Tahoma&quot;
Size=8.25
Charset =0
Weight =400
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
LinkTopic=&quot;Form1&quot;
MaxButton=0'False
MinButton=0'False
ScaleHeight =5295
ScaleWidth =7455
ShowInTaskbar=0'False
StartUpPosition =3 'Windows Default
Begin VB.ListBox lstFavs 
Height =255
Left=3960
TabIndex=11
Top =480
Visible =0'False
Width=1335
End
Begin VB.CommandButton cmdAdd 
BackColor=&amp;H80000005&amp;
Caption =&quot;Add to Favorites&quot;
Height =255
Left=6000
Style=1 'Graphical
TabIndex=10
Top =840
Width=1335
End
Begin VB.CommandButton cmdFav 
BackColor=&amp;H80000005&amp;
Caption =&quot;Favorite&quot;
Height =255
Left=4320
Style=1 'Graphical
TabIndex=9
Top =120
Width=735
End
Begin VB.CommandButton cmdSearch 
BackColor=&amp;H80000005&amp;
Caption =&quot;Search&quot;
Height =255
Left=5160
Style=1 'Graphical
TabIndex=8
Top =120
Width=735
End
Begin VB.CommandButton cmdForward 
BackColor=&amp;H80000005&amp;
Caption =&quot;Forward&quot;
Height =255
Left=960
Style=1 'Graphical
TabIndex=7
Top =120
Width=735
End
Begin VB.CommandButton cmdHome 
BackColor=&amp;H80000005&amp;
Caption =&quot;Home&quot;
Height =255
Left=3480
Style=1 'Graphical
TabIndex=6
Top =120
Width=735
End
Begin VB.CommandButton cmdReload 
BackColor=&amp;H80000005&amp;
Caption =&quot;Reload&quot;
Height =255
Left=2640
Style=1 'Graphical
TabIndex=5
Top =120
Width=735
End
Begin VB.CommandButton cmdStop 
BackColor=&amp;H80000005&amp;
Caption =&quot;Stop&quot;
Height =255
Left=1800
Style=1 'Graphical
TabIndex=4
Top =120
Width=735
End
Begin VB.CommandButton cmdBack 
BackColor=&amp;H80000005&amp;
Caption =&quot;Back&quot;
Height =255
Left=120
Style=1 'Graphical
TabIndex=3
Top =120
Width=735
End
Begin VB.ComboBox txtUrl 
Height =315
Left=720
Style=1 'Simple Combo
TabIndex=2
Text=&quot;C:\&quot;
Top =840
Width=5175
End
Begin SHDocVwCtl.WebBrowser WebBrowser1 
Height =3975
Left=120
TabIndex=0
Top =1200
Width=7215
ExtentX =12726
ExtentY =7011
ViewMode=1
Offline =0
Silent =0
RegisterAsBrowser=0
RegisterAsDropTarget=1
AutoArrange =-1 'True
NoClientEdge=0'False
AlignLeft=0'False
ViewID =&quot;{0057D0E0-3573-11CF-AE69-08002B2E1262}&quot;
Location=&quot;&quot;
End
Begin VB.Label Label1 
BackColor=&amp;H00000000&amp;
Caption =&quot;Go To:&quot;


ForeColor=&amp;H80000005&amp;
    Height =255
    Left=120
    TabIndex=1
    Top =840
    Width=615
    End
    End
    Attribute VB_Name = &quot;Webfrm&quot;
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim FN As Integer


Private Sub cmdAdd_Click()
    FN = FreeFile
    Open &quot;c:\favs.txt&quot; For Output As FN
    Print #FN, txtUrl.Text &amp; Chr(13)
    Close #FN
End Sub


Private Sub cmdBack_Click()
    On Error Resume Next
    WebBrowser1.GoBack
End Sub


Private Sub cmdFav_Click()
    On Error Resume Next
    FN = FreeFile
    Open &quot;c:\favs.txt&quot; For Input As FN
    lstFavs.Visible = True


    Do Until EOF(FN)
        Line Input #FN, NextLine$
        lstFavs.AddItem NextLine$
    Loop
    Close #FN
End Sub


Private Sub cmdForward_Click()
    On Error Resume Next
    WebBrowser1.GoForward
End Sub


Private Sub cmdHome_Click()
    WebBrowser1.GoHome
End Sub


Private Sub cmdReload_Click()
    WebBrowser1.Refresh
End Sub


Private Sub cmdSearch_Click()
    WebBrowser1.GoSearch
End Sub


Private Sub cmdStop_Click()
    WebBrowser1.Stop
End Sub


Private Sub Form_Load()
    URL$ = &quot;c:\&quot;
    WebBrowser1.Navigate URL$
End Sub


Private Sub lstFavs_Click()
    txtUrl.Text = lstFavs.List(lstFavs.ListIndex)
    txtUrl_KeyPress 13
    lstFavs.Visible = False
    Close #FN
End Sub


Private Sub txtUrl_KeyPress(KeyAscii As Integer)
    On Error Resume Next


    If KeyAscii = 13 Then
        URL$ = txtUrl.Text
        WebBrowser1.Navigate URL$
    End If
End Sub

       Ну а ниже представленн Листинг наиболее полного броузера.

Не вооружонным глазом видны наиболее значимые различия...

Которые положительно скажеться на работе броузера.

<pre>
'**************************************
' Name: <1 Minute Web Browser!!!
' Description:You boss wants a webbrowse
'     r by 12, it's 11:59, just copy and paste
'     this source and you'll get a cool lookin
'     g black and white web browser in less th
'     an a minute!!!
' By: Peter Zhou
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:Just create a file called Webfr
'     m.frm in notepad and copy and paste the 
'     code in it and then start a project in V
'     B and add the frm file in!!!
'
'Side Effects:None
'
'Warranty:
'Code provided by Planet Source Code(tm)
'     (http://www.Planet-Source-Code.com) 'as 
'     is', without warranties as to performanc
'     e, fitness, merchantability,and any othe
'     r warranty (whether expressed or implied
'     ).
'Terms of Agreement:
'By using this source code, you agree to
'     the following terms...
' 1) You may use this source code in per
'     sonal projects and may compile it into a
'     n .exe/.dll/.ocx and distribute it in bi
'     nary format freely and with no charge.
' 2) You MAY NOT redistribute this sourc
'     e code (for example to a web site) witho
'     ut written permission from the original 
'     author.Failure to do so is a violation o
'     f copyright laws.
' 3) You may link to this code from anot
'     her website, provided it is not wrapped 
'     in a frame.
' 4) The author of this code may have re
'     tained certain additional copyright righ
'     ts.If so, this is indicated in the autho
'     r's description.
'**************************************

*** paste into webfrm.frm in notepad after this line ***
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Begin VB.Form Webfrm 
BackColor=&H00000000&
BorderStyle =3 'Fixed Dialog
Caption ="Web Browser"
ClientHeight=5295
ClientLeft =45
ClientTop=330
ClientWidth =7455
BeginProperty Font 
Name="Tahoma"
Size=8.25
Charset =0
Weight =400
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
LinkTopic="Form1"
MaxButton=0'False
MinButton=0'False
ScaleHeight =5295
ScaleWidth =7455
ShowInTaskbar=0'False
StartUpPosition =3 'Windows Default
Begin VB.ListBox lstFavs 
Height =255
Left=3960
TabIndex=11
Top =480
Visible =0'False
Width=1335
End
Begin VB.CommandButton cmdAdd 
BackColor=&H80000005&
Caption ="Add to Favorites"
Height =255
Left=6000
Style=1 'Graphical
TabIndex=10
Top =840
Width=1335
End
Begin VB.CommandButton cmdFav 
BackColor=&H80000005&
Caption ="Favorite"
Height =255
Left=4320
Style=1 'Graphical
TabIndex=9
Top =120
Width=735
End
Begin VB.CommandButton cmdSearch 
BackColor=&H80000005&
Caption ="Search"
Height =255
Left=5160
Style=1 'Graphical
TabIndex=8
Top =120
Width=735
End
Begin VB.CommandButton cmdForward 
BackColor=&H80000005&
Caption ="Forward"
Height =255
Left=960
Style=1 'Graphical
TabIndex=7
Top =120
Width=735
End
Begin VB.CommandButton cmdHome 
BackColor=&H80000005&
Caption ="Home"
Height =255
Left=3480
Style=1 'Graphical
TabIndex=6
Top =120
Width=735
End
Begin VB.CommandButton cmdReload 
BackColor=&H80000005&
Caption ="Reload"
Height =255
Left=2640
Style=1 'Graphical
TabIndex=5
Top =120
Width=735
End
Begin VB.CommandButton cmdStop 
BackColor=&H80000005&
Caption ="Stop"
Height =255
Left=1800
Style=1 'Graphical
TabIndex=4
Top =120
Width=735
End
Begin VB.CommandButton cmdBack 
BackColor=&H80000005&
Caption ="Back"
Height =255
Left=120
Style=1 'Graphical
TabIndex=3
Top =120
Width=735
End
Begin VB.ComboBox txtUrl 
Height =315
Left=720
Style=1 'Simple Combo
TabIndex=2
Text="C:\"
Top =840
Width=5175
End
Begin SHDocVwCtl.WebBrowser WebBrowser1 
Height =3975
Left=120
TabIndex=0
Top =1200
Width=7215
ExtentX =12726
ExtentY =7011
ViewMode=1
Offline =0
Silent =0
RegisterAsBrowser=0
RegisterAsDropTarget=1
AutoArrange =-1 'True
NoClientEdge=0'False
AlignLeft=0'False
ViewID ="{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location=""
End
Begin VB.Label Label1 
BackColor=&H00000000&
Caption ="Go To:"


ForeColor=&H80000005&
    Height =255
    Left=120
    TabIndex=1
    Top =840
    Width=615
    End
    End
    Attribute VB_Name = "Webfrm"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim FN As Integer


Private Sub cmdAdd_Click()
    FN = FreeFile
    Open "c:\favs.txt" For Output As FN
    Print #FN, txtUrl.Text & Chr(13)
    Close #FN
End Sub


Private Sub cmdBack_Click()
    On Error Resume Next
    WebBrowser1.GoBack
End Sub


Private Sub cmdFav_Click()
    On Error Resume Next
    FN = FreeFile
    Open "c:\favs.txt" For Input As FN
    lstFavs.Visible = True


    Do Until EOF(FN)
        Line Input #FN, NextLine$
        lstFavs.AddItem NextLine$
    Loop
    Close #FN
End Sub


Private Sub cmdForward_Click()
    On Error Resume Next
    WebBrowser1.GoForward
End Sub


Private Sub cmdHome_Click()
    WebBrowser1.GoHome
End Sub


Private Sub cmdReload_Click()
    WebBrowser1.Refresh
End Sub


Private Sub cmdSearch_Click()
    WebBrowser1.GoSearch
End Sub


Private Sub cmdStop_Click()
    WebBrowser1.Stop
End Sub


Private Sub Form_Load()
    URL$ = "c:\"
    WebBrowser1.Navigate URL$
End Sub


Private Sub lstFavs_Click()
    txtUrl.Text = lstFavs.List(lstFavs.ListIndex)
    txtUrl_KeyPress 13
    lstFavs.Visible = False
    Close #FN
End Sub


Private Sub txtUrl_KeyPress(KeyAscii As Integer)
    On Error Resume Next


    If KeyAscii = 13 Then
        URL$ = txtUrl.Text
        WebBrowser1.Navigate URL$
    End If
End Sub
</pre>

ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ