Visual Basic Forum

Verfasst am: 07.08.2010, 10:20 Aufrufe: 632

@Christopher.g Gäbs bei dir nicht ein Problem wenn der Monitor eine Auflösung hat, bei der eine verschiebung um 800 Pixel nicht ausreicht? Kann man nicht irgendwie die aktuelle Auflösung von einem Monitor rausfinden?

Verfasst am: 17.04.2010, 22:46 Aufrufe: 478

Ich habe mir mit VB 08 ein Desktop Screenshoter gemacht. Nur habe ich ein Problem. Das Programm macht die Bilder Automatisch in 1600 x 900 (Pixel) und das ist für mich eine zu hohe Auflösung. Kann mir jemand sagen was für ein Code ich eingeben muss damit das Programm automatisch 800 x 600 (Pixel) Bilder macht? Ich weiss nur das ich was bei Size ändern muss aber ich weiss nicht was. Könnt ihr es an meinem Code zei ...

Verfasst am: 24.09.2009, 22:14 Aufrufe: 492

Hi , ich suche schon etwas länger danach =D also ihr kennt bestimmt , man hat eine PictureBox und macht dorf die pixel die Pink sind transparent =O gut.Ich würde gerne es schaffen gewisse pixel transparent zu machen also z.B. auf der Form pixel X und Y ganz durchsichtig =)hoffe ihr könnt mir helfen :Dmfg

Verfasst am: 17.04.2009, 19:56 Aufrufe: 1062

Den Weg über die Farbe des Cursors bin ich nicht gegangen, ich glaub ohne weiteres kann man die Farbe auch gar nicht abfragen. Allerdings kann man ja die Farbe des Bildes auf einem bestimmten Pixel abfragen, da man die Koordinaten der Maus hat, ist das also kein Problem. Wenn man die Farbe des Bildes hat, kann man einfach die Komplementärfarbe bilden. Hier mal ein Beispielcode (C#): private void picture ...

Verfasst am: 09.04.2009, 10:06 Aufrufe: 906

.. Speicher ich jetzt jedes Pixel in einen neuen Element ab? Dann hab ich ja später tausende Elemente. Schick ich dann jedes Element einzeln? Das Problem ist doch wenn ich alles auf einmal schicke, das auf der anderen Seite ich nur den "zusammengeschmissenen" Haufen von Pixel hab. Zb kommt doch dann sowas in der Art heraus: 102530110 Jetzt weiß ich aber zb nicht ob das erste Pixel die Zahl ...

Verfasst am: 08.04.2009, 23:24 Aufrufe: 906

Hallo, ich möchte 2 Bilder miteinander vergleichen. Rauskommen soll eine Art Fernwartungs/Desktop-Dienst ala Teamviewer und VNC. Bin schnell draufgestoßen das man alle Pixel XOR'en soll. Ich habe es soweit verstanden das wenn ich 2 gleiche Werte XOR'e, ich als Ergebnis 0 erhalte, wenn ich 2 unterschiedliche Zahlen XOR'e bekomm ich eine bestimmte Zahl heraus. Soweit so gut; aber wie speicher ich die M ...

Verfasst am: 06.04.2009, 18:25 Aufrufe: 854

Bild ins RAM oder Grafikkarte laden (Format ist dabei völlig egal, ich kann es so konvertieren, wie es das Programm braucht, ist ja nur 1 Bild, ändert sich nicht mehr). 2. Aktuelle X/Y Position von Steuer-Hardware lesen. 3. Bildausschnitt für X/Y Position anzeigen (das Display hat 1024x600y Pixel). 4. goto 2. Also im Klartext: Ein 1024x600y großer Ausschnitt aus einem vielleicht 8000x2000y Pixel großen Bild ...

Verfasst am: 20.09.2008, 14:26 Aufrufe: 723

Verfasst am: 17.09.2008, 17:06 Aufrufe: 1294

Verfasst am: 16.09.2008, 08:07 Aufrufe: 2739

hey leute ich hab wieder mal eine frage ... und zwar möchte ich z.b. in der picture1 pixel (x/y) 20/20 in rot haben ich hab zwar schon gefundne wie man ein pixel ausliest aber wie mans ändert find ich nicht habt ihr vl eine idee?? lg

Verfasst am: 10.09.2008, 13:32 Aufrufe: 1731

(Oberxil;8192)Wie kann ich die Pixel vergleichen?Bzw Wie kann ich 2 pictureboxen bzw imageboxen vergleichenhttp://forum.chip.de/basic/vb6-imageboxen-...tml#post3582183

Verfasst am: 10.09.2008, 13:19 Aufrufe: 1731

Wie kann ich die Pixel vergleichen?Bzw Wie kann ich 2 pictureboxen bzw imageboxen vergleichen

Verfasst am: 10.09.2008, 13:16 Aufrufe: 1731

(Oberxil;8189)Wie könnte man in VB6 eine Captcha erkennung realisieren?Das wird schwer, du musst die Pixel des Bildes einzeln auswerten und dann noch Störungen herausfilltern und bedenken das die Buchstaben oft nicht grade sind, sondern skaliert und das dann auch noch mit einbauen.Ich denke mal das wird dich ein paar Tage kosten sowas wirklich zuverlässig zu coden, je nach Erfahrung mit VB noch länger Wink

.

Verfasst am: 08.09.2008, 15:52 Aufrufe: 1597

0 heißt aber das die Pixel gleich sind!Per String sende wäre wohl genau falsch, da durch ein Nullbyte das Ende eines Strings markiert wird. Du solltest es als Bytearray schicken oder vorher mit Base64 codieren.

Verfasst am: 08.09.2008, 13:44 Aufrufe: 1597

(nicok;8092)Wow vielen Dank, jetzt hab ich es verstanden =)Aber bedarf es nicht einer großen Rechenleistung wenn man jedes Pixel einzeltn einliest, vergleich und es dann in einer Variable abspeichert?Und noch 2 Fragen:1) Wenn ein Pixel eingelesen wird und vergleicht wird das Ergebnis 0 (= Pixel hat sich geändert) ist, wie verschick ich dann dieses Pixel? Bzw wie sieht so ein Pixel überhaupt aus?2) Muss ich dann alles ...

Verfasst am: 08.09.2008, 11:31 Aufrufe: 1597

Wow vielen Dank, jetzt hab ich es verstanden =)Aber bedarf es nicht einer großen Rechenleistung wenn man jedes Pixel einzeltn einliest, vergleich und es dann in einer Variable abspeichert?Und noch 2 Fragen:1) Wenn ein Pixel eingelesen wird und vergleicht wird das Ergebnis 0 (= Pixel hat sich geändert) ist, wie verschick ich dann dieses Pixel? Bzw wie sieht so ein Pixel überhaupt aus?2) Muss ich dann alles in binär ve ...

Verfasst am: 08.09.2008, 10:01 Aufrufe: 1597

XOR ist übrigens das gleiche wie eine binäre Addition ohne Übertrag.Eine wichtige Eigenschaft von XOR ist es das wenn zwei verglichene "Sachen" gleich sind das Ergebnis 0 lautet.Wenn du also 2 bilder bitweise XORst, so werden alle gleichen bits(pixel bei Bitmaps) 0, wenn du also 2 sehr ähnliche Bilder hast werden viele 0en herauskommen. Diese kannst du dann mit einem Kompressionsalgorithmus komprimieren (Viele gleich ...

Verfasst am: 01.09.2008, 15:56 Aufrufe: 2522

Wieso sollte es dann nicht funktionieren?Es werden ja nicht alle Pixel des unvollständigen Kreises durch den anderen übermaltedit:// Mit 'nicht immer' hast du vielleicht recht, aber das müsste man dann austesten

Verfasst am: 01.09.2008, 15:45 Aufrufe: 2522

Also es geht mit sicherheit einfacher aber hier mal meine Theorie:1. Die Kreise sind alle gleich groß2. Die Kreise haben immer die selbe FarbeDu könntest nach einer bestimmten Pixelfarbe suchen und den Kreis dann "abgehen". Und wenn ein Pixel von der Farbe her dann aus der Reihe tanst, weißt du, dass der Kreis unvollständig ist.Ist wahrscheinlich die schwerste Lösung^^Oder die Captchas sind immer gleich von der Numme ...

Verfasst am: 09.08.2008, 13:52 Aufrufe: 724

Verfasst am: 09.08.2008, 13:45 Aufrufe: 724

hi ich hätte mal wieder eine frage und zwar mit der imagebox kann man bilder stretchen... super... aber kann man irgendwie die größe in pixel angeben nicht in twips????? oder kann man das irgendwie umrechen?? habt ihr vl eine idee?? lg

Verfasst am: 30.07.2008, 13:08 Aufrufe: 748

hi, ich hab für vb6 eine tolle funktion gefunden um infos aus einer datei zu fischen:Visual Basic: [code]Option Explicit ' Info-StrukturPrivate Type BitmapHeaderA KennzeichenDerBitmapDatei As Integer DateigrößeInByte As Long ReserviertA As Integer ReserviertB As Integer OffsetDesErstenGrafikbytes As Long Strukturgröße As Long BreiteInPixel As Long HöheInPixel As Long Farbebenen As Integer FarbtiefeInBit As ...

Verfasst am: 06.07.2008, 18:07 Aufrufe: 825

Was macht man nun, wenn ein Eintrag innerhalb der ListBox länger ist als die Listbox breit? Nun ja, man fügt mit Hilfe der SendMessage-API Funktion einen horizontalen Scrollbar hinzu - und dasganze nur nach Bedarf!Visual Basic: SendMessage-Funktion erwartet als dritten Parameter (wParam) die Breite des längsten Eintrags und zwar in der Maßeinheit Pixel!Die Breite eines Eintrags kann man ja mit der TextWidth-Funktion ...

Verfasst am: 16.05.2008, 12:18 Aufrufe: 1620

Pixelfarben werden in einer 6-stelligen Zahl ausgegeben?Naja auch egal :wink:Nun habe ich die Farbe..Wie mach ich nun praktisch ne Farbüberprüfung?Ich will es so "gestalten", dass das Programm iwas macht, sprich "DoEvents" bis der Pixel eine bestimmte Farbe erreicht..lgRegenwurm

Verfasst am: 15.05.2008, 20:54 Aufrufe: 1620

Guten Abend.Ich arbeite im Moment gerade an einem Programm, das eine Pixelfunktion benötigt.http://www.vbarchiv.net/api/details.php?id=getpixelUnter diesem Link, findet man die API von vbarchiv.net.Nun meine Frage:Funktioniert diese API auch, wenn der gesuchte Pixel nicht auf der Form liegt, sondern irgend wo anders ist (bei meinem Fall, ist der Pixel auf einem externen "Programm")?Und wie finde ich nun beispielsweis ...

Verfasst am: 12.05.2008, 20:45 Aufrufe: 891

Verfasst am: 09.05.2008, 18:52 Aufrufe: 1170

Verfasst am: 09.05.2008, 07:51 Aufrufe: 4932

Zum kleinen Screentransfer hätte ich nen Vorschlag:Du XORst immer vor dem Senden den alten Screenshot mit dem Neuen, Pixel die gleichbleiben werden dann 0. Das komprimierst du dann mit einem beliebigen Algo (viele gleiche Werte = gute Kompression) und verschickst es, so kann man imho den Traffic klein halten.

Verfasst am: 17.04.2008, 12:39 Aufrufe: 1754

Ein wie ich finde sehr gutes Programm. Besonders da es uns die Möglichkeit bietet Icons mitverschiedenen Formaten und Farbtiefen in einem zu erstellen.Das benötigen wir, weil VB6 eigentlich nur Icons mit max. 24x24 Pixel und 256Bit Farbtiefe zulässt.Ihr werdet beim einbinden eine Fehlermeldung erhalten bei größeren Icons.Aber man kann wie gesagt Icons erstellen, in denen verschiedene Formate gespeichert sind.Das hat ...

Verfasst am: 30.03.2008, 19:21 Aufrufe: 2329

So denke ich wirds wohl nichts werden. Also. Er meint er möchte ein Bild im Vordergrund anzeigen. Gut, bei VB6 würde man das Bild auf einer Form platzieren, aber gibt es vielleicht ne Möglichkeit das iwie über DirectX Pixel für Pixel zu "zeichnen"? Links zu iwelchen Boards die sich mit sowas beschäftigen wären sehr interessant. Dann kann er dort mal nachfragen. mfg @crusader727 Thx. Ganz ver ...

Verfasst am: 19.03.2008, 00:34 Aufrufe: 655

ich hab was zum erkennen der veränderten pixel gefunden: 'Bildvergleichsfunktion von C. Arnold 'Auch wenn es unkommentiert ist, müsste man es verstehen. Private Function PicCompare(Pic1 As PictureBox, Pic2 As PictureBox) As Single Dim i, j As Integer Dim Color1, Color2 As Long Dim TheColors1 As RGBColor Dim TheColors2 As RGBColor Dim Agree1, Agree2, Agre ...

Verfasst am: 07.02.2008, 14:24 Aufrufe: 671

Man könnte doch auch mit GetDC(0) sich das gesamte Fenster holen, und dann mit den Api bzw. GDI Funktionen weiße Pixel draufmalen; und die sich verändernden Stellen neuzeichnen

Verfasst am: 04.02.2008, 17:10 Aufrufe: 629

Es gibt nur ein Problem mit der maximalen Größe: Die Funktion erwartet die Größenangaben in Pixel, Screen.Width und Screen.Height geben aber die Bildschirm Größe in Twips zurück, man kann das Fenster also wesentlich größer machen als den Bildschirm (bei mir 15 mal weil bei mir 1 Pixel 15 Twips entspricht). Bei dem Funktionsaufruf müsste also stehen: 'Form limitieren '####################### Dim R As SIZEPAR W ...

Verfasst am: 19.01.2008, 15:32 Aufrufe: 4828

Ein wie ich finde sehr gutes Programm. Besonders da es uns die Möglichkeit bietet Icons mit verschiedenen Formaten und Farbtiefen in einem zu erstellen. Das benötigen wir, weil VB6 eigentlich nur Icons mit max. 24x24 Pixel und 256Bit Farbtiefe zulässt. Ihr werdet beim einbinden eine Fehlermeldung erhalten bei größeren Icons. Aber man kann wie gesagt Icons erstellen, in denen verschiedene Formate gespeichert ...

Verfasst am: 04.12.2007, 09:26 Aufrufe: 278

hi, wie kann ich die länge, bzw breite von einem text herausfinden. ich meine nicht text1.width oder len(text1), ich meine die breite eines strings in pixel oder twips. zB. iii XXX beim ersten ist das natürlich kleiner als beim 2. jmd ne ahnung?

Verfasst am: 01.12.2007, 19:59 Aufrufe: 1968

Verfasst am: 01.12.2007, 17:58 Aufrufe: 1968

Danke, die Idee mit den Pixeln ist echt super. Die quali runterdrehen ist eig. kein Problem, da ich eine spez dll verwende (gibts gratis im www) Da gibt es ja ne API mit Getpixel Setpixel usw, das könnte weiterhelfen, echt super idee danke! Mein Problem ist nämlich, dass ich kein Trojaner sondern eben ein RAT Programmieren will. Halt do wo die schwierigkeiten eines Trojaners liegen (stealth, verstecken, unau ...

Verfasst am: 29.11.2007, 17:19 Aufrufe: 1968

Mh gute Frage, aber da ein Video einfach nur eine schnelle Abfolge von Bildern ist, kann ich mir da nichts anderes so recht vorstellen. Um das Problem mit der Datenmenge in Griff zu bekommen könntest du einerseits einfach etwas die Quali runterschrauben / Auflösung verkleinern . Oder aber - was wirklich interessant wäre - nur die Pixel übertragen, die sich ändern. Also praktisch eine Art "Codec" für I ...

Verfasst am: 27.08.2007, 08:24 Aufrufe: 402

Mit GetPixel bist du genau richtig. HIer mehr dazu: http://www.vbarchiv.net/vbapi/GetPixel.php du liest einfach mit nem Timer zb. jede Sekunde mit Getpixel die Farbe dieser Pixel aus und vergeleichst sie per if. Pseudocode: If GetPixel(deinfenster.Handle,300,300) = blau then Runterfahren ElseIf GetPixel(deinfenster.Handel,300,300) = grün then Neustarten End If Hoffe das hilft dir erstmal.

Verfasst am: 27.08.2007, 00:44 Aufrufe: 402

Hallo, ich hab das Problem das ich nicht weiß wie und ob ich ganz bestimmte Pixel überwachen lassen kann. Ich hab die Koordinaten der Pixel aber ich will das, dass Programm automatisch erkennt wenn die eine Stelle z.b. Weiß, die andere Schwarz, und wieder eine andere blau wird und dann der Pc z.b. automatisch herrunterfährt oder so das müsste ich dann theoretisch alleine hinbekommen. Ich programmier erst seit ein pa ...

Verfasst am: 19.08.2007, 16:33 Aufrufe: 1271

For a = 1 To Screen.Width / Screen.TwipsPerPixelX For b = 1 To Screen.Height / Screen.TwipsPerPixelY Farbe = GetPixel(wdc, a, b) Next Next a Du solltest die Berechnung von "Screen.Width / Screen.TwipsPerPixelX" und auch die von Y in jeweils eine Variable übergeben. Natürlich vor der Schleife. Aber schneller wird es mit dieser Methode schätze ich nicht mehr geh ...

Verfasst am: 19.08.2007, 15:08 Aufrufe: 1271

Hi Leute, Meine Fage ist es möglich mit GetPixel alle pixel des monitors auszulesen? Wenn bestimmte Pixel vorkommen sollte es mir angezeigt werden. Danke im Vorraus! Danke im Vorraus Edit// Ich hab es jetzt so: Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hw ...

Verfasst am: 02.08.2007, 16:11 Aufrufe: 560

Das passiert einmal mit erkennung des Musters also der Form und einmal natürlich mit der Farbe. Hier hast du glück das die Buchstaben als einziges schwarz sind. Also wäre der erste schritt das bild pixel für oixel durchzugehen und alles was schwarz ist an der selben position neu zu zeichnen oder alles was nich schwarz is einfach zu löschen. Jetzt hättest du immerhin schon die Buchstaben von allem anderen getrennt. ...

Verfasst am: 20.07.2007, 10:30 Aufrufe: 1257

Ja kann man. -.- Mach 2 Bilder und vergleich die Pixel, und die die verschieden sind, faerbste Gruen (vbGreen).

Verfasst am: 01.06.2007, 14:28 Aufrufe: 1051

. Keine Ahnung warum gerade Pink Confused

Als ich früher mit Pure basic games gemacht habe waren die Hintergründe auch immer Pink. Die erklärung is relativ einfach: Es wird jeder Pixel mit einer bestimmen Farbe Transparent gemacht.Man sucht sich also nich gerade SChwarz oder blau aus da kaum ein Spiel ohne diese Farben auskommt. Aber mal ganz im ernst: Würdest du bei einem 2d Shooter ein Pinken Flugzeug zeichnen? Nee ...

Verfasst am: 31.05.2007, 19:52 Aufrufe: 693

Ja klar. Du musst halt sone Art begrenzung machen mithilfe von pixel angabe... zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700 daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen. nein so einen source hab ich nich Hmm..ist das hier nicht einfacher? Klicks machen: [code]Private Declare Sub mouse_event Li ...

Verfasst am: 31.05.2007, 18:40 Aufrufe: 693

Ja klar. Du musst halt sone Art begrenzung machen mithilfe von pixel angabe... zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700 daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen. nein so einen source hab ich nich

Verfasst am: 28.05.2007, 12:19 Aufrufe: 737

Verfasst am: 07.01.2002, 18:55 Aufrufe: 431

Hi, wie kann ich die jeweiligen Farbanteile in einem Pixel herausfinden, dass mir am Ende bleibt: z.B.: rot = 200 grün = 20 blau = 50 Am Ende sollte die virtuelle "Tiefe" des Pixels in Abhängigkeit der Helligkeit jedes einzelnen Pixels rauskommen. Ich habe es so versucht: Function Tiefe(x, y) Picture1.Picture = LoadPicture(Dateiname) Farbe = Point(x, y) Rot = Farbe And vbRed Grün = (Farbe And vbGreen) \ &H100 Blau ...