VB.net Selbsterstellte "Wait" Funktion funktioniert nicht unter Vist x64

[Ichbinalex]

Hallo,
Ich hab in der Arbeit eine Wait funktioniert Programmiert.

    Public Sub Wait(ByVal Seconds As Integer)
        Dim Time As Integer = Now.Millisecond
        Time = Time + Seconds
        If Time > 999 Then
            Time = Time - 1000
        End If
        Do Until Time = Now.Millisecond
            My.Application.DoEvents()
        Loop
    End Sub
    Public Sub WaitSeconds(ByVal Seconds As Integer)
        Dim Time As Integer = Now.Second
        Time = Time + Seconds
        If Time > 59 Then
            Time = Time - 60
        End If
        Do Until Time = Now.Second
            My.Application.DoEvents()
        Loop
    End Sub

Das Betriebssytem ist dort Windows XP.
Zuhause Funktioniert die Funktion nicht. Das einzige was unterschiedlich ist (ausser Hardware natürlich) das ich Windows Vista 64 Buiness verwende,

 

[Nico Graichen]

Hi

Bitte mit angeben, wie sich "funktioniert nicht" äußert!
Hast du mal debugged, um zu schauen, wo es hapert?

 

[Lord of Fire]

Also ich hab die Funktionen unter Vista Ultimate 64 bit getestet und keine Fehler gefunden, solange man bei der Wait Funktion nicht größer als 1000 eingibt.
Am besten ist es, wenn du wie Nico Graichen schon gesagt hat, den Fehler etwas besser beschreibst.

 

[Norbert Eder]

Die Frage ist eigentlich:
Wozu brauchst du so eine Implementierung? Wirkt auf mich wie eine Notlösung.

 

[Ichbinalex]

Die Frage ist eigentlich:
Wozu brauchst du so eine Implementierung? Wirkt auf mich wie eine Notlösung.

Ich will eine Funktion stoppen, aber die sleep Funktion kann ich nicht verwenden, da das Skript im Webbrowser nicht weiterläuft (Skript von der Webseite).

Es kommt keine Fehlermeldung, aber die die Schleife dauert zu lange.

 

[Lord of Fire]

Wenn du deine Wait Funktion für Werte größer als 1000 benutzt, dann dauert sie immer zu lange, aber für Sekunden hast du doch die WaitSeconds Funktion.
Oder welche Werte benutzt du denn?
Also bei mir geht es soweit.

 

[Ichbinalex]

Keine Werte in Bereichen in denen es nicht funktionieren würde.
Mein Programm läuft ja unter Win XP. Ich werds nochmal testen vll hab ich doch nen Fehler eingebaut.