Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: #!drvy en 15 Diciembre 2015, 14:36 PMSi bueno... solo hace falta ver la juventud y los viejos para darse de hostias contra la pared.
Cita de: Senior++ en 15 Diciembre 2015, 15:58 PMtodo esta pensado para que tardes mas o menos, te banean...
Dim captcha As KeyValuePair(Of Bitmap, String) = GenerateCaptcha(length:=5, size:=PictureBox1.Size)
PictureBox1.BackgroundImage = captcha.Key
Console.WriteLine(captcha.Value)
Dim rand As New Random
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Generates a captcha image.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim captcha As KeyValuePair(Of Bitmap, String) = GenerateCaptcha(5, PictureBox1.ClientSize)
''' PictureBox1.BackgroundImage = captcha.Key
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="length">
''' The character length.
''' </param>
'''
''' <param name="size">
''' The image size.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' A <see cref="KeyValuePair(Of Bitmap, String)"/> that contains the captcha image and the resulting string.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GenerateCaptcha(ByVal length As Integer,
ByVal size As Size) As KeyValuePair(Of Bitmap, String)
Return GenerateCaptcha(length, size.Width, size.Height)
End Function
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Generates a captcha image.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim captcha As KeyValuePair(Of Bitmap, String) = GenerateCaptcha(5, PictureBox1.Width, PictureBox1.Height)
''' PictureBox1.BackgroundImage = captcha.Key
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="length">
''' The character length.
''' </param>
'''
''' <param name="width">
''' The image width.
''' </param>
'''
''' <param name="height">
''' The image height.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' A <see cref="KeyValuePair(Of Bitmap, String)"/> that contains the captcha image and the resulting string.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GenerateCaptcha(ByVal length As Integer,
ByVal width As Integer,
ByVal height As Integer) As KeyValuePair(Of Bitmap, String)
Dim captcha As New Bitmap(width, height)
Dim fontHeight As Integer = (height \ 2)
Dim vLineSpacing As Integer = 2
Dim hLineSpacing As Integer = 2
Dim str As String = String.Join("", (From c As Char In "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Order By rand.Next Select c).Take(length))
Using g As Graphics = Graphics.FromImage(captcha)
g.InterpolationMode = InterpolationMode.High
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.CompositingQuality = CompositingQuality.HighQuality
Using gradientBrush As New LinearGradientBrush(New Point(0, (height \ 2)),
New Point(width, (height \ 2)),
Color.FromArgb(rand.Next(&HFF7D7D7D, &HFFFFFFFF)),
Color.FromArgb(rand.Next(&HFF7D7D7D, &HFFFFFFFF)))
' Draw gradient background.
g.FillRectangle(gradientBrush, New Rectangle(0, 0, width, height))
End Using ' gradientBrush
Using linesPen As New Pen(Brushes.Black, 1)
' Draw vertical lines.
For i As Integer = 1 To width
Dim ptop As New Point(i * vLineSpacing, 0)
Dim pBottom As New Point(i * vLineSpacing, height)
g.DrawLine(linesPen, ptop, pBottom)
Next i
' Draw horizontal lines.
For i As Integer = 1 To height
Dim ptop As New Point(0, i * hLineSpacing)
Dim pBottom As New Point(width, i * hLineSpacing)
g.DrawLine(linesPen, ptop, pBottom)
Next i
End Using ' linesPen
Using font As New Font("Arial", fontHeight)
Using path As New GraphicsPath
For i As Integer = 0 To (str.Length - 1)
Dim charX As Integer =
(((i * (width - (g.MeasureString(str(i), font, width).ToSize.Width \ length)))) \ length)
Dim charY As Integer = (height \ 2)
path.AddString(str(i), font.FontFamily, FontStyle.Bold, fontHeight,
New Point(charX, charY), New StringFormat With {.LineAlignment = StringAlignment.Center})
Next i
' Draw characters.
g.DrawPath(Pens.Black, path)
g.FillPath(Brushes.Gainsboro, path)
End Using
End Using ' font
End Using ' g
Return New KeyValuePair(Of Bitmap, String)(captcha, str)
End FunctionCita de: ivancea96 en 13 Diciembre 2015, 18:14 PM
¿Podría ser cosa del tamaño de 'DeviceModeFields'? ¿Tiene el tamaño correcto?
Cita de: ivancea96 en 13 Diciembre 2015, 18:14 PM
los miembros del union tienen el mismo offset en ambas implementaciones?
[StructLayout(LayoutKind.Sequential)]
public struct DevMode {
private const int CchDeviceName = 32;
private const int CchFormName = 32;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = CchDeviceName)]
public string DeviceName;
public short SpecVersion;
public short DriverVersion;
public short Size;
public short DriverExtra;
public DeviceModeFields Fields;
public UnionDevMode1 test1;
public short Color;
public short Duplex;
public short YResolution;
public short TTOption;
public short Collate;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = CchFormName)]
public string FormName;
public short LogPixels;
public int BitsPerPixel;
public int PixelsWidth;
public int PixelsHeight;
public UnionDevMode2 test2;
public int DisplayFrequency;
public int IcmMethod;
public int IcmIntent;
public int MediaType;
public int DitherType;
public int Reserved1;
public int Reserved2;
public int PanningWidth;
public int PanningHeight;
}
[StructLayout(LayoutKind.Explicit)]
public struct UnionDevMode1 {
[FieldOffset(0)] public SubUnionDevMode1 subUnion1;
[FieldOffset(0)] public SubUnionDevMode2 subUnion2;
}
[StructLayout(LayoutKind.Sequential)]
public struct SubUnionDevMode1 {
public short Orientation;
public short PaperSize;
public short PaperLength;
public short PaperWidth;
public short Scale;
public short Copies;
public short DefaultSource;
public short PrintQuality;
}
[StructLayout(LayoutKind.Sequential)]
public struct SubUnionDevMode2 {
public Win32.Types.Point Position;
public DeviceModeDisplayOrientation DisplayOrientation;
public int DisplayFixedOutput;
}
[StructLayout(LayoutKind.Explicit)]
public struct UnionDevMode2 {
[FieldOffset(0)] public int DisplayFlags;
[FieldOffset(0)] public int Nup;
}#include <windows.h>
int main ()
{
printf ("offsetof is %d\n",(int)offsetof(DEVMODE,dmColor));
return 0;
}[StructLayout(LayoutKind.Sequential)]
public struct DevMode {
private const int CchDeviceName = 32;
private const int CchFormName = 32;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = CchDeviceName)]
public string DeviceName;
public short SpecVersion;
public short DriverVersion;
public short Size;
public short DriverExtra;
public DeviceModeFields Fields;
public UnionDevMode1 test1;
public short Color;
public short Duplex;
public short YResolution;
public short TTOption;
public short Collate;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = CchFormName)]
public string FormName;
public short LogPixels;
public int BitsPerPixel;
public int PixelsWidth;
public int PixelsHeight;
public UnionDevMode2 test2;
public int DisplayFrequency;
public int IcmMethod;
public int IcmIntent;
public int MediaType;
public int DitherType;
public int Reserved1;
public int Reserved2;
public int PanningWidth;
public int PanningHeight;
}
[StructLayout(LayoutKind.Explicit)]
public struct UnionDevMode1 {
[FieldOffset(0)] public SubUnionDevMode1 subUnion1;
[FieldOffset(0)] public SubUnionDevMode2 subUnion2;
}
[StructLayout(LayoutKind.Sequential)]
public struct SubUnionDevMode1 {
public short Orientation;
public short PaperSize;
public short PaperLength;
public short PaperWidth;
public short Scale;
public short Copies;
public short DefaultSource;
public short PrintQuality;
}
[StructLayout(LayoutKind.Sequential)]
public struct SubUnionDevMode2 {
public Win32.Types.Point Position;
public DeviceModeDisplayOrientation DisplayOrientation;
public int DisplayFixedOutput;
}
[StructLayout(LayoutKind.Explicit)]
public struct UnionDevMode2 {
[FieldOffset(0)] public int DisplayFlags;
[FieldOffset(0)] public int Nup;
}