FATIHTALI Posted March 5, 2009 Share Posted March 5, 2009 Hello. I need some information. I want to notify something on system tray. For example when we receive a mail Massenger or Outlook showing notifiying or alerting from system tray. else when some be online messenger alerting us. I need that kind of program. How can make that program. Thanks. Fatih Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
killerofsix Posted March 5, 2009 Share Posted March 5, 2009 Look in helpfile. TrayTip "The quieter you are, the more you are able to hear..." My AppsUSB Finder Link to comment Share on other sites More sharing options...
FATIHTALI Posted March 6, 2009 Author Share Posted March 6, 2009 It is not good for me. Because my warnings will be long some times there will be weblinks picture. it will be news... Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted March 6, 2009 Moderators Share Posted March 6, 2009 FATIHTALI, Is this the sort of thing you are looking for?expandcollapse popup#include <WindowsConstants.au3> #Include <WinAPI.au3> ; Create Toast window Global $hGUI = GUICreate("", 200, 100, @DesktopWidth - 210, @DesktopHeight - 130, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) Global $hLabel = GUICtrlCreateLabel("Click to close", 1, 1, 198, 198) ; Slide in Toast - but keep focus on current window _WinAnimate($hGUI, 0x00040008) $hCurrWnd = _WinAPI_GetForegroundWindow() GUISetState(@SW_SHOW, $hGUI) WinActivate($hCurrWnd, "") ; Wait for click from Toast While 1 Local $aMsg = GUIGetMsg(1) If $aMsg[1] = $hGUI And $aMsg[0] = $hLabel Then ExitLoop WEnd ; Slide out window _WinAnimate($hGUI, 0x00050004) Exit ; -------------- ; Gary Frost's WinAnimate function Func _WinAnimate($h_gui, $i_mode, $i_duration = 1000) If @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" Or @OSVersion = "WIN_VISTA" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $h_gui, "int", $i_duration, "long", $i_mode) Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError') If $ai_gle[0] <> 0 Then Return SetError(1, 0, 0) EndIf Return 1 Else Return SetError(2, 0, 0) EndIf EndFunc;==> _WinAnimate() If so, I can point you to a more complete version. :-) M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
FATIHTALI Posted March 6, 2009 Author Share Posted March 6, 2009 What a greate code. Thank you so much. Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
FATIHTALI Posted March 11, 2009 Author Share Posted March 11, 2009 Hello again. I tried to add some code before to exit. In the sample when we click notify program closing. I add _RunDos and IECreate command before the EXIT. Also I use Filewriteline. Filewriteline is working well. I never see problem. but _RunDos and _IECreate I couldnt resolve this problem. Coul you help me? CODE; Wait for click from Toast While 1 Local $aMsg = GUIGetMsg(1) If $aMsg[1] = $hGUI And $aMsg[0] = $hLabel Then ExitLoop WEnd ; Slide out window _WinAnimate($hGUI, 0x00050004) ;$rc = _RunDos("http://bit/NY/Sayfalar/NY1.aspx") _IECreate("www.google.com",0,0,1,0) $file = FileOpen(@ScriptDir&"\haberci.log", 1) FileWriteLine($file, ""&@ComputerName&"test,"&@OSVersion&","&@OSServicePack&",program_worked") FileClose($file) Exit Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted March 12, 2009 Moderators Share Posted March 12, 2009 FATIHTALI,Your code for _IECreate does not have the "$f_visible" parameter set. You need to change the line to read:_IECreate("www.google.com",0,1,1,0)That works for me.I have no idea about the _RunDOS command - sorry!M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
FATIHTALI Posted March 12, 2009 Author Share Posted March 12, 2009 FATIHTALI, Your code for _IECreate does not have the "$f_visible" parameter set. You need to change the line to read:_IECreate("www.google.com" ,0,1,1,0) That works for me. I have no idea about the _RunDOS command - sorry! M23 thanks. When I deleted ,0,1,1,0 It worked well. Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
FATIHTALI Posted April 18, 2009 Author Share Posted April 18, 2009 Can we add more complex Gui or button like Yes No ... I add buttons but It couldnt show. FATIHTALI, Is this the sort of thing you are looking for?expandcollapse popup#include <WindowsConstants.au3> #Include <WinAPI.au3> ; Create Toast window Global $hGUI = GUICreate("", 200, 100, @DesktopWidth - 210, @DesktopHeight - 130, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) Global $hLabel = GUICtrlCreateLabel("Click to close", 1, 1, 198, 198) ; Slide in Toast - but keep focus on current window _WinAnimate($hGUI, 0x00040008) $hCurrWnd = _WinAPI_GetForegroundWindow() GUISetState(@SW_SHOW, $hGUI) WinActivate($hCurrWnd, "") ; Wait for click from Toast While 1 Local $aMsg = GUIGetMsg(1) If $aMsg[1] = $hGUI And $aMsg[0] = $hLabel Then ExitLoop WEnd ; Slide out window _WinAnimate($hGUI, 0x00050004) Exit ; -------------- ; Gary Frost's WinAnimate function Func _WinAnimate($h_gui, $i_mode, $i_duration = 1000) If @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" Or @OSVersion = "WIN_VISTA" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $h_gui, "int", $i_duration, "long", $i_mode) Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError') If $ai_gle[0] <> 0 Then Return SetError(1, 0, 0) EndIf Return 1 Else Return SetError(2, 0, 0) EndIf EndFunc;==> _WinAnimate() If so, I can point you to a more complete version. :-) M23 Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted April 19, 2009 Moderators Share Posted April 19, 2009 FATIHTALI, It is a normal wondow, so there should be no reason for other controls to fail. This works for me:expandcollapse popup#include <WindowsConstants.au3> #Include <WinAPI.au3> ; Create Toast window Global $hGUI = GUICreate("", 200, 100, @DesktopWidth - 210, @DesktopHeight - 130, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) Global $hButton_1 = GUICtrlCreateButton("Button 1", 10, 10, 80, 30) Global $hButton_2 = GUICtrlCreateButton("Button 2", 10, 50, 80, 30) Global $hButton_3 = GUICtrlCreateButton("Close", 100, 10, 80, 30) ; Slide in Toast - but keep focus on current window _WinAnimate($hGUI, 0x00040008) $hCurrWnd = _WinAPI_GetForegroundWindow() GUISetState(@SW_SHOW, $hGUI) WinActivate($hCurrWnd, "") ; Wait for click from Toast While 1 Local $aMsg = GUIGetMsg(1) If $aMsg[1] = $hGUI Then Switch $aMsg[0] Case $hButton_1 MsgBox(0, "Test", "You pressed Button 1") Case $hButton_2 MsgBox(0, "Test", "You pressed Button 2") Case $hButton_3 ExitLoop EndSwitch EndIf WEnd ; Slide out window _WinAnimate($hGUI, 0x00050004) Exit ; -------------- ; Gary Frost's WinAnimate function Func _WinAnimate($h_gui, $i_mode, $i_duration = 1000) If @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" Or @OSVersion = "WIN_VISTA" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $h_gui, "int", $i_duration, "long", $i_mode) Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError') If $ai_gle[0] <> 0 Then Return SetError(1, 0, 0) EndIf Return 1 Else Return SetError(2, 0, 0) EndIf EndFunc;==> _WinAnimate() M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
FATIHTALI Posted May 6, 2009 Author Share Posted May 6, 2009 I add background. But When I start program only Button1 showing. So when I move mouse on Close and Button2 it is showing. I couldnt understand why. $Pic21 = GUICtrlCreatePic(@ScriptDir&"\bitweb.jpg", 0, 0, 401, 102) ;BitOR($S2S_NOTIFY,$W2S_GROUP,$W2S_CLIPSIBLINGS)) Startup Agent It is my small Startup Agent. You can install programs on startup Domain pc without Admin rights. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted May 7, 2009 Moderators Share Posted May 7, 2009 FATIHTALI, You need to disable the Pic control. Try it like this:; First the Pic $Pic21 = GUICtrlCreatePic(@ScriptDir&"\bitweb.jpg", 0, 0, 401, 102) ; Now disable it GUICtrlSetState(-1, $GUI_DISABLE) ; Finally the buttons Global $hButton_1 = GUICtrlCreateButton("Button 1", 10, 10, 80, 30) Global $hButton_2 = GUICtrlCreateButton("Button 2", 10, 50, 80, 30) Global $hButton_3 = GUICtrlCreateButton("Close", 100, 10, 80, 30) Cretaing in this order gives me a background image and all the buttons show (and work!). M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now