[SOLVED] VB to AutoIt v3

[JScript]

Hello everybody,

Could someone help me pass this little VB code for AutoIt?

expandcollapse popup

Option Explicit
Private Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Private Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type

Private Type BITMAPINFO8
    bmiHeader As BITMAPINFOHEADER
    bmiColors(255) As RGBQUAD
End Type

Private Sub GrayScale_Click()
    ' // Convert Picture1 to GrayScale //
    Dim DeskWnd As Long, DeskDC As Long
    Dim MyDC As Long
    Dim MyDIB As Long, OldDIB As Long
    Dim DIBInf As BITMAPINFO8
    Dim MakePal As Long
    
    Picture1.AutoRedraw = True
    
    ' Create DC based on desktop DC
    DeskWnd = GetDesktopWindow()
    DeskDC = GetDC(DeskWnd)
    MyDC = CreateCompatibleDC(DeskDC)
    ReleaseDC DeskWnd, DeskDC
    ' Validate DC
    If (MyDC = 0) Then Exit Sub
    ' Set DIB information
    With DIBInf
        With .bmiHeader ' Same size as picture
            .biWidth = Picture1.ScaleX(Picture1.ScaleWidth, Picture1.ScaleMode, vbPixels)
            .biHeight = Picture1.ScaleY(Picture1.ScaleHeight, Picture1.ScaleMode, vbPixels)
            .biBitCount = 8
            .biPlanes = 1
            .biClrUsed = 256
            .biClrImportant = 256
            .biSize = Len(DIBInf.bmiHeader)
        End With
        ' Palette is Greyscale
        For MakePal = 0 To 255
            With .bmiColors(MakePal)
                .rgbRed = MakePal
                .rgbGreen = MakePal
                .rgbBlue = MakePal
            End With
        Next MakePal
    End With
    ' Create the DIBSection
    MyDIB = CreateDIBSection8(MyDC, DIBInf, 0, ByVal 0&, 0, 0)
    If (MyDIB) Then ' Validate and select DIB
        OldDIB = SelectObject(MyDC, MyDIB)
        ' Draw original picture to the greyscale DIB
        BitBlt MyDC, 0, 0, DIBInf.bmiHeader.biWidth, DIBInf.bmiHeader.biHeight, Picture1.hdc, 0, 0, vbSrcCopy
        ' Draw the greyscale image back to picture box 1
        BitBlt Picture1.hdc, 0, 0, DIBInf.bmiHeader.biWidth, DIBInf.bmiHeader.biHeight, MyDC, 0, 0, vbSrcCopy
        ' Clean up DIB
        SelectObject MyDC, OldDIB
        DeleteObject MyDIB
    End If
    ' Clean up DC
    DeleteDC MyDC
    ' Redraw
    Picture1.Refresh
End Sub

Source: http://www.allquests.com/question/3418218/Convert-color-images-to-black-and-white.html

Edit: I found the light at the end of the tunnel...

And the best: in assembler! It has what I need and much more...

Link:

Edited March 21, 2011 by jscript

[JScript]

If have someone on the forum who understands VB can give me a hand, I shall be very grateful...

Edited March 16, 2011 by jscript

[PsaltyDS]

AutoIt has a lot in common with VBScript, but is not compatible with plain VB. VB code depends on libraries that are not available to an AutoIt script.

If you wish to perform that function in AutoIt, scrap the VB code and look at calling ImageMagick instead. Use the forum search for examples.

[ptrex]

@jscript

An other option is to use PDFCreator if PDF greyscale output of the picture is OK.

Look at the VBScript examples TestCompression.vbs provided with PDFCreator installation.

Rgds,

ptrex

[JScript]

@PsaltyDS

@ptrex

Thanks for the replies!

But giving a very detailed search, I found the light at the end of the tunnel...

And the best: in assembler! It has what I need and much more...

Link: