Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 00:35

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[VB] Maus POsitionieren Frage

Discussion on [VB] Maus POsitionieren Frage within the .NET Languages forum part of the Coders Den category.

Reply
 
Old   #1
 
mrapc's Avatar
 
elite*gold: 238
Join Date: Sep 2009
Posts: 2,327
Received Thanks: 1,164
[VB] Maus POsitionieren Frage

Ich habe ein kleines Programm gemacht was die Maus zu einer bestimmten Farbe bewegen soll und dann die Rechte Maustaste drückt.

Mein einziges Problem:
Die Maus bewegt sich zum Punkt klickt aber erst bei der nächsten Bewegung.
sprich der klick hängt immer einen hinterher.

Somit trift die Maus nie den Perfekten punkt.

Hier einmal der COde wo er nicht stimmt
C&P würden euch nichts bringen es fehlen sämmtliche Deklanationen.

Code:
Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)

        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True

        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 235, 22, 9) 'light red ball colour

                [COLOR="Red"]If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    Mausklick("Links")[/COLOR]
                    looking = False
                    pointx = 1
                    pointy = 1
                    
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While


        Catch ex As Exception
            Label1.Text += 1 'Falls die Farbe nicht exestiert
        End Try
     End Sub
HOffe mir kann jemand helfen.

Genauerer ablauf des Codes
[Spoiler]
Er nimmt einen Screenshot auf und ermittelt anhand dieses Screenshots wo er die Maus positionieren soll und dann klickt er aber wie gesagt immer etwas zu spät.
[/Spoler]
mrapc is offline  
Old 07/06/2011, 18:04   #2
 
Secredo's Avatar
 
elite*gold: 0
Join Date: Jan 2009
Posts: 355
Received Thanks: 106
Quote:
Originally Posted by mrapc View Post
etwas zu spät.
Das Machen eines Screenshots kann etwas dauern, wie lange ist denn deine Verzögerung?
Secredo is offline  
Old 07/06/2011, 21:06   #3
 
mrapc's Avatar
 
elite*gold: 238
Join Date: Sep 2009
Posts: 2,327
Received Thanks: 1,164
Ne es ist immer eine schritt verzögerung
Sprich er positionier wartet ca 1 Sekunde (Timer Interval= 1000)
nach dieser Sekunde klickt er allerdings positioniert er die Maus wieder woanderst und klickt dann da.

Das ding hängt immer 1 Sekunde nach...
mrapc is offline  
Reply


Similar Threads Similar Threads
Frage zu Maus Pos. Anzeiger und Bildschirmtastatur
06/25/2011 - AutoIt - 9 Replies
Hallo erstmal, ich habe 2 Fragen zu meinen Scripts: Zuerst zum Maus Pos. Anzeiger: Ich habe vor, ein GUI zu machen, welches mir die aktuelle Position meiner Maus anzeigt (x und y Wert). Ich hatte es schon geschafft, dass sie beim Starten des Scripts angezeigt wird. Wie bekomme ich das hin, dass es die Position z. B. alle 50ms aktualisiert? Ich würde auch gern eine Hotkey funktion einbauen dass es den aktuellen Wert einfriert. Hier mein derzeitiger Stand: #include <EditConstants.au3>...
Frage: Computer Zubehör (Maus etc.)
05/22/2011 - Technical Support - 11 Replies
Hey ich möchte für wenig Geld gutes Zubehör kaufen sprich Maus, Tastatur, Headset und Mauspad Habe mich jetzt ein wenig schlau gemacht und meine Kaufliste sieht in etwa jetzt so aus: Maus : Logitech MX518 Refresh Tasta : Logitech G11/Logitech G15/Logitech G110/Microsoft Sidewinder X4 Headset : Steel Series Siberia v2 Mauspad : SteelSeries Qck
Frage amerikanische Maus
05/21/2011 - Technical Support - 7 Replies
Hallo, Ich wollte mir eine Maus in Amerika kaufen, da sie dort 30€ billiger ist. Nun meine Frage: Kann ich die an meinen Computer anschließen ?
[FRAGE] Metin Dropp geben und positionieren
03/20/2011 - Metin2 Private Server - 3 Replies
Hey epvp, Ich weiß das es unzählige Tut´s gibt wie man einen Mob iwo hinstellt oder wie man einem Mob nen Dropp gibt, aber bei mir funktioniert das iwie nicht. Ich gehe auf die mab c1(blaues Reich Map1) und dann auf regen.txt, wenn ich mein Metin dort einfüge , kommt er nicht ! Und das mit mob_drop_item.txt das krieg ich auch iwie net hin. BITTE HELFT MIR! MFG xXTailentXx :pimp:
[Frage]Tastatur/Maus Smoothing
12/21/2010 - WarRock - 7 Replies
Es gibt ja Tastatur bzw. Maus Smoothing, was ist daS?



All times are GMT +1. The time now is 00:35.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.