hilfe bei spammer

[snowbase]

Hay leute ich wollte jetzt nen spammer schreiben ist nicht schwer ich weiß :p

aber ich möchte das man in dem spammer einen namen/nickname eingeben kann und das wenn mit dem spammer 7 stunden gespammt wurde mir dieser

nickname auf einen ftp server geschickt wird also das draufladen auf den ftp server is kein problemm nur wie mache ich das der spammer diese daten erst

nach 7 stunden schickt und geht es auch das wenn der spammer einmal ausgemacht wurde das die zeit beim nesten start wieder weiter läuft wo sie aufgehört hatt zu zählen ?

also nen beispiel code wehre echt suuuppppeerr

Danke schonmal an alle die wissen was ich meine und mir Helfen können

[IRET]

Wieso speicherst du nicht einfach die uhr zeit als integer beim start und beim ende und subtrahierst einfach.
Dann hast du die Zeit die er gelaufen ist.
und dann ganz einfach eine if Abfrage

[nathex]

Kann dir leider keinen Code geben (da ich keine Ahnung von VB habe) aber ich denke, dass dürfte relativ einfach mit nem "timer" machbar sein.

KLICK

Da findest einiges über die Timer-Funktion in vb.net

[snowbase]

hay also ich benutze das programm ja nicht selber das sollen meine hompage member benutzen das ist als event gedacht wer 7h spammt bekommt was von mir

also ne textdatei ist zu leicht zu fälschen wenn sie sichbar ist

[DarkFire]

Lass nen Timer mit nem Interval von 25200000sec(7std.) laufen^^
Das mit dem Ausmachen....

Timer wird auf 1000sec gestellt...

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Beim Beenden wird die verbleibende Zeit "gespeichert"

Dim Datei As New StreamWriter("C:\text.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Datei laden

If File.Exists("C:\text.txt") Then
Dim Laden As New StreamReader("C:\text.txt")
Label1.Text = Laden.ReadLine.Trim
Laden.Close()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text - 1
End Sub
End Class

Edit:
So wird die Datei unsichtbar...

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Beim Beenden wird die verbleibende Zeit "gespeichert"
Dim Batch As New StreamWriter("C:\batch.bat")
Dim Datei As New StreamWriter("C:\text.txt")
Datei.WriteLine(Label1.Text)
Batch.WriteLine("cd C:\")
Batch.WriteLine("attrib +h text.txt")
Batch.Close()
Datei.Close()
Process.Start("C:\batch.bat")

End Sub

[snowbase]

mhh also ich dachte er daran das wenn der spammer ausgemacht wird und wieder angemacht wird da weiter zählt wo er aufgehört hatt also wenn ich ihn bei 1stunde schließe und dann wieder öffne das er bei 1stunde weiter zählt und wenn er 7h ereicht hatt der nickname an meinem ftp server geschickt wird

[DarkFire]

Verstehst du den Sc überhaupt??
Er macht genau das was du willst/brauchst...

[snowbase]

jo versteh ich ich habe es au schon hinbekommen