Findes der et program...

NumericUpDown1 = Antal vinduer der skal åbnes
NumericUpDown2 = Antal sek. før vinduerne lukkes
NumericUpDown3 = Antal sek. mellem gentagelserne (Jeg tilføjede også lige denne, så du selv kan bestemme, hvor lang tid der skal gå mellem gentagelserne)
Du kan se, hvad de hedder, ved at vælge 'Properties' i højre side. Find 'Name'. Der kan du se hvad dine controls hedder og hvis du vil, kan du ændre navnet.
Desuden valgte jeg at bruge en TextBox i stedet for en MaskedTextBox.

Men her kommer koden:

Public Class Form1

    Dim x As Integer = 0
    Dim i As Integer = 0
    Dim WithEvents Timer As New System.Windows.Forms.Timer
    Dim WithEvents MainTimer As New System.Windows.Forms.Timer

    Sub aabn_hjemmeside()
        Dim url_til_hjemmeside As String = Me.TextBox1.Text
        Dim antal_ie_der_skal_aabnes As Integer = Me.NumericUpDown1.Value
        Dim i As Integer
        For i = 1 To antal_ie_der_skal_aabnes
            System.Diagnostics.Process.Start("iexplore.exe", url_til_hjemmeside)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            Me.Timer.Start()
            Me.MainTimer.Start()
            Call aabn_hjemmeside()
        ElseIf CheckBox1.Checked = False Then
            Call aabn_hjemmeside()
            Me.Timer.Start()
        End If
    End Sub

    Private Sub Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer.Tick
        x = x + 1
        Dim antal_sekunder_der_skal_gaa_foer_vinduerne_lukkes As Integer = Me.NumericUpDown2.Value
        If x = antal_sekunder_der_skal_gaa_foer_vinduerne_lukkes Then
            Dim arrProcess As Array = System.Diagnostics.Process.GetProcesses()
            Dim y As Integer
            For y = LBound(arrProcess) To UBound(arrProcess)
                If arrProcess(y).MainWindowTitle.Contains("Internet Explorer") Then
                    arrProcess(y).Kill()
                End If
            Next
            Me.Timer.Stop()
            x = 0
        End If
    End Sub

    Private Sub MainTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainTimer.Tick
        i = i + 1
        If i = Me.NumericUpDown3.Value Then
            Call aabn_hjemmeside()
            Me.Timer.Start()
            i = 0
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer.Interval = 1000
        Me.MainTimer.Interval = 1000
    End Sub
End Class

EDIT: Jeg tror dette måtte blive den sidste kode. Jeg kan høre det er et større projekt du vil have lavet, hvilket jeg ikke rigtig har lyst til. Men hvis du har mod på selv at lave det, vil jeg med glæde hjælpe dig. Men jeg vil som sagt ikke lave hele programmet.

Mvh.
Claus Thomsen

Hvis det er din egen hjemmeside kan du jo bare sætte tælleren til det der passer dig Medmindre du ikke har mulighedfor det.

Ja, der findes mange programmer til dette. F.eks. Visual Basic. Men det kræver jo at du kan programmere. Jeg foreslår at du downloader Visual Basic 2005 Express Edition - det kan hentes gratis på microsofts hjemmeside: http://msdn.microsoft.com/vstudio/express/vb/download/

Og så er det jo ellers bare at begynde at lære at programmere. - held og lykke

Mvh.
Claus Thomsen

Hvis du ikke gider sidde og bøvle med koderne, har jeg faktisk lavet det. Du skal bare lige ændre de tre øverste variaber i koden.

Public Class Form1

    Dim antal_sekunder_der_skal_gaa_foer_vinduerne_lukkes As Integer = 40
    Dim antal_ie_der_skal_aabnes As Integer = 20
    Dim url_til_hjemmeside As String = "http://google.dk"

    Dim WithEvents timer As New Timer
    Dim x As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 1 To antal_ie_der_skal_aabnes
            System.Diagnostics.Process.Start("iexplore.exe", url_til_hjemmeside)
        Next
        Me.timer.Start()
    End Sub

    Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
        x = x + 1
        If x = antal_sekunder_der_skal_gaa_foer_vinduerne_lukkes Then
            Dim arrProcess As Array = System.Diagnostics.Process.GetProcesses()
            Dim y As Integer
            For y = LBound(arrProcess) To UBound(arrProcess)
                If arrProcess(y).MainWindowTitle.Contains("Internet Explorer") Then
                    arrProcess(y).Kill()
                End If
            Next
            Me.timer.Stop()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.timer.Interval = 1000
    End Sub
End Class

Mvh.
Claus Thomsen

Tak for det, men kan evt. jeg få lidt hjælp til at lave programmet?.. Det ville være dejligt

1) Download programmet fra hjemmesiden i mit første indlæg
2) Åbn programmet og tryk File -> New Projekt -> Vælg Windows Application -> OK
3) Tryk på Toolbox -> Find 'Button' (Femte øverst) tryk og hold nede og træk den over på din form
4) Dobbeltklik på din form
5) Slet ALT i kodefeltet
6) Kopier koden fra mit 2. inlæg over i
7) Ændre de tre øverste variabler i koden til det du vil have (Hvor mange vinduer den skal åbne, hvor lang tid der skal gå før de skal lukkes ned og hvilken hjemmeside den skal åbne)
8) Tryk Debug -> Start Debugging eller tryk F5
9) Tryk på din Knap

Håber du kan finde ud af det, eller må du jo lige skrive.

EDIT: med den kode jeg har lavet, vil den kun gøre det hver gang du trykker på knappen. Hvis du vil have den til at gøre det konstant, kan du lige skrive. Så sender jeg en ny kode.

Mvh.
Claus Thomsen

HVOR FUC**** SMART!!!


TUSIND TUSIND TAK!!! SKYLDER DIG NOGET

niceeee!!!

Fedt!

Men hvordan ændre man navnet på knappen?

Hehe, og her kommer lidt spørgsmål til

1. Kan man evt. gøre sådan så, man *selv* kan vælge, hvor mange vinduer der skal åbnes, og hvor lang tid der går før de lukker osv?.. Det kan man jo helt sikkert, ved bare ikke hvordan .. Men venter med de andre spørgsmål.. Jeg må jo lige prøve mig lidt frem ...

Hehe.

Hvis du skal ændre navnet på knappen, skal du trykke én gang på den. Vælg så 'Properties' i højre side og scroll ned til 'Text'. I dette felt kan du skrive det, som der skal stå på knappen.

Og ang. dit sidste spørgsmål. Vil du kunne ændre det mens programmet kører? Altså at du har nogle tekstbokse hvor du kan angive hvor lang tid der skal gå før de lukkes osv.? Eller er det i koden du vil ændre det?

Mvh.
Claus Thomsen