ersozcan Posted June 30, 2012 Share Posted June 30, 2012 Arkadaşlar elinde hazır traytip olan varmı ama sıradan olmayacak. Quote Link to comment Share on other sites More sharing options...
andryfarukov Posted June 30, 2012 Share Posted June 30, 2012 (edited) 1.si sıradan olmayacak yani nasıl olacak alev falan mı çıkacak 2.si bugün smart install maker ile ilgili bir konu açmıştın orda belirtmiştim zaten Edited June 30, 2012 by andryfarukov Quote Link to comment Share on other sites More sharing options...
ersozcan Posted June 30, 2012 Author Share Posted June 30, 2012 Mesela böyle resimli falan oluyo Yazı tipi değişik oluyo o şekilde Quote Link to comment Share on other sites More sharing options...
andryfarukov Posted June 30, 2012 Share Posted June 30, 2012 [code]Opt("TrayIconHide", 1) #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Local $File = @ScriptDir & "\Test.bmp" Local $ResW = 329 Local $ResH = 79 Local $Gui_X = @DesktopWidth - ($ResW + 5) $Gui_Y = @DesktopHeight - ($ResH + 5) Local $Bclor = 0x0000FF Local $Shell_Pos = WinGetHandle("[CLASS:Shell_TrayWnd]") ;CLASS:Progman If $Shell_Pos <> "" Then $Shell_Pos = WinGetPos($Shell_Pos) If UBound($Shell_Pos) = 4 Then If $Shell_Pos[1] < 1 Then If $Shell_Pos[0] > 0 Then $Gui_X = @DesktopWidth - ($Shell_Pos[2] + ($ResW + 5)) Else If $Shell_Pos[0] < 1 Then $Gui_Y = @DesktopHeight - ($Shell_Pos[3] + ($ResH + 5)) EndIf EndIf EndIf Local $hGUI = GUICreate("BlueLife Test", $ResW, $ResH, $Gui_X, $Gui_Y, 0x80000000, 0x00000080 + 0x00000008 + 0x00080000) GUISetBkColor($Bclor) GUICtrlCreatePic($File,0,0,$ResW,$ResH) __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,5) GUISetState(@SW_SHOW,$hGUI) For $I = 10 To 225 Step 5 __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,$I) Sleep(25) Next Sleep(5000) ;5 Saniye bekleme For $I = 225 To 5 Step -5 __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,$I) Sleep(10) Next Func __WinAPI_SetLayeredWindowAttributes($hWnd, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False) If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03 If Not $isColorRef Then $i_transcolor = Hex(String($i_transcolor), 6) $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2)) EndIf Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hWnd, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc ;==>_WinAPI_SetLayeredWindowAttributes [/code] bu kodları autoit ile exe yap. yanına da .bmp uzantılı, traytipte çıkmasını istediğin resmi kat. Yok eğer resimle bütünkeşmesini istiyorsan FileInsall komutunu kullanacaksın. Quote Link to comment Share on other sites More sharing options...
ersozcan Posted June 30, 2012 Author Share Posted June 30, 2012 andryfarukov sen bana hazırlayıp verir misin ben yapamadım pek bilgim yok da andryfarukov sen bana hazırlayıp verir misin ben yapamadım pek bilgim yok da [b][size="4"][color="#0000FF"]> blackman12: bak sonra kızıyosun bağırıyosun diyolar, arkadaşım size hazır aş yok, ne kadar ekmek o kadar köfte!!![/color][/size][/b] Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 30, 2012 Share Posted June 30, 2012 biraz çaba ve örnekler yapmalısın kimse kolay kolay öğrenmiyor takıldığında yardımcı olacak çok arkadaş var, sitemizde yaptıkları örnekleri incele,autoit sitesi var orda her konudan msj var lakin; yaptığın çalışmalar olacak ki takıldığın yerleri sorup öğrenesin neyse bu konu hakkında udf var http://www.autoitscript.com/forum/topic/85977-system-tray-message-box-udf/page__st__20 incele gerisi sana kalmış system-tray-message-box-udf yukarıdaki kodların modifiyeli hali buda benden [code]#include <WindowsConstants.au3> Func TrayBoxCreate($TBTitle, $TBText, $display_Time = 2500) $TBgui = GUICreate($TBTitle,250, 100, @DesktopWidth - 250, @DesktopHeight - 135,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) _GuiRoundCorners($TBgui, 0, 0, 100, 100) GUISetBkColor(0x0000FF) $Status = GUICtrlCreateLabel($TBText, 40,20, 210, 100) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00040008);slide-in from bottom GUISetState() Sleep($display_Time) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1500, "long", 0x00040008);slide-in from bottom GUISetState(@SW_SHOW, $TBgui) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00050004);implode GUISetState(@SW_HIDE, $TBgui) EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc TrayBoxCreate("", "HAZIRLAYAN:"&@CRLF&"mesale0077"&@CRLF&"Bilgi:"&@CRLF&"İlginiz için teşekkürler")[/code] Quote Link to comment Share on other sites More sharing options...
ersozcan Posted July 1, 2012 Author Share Posted July 1, 2012 [quote name='mesale0077' date='01 July 2012 - 02:12 ' timestamp='1341097923' post='1217530'] biraz çaba ve örnekler yapmalısın kimse kolay kolay öğrenmiyor takıldığında yardımcı olacak çok arkadaş var, sitemizde yaptıkları örnekleri incele,autoit sitesi var orda her konudan msj var lakin; yaptığın çalışmalar olacak ki takıldığın yerleri sorup öğrenesin neyse bu konu hakkında udf var http://www.autoitscript.com/forum/topic/85977-system-tray-message-box-udf/page__st__20 incele gerisi sana kalmış system-tray-message-box-udf yukarıdaki kodların modifiyeli hali buda benden [code]#include <WindowsConstants.au3> Func TrayBoxCreate($TBTitle, $TBText, $display_Time = 2500) $TBgui = GUICreate($TBTitle,250, 100, @DesktopWidth - 250, @DesktopHeight - 135,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) _GuiRoundCorners($TBgui, 0, 0, 100, 100) GUISetBkColor(0x0000FF) $Status = GUICtrlCreateLabel($TBText, 40,20, 210, 100) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00040008);slide-in from bottom GUISetState() Sleep($display_Time) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1500, "long", 0x00040008);slide-in from bottom GUISetState(@SW_SHOW, $TBgui) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00050004);implode GUISetState(@SW_HIDE, $TBgui) EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc TrayBoxCreate("", "HAZIRLAYAN:"&@CRLF&"mesale0077"&@CRLF&"Bilgi:"&@CRLF&"İlginiz için teşekkürler")[/code] [/quote] ARkadaşım bunu nasıl yapıcaz onu anlatsana bana ... Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted July 1, 2012 Share Posted July 1, 2012 (edited) sen bu kodu çalıştırdınmı TrayBoxCreate("", "HAZIRLAYAN:"&@CRLF&"mesale0077"&@CRLF&"Bilgi:"&@CRLF&"İlginiz için teşekkürler") burdan istedigini değiştir kodunu yolla ben sana örnek yazayım ordan degişiklikleri yaparsın örnek koduna ekleyeyim yoksa bu şekilde çözüm bulamıyacağız Edited July 1, 2012 by mesale0077 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.