Suche jemanden der mir 2 Programme macht

[x BoooM x]

Hi. Ich suche 2 Programme die mir jemand programmieren soll die aber das selbe Prinzip haben.


Das eine Programm soll diesen Link aufrufen:
ustunting.com/board/index.php?page=User&userID=1900

Danach immer am Ende die Zahl +1 erhöhen also so:
ustunting.com/board/index.php?page=User&userID=1901
ustunting.com/board/index.php?page=User&userID=1902
ustunting.com/board/index.php?page=User&userID=1903
usw. also immer die ID um 1 erhöhen und das alle 2-3 Sekunden.

Das zweite Programm soll diesen Link aufrufen:
http://ustunting.com/board/index.php...d&postID=25000

Danach auch immer 2-3 Sekunden dann einen neuen Link aufrufen wo die ID +1 erhöht ist also:

http://ustunting.com/board/index.php...d&postID=25001
http://ustunting.com/board/index.php...d&postID=25002

usw.

SourceCode wäre auch gut.

[rVs14]

Sub Main()
        Console.WriteLine("Wiederholungen?")
        Dim wiederholungen As Integer
        wiederholungen = Console.ReadLine()
        For i = 1 To wiederholungen
            Dim id As Double = 1900

            id += 1

            Dim client = New WebClient()
            Dim url = "ustunting.com/board/index.php?page=User&userID=" + id.toString()
            client.OpenRead(url)

            Console.WriteLine("Succes, habe " + url + " aufgerufen!")
            Thread.Sleep(2000)


        Next
        Console.Read()
    End Sub 

Soweit ist mein Code grade, tritt aber eine Exception auf, fixx ich gleich
€: Muss anscheinend Useragent etc mitgesendet werden, also Webrequest, mach ich gleich mal.

[iToxic]

Sub Main()
        Console.WriteLine("Wiederholungen?")
        Dim wiederholungen As Integer
        wiederholungen = Console.ReadLine()
        For i = 1 To wiederholungen
            Dim id As Double = 1900

            id += 1

            Dim client = New WebClient()
            Dim url = "ustunting.com/board/index.php?page=User&userID=" + id.toString()
            client.OpenRead(url)

            Console.WriteLine("Succes, habe " + url + " aufgerufen!")
            Thread.Sleep(2000)


        Next
        Console.Read()
    End Sub 

Soweit ist mein Code grade, tritt aber eine Exception auf, fixx ich gleich
€: Muss anscheinend Useragent etc mitgesendet werden, also Webrequest, mach ich gleich mal.

So zählst du nicht hoch, sondern bleibst immer bei 1901 .
Ebenfalls sollte man sowas immer in einen Try-Catch Block setzen, falls mal eine Exception auftritt.

Useragent, naja. Man muss eingeloggt sein, ruf die Links mal einfach so im Webbrowser auf .

[DANP]

Du solltest in deinem code erst nach dem aufruf die id hochzählen. Ansonsten wird 1900 immer ausgelassen.

Außerdem dürfte dein Code nie eine andere zahl als 1901 aufrufen. id wird immer neu angelegt mit 1900.. Ich würde Die Deklaration einfach außerhalb der Schleife machen.

Und warum als double o.o?

[rVs14]

Du solltest in deinem code erst nach dem aufruf die id hochzählen. Ansonsten wird 1900 immer ausgelassen.

Außerdem dürfte dein Code nie eine andere zahl als 1901 aufrufen. id wird immer neu angelegt mit 1900.. Ich würde Die Deklaration einfach außerhalb der Schleife machen.

Und warum als double o.o?

Jo, war nur ein Test mit dem Double, kenn mich nicht mehr so gut mit VB aus.
Keine Lust den Code jetzt noch zu verbessern, jetzt klappt es:

Imports System.Threading
Imports System.Net

Module Module1

    Sub Main()
        Console.WriteLine("Wiederholungen?")
        Dim wiederholungen As Integer
        Dim id As Integer = 1900
        wiederholungen = Console.ReadLine()
        For i = 1 To wiederholungen






            Dim url = "http://ustunting.com/board/index.php?page=User&userID=" + id.ToString()
            WebRequest.Create(url)
            id += 1

            Console.WriteLine("Succes, habe " + url + " aufgerufen!")
            Thread.Sleep(2000)
      

        Next

        Console.Read()
    End Sub

End Module 

Zweites Programm:

Imports System.Threading
Imports System.Net

Module Module1

    Sub Main()
        Console.WriteLine("Wiederholungen?")
        Dim wiederholungen As Integer
        Dim id As Integer = 25000
        wiederholungen = Console.ReadLine()
        For i = 1 To wiederholungen






            Dim url = "http://ustunting.com/board/index.php?page=Thread&postID=" + id.ToString()
            WebRequest.Create(url)
            id += 1

            Console.WriteLine("Succes, habe " + url + " aufgerufen!")
            Thread.Sleep(2000)
      

        Next

        Console.Read()
    End Sub

End Module 

[DMW007]

WebRequest.Create(url) 

Damit wird nur eine neue WebRequest-Instanz erzeugt.
Um einen Request auszuführen, muss GetResponse() aufgerufen werden.
Beide Programme erstellen nur eine WebRequest Instanz und schießen sie direkt wieder ins Nirvana, ohne einen Request zu senden.

Bringt aber sowieso nix, der ganze Kram nur registrierten Mitgliedern angezeigt wird: http://ustunting.com/board/index.php?page=User&userID=2
Man müsste also erstmal mit einem gültigen Account einen Login simulieren, um einen gültigen Sessioncookie zu bekommen.