Public Class Form1
Inherits System.Windows.Forms.Form
Dim HP As String 'home page
Dim SVP As Boolean 'enabled saving page
Dim WAC As Integer 'number of saved pages
Private Sub SetAsHomepaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetAsHomepaToolStripMenuItem.Click
HP = InputBox("Type Home Page", "Setting Home Page", "No Home Page").ToString 'Set Home Page
SaveOptions() 'Saving CyaBrowser Options
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
CyaBrowser.Dock = DockStyle.Bottom
URL.Text = HP
BrowseWeb() 'Open Home Page
PageSave.Checked = SVP
LoadOptions() 'Loading CyaBrowser Options
End Sub
Private Sub BrowseWeb()
'Browse Web and open Page
CyaBrowser.Navigate(URL.Text)
StatusBar.Text = URL.Text
End Sub
Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
SaveOptions() 'Saving CyaBrowser Options
End Sub
Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
SaveOptions()
End Sub
Private Sub PageSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageSave.Click
'set while pages will be saved
If SVP = True Then
PageSave.Checked = False
Else
PageSave.Checked = True
End If
SVP = PageSave.Checked
SaveOptions() 'Saving CyaBrowser Options
End Sub
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
BrowseWeb() 'Start Browsing Web
CheckList() 'Saving pages
End Sub
Private Sub WA_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles URL.KeyUp
If e.KeyCode = Keys.Enter Then
BrowseWeb() 'Start Browsing Web
CheckList() 'saving pages
End If
End Sub
Private Sub CheckList()
'saving page
Dim bl As Boolean = True
Dim i As Integer
If SVP = True Then
'checks if page is all ready saved
For i = 0 To URL.Items.Count - 1
If URL.Text = URL.Items.Item(i) Then
bl = False
End If
Next i
If bl = True Then
URL.Items.Add(URL.Text)
WAC = URL.Items.Count - 1
SaveOptions()
End If
If WAC > 0 Then
SaveOptions() 'Saving SpeedNet Options
End If
End If
End Sub
Private Sub SearchingTools(ByVal index As Integer)
On Error Resume Next
Select Case index
Case 1
BrowseWeb() 'Start Browsing Web
CheckList() 'saving pages
Case 2
CyaBrowser.GoBack() 'go back
Case 3
CyaBrowser.GoForward() 'go forward
Case 4
CyaBrowser.Stop() 'stop browsing
Case 5
CyaBrowser.Refresh() 'refresh browser
Case 6
URL.Text = HP
BrowseWeb() 'open home page
End Select
End Sub
Private Sub SaveOptions()
'saving CyaBrowser options and pages
Dim i As Integer
'open file
Dim File As System.IO.FileInfo = New System.IO.FileInfo(System.Windows.Forms.Application.StartupPath & "\CyaBrowser")
Dim WriteFile As System.IO.StreamWriter = File.CreateText()
'save oprions
WriteFile.WriteLine(HP)
WriteFile.WriteLine(SVP)
WriteFile.WriteLine(WAC)
'save pages
If WAC > 0 Then
For i = 0 To WAC
WriteFile.WriteLine(URL.Items.Item(i).ToString)
Next
End If
WriteFile.Close()
End Sub
Private Sub LoadOptions()
'loading CyaBrowser options and pages
Dim i As Integer
'open file
Dim File As System.IO.FileInfo = New System.IO.FileInfo(System.Windows.Forms.Application.StartupPath & "\CyaBrowser")
'if file exists then load options and pages
If File.Exists = True Then
Dim ReadFile As System.IO.StreamReader = File.OpenText()
'load options
HP = ReadFile.ReadLine
SVP = ReadFile.ReadLine
WAC = ReadFile.ReadLine
'if there is any saved pages then load pages
If WAC > 0 Then
For i = 0 To WAC
URL.Items.Add(ReadFile.ReadLine)
Next
End If
ReadFile.Close()
PageSave.Checked = SVP
Else 'if files not exists then
DefaultOptions() ' set CyaBrowser default options
End If
End Sub
Private Sub DefaultOptions()
'setting CyaBrowser default options
'create new file
Dim File As System.IO.FileInfo = New System.IO.FileInfo(System.Windows.Forms.Application.StartupPath & "\CyaBrowser")
Dim WriteFile As System.IO.StreamWriter = File.CreateText()
'set dfault options
WriteFile.WriteLine("No Home Page")
WriteFile.WriteLine(False)
WriteFile.WriteLine(0)
WriteFile.Close()
'then load options
LoadOptions()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
CyaBrowser.GoBack()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
CyaBrowser.GoForward()
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CyaBrowser.Stop()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
CyaBrowser.Refresh()
End Sub
End Class