Hello dear monks,
I'm building a screensaver like program in perl for Win32,
my main concern is the correct implementation of multiple API calls like Visual-Basic.
The following code is supposed to take a PrintScreen, open a fullscreen "window" and "draw" the bitmap from the clipboard in the window :

ApiLink( 'user32.dll', 'Private Declare Sub keybd_event Lib "user32" (
+ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As L
+ong)' ) or die $^E;
    ApiLink( 'user32.dll', 'Private Const KEYEVENTF_KEYUP = &H2' ) or 
+die $^E;
    ApiLink( 'user32.dll', 'Function GetScreenBitmap() As Picture' ) o
+r die $^E;
    ApiLink( 'user32.dll', 'Dim pic As StdPicture' ) or die $^E;
    ApiLink( 'user32.dll', 'Set pic = Clipboard.GetData(vbCFBitmap)' )
+ or die $^E;
    ApiLink( 'user32.dll', 'keybd_event vbKeySnapshot, 0, 0, 0' ) or d
+ie $^E;
    ApiLink( 'user32.dll', 'DoEvents' ) or die $^E;
    ApiLink( 'user32.dll', 'keybd_event vbKeySnapshot, 0, KEYEVENTF_KE
+YUP, 0' ) or die $^E;
    ApiLink( 'user32.dll', 'DoEvents' ) or die $^E;
    ApiLink( 'user32.dll', 'Set GetScreenBitmap = Clipboard.GetData(vb
+CFBitmap)' ) or die $^E;
    ApiLink( 'user32.dll', 'Clipboard.SetData pic, vbCFBitmap' ) or di
+e $^E;
    ApiLink( 'user32.dll', 'End Function' ) or die $^E;
    ApiLink( 'user32.dll', 'Set Picture1.Picture = GenScreenBitmap()' 
+) or die $^E;
    ApiLink( 'user32.dll', 'this.Size = new System.Drawing.Size(width,
+ height)' ) or die $^E;
    ApiLink( 'user32.dll', 'this.Setstyle(Controlstyles.DoubleBuffer |
+ Controlstyles.UserPaint |Controlstyles.AllPaintingInWmPaint | Contro
+lstyles.FixedWidth |Controlstyles.FixedHeight, true)' ) or die $^E;
    ApiLink( 'user32.dll', 'this.Updatestyles()' ) or die $^E;
    ApiLink( 'user32.dll', 'this.FormBorderstyle = FormBorderstyle.Non
+e' ) or die $^E;
    ApiLink( 'user32.dll', 'this.TopMost = true' ) or die $^E;
    ApiLink( 'user32.dll', 'this.StartPosition = FormStartPosition.Cen
+terScreen' ) or die $^E;
    ApiLink( 'user32.dll', 'this.ClientSize = new System.Drawing.Size(
+width, height)' ) or die $^E;
    ApiLink( 'user32.dll', 'this.Location = this.DesktopLocation = new
+ System.Drawing.Point(0, 0)' ) or die $^E;
    ApiLink( 'user32.dll', 'public void bitBlt(Picture1, 0, 0)' ) or d
+ie $^E;
[download]

Therefore the first question is if i'm using Win32::API correctly ?
The second question would be - if it's possible to join all these lines into one code (VB / .Net / C++) ?

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.