[Release] Scan Pixels function for VB.net menu

User Tag List

Results 1 to 7 of 7
  1. #1
    suicidity's Avatar Contributor
    Reputation
    207
    Join Date
    Oct 2006
    Posts
    1,439
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    [Release] Scan Pixels function for VB.net

    A release to a function i've been working on to make a fishbot in VB. I'm releasing it and hopefully someone will find some use for it. It can be used for anything that involves scanning the screen.

    It is customizable and is fast enough to scan 1.4 million pixels in .54 seconds.

    So here it is.

    The Function itself
    Code:
        Function PixelSearch(ByVal startX, ByVal startY, ByVal rangeX, ByVal rangeY, ByVal color)
            Dim x As Integer
            Dim y As Integer
            Dim cur As Integer
            Dim con As System.Drawing.Color
    
            For x = startX To rangeX
                For y = startY To rangeY
                    cur = API.GetPixel(ScreenDC, x, y)
                    con = ColorTranslator.FromOle(cur)
            ' Put your scan here
                Next
            Next
        End Function
    API.vb Code
    Code:
    Imports System
    Imports System.Runtime.InteropServices
    
    Friend Class API
    
        <DllImport("User32.dll")> _
        Public Shared Function GetCursorPos(ByRef pt As POINTAPI) As Integer
        End Function
    
        <StructLayout(LayoutKind.Sequential)> _
        Public Structure POINTAPI
            Public x As Integer
            Public y As Integer
        End Structure
    
        <DllImport("Gdi32.dll")> _
        Public Shared Function GetPixel(ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer
        End Function
    
        <DllImport("Gdi32.dll")> _
        Public Shared Function CreateDC(ByVal driverName As String, ByVal deviceName As String, ByVal output As String, ByVal lpInitData As IntPtr) As IntPtr
        End Function
    
        <DllImport("Gdi32.dll")> _
        Public Shared Function DeleteDC(ByVal dc As IntPtr) As Boolean
        End Function
    End Class
    To use the function use a string like the following

    Code:
            PixelSearch(0, 0, 1279, 1023, Colorhere)
    The "Colorhere" is a specified color the function will look for. This can be compared by doing a simple scan against pixel colors to a predefined set.

    You could also use a ARGB Set to compare against.

    --

    To scan, you must also call a CreateDC when the form opens.

    You can do this by calling the following string.
    Code:
    ScreenDC = API.CreateDC("DISPLAY", Nothing, Nothing, CType(Nothing, IntPtr))
    You must also delete the DC so when the form is closed put the following.
    Code:
    API.DeleteDC(ScreenDC)

    If you have any questions, post them and I will answer what I can.


    -Suicidity


    -----)(Please leave the copyright text intact)(-----
    This post is copyright by the user posting it and MMOwned.com - World of Warcraft Exploits,Hacks, Bots and Guides, where it was posted. You may not copy or reproduce this information on any other site without written permission from both the poster and MMOwned.com
    Last edited by suicidity; 06-19-2007 at 02:40 PM. Reason: Auto-merged Doublepost

    [Release] Scan Pixels function for VB.net
  2. #2
    RichyG's Avatar Active Member
    Reputation
    45
    Join Date
    Jul 2006
    Posts
    340
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: [Release] Scan Pixels function for VB.net

    I dont know what this is but it looks complicated. Reppage.
    Horde Fanatic

  3. #3
    issacobra's Avatar Active Member
    Reputation
    48
    Join Date
    Nov 2006
    Posts
    262
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: [Release] Scan Pixels function for VB.net

    hm this makes sense. If i didn't just get banned for botting on 6-11 i would definitely finish waht you started. but unless one of my irl friends gives me like $5 or something i'm too lazy and it doesn't help me
    www. leetbrowser .com
    The in-game web browser! No more alt-tabbing out of full screen games!

  4. #4
    suicidity's Avatar Contributor
    Reputation
    207
    Join Date
    Oct 2006
    Posts
    1,439
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: [Release] Scan Pixels function for VB.net

    Well I already got the function scanning for my fishbot but it was just made for my screen. Im hoping to release a opensouce bot later.

  5. #5
    Jummi's Avatar Private
    Reputation
    1
    Join Date
    Apr 2012
    Posts
    3
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I'm starting with visual basic. I run a quick scan the screen to make a pixelbot for LastChaos.

    You could send me some source code of your bot?
    `You could get a full code (I'm new).


    Thank you.

  6. #6
    Jummi's Avatar Private
    Reputation
    1
    Join Date
    Apr 2012
    Posts
    3
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I can not run the code Suicity.
    I could put a complete example?
    Thank you.

  7. #7
    ZetaDarus's Avatar Private
    Reputation
    1
    Join Date
    Jul 2014
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I know this topic is old but someone can give me exemple how to use this code ?

    I know ho to set it and all but how i use it ?

    Im a beginner in VB.net

Similar Threads

  1. [RELEASE] Account Check Functionality for PHP Phishers
    By Apoc in forum WoW Scam Prevention
    Replies: 75
    Last Post: 05-15-2009, 11:20 AM
  2. [Release] Channel_49 vendors updated for newest NCDB
    By kanqaz in forum World of Warcraft Emulator Servers
    Replies: 16
    Last Post: 02-10-2008, 11:48 AM
  3. [Release] CoreWoW Ultimate FunDB for 2.3 - Fully Custom DB
    By latruwski in forum World of Warcraft Emulator Servers
    Replies: 46
    Last Post: 12-24-2007, 05:29 AM
  4. [Release]City Teleport NPC for Antrix
    By latruwski in forum World of Warcraft Emulator Servers
    Replies: 6
    Last Post: 12-18-2007, 08:38 AM
  5. [Release] KILLER'S REPACK for patch 2.3
    By killer78 in forum World of Warcraft Emulator Servers
    Replies: 0
    Last Post: 12-14-2007, 07:51 PM
All times are GMT -5. The time now is 06:02 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search