5 Antworten in diesem Thema

[LulzSS]

Please Login HERE or Register HERE to see this link!

AV Scann:

Please Login HERE or Register HERE to see this link!

Download:

Please Login HERE or Register HERE to see this link!

Was das Programm macht, sollte klar sein.

[Becks]

Hier mal die C++ Variante von mir:

Please Login HERE or Register HERE to see this link!

[SAR]

Mal abgesehen von der Funktion @Becks, finde dein Tool gut gestaltet.
Zumindest leuchtet einem keine total überlade GUI mit fetten Werbebildchen in allen Farben des Regenbogens entgegen.

Petabyte oder Terrabyte bei einem Pumper anzugeben halte ich für falsch. Das benutzt eh kein Schwein.
Das Tool sieht aufm ersten Blick sauber aus - obwohl die AV Alarm schlägt. Aber ich hab keine Lust und Zeit alle Extra-Controls durchzuarbeiten. .png' class='bbc_emoticon' alt='^^' />
Edit: Achja ist mit VB geschrieben und braucht .Net 4.0 .


Mfg.
SAR

Bearbeitet von SAR, 11 August 2013 - 02:17 Uhr.

[Opalia]

Schließe mich SAR an. AV kreischt voll auf. Also no go. Sorry.

[Becks]

Edit: Achja ist mit VB geschrieben und braucht .Net 4.0 .

Ja das versteh ich nicht. Die C Funktion die ich verwendet habe ist, denke ich, wesentlich einfacher.

Bearbeitet von Becks, 11 August 2013 - 09:32 Uhr.

[SAR]

Meine .Net-Variante ist deutlich länger als die von WPH. Wird dafür aber auch nicht dected und nutzt auch .NET 2.0. .png' class='bbc_emoticon' alt='^^' />
Der TE hat alles in einen Sub geworfen und der relevante Teil ist ziemlich kurz, ich weiß ja nicht wie es bei dir aussieht.

So sieht sein ganzer Button-Click aus:

Private Sub GhostButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim dialog As New SaveFileDialog
    dialog.Filter = "Exe Dateien|*.exe"
    dialog.ShowDialog
    Dim num As Double = Conversion.Val(Me.NumericUpDown2.Value)
    File.Copy(Me.GhostTextBox1.Text, dialog.FileName)
    If Me.GhostRadiobutton1.Checked Then
	    num = (num * 1024)
    End If
    If Me.GhostRadiobutton2.Checked Then
	    num = (num * 1048576)
    End If
    If Me.GhostRadiobutton3.Checked Then
	    num = (num * 1073741824)
    End If
    If Me.GhostRadiobutton4.Checked Then
	    num = (num * 1099511627776)
    End If
    If Me.GhostRadiobutton5.Checked Then
	    num = (num * 1125899906842624)
    End If
    Dim stream As FileStream = File.OpenWrite(dialog.FileName)
    Dim i As Long = stream.Seek(0, SeekOrigin.End)
    Do While (i < num)
	    stream.WriteByte(0)
	    i = (i + 1)
    Loop
    stream.Close
    Interaction.MsgBox("File pumped!", MsgBoxStyle.OkOnly, Nothing)
End Sub

Mfg.
SAR