| |
Visual-Basic EinsteigerFarbe nicht sichtbar für VB | | | Autor: reisender | Datum: 02.09.13 17:06 |
| Hallo Forum
Visual Basic 6 Enterbrise
Anfänger
Probleme mit „Demon Slayers Anmeldeclient“
http://static.koramgame.com/web/mk/Demon_Slayer_Anmeldeclient.exe
Ich möchte die I-Mailadresse und Passwort mit VB eingeben
Aufrufen und Vokus setzen kann ich mit:
Sub AnmeldungStart()
Dim myProg As String
myProg = "D:\Demon_Slayer_Anmeldeclient.exe"
TaskID = Shell(myProg, vbNormalFocus)
Zeitschleife für Bildaufbau…..?
AppActivate TaskID
End Sub Um zu warten bis der Bildaufbau fertig ist möchte ich in einer Schleife, eine Pixelfarbe vom dem Klienten abfragen mit:
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As _
Long, _
ByVal Y As Long)As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc _
As Long) As Long
Public Function ScreenPixelColor(Optional ByVal X As Long = -1, _
Optional ByVal Y As Long = -1)As Long
Dim nPoint As POINTAPI
Dim nDC As Long
If (X < 0) Or (Y < 0) Then
GetCursorPos nPoint
Else
nPoint.X = X
nPoint.Y = Y
End If
nDC = GetDC(0)
ScreenPixelColor = GetPixel(nDC, nPoint.X, nPoint.Y)
ReleaseDC 0, nDC
End Function Ich bekomme von Überall die Farbcode nur nicht vom dem Anmeldeclient, der scheinbar für das Programm nicht vorhanden ist, da ich von dieser Stelle nur die Farbe vom Hintergrund bekomme.
Auch bei fertig gestellter Eingabemaske.
Was ist daran falsch?
Ich danke euch für eure Hilfe
Ich möchte an dieser Stelle anmerken das ich keinen Hack oder ähndliches machen möchte.
Nur nervt der Anmeldeclient mit den Eingaben.
| |
Re: Farbe nicht sichtbar für VB | | | Autor: Blackbox | Datum: 02.09.13 20:38 |
| Hi
Shell ist eine asynchrone Funktion. Du musst auf deren Return mit den Wait-Funktionen warten (einfach hier Tipps und Tricks mit Shell suchen). | |
Re: Farbe nicht sichtbar für VB | | | Autor: reisender | Datum: 03.09.13 12:18 |
| Hallo Blackbox
Danke dir für deinen Tipp, aber ich muss entweder Blind sein oder noch zu wenig von VB6 verstehen um die Return's mit den Wait-Funktionen zu benutzen.
Dazu kommt, das dieser Anmeldeclient in nicht bestimmbarer Zeiten erst fertig geladen ist.
Daher ist es besser nach der bestimmten Pixelfarbe zu fragen, zumal es auch noch andere Gründe gibt mit der Farbe zu arbeiten.
| |
Re: Farbe nicht sichtbar für VB | | | Autor: Zardoz | Datum: 06.09.13 23:30 |
| Hallo reisender,
wenn du den hWnd des Fensters hast, setz' doch
mal in deinem Code bei GetDC statt der 0 hWnd
ein. Hast du berücksichtigt, dass die Rückgabewerte
Systemfarben sein können? Setz' mal in der Zeile
nach Shell ein DoEvents.
Gruss,
Zardoz | |
Re: Farbe nicht sichtbar für VB | | | Autor: reisender | Datum: 07.09.13 01:48 |
| Hallo Zardoz
Danke dir für deine Antwort.
Leider brachte GetDC(hWnd) keinen Erfolg,
ich bekommen damit überall vom Bildschirm nur die Rückgabe -1.
Beitrag wurde zuletzt am 07.09.13 um 01:49:44 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|