VB nyhed

Hej!

Jeg er ved at lave et program, sådan at jeg kan skrive nyheder...
Jeg har igennem gået denne fejl MANGE gange, men uden held...

Her er koden

httpclient = New WebClient
Dim SourceURL = TextBox3.Text
Dim Filedir = TextBox2.Text
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Try
httpclient.DownloadFileAsync(New Uri(SourceURL), (Filedir))
Catch ex As Exception
MsgBox("Fejl " + ErrorToString(), MsgBoxStyle.Critical)
End Try
Dim Read As New System.IO.StreamReader("")
TextBox1.Text = Read.ReadToEnd
Try
Des.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(""))
Des.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = Des.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(TextBox1.Text)
TextBox1.Text = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock)
Catch ex As Exception
MessageBox.Show("Føglene fejl er opdaget: " & ex.Message, Me.Text, MessageBoxButtons.OK)
End Try
MsgBox("Nyhederne, er nu opdatert - Tak fordi du føgler med!")

Fejlen er ved DESDecrypter.TransformFinalBlock)

Håber i kan hjælp!

Oprettet af:

Visual Basic

Point afsat: 20

Åben

Citér Mail

19:36 20/02/2010

Slet ikke nogen?

Oprettet af:

Kommentar

Citér Mail

10:49 21/02/2010

Du skal være oprettet og logget ind for at svare på en tråd