All Activity

This stream auto-updates   

  1. Past hour
  2. Hello. This is enough. $a=null Saludos
  3. I create a Scripting.Dictionary obj to dell with very large data $a = ObjCreate("Scripting.Dictionary") when i do not need to use $a anymore how can i close $a ? (in order to release systems source )
  4. Today
  5. @TheSaint I never understand when you talk. I don't know when you're joking and when You aren't lol. Saludos
  6. Thank you for your example. Using it as a framework and spending hours of tinkering i was able to get my head around this UDF. I am terribly useless when it comes to networking Encase others find this i used _WinHttpOpenRequest instead of _WinHttpSimpleSSLRequest One small question in terms of GET performance though. #Sudo Example Code Local $hRequest = _WinHttpOpenRequest() _WinHttpSendRequest($hRequest) _WinHttpReceiveResponse($hRequest) $Data = _WinHttpSimpleReadData($hRequest, 2) Now the sudo example works and $Data contains the binary for my file but it takes a very long time to download. My version or Inetread is able to do it in less than a second but the example above takes almost 6. This is only a 6MB file and i could be downloading up to 100MB. Looking into this i found _WinHttpSimpleReadData is loops _WinHttpReadData in bytes of 8192. Using the code below the download completes is under a second. $Data = _WinHttpReadData($hRequest, 2, 999999999) Is there anything wrong doing it like this? I tired to make this cleaner by using _WinHttpQueryDataAvailable @Extended value to get the exact bytes but this returns 3544 which is wrong. The full info from _WinHttpQueryHeaders() returns Content-Length: 6417819 which is correct and i will probably use instead.
  7. Don't know why corporations are so strict on updating 7-zip... can't they trust their employees a little more? They might end up using WinRAR with the perpetual trial license LOL P.S Sorry, couldn't resist the joke.
  8. @iamtheky at work I have just prepared my new notebook with win 10 1709 build 16299.15, and with the agent 12.0.1708 plus the update KB4043961 (see the link) I obtained only BSODs. Seems that you have to choice to stay without trendmicro client or the KB4043961. Oh, it's true that trendmicro has already released a patch but we are part of a "corporation" since two years and updating also 7zip is a "state affair"....
  9. According to the help file, the only valid options are ByValue and ByIndex. One option would be to use _IEFormElementGetCollection to get a collection of all form elements and then check each element until you find the desired one.
  10. Is it possible to select in IE a checkbox for text? <TD width="33%" rowSpan="1" colSpan="1"> <INPUT name="Ck007099000013" class="inputRadio" id="Ck007099000013" type="checkbox" value="13"/> Alumínio </TD> My code attempt: #include <IE.au3> checkBoxName("AutoCalculo", "Alumínio") Func checkBoxName($checkBoxForm, $checkBoxName) $oIE = _IECreate("https://www. ..........", 1, 1, 1, 1) Local $oForm = _IEFormGetObjByName($oIE, $checkBoxForm) _IEFormElementCheckBoxSelect($oForm, 0, $checkBoxName, 1, "byText") EndFunc ;==>checkBoxName Is it possible to select by text? or just by value, name and ID? Thank you!
  11. I think the following function reference has what you are looking for : https://www.autoitscript.com/autoit3/docs/libfunctions/_DateAdd.htm I don't know if SetSystemTime is the correct thing to be using to set a control's date, surely it sets the 'system' time?
  12. Even with the method that works the user can allways force the shutdown in Windows, this is equivalent to an unsaved modified file that prevents Windows from closing. Any kind of action that will take some time : backup, antivirus and personal script.
  13. Well when you use this version, then this would be the appropriate place. Jos
  14. I have zero knowledge about Altium, sorry. If it uses XML as file format (like Eagle does), you may have much better time parsing from there.
  15. Hi, I'm a newbie in autoIT. I'm trying to create a countdown timer and get some problems. First, I'm finding for a way to pause count script when press "Pause". I tried several ways but nothing had worked. Second, I want to hide the main form to system tray. If the timer is pause, it works well, but when counting down, it only minimizes to taskbar. Below is my script. Could anyone help me? Sorry for my English grammar #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) Opt("TrayOnEventMode", 1) Global $cIdTrayRestore Global $cIdTrayExit = TrayCreateItem("Exit") Opt("TrayMenuMode", 1) Global $hWnd = GUICreate("Time to die", 215, 103, 4, 591) Global $hour = GUICtrlCreateInput("00", 24, 8, 38, 40, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_NUMBER)) GUICtrlSetFont(-1, 18, 800, 0, "Segoe UI Semibold") GUICtrlSetColor(-1, 0x000000) Global $min = GUICtrlCreateInput("00", 88, 8, 38, 40, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_NUMBER)) GUICtrlSetFont(-1, 18, 800, 0, "Segoe UI Semibold") GUICtrlSetColor(-1, 0x000000) Global $second = GUICtrlCreateInput("00", 152, 8, 38, 40, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_NUMBER)) GUICtrlSetFont(-1, 18, 800, 0, "Segoe UI Semibold") GUICtrlSetColor(-1, 0x000000) Global $btnRun = GUICtrlCreateButton("Run", 48, 64, 51, 25) GUICtrlSetFont(-1, 11, 800, 0, "Segoe UI Semibold") GUICtrlSetColor(-1, 0x000000) Global $btnCancel = GUICtrlCreateButton("Cancel", 120, 64, 51, 25) GUICtrlSetFont(-1, 11, 800, 0, "Segoe UI Semibold") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel(":", 72, 8, 10, 34) GUICtrlSetFont(-1, 16, 800, 0, "Segoe UI") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel(":", 136, 8, 10, 34) GUICtrlSetFont(-1, 16, 800, 0, "Segoe UI") GUICtrlSetColor(-1, 0x000000) GUISetState(@SW_SHOW) #Region ======= thêm GUISetOnEvent($GUI_EVENT_CLOSE, "exitGUI") GUISetOnEvent($GUI_EVENT_MINIMIZE, "hideToTray") TrayItemSetOnEvent($cIdTrayExit, "exitGUI") GUICtrlSetOnEvent($btnRun, "calcTime") GUICtrlSetOnEvent($btnCancel, "resetGUI") #EndRegion ======= thêm While 1 Global $countClick = 0 If GUIGetMsg() = $btnRun Then $countClick += 1 Sleep(10) WEnd Func calcTime() GUICtrlSetStyle($hour, BitOR($ES_READONLY, $ES_CENTER)) GUICtrlSetStyle($min, BitOR($ES_READONLY, $ES_CENTER)) GUICtrlSetStyle($second, BitOR($ES_READONLY, $ES_CENTER)) Local $_hour = GUICtrlRead($hour), $_min = GUICtrlRead($min), $_sec = GUICtrlRead($second) If (($_hour > 24 Or $_hour == "") Or ($_min > 59 Or $_min == "") Or ($_sec > 59 Or $_sec == "")) Then MsgBox(16, "", "Wrong time format") GUICtrlSetStyle($hour, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) GUICtrlSetStyle($min, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) GUICtrlSetStyle($second, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) Else GUICtrlSetData($btnRun, "Stop") Local $timeRun = ($_hour * 3600 + $_min * 60 + $_sec) While $timeRun > 0 AdlibRegister("_GUIGetMsg", 40) $timeRun -= 1 $_hour = Int($timeRun / 3600) $_min = Int($timeRun / 60 - $_hour * 60) $_sec = Int($timeRun - $_hour * 3600 - $_min * 60) GUICtrlSetData($hour, StringFormat("%02u", $_hour)) GUICtrlSetData($min, StringFormat("%02u", $_min)) GUICtrlSetData($second, StringFormat("%02u", $_sec)) Sleep(990) If $countClick = 2 Then ExitLoop AdlibUnRegister("_GUIGetMsg") WEnd GUICtrlSetData($btnRun, "Run") If (GUICtrlRead($hour) = 0 And GUICtrlRead($min) = 0 And GUICtrlRead($second) = 0) Then MsgBox(64, "", "Time's out", 3) GUICtrlSetStyle($hour, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) GUICtrlSetStyle($min, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) GUICtrlSetStyle($second, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $ES_CENTER)) EndIf EndIf EndFunc ;==>calcTime Func resetGUI() GUICtrlSetData($hour, "00") GUICtrlSetData($min, "00") GUICtrlSetData($second, "00") EndFunc ;==>resetGUI Func hideToTray() $cIdTrayRestore = TrayCreateItem("Restore") TrayItemSetOnEvent($cIdTrayRestore, "restoreGUI") WinSetState($hWnd, "", @SW_HIDE) EndFunc ;==>hideToTray Func exitGUI() Exit EndFunc ;==>exitGUI Func restoreGUI() ;~ If $cIdTrayRestore <> 0 Then WinSetState($hWnd, "", @SW_RESTORE) TrayItemDelete($cIdTrayRestore) $cIdTrayRestore = 0 ;~ EndIf EndFunc ;==>restoreGUI Func _GUIGetMsg() GUISetOnEvent($GUI_EVENT_CLOSE, "exitGUI") GUISetOnEvent($GUI_EVENT_MINIMIZE, "hideToTray") TrayItemSetOnEvent($cIdTrayExit, "exitGUI") EndFunc ;==>_GUIGetMsg
  16. If you point to the includes: #include <GUIListViewEx.au3> ; https://www.autoitscript.com/forum/topic/182492-guilistviewex-bugfix-version-25-sep-17/ #include <AD.au3> ; https://www.autoitscript.com/forum/files/file/355-ad-active-directory-udf/ #include <_RegEnumKeyEx.au3> ; https://www.autoitscript.com/forum/topic/144234-_regenumkeyvalex-_regenumkeyex-_regenumvalex/ #include <_Array1DTo2D.au3> ; https://www.autoitscript.com/forum/topic/165600-_array1dto2d/ #include <_IsUACAdmin.au3> ; https://www.autoitscript.com/forum/topic/145697-_isuacadmin-check-admin-and-elevation-rights/ makes life easier Thanks for sharing
  17. By the way it is Altium tool not Eagle. Am trying to automate whole Altium process beginning from importing schematic and footprint from a file and making few changes in it and later exporting it to Eagle tool. to select component in altium schematic page, i tried using 1. ' send("^a")' 2. ' HotKeySet("^a", "_selectall")' 3. from Tab options=> Edit -> select-> select all none are working...it selects the component only for little time and deselects again.
  18. Thanks. I will play with it.
  19. Thanks for unexpected surprise info, lol
  20. Yesterday
  21. No worries, honestly I was not really sure wether to post in MVP or here ;)...
  22. This one works fine for me, although I personally prefer an exclamation mark an and underscore ("!_ImFirst")as the first character to shift folders to the top in a sorting. ; see also ; https://www.howtogeek.com/howto/6463/stupid-geek-tricks-how-to-open-the-start-menu-folder-in-windows-7/ FileCreateShortcut(@AutoItExe, @StartMenuDir & "\'_AutoIt_Test.lnk", "", "", "Link to '_AutoIt", RegRead('HKCR\AutoIt3Script\DefaultIcon', ''))
  23. Try something like this here. #include <ButtonConstants.au3> #include <GDIPlus.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt('MustDeclareVars',1) GUIRegisterMsg($WM_PAINT,'WM_PAINT') Global $gX0=10,$gX1=880,$gY0,$gY1,$gForm1,$glblPic,$gCtlWid,$gCtlHt,$imgWid,$imgHt Global $ghCanvas,$ghImage,$ghPen,$ghPen2,$gGraphicPic,$ghMatrix,$ghBitmap,$ghPathLine,$ghPathRectL,$ghPathRectR,$aCursor main() Func main() $gCtlWid = 893 $gCtlHt = 480 $gForm1 = GUICreate("Form1", $gCtlWid+50, 601, 192, 114) $glblPic = GUICtrlCreateLabel("", 8, 8, $gCtlWid, $gCtlHt) Local $btnRotate = GUICtrlCreateButton("Rotate", 472, 560, 65, 25) Local $btnExit = GUICtrlCreateButton("Exit",600,560) GUISetState(@SW_SHOW) Local $oldY0,$oldY1 _GDIPlus_Startup() $ghPen = _GDIPlus_PenCreate(0xFFA04040,3) $ghPen2 = _GDIPlus_PenCreate(0xFF00FF00,4) $ghImage = _GDIPlus_ImageLoadFromFile('pergola.jpg') Local $hnd = GUICtrlGetHandle($glblPic) $gGraphicPic = _GDIPlus_GraphicsCreateFromHWND($hnd) $gY0 = 400 $gY1 = 400 $imgWid = _GDIPlus_ImageGetWidth($ghImage) $imgHt = _GDIPlus_ImageGetHeight($ghImage) $ghBitmap = _GDIPlus_BitmapCreateFromScan0($imgWid, $imgHt) $ghCanvas = _GDIPlus_ImageGetGraphicsContext($ghBitmap) $ghPathLine = _GDIPlus_PathCreate() $ghPathRectL = _GDIPlus_PathCreate() $ghPathRectR = _GDIPlus_PathCreate() _GDIPlus_PathAddLine($ghPathLine, $gX0, $gY0, $gX1, $gY1) _GDIPlus_PathAddRectangle($ghPathRectL, $gX0 - 5, $gY0 - 5, 12, 12) _GDIPlus_PathAddRectangle($ghPathRectR, $gX1 - 7, $gY1 - 5, 12, 12) Local $b = True ; Loop until the user exits. While True If $gY0<>$oldY0 Or $gY1<>$oldY1 Then Paint() $oldY0 = $gY0 $oldY1 = $gY1 Else Switch GUIGetMsg() Case $GUI_EVENT_CLOSE,$btnExit ExitLoop Case $btnRotate Local $hImageClone=_GDIPlus_BitmapCreateFromScan0($imgWid, $imgHt) Local $hGfxClone=_GDIPlus_ImageGetGraphicsContext($hImageClone) ; rotate about centre $ghMatrix = _GDIPlus_MatrixCreate() _GDIPlus_MatrixTranslate($ghMatrix, $imgWid/2, $imgHt/2) Local $deg = Angle($gY1-$gY0, $gX1-$gX0) _GDIPlus_MatrixRotate($ghMatrix, -$deg) _GDIPlus_MatrixTranslate($ghMatrix, -$imgWid/2, -$imgHt/2) _GDIPlus_GraphicsSetTransform($hGfxClone, $ghMatrix) _GDIPlus_GraphicsDrawImageRect($hGfxClone,$ghImage,0,0,$imgWid,$imgHt) _GDIPlus_GraphicsDispose($hGfxClone) $hGfxClone=_GDIPlus_ImageGetGraphicsContext($ghImage) _GDIPlus_GraphicsClear($hGfxClone) ; See deskew notes document Local $ang = Abs($deg*3.14159/180) Local $nsrcX = ($imgHt/2 - $imgWid/2*sin($ang) - $imgHt/2*cos($ang))*tan($ang) _ - $imgWid/2*cos($ang) + $imgHt/2*sin($ang) + $imgWid/2 Local $nsrcY = ($imgWid/2 + $imgWid/2*Cos($ang) - $imgHt/2*Sin($ang))*Tan($ang) _ - $imgWid/2*Sin($ang) - $imgHt/2*Cos($ang) + $imgHt/2 Local $nSrcWidth = $imgWid - 2*$nSrcX Local $nSrcHeight = $imgHt - 2*$nSrcY ; crop _GDIPlus_GraphicsDrawImageRectRect($hGfxClone,$hImageClone, _ $nSrcX,$nSrcY,$nSrcWidth,$nSrcHeight,0,0,$nSrcWidth,$nSrcHeight) GUICtrlDelete($glblPic) _GDIPlus_GraphicsDispose($gGraphicPic) $glblPic = GUICtrlCreateLabel("", 8, 8, $gCtlWid*$nSrcWidth/$imgWid,$gCtlHt*$nSrcHeight/$imgHt) Local $hnd = GUICtrlGetHandle($glblPic) $gGraphicPic = _GDIPlus_GraphicsCreateFromHWND($hnd) _GDIPlus_ImageDispose($hImageClone) $gy0 = 400 $gy1 = 400 Paint() Local $hImageClone2 = _GDIPlus_BitmapCloneArea($ghImage,0,0,$nSrcWidth,$nSrcHeight) _GDIPlus_ImageSaveToFile($hImageClone2,'H:\b\1.jpg') _GDIPlus_ImageDispose($hImageClone2) EndSwitch EndIf $aCursor = GUIGetCursorInfo($gForm1) If _GDIPlus_PathIsOutlineVisiblePoint($ghPathLine, $aCursor[0], $aCursor[1] - 8) Then _GDIPlus_PenSetColor($ghPen, 0xFFF08080) While $aCursor[2] _GDIPlus_PathReset($ghPathLine) _GDIPlus_PathReset($ghPathRectL) _GDIPlus_PathReset($ghPathRectR) $aCursor = GUIGetCursorInfo($gForm1) $gY0 = $aCursor[1] - 8 $gY1 = $aCursor[1] - 8 _GDIPlus_PathAddLine($ghPathLine, $gX0, $gY0, $gX1, $gY1) _GDIPlus_PathAddRectangle($ghPathRectL, $gX0 - 5, $gY0 - 5, 12, 12) _GDIPlus_PathAddRectangle($ghPathRectR, $gX1 - 7, $gY1 - 5, 12, 12) Paint() Sleep(10) WEnd Paint() $b = False ElseIf _GDIPlus_PathIsOutlineVisiblePoint($ghPathRectL, $aCursor[0], $aCursor[1] - 8) Then _GDIPlus_PenSetColor($ghPen2, 0xFF80FF80) While $aCursor[2] _GDIPlus_PathReset($ghPathLine) _GDIPlus_PathReset($ghPathRectL) _GDIPlus_PathReset($ghPathRectR) $aCursor = GUIGetCursorInfo($gForm1) $gY0 = $aCursor[1] - 8 $gX0 = $aCursor[0] - 8 _GDIPlus_PathAddLine($ghPathLine, $gX0, $gY0, $gX1, $gY1) _GDIPlus_PathAddRectangle($ghPathRectL, $gX0 - 5, $gY0 - 5, 12, 12) _GDIPlus_PathAddRectangle($ghPathRectR, $gX1 - 7, $gY1 - 5, 12, 12) Paint() Sleep(10) WEnd Paint() $b = False ElseIf _GDIPlus_PathIsOutlineVisiblePoint($ghPathRectR, $aCursor[0], $aCursor[1] - 8) Then _GDIPlus_PenSetColor($ghPen2, 0xFF80FF80) While $aCursor[2] _GDIPlus_PathReset($ghPathLine) _GDIPlus_PathReset($ghPathRectL) _GDIPlus_PathReset($ghPathRectR) $aCursor = GUIGetCursorInfo($gForm1) $gX1 = $aCursor[0] - 8 $gY1 = $aCursor[1] - 8 _GDIPlus_PathAddLine($ghPathLine, $gX0, $gY0, $gX1, $gY1) _GDIPlus_PathAddRectangle($ghPathRectL, $gX0 - 5, $gY0 - 5, 12, 12) _GDIPlus_PathAddRectangle($ghPathRectR, $gX1 - 7, $gY1 - 5, 12, 12) Paint() Sleep(10) WEnd Paint() $b = False Else If Not $B Then _GDIPlus_PenSetColor($ghPen, 0xFFA04040) _GDIPlus_PenSetColor($ghPen2, 0xFF00FF00) Paint() $b = True EndIf EndIf WEnd ; Clean up resources _GDIPlus_PathDispose($ghPathLine) _GDIPlus_PathDispose($ghPathRectL) _GDIPlus_PathDispose($ghPathRectR) _GDIPlus_MatrixDispose($ghMatrix) _GDIPlus_ImageDispose($ghCanvas) _GDIPlus_ImageDispose($ghImage) _GDIPlus_ImageDispose($ghBitmap) _GDIPlus_PenDispose($ghPen) _GDIPlus_PenDispose($ghPen2) _GDIPlus_GraphicsDispose($gGraphicPic) _GDIPlus_Shutdown() EndFunc Func Paint() _GDIPlus_GraphicsDrawImageRect($ghCanvas, $ghImage, 0,0, $gCtlWid, $gCtlHt) _GDIPlus_GraphicsDrawPath($ghCanvas, $ghPathLine, $ghPen) _GDIPlus_GraphicsDrawPath($ghCanvas, $ghPathRectL, $ghPen2) _GDIPlus_GraphicsDrawPath($ghCanvas, $ghPathRectR, $ghPen2) _GDIPlus_GraphicsDrawImageRect($gGraphicPic, $ghBitmap, 0, 0, $imgWid, $imgHt) EndFunc Func WM_PAINT() _WinAPI_RedrawWindow($gForm1, 0, 0, $RDW_UPDATENOW) Paint() _WinAPI_RedrawWindow($gForm1, 0, 0, $RDW_VALIDATE) EndFunc Func Angle($y, $x) ;return value is in degree Local Const $fPi = ACos(-1), $fPi2 = ACos(-1) / 2, $fRad = 180 / $fPi Switch True Case ($x > 0) Return ATan($y / $x) * $fRad Case ($x < 0 And $y >= 0) Return ATan($y / $x + $fPi) * $fRad Case ($x < 0 And $y < 0) Return ATan($y / $x - $fPi) * $fRad Case ($x = 0 And $y > 0) Return $fPi2 * $fRad Case ($x = 0 And $y < 0) Return -$fPi2 * $fRad Case ($x = 0 And $y = 0) Return 0 EndSwitch EndFunc You can move the line and the rectangle by hovering the mouse over it and pressing the lmb. The logic behind moving line / corners is not the best choice but might give you an idea.
  24. Ah silly me. ConsoleWrite(@AutoItVersion) Returns 3.3.14.2 I fear this issue may be hard to troubleshoot so i looked for alternative options. Encase others find this thread one day here is what i used instead $BinaryData = InetRead($sURL, 9) If @Error Then Return SetError(404, 404, "Not Found") Else Return $BinaryData EndIf and i starting to get my head around the the incredible work of @trancexx winhttp.au3
  25. SciTE is an developer editor. I ask about AutoIt version.
  26. When changing the window transparency, the background transparency is completely lost. In the base example from the AutoIt Help you can move merlin across the screen without the white box around him since it's transparent. Now I wanted to add a fade in and fade out function (TransUp, TransDown) to make the example 2 a little more spooky: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $g_hGui, $g_aGuiPos, $g_hPic, $g_aPicPos, $trans = 0 Example() Func Example() $g_hGui = GUICreate("test transparentpic", 200, 100) $g_hPic = GUICreate("", 68, 71, 10, 20, $WS_POPUp, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $g_hGui) GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0) GUISetState(@SW_SHOW, $g_hPic) GUISetState(@SW_SHOW, $g_hGui) HotKeySet("{ESC}", "Main") HotKeySet("{Left}", "Left") HotKeySet("{Right}", "Right") HotKeySet("{Down}", "Down") HotKeySet("{Up}", "Up") HotKeySet("{PGUP}", "TransUp") HotKeySet("{PGDN}", "TransDown") $g_aPicPos = WinGetPos($g_hPic) $g_aGuiPos = WinGetPos($g_hGui) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd HotKeySet("{ESC}") HotKeySet("{Left}") HotKeySet("{Right}") HotKeySet("{Down}") HotKeySet("{Up}") EndFunc ;==>Example Func Main() $g_aGuiPos = WinGetPos($g_hGui) WinMove($g_hGui, "", $g_aGuiPos[0] + 10, $g_aGuiPos[1] + 10) EndFunc ;==>Main Func Left() $g_aPicPos = WinGetPos($g_hPic) WinMove($g_hPic, "", $g_aPicPos[0] - 10, $g_aPicPos[1]) EndFunc ;==>Left Func Right() $g_aPicPos = WinGetPos($g_hPic) WinMove($g_hPic, "", $g_aPicPos[0] + 10, $g_aPicPos[1]) EndFunc ;==>Right Func Down() $g_aPicPos = WinGetPos($g_hPic) WinMove($g_hPic, "", $g_aPicPos[0], $g_aPicPos[1] + 10) EndFunc ;==>Down Func Up() $g_aPicPos = WinGetPos($g_hPic) WinMove($g_hPic, "", $g_aPicPos[0], $g_aPicPos[1] - 10) EndFunc ;==>Up Func TransUp() $trans -= 15 If $trans < 15 Then $trans = 15 If $trans > 255 Then $trans = 255 WinSetTrans($g_hPic, "", $trans) EndFunc Func TransDown() $trans += 15 If $trans < 0 Then $trans = 0 If $trans > 255 Then $trans = 255 WinSetTrans($g_hPic, "", $trans) EndFunc It fades in and out but now you see the white box around merlin. I sadly can't think of a workaround. I tried changing $g_hGUI and $g_hPic both and in different orders with no effect. This is very important to me. Please guide me!
  27. They are? I am not sure they are. Just because that is true for many things perhaps, does not mean it is true for all. AutoIt is more than just another version release. Users also provide further functionality with UDFs etc. When you see AutoIt is starting to fall behind, then that is the time to get worried. I don't think you can class AutoIt as the same kind of beast that many others are, as it has always danced to its own tune ... though I admit, that in more recent years, going by worrying changes at times to the Help file (now I am using latest AutoIt and discovering them), it has been pushed by some here in the same mental direction as most other languages. For me, AutoIt always stood out, especially for ease of use, and clear explanations and examples for newbies. If you really want something to worry about, worry about the gist of that last comment. @Au3Builder - Look and ye shall find. Check out the Chat Forum section here, and you will find that topics such as yours (this here) have been going on for years (not months my good bud Dcoder) ... well beyond the current version of AutoIt. Further to all that. AutoIt naturally went through a long developmental stage, but in reality by the time of Windows 10 has caught up pretty much, and now become quite a mature language. Mature languages often suffer a significant slow down, and just keep pace from then on .. until they die or not. Let's wait and see what happens with the next version of Windows shall we.
  1. Load more activity