Visual Basic

Imports System.IO<br />
Imports System.Net<br />
Imports System.Text<br />
Imports System<br />
Imports System.Collections.Generic<br />
Imports System.ComponentModel<br />
Imports System.Data<br />
Imports System.Drawing<br />
<br />
Imports System.Windows.Forms<br />
<br />
Imports System.Threading<br />
Public Class Download<br />
    Private thrDownload As Thread<br />
    ' The stream of data retrieved from the web server<br />
    Private strResponse As Stream<br />
    ' The stream of data that we write to the harddrive<br />
    Private strLocal As Stream<br />
    ' The request to the web server for file information<br />
    Private webRequest As HttpWebRequest<br />
    ' The response from the web server containing information about the file<br />
    Private webResponse As HttpWebResponse<br />
    ' The progress of the download in percentage<br />
    Private Shared PercentProgress As Integer<br />
    ' The delegate which we will call from the thread to update the form<br />
    Private Delegate Sub UpdateProgessCallback(ByVal BytesRead As Int64, ByVal TotalBytes As Int64)<br />
    ' When to pause<br />
    Private goPause As Boolean = False<br />
    Private Sub Download(ByVal startPoint As Object)<br />
        Try<br />
            <br />
            Dim startPointInt As Integer = Convert.ToInt32(startPoint)<br />
            ' Create a request to the file we are downloading<br />
            webRequest = DirectCast(Net.WebRequest.Create("http://dl.google.com/picasa/picasaweb-current-setup.exe"), HttpWebRequest)<br />
            ' Set the starting point of the request<br />
            webRequest.AddRange(startPointInt)<br />
<br />
            ' Set default authentication for retrieving the file<br />
            webRequest.Credentials = CredentialCache.DefaultCredentials<br />
            ' Retrieve the response from the server<br />
            webResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)<br />
            ' Ask the server for the file size and store it<br />
            Dim fileSize As Int64 = webResponse.ContentLength<br />
<br />
            ' Open the URL for download <br />
            strResponse = webResponse.GetResponseStream()<br />
<br />
            ' Create a new file stream where we will be saving the data (local drive)<br />
            If startPointInt = 0 Then<br />
                strLocal = New FileStream("C:\", FileMode.Create, FileAccess.Write, FileShare.None)<br />
            Else<br />
                strLocal = New FileStream("C:\", FileMode.Append, FileAccess.Write, FileShare.None)<br />
            End If<br />
<br />
            ' It will store the current number of bytes we retrieved from the server<br />
            Dim bytesSize As Integer = 0<br />
            ' A buffer for storing and writing the data retrieved from the server<br />
            Dim downBuffer As Byte() = New Byte(2047) {}<br />
<br />
            ' Loop through the buffer until the buffer is empty<br />
            While (bytesSize = strResponse.Read(downBuffer, 0, downBuffer.Length)) > 0<br />
                ' Write the data from the buffer to the local hard drive<br />
                strLocal.Write(downBuffer, 0, bytesSize)<br />
                ' Invoke the method that updates the form's label and progress bar<br />
                '					Me.Invoke(New UpdateProgessCallback(Me.UpdateProgress), New Object() {strLocal.Length, fileSize + startPointInt})<br />
<br />
                If goPause = True Then<br />
                    Exit While<br />
                End If<br />
            End While<br />
        Finally<br />
            ' When the above code has ended, close the streams<br />
            strResponse.Close()<br />
            strLocal.Close()<br />
        End Try<br />
    End Sub<br />
<br />
   <br />
<br />
End Class<br />

PrivateSub mnuSaveAsItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuSaveAsItem.Click<br />
Dim letter As Char Dim lngCode As Short <br />
Dim i, charsInFile As Long <br />
Dim Code As Short <br />
SaveFileDialog1.Filter = "Text files (*.txt)|*.txt"<br />
SaveFileDialog1.ShowDialog()<br />
If SaveFileDialog1.FileName <> "" Then <br />
lngCode = InputBox("Insert code to code the file.")<br />
If lngCode = "" Then Exit Sub <br />
Code = charsInFile = Txtnote.Text.Length<br />
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)<br />
letter = Txtnote.Text.Substring(i, 1)<br />
Print(1, Asc(letter) <br />
CShort(lngCode)For i = 0 To charsInFile - 1Xor Code)Next <br />
FileClose(1)<br />
mnuCloseItem.Enabled = True End If End Sub Private Sub mnuCloseItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCloseItem.ClickDim a As String <br />
a = InputBox("Did you save?")<br />
If a = ("Yes") Or a = ("yes") Then <br />
Txtnote.Text = ""<br />
ElseIf a = ("No") Or a = ("no") Then <br />
MsgBox("Don't forget to save your file first")<br />
Else <br />
MsgBox("Please answer with ""Yes"" or ""No""")<br />
End If <br />
End Sub <br />
Private Sub mnuOpenItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenItem.ClickDim CelTekst, LinijaNaTekst As String Dim lngCode As Short <br />
OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT"<br />
OpenFileDialog1.ShowDialog()<br />
Dim Code As Short If OpenFileDialog1.FileName <> "" Then Try <br />
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)<br />
LinijaNaTekst = LineInput(1)<br />
CelTekst = CelTekst & LinijaNaTekst & vbCrLf<br />
Do Until EOF(1)Loop <br />
Txtnote.Text = CelTekst<br />
Txtnote.Select(1, 0)<br />
Txtnote.Enabled = True <br />
mnuCloseItem.Enabled = True Catch <br />
MsgBox("Error with opening the file.")<br />
Finally <br />
FileClose(1)<br />
End Try <br />
End If <br />
End Sub 

Public Function GetData() As System.Data.DataSet Implements IShared.IShared_Interface.GetData<br />
        Dim Conn As New OleDbConnection<br />
        Dim ConStr As String<br />
        ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;"<br />
        ConStr += ConnStr<br />
        ConStr += "Persist Security Info=True;"<br />
        Conn.ConnectionString = ConStr<br />
        Dim add As New OleDbDataAdapter("Select * From ClientInfo", Conn)<br />
        Dim Dt As New DataTable<br />
        add.Fill(Dt)<br />
        Dim Ds As New DataSet<br />
        Ds.Tables.Add(Dt)<br />
        Return Ds<br />
    End Function

Public Function GetDataAnotherWay() As System.Data.DataSet Implements IRMSShared.IRMSShared_Interface.GetDataAnotherWay<br />
        Dim Ds As New DataBaseDataSet<br />
        Return Ds<br />
    End Function