Popup maker

[zeroZshadow]

i make a scripts that creates a MSN like poup, just for the fun of it

have fun with it

#notrayicon
#include <GUICONSTANTS.au3>
_Popup("hallo daar",2000)

Func _Popup($text,$sleep)
dim $Y = @DesktopHeight
$handle = GUICreate("Popup",100,100,@DesktopWidth-110,@DesktopHeight,0x80040000,0x00000088)
$label1 = GUICtrlCreateLabel($text,5,10,95,90)
GUISetState()
for $i = 1 to 14
    WinMove ( "Popup","",@DesktopWidth-110,$Y)
    $Y = $Y-10
    sleep(100)
Next
WinMove ( "Popup","",@DesktopWidth-110,$Y+8)
$Y = $Y-8
sleep($sleep)
WinMove ( "Popup","",@DesktopWidth-110,$Y-8)
$Y = $Y+10
for $i = 1 to 14
    WinMove ( "Popup","",@DesktopWidth-110,$Y)
    $Y = $Y+10
    sleep(100)
Next
EndFunc

btw its pretty handy for instead of balloons or whatever

[layer]

yea that's actually pretty cool, why didnt i think of something like that! good work

[zeroZshadow]

thanks man

i'm trying to make one now, with an msn style (just a picture )

[steveR]

Hehe, that's cute. Could be used for a lot of things!

[zeroZshadow]

newer version is done, i upload the image also

#notrayicon
#include <GUICONSTANTS.au3>
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\petprogram\popup.bmp",@ScriptDir&"\popup.bmp")
_Popup("I am a Popup :P",2000)


Func _Popup($text,$sleep)
dim $Y = @DesktopHeight
$handle = GUICreate("Popup",181,116,@DesktopWidth-191,@DesktopHeight,0x80000000,0x00000088)
GUICtrlCreatePic (@ScriptDir&"\popup.bmp",0,0,181,116,0x0100)
$label1 = GUICtrlCreateLabel($text,10,30,171,86)
GUISetState()
for $i = 1 to 16
    WinMove ( "Popup","",@DesktopWidth-191,$Y)
    $Y = $Y-10
    sleep(100)
Next
sleep($sleep)
for $i = 1 to 16
    WinMove ( "Popup","",@DesktopWidth-191,$Y)
    $Y = $Y+10
    sleep(100)
Next
EndFunc

Edited April 14, 2005 by zeroZshadow

[steveR]

AH, I think my tray just cussed me out! j/k Very cool!

[Mosquitos]

Is it not better if you create a tempdir and that you delete the tempdir if the popup closed.Like this:

#notrayicon
#include <GUICONSTANTS.au3>
FileInstall("C:\popup.bmp",@TempDir & "\popup.bmp")
_Popup("I am a Popup :P",2000)


Func _Popup($text,$sleep)
dim $Y = @DesktopHeight
$handle = GUICreate("Popup",181,116,@DesktopWidth-191,@DesktopHeight,0x80000000,0x00000088)
GUICtrlCreatePic (@TempDir & "\popup.bmp",0,0,181,116,0x0100)
$label1 = GUICtrlCreateLabel($text,10,30,171,86)
GUISetState()
for $i = 1 to 16
    WinMove ( "Popup","",@DesktopWidth-191,$Y)
    $Y = $Y-10
    sleep(100)
Next
sleep($sleep)
for $i = 1 to 16
    WinMove ( "Popup","",@DesktopWidth-191,$Y)
    $Y = $Y+10
    sleep(100)
    
If $handle = $GUI_EVENT_CLOSE Then
      FileDelete(@TempDir & "\popup.bmp")
   EndIf
Next
EndFunc

ps: My birthday is 4october

Edited April 14, 2005 by Mosquitos

[zeroZshadow]

i know about the temp dir, but i needed to be sure that it wrote is, so i took the scriptdir

btw, why do u delete the temp dir???

just leave it there

[zeroZshadow]

oooo shit, i just see i left the BAD text into the popup example.

SORRY SORRY SORRY

i'll get it away, it was a text lenght test (i think )

[Mosquitos]

i know about the temp dir, but i needed to be sure that it wrote is, so i took the scriptdir

btw, why do u delete the temp dir???

just leave it there

<{POST_SNAPBACK}>

Omdat hij als je het script gebruikt de popup.bmp achterliet in uw map.

Because if you use the script he left the popup.bmp into the map.

[zeroZshadow]

dat zou ut allen maar sneller maken als je de volgende keer opstart

That would only make it faster when u use it next time

rare jongens, die belgen XD

[buzz44]

I was looking at msdn yesterday and found this exact 'topic' of creating a popup window (Windows messenger style) and you can put whatever text you want in it, like a proper one that Messenger uses, but, I can't find the link and I dont think my History recorded the site . Might be good to poke around but .

[Mosquitos]

I use it to remind me for importent things

Or is there a script for a reminder?

[zeroZshadow]

I was looking at msdn yesterday and found this exact 'topic' of creating a popup window (Windows messenger style) and you can put whatever text you want in it, like a proper one that Messenger uses, but, I can't find the link and I dont think my History recorded the site . Might be good to poke around but .

<{POST_SNAPBACK}>

PLEAS TRY TO FIND THAT TOPIC!!!

i am searching for it for 2 days, but i just can't find it.

thats why i made this.

btw there IS a topic about how to sync the toasts (popups)

pleas try to remeber what u did.

[buzz44]

I will lol. I was first looking at the AnimateWindow Function and then I sort of looked around form there. I think it might have something to do with window property's? Maybe ask Larry, he seems to know about Dll Calls and stuff.

[zeroZshadow]

thanks man, btw heres ya animatewindow

http://msdn.microsoft.com/library/default....imatewindow.asp

[FrashMX]

Very nice!

Is it somehow possible to determine the top co-ords of the start menu? I like to stretch the taskbar when I use alot programs so it would be cool if the popup would not overrule the start menu/taskbar.

[zcoacoaz]

yeah, and it looks kind of ugly for me because i have my taskbar on the left hand side of my screen

[TuMbLeWeEd]

Very nice!

Is it somehow possible to determine the top co-ords of the start menu? I like to stretch the taskbar when I use alot programs so it would be cool if the popup would not overrule the start menu/taskbar.

<{POST_SNAPBACK}>

You can do it like this:

$pos = ControlGetPos("Program Manager", "", "SysListView321")
    $x = $pos[2];X position
    $y = $pos[3];Y position

This wil get the workable desktop sizes

Your startmenu can be anywhere then

[TuMbLeWeEd]

Very nice!

Is it somehow possible to determine the top co-ords of the start menu? I like to stretch the taskbar when I use alot programs so it would be cool if the popup would not overrule the start menu/taskbar.

<{POST_SNAPBACK}>

You can do it like this:

$array = ControlGetPos("Program Manager", "", "SysListView321")
    $x = $array[0];X position 
    $y = $array[1];Y position 
    $w = $array[2];Width 
    $h = $array[3];Height

This wil get the workable desktop sizes and possition

You can figureout on the X and Y positions where your start menu is located and the Width and Height is your real desktopsize

Edited April 15, 2005 by TuMbLeWeEd