Jump to content

armoros

Active Members
  • Posts

    500
  • Joined

  • Last visited

  • Days Won

    1

armoros last won the day on August 30 2012

armoros had the most liked content!

Profile Information

  • Member Title

Recent Profile Visitors

1,398 profile views

armoros's Achievements

Universalist

Universalist (7/7)

21

Reputation

  1. This is what i get now : @@ Debug(53) : $hEnum = 0x008E1708 @@ Debug(61) : $iBufSize = 16384 @@ Debug(62) : $iBufSize / 32 (size of $tagNETRESOURCE) = 512 (must be greater than $iCount, otherwise increase buffersize) ! Error in _WinNet_EnumResource / WNetEnumResource #2 259 ERROR_NO_MORE_ITEMS 0 1024 !>18:38:40 AutoIT3.exe ended.rc:3
  2. Hi KaFu, looks really nice, but i get this : @@ Debug(27) : $hEnum = 0x008E1710 @@ Debug(35) : $iBufSize = 16384 @@ Debug(36) : $iBufSize / 32 (size of $tagNETRESOURCE) = 512 (must be greater than $iCount, otherwise increase buffersize)
  3. AutoIt is one of the best things to ever happen to me since i started my " computing journey ", i don't thing that AutoIt is abandoned, and from my very small experience i don't believe it needs any updates (at least major updates), i am sure AutoIt it will be around for a long, long time. But if, in the far, far distant future, Jon and the dev team decide to not make further development, i hope that the AutoIt core code to become open-source.
  4. It looks like you're missing a bracket in your Send call. Try: Send("{$array[$chr]}") However, I think it would be perfered if you surrounded the special cases with brackets instead. IE: $array[0] = "{F5}" $array[1] = "{F1}" .... $array[21] = "A" $array[22] = "Z" .... Send("$array[$chr]")
  5. Ok guinness guess i download it and forget about it. Thank you for opening my eyes i will change it.
  6. @Andreik ,@trancexx Thank you both people, yes now i can compile it. Just delete the winApiEX.udf from folder and script and used the one that AutoIt shiped with.
  7. Hi people. I found this script in example section but when i want to compile the script it throws that error the main script is this #Include <WindowsConstants.au3> #include <GDIPlus.au3> #Include <Misc.au3> #Include <Sound.au3> #Include "UDFsWinAPIEx.au3" #include "UDFssound_udf.au3" If _Singleton("UCestitkaPL", 1) = 0 Then Exit MsgBox(48 + 262144, "Cestitka IN", "Cestitka je vec pokrenuta!", 4) DirCreate(@TempDir & "Cestitka2011") FileInstall("snijegs1.png", @TempDir & "Cestitka2011s1.png", 1) FileInstall("snijegs2.png", @TempDir & "Cestitka2011s2.png", 1) FileInstall("snijegs3.png", @TempDir & "Cestitka2011s3.png", 1) FileInstall("snijegs4.png", @TempDir & "Cestitka2011s4.png", 1) FileInstall("snijegs5.png", @TempDir & "Cestitka2011s5.png", 1) FileInstall("snijegs6.png", @TempDir & "Cestitka2011s6.png", 1) FileInstall("snijegs7.png", @TempDir & "Cestitka2011s7.png", 1) FileInstall("snijegs8.png", @TempDir & "Cestitka2011s8.png", 1) FileInstall("snijegs9.png", @TempDir & "Cestitka2011s9.png", 1) FileInstall("snijegs10.png", @TempDir & "Cestitka2011s10.png", 1) FileInstall("snijegs11.png", @TempDir & "Cestitka2011s11.png", 1) FileInstall("snijegs12.png", @TempDir & "Cestitka2011s12.png", 1) FileInstall("pjesma.mp3", @TempDir & "Cestitka2011pjesma.mp3", 1) FileInstall("podloga2.png", @TempDir & "Cestitka2011podloga2.png", 1) FileInstall("mail2.png", @TempDir & "Cestitka2011mail2.png", 1) FileInstall("santa3.gif", @TempDir & "Cestitka2011santa3.gif", 1) FileInstall("santa2.gif", @TempDir & "Cestitka2011santa2.gif", 1) FileInstall("snijeg.exe", @TempDir & "Cestitka2011snijeg.exe", 1) FileInstall("posta.exe", @TempDir & "Cestitka2011posta.exe", 1) FileInstall("podloga3.png", @TempDir & "Cestitka2011podloga3.png", 1) FileInstall("podloga4.png", @TempDir & "Cestitka2011podloga4.png", 1) FileInstall("tekst.png", @TempDir & "Cestitka2011tekst.png", 1) FileInstall("tekst2.png", @TempDir & "Cestitka2011tekst2.png", 1) FileInstall("b1.png", @TempDir & "Cestitka2011b1.png", 1) FileInstall("b2.png", @TempDir & "Cestitka2011b2.png", 1) IniWrite(@TempDir & "Cestitka2011Status.ini", "Start", "OK", 0) HotKeySet("{ESC}", "CloseAll") Global $b1, $b2 Do Sleep(100) Until FileExists(@TempDir & "Cestitka2011Status.ini") If _SoundGetMasterMute() = 1 Then _SoundSetMasterMute(0) _SoundSetMasterVolume(20) Global $music = _SoundOpen(@TempDir & "Cestitka2011pjesma.mp3") _SoundPlay($music) Global $ww = @DesktopWidth, $hh = @DesktopHeight _GDIPlus_Startup() Global $hGUI2 = GUICreate("", $ww, $hh, 0, 0, $WS_POPUP, -1, 0x80) GUISetBkColor(0x000000, $hGUI2) WinSetTrans($hGUI2, "", 0) WinSetOnTop($hGUI2, "", 1) GUISetState() For $i = 0 To 255 Step 17 WinSetTrans($hGUI2, "", $i) Next Global $hForm = GUICreate("CESTITKA_PL", $ww, $hh, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST)) Global $lab = GUICtrlCreateLabel("", $ww - 170, 25, 128, 35) $podl = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011podloga2.png") $hGr1a = _GDIPlus_GraphicsCreateFromHWND($hForm) $hBmpa = _GDIPlus_BitmapCreateFromGraphics($ww, $hh, $hGr1a) $hGr2a = _GDIPlus_ImageGetGraphicsContext($hBmpa) _GDIPlus_GraphicsDrawImageRect($hGr2a, $podl, 0, 0, $ww, $hh) _GDIPlus_GraphicsDispose($hGr2a) _GDIPlus_GraphicsDispose($hGr1a) _GDIPlus_ImageDispose($podl) For $i = 0 To 255 Step 17 SetBitmap($hForm, $hBmpa, $i) Next _GDIPlus_GraphicsDispose($hBmpa) GUIDelete($hGUI2) GUISetState() ShellExecute(@TempDir & "Cestitka2011snijeg.exe") Sleep(1200) GIFs(@TempDir & "Cestitka2011santa3.gif", @TempDir & "Cestitka2011santa2.gif", $hForm, 50, -540, $ww, 10, -530, $ww, 10) ProcessWaitClose("posta.exe") Global $hGUI2 = GUICreate("", $ww, $hh, 0, 0, $WS_POPUP, -1, $hForm) GUISetBkColor(0x000000, $hGUI2) WinSetTrans($hGUI2, "", 0) WinSetOnTop($hGUI2, "", 1) GUISetState() For $i = 0 To 255 Step 17 WinSetTrans($hGUI2, "", $i) Next Global $podl3 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011podloga3.png") $hGr1a = _GDIPlus_GraphicsCreateFromHWND($hForm) $hBmpa = _GDIPlus_BitmapCreateFromGraphics($ww, $hh, $hGr1a) $hGr2a = _GDIPlus_ImageGetGraphicsContext($hBmpa) _GDIPlus_GraphicsDrawImageRect($hGr2a, $podl3, 0, 0, $ww, $hh) _GDIPlus_GraphicsDispose($hGr2a) _GDIPlus_GraphicsDispose($hGr1a) SetBitmap($hForm, $hBmpa, 255) _GDIPlus_ImageDispose($podl3) _GDIPlus_GraphicsDispose($hBmpa) WinSetOnTop($hGUI2, "", 0) GUIDelete($hGUI2) Sleep(2000) Global $hGUI3 = GUICreate("", 705, 265, (($ww / 2) - (705 / 2)) + 0.04 * $ww, (($hh / 2) - (265 / 2)) - 0.03 * $hh, $WS_POPUP, $WS_EX_LAYERED, $hForm) WinSetOnTop($hGUI3, "", 1) GUISetState() Global $podl4 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011tekst.png") For $i = 0 To 255 Step 17 SetBitmap($hGUI3, $podl4, $i) Next ;_GDIPlus_ImageDispose($podl4) Sleep(11000) For $i = 255 To 0 Step -17 SetBitmap($hGUI3, $podl4, $i) Next _GDIPlus_ImageDispose($podl4) GUIDelete($hGUI3) Global $hGUI2 = GUICreate("", $ww, $hh, 0, 0, $WS_POPUP, -1, $hForm) GUISetBkColor(0x000000, $hGUI2) WinSetTrans($hGUI2, "", 0) WinSetOnTop($hGUI2, "", 1) GUISetState() For $i = 0 To 255 Step 17 WinSetTrans($hGUI2, "", $i) Next Global $podl3 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011podloga4.png") $hGr1a = _GDIPlus_GraphicsCreateFromHWND($hForm) $hBmpa = _GDIPlus_BitmapCreateFromGraphics($ww, $hh, $hGr1a) $hGr2a = _GDIPlus_ImageGetGraphicsContext($hBmpa) _GDIPlus_GraphicsDrawImageRect($hGr2a, $podl3, 0, 0, $ww, $hh) _GDIPlus_GraphicsDispose($hGr2a) _GDIPlus_GraphicsDispose($hGr1a) SetBitmap($hForm, $hBmpa, 255) _GDIPlus_ImageDispose($podl3) _GDIPlus_GraphicsDispose($hBmpa) WinSetOnTop($hGUI2, "", 0) GUIDelete($hGUI2) Sleep(2000) Global $hGUI3 = GUICreate("", 523, 309, (($ww / 2) - (523 / 2)) - 0.11 * $ww, (($hh / 2) - (309 / 2)) - 0.06 * $hh, $WS_POPUP, $WS_EX_LAYERED, $hForm) GUISetState() Global $podl4 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011tekst2.png") For $i = 0 To 255 Step 17 SetBitmap($hGUI3, $podl4, $i) Next _GDIPlus_ImageDispose($podl4) Global $hGUI4 = GUICreate("", 128, 35, $ww - 170, 25, $WS_POPUP, $WS_EX_LAYERED, $hForm) WinSetOnTop($hGUI4, "", 1) GUISetState() Global $b1 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011b1.png") Global $b2 = _GDIPlus_ImageLoadFromFile(@TempDir & "Cestitka2011b2.png") SetBitmap($hGUI4, $b1) $state = 0 While 1 If GUIGetMsg() = -3 Then CloseAll() If _SoundStatus($music) = "stopped" Then CloseAll() $pos = GUIGetCursorInfo($hForm) If $pos[4] = $lab Then If $pos[3] = 1 Then ContinueLoop If $pos[2] = 1 Then ContinueLoop While $pos[4] = $lab If GUIGetMsg() = -3 Then CloseAll() $pos = GUIGetCursorInfo($hForm) Switch $pos[2] Case 0; not pressed If $state <> 1 Then SetBitmap($hGUI4, $b2) $state = 1 EndIf Case 1; pressed CloseAll() EndSwitch Sleep(10) WEnd SetBitmap($hGUI4, $b1) $state = 0 EndIf Sleep(10) WEnd Func CloseAll() ProcessClose("snijeg.exe") Do Sleep(50) Until Not ProcessExists("snijeg.exe") _SoundClose($music) _GDIPlus_ImageDispose($b1) _GDIPlus_ImageDispose($b2) _GDIPlus_Shutdown() GUIDelete($hForm) Sleep(500) DirRemove(@TempDir & "Cestitka2011", 1) Exit EndFunc Func GIFs($Gif, $Gif2, $PAR, $ASPD, $x1, $x2, $stps, $x3, $x4, $stps2) Local $i = 0, $ApX, $ApY, $ApW, $ApH, $eX, $eY, $ix2 = $x2 $hImage = _GDIPlus_ImageLoadFromFile($Gif) $ApW = _GDIPlus_ImageGetWidth($hImage) $ApH = _GDIPlus_ImageGetHeight($hImage) $yy = ($hh / 2) - ($ApH / 2) $hGUI = GUICreate("", $ApW, $ApH, $ww, $yy - 150, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_DISABLED), $PAR) GUISetState() $iBegin = TimerInit() While 1 $tDL = DllStructCreate($tagGUID) $pDimensionIDs = DllStructGetPtr($tDL) $GFDC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsCount", "ptr", $hImage, "int*", 0) DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsList", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $GFDC[2]) $GFC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameCount", "int", $hImage, "ptr", $pDimensionIDs, "int*", 0) If $i = $GFC[3] Then $i = 0 DllCall($ghGDIPDll, "int", "GdipImageSelectActiveFrame", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $i) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hScrDC = _WinAPI_GetDC($hGUI) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) DllStructSetData($tSize, "X", $ApW) DllStructSetData($tSize, "Y", $ApH) $pSize = DllStructGetPtr($tSize) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) DllStructSetData($tBlend, "Alpha", 255) DllStructSetData($tBlend, "Format", 1) $pBlend = DllStructGetPtr($tBlend) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) ;If $ix2 - $stps <= $x1 Then $ix2 = $x2 If $ix2 - $stps <= $x1 Then ExitLoop WinMove($hGUI, "", $ix2 - $stps, $yy - 150) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) Sleep($ASPD) $i += 1 $ix2 -= $stps WEnd _GDIPlus_ImageDispose($hImage) Sleep(1500) Local $start = 1 Local $i = 0, $ApX, $ApY, $ApW, $ApH, $eX, $eY, $ix1 = $x3 _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($Gif2) $ApW = _GDIPlus_ImageGetWidth($hImage) $ApH = _GDIPlus_ImageGetHeight($hImage) $yy = ($hh / 2) - ($ApH / 2) WinMove($hGUI, "", -550, $yy) ;$hGUI = GUICreate("", $ApW, $ApH, -550, $yy, $WS_POPUP, $WS_EX_LAYERED, $PAR) ;GUISetState() $iBegin = TimerInit() While 1;TimerDiff($iBegin) <= $TOUT $tDL = DllStructCreate($tagGUID) $pDimensionIDs = DllStructGetPtr($tDL) $GFDC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsCount", "ptr", $hImage, "int*", 0) DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsList", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $GFDC[2]) $GFC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameCount", "int", $hImage, "ptr", $pDimensionIDs, "int*", 0) If $i = $GFC[3] Then $i = 0 DllCall($ghGDIPDll, "int", "GdipImageSelectActiveFrame", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $i) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hScrDC = _WinAPI_GetDC($hGUI) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) DllStructSetData($tSize, "X", $ApW) DllStructSetData($tSize, "Y", $ApH) $pSize = DllStructGetPtr($tSize) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) DllStructSetData($tBlend, "Alpha", 255) DllStructSetData($tBlend, "Format", 1) $pBlend = DllStructGetPtr($tBlend) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) ;If $ix2 - $stps <= $x1 Then $ix2 = $x2 If $ix1 + $stps >= ($x2 / 2) - 50 Then If $start = 1 Then ShellExecute(@TempDir & "Cestitka2011posta.exe") $start = 0 While 1 If IniRead(@TempDir & "Cestitka2011Status.ini", "Start", "OK", 0) = 1 Then ExitLoop Sleep(100) WEnd EndIf EndIf If $ix1 + $stps >= $x4 Then ExitLoop WinMove($hGUI, "", $ix1 + $stps, $yy + 100) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) Sleep($ASPD) $i += 1 $ix1 += $stps WEnd _GDIPlus_ImageDispose($hImage) ;_GDIPlus_Shutdown() GUIDelete($hGUI) EndFunc Func SetBitmap($hGUI, $hImage, $iOpacity = 255) Local $hScrDC = _WinAPI_GetDC(0) Local $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) Local $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) Local $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate("long X;long Y") $pSize = DllStructGetPtr($tSize) DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage)) DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage)) $tSource = DllStructCreate("long X;long Y") $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format") $pBlend = DllStructGetPtr($tBlend) DllStructSetData($tBlend, "Alpha", $iOpacity) DllStructSetData($tBlend, "Format", 1) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, 0x02) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_SelectObject($hMemDC, $hOld) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) EndFunc ;==>SetBitmap the original link is I just want to change the wallpaper and song. Thank you in advance
  8. There are some good examples and solutions on these.
  9. I would like to know how it is possible to have a line of text in a TAEdit and when i put the cursor to start right this line to be disappeared. Thank you people
×
×
  • Create New...