Jump to content

Hazır Traytip

ersozcan

By ersozcan,
in AutoIT

 Share

Recommended Posts

andryfarukov Newbie

andryfarukov

Posted
Posted (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 :wacko:

Edited by andryfarukov
Link to comment
Share on other sites
andryfarukov Newbie

andryfarukov

Posted
Posted

[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.

Link to comment
Share on other sites
ersozcan Newbie

ersozcan

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
mesale0077 Newbie

mesale0077

Posted
Posted

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]

Link to comment
Share on other sites
ersozcan Newbie

ersozcan

Posted
  • Author
Posted

[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 ...

Link to comment
Share on other sites
mesale0077 Newbie

mesale0077

Posted
Posted (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 by mesale0077
Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...