Leaderboard

This script calculates information about the Moon and the Sun (position on the sky, rise, transit, set, Moon phase etc.) Just enter your longitude and latitude wait a second Maybe I'll add ISS, asteroids and planets but I don't promise anything. Needed help with translating! If you want to translate it to your language just copy section (eg. [English]) from lang.ini, translate all messages and post it here Download link: http://ravkr.duckdns.org/autoit/sunmoon_v1.zip Report any bugs. Feedback is welcome PS. It's my first script published on this forum

Those functions are also included in the GDIPlus.au3 already! --> _GDIPlus_TextureCreate and _GDIPlus_BitmapCreateFromScan0 Br, UEZ

That looks more like graphical elements than an actual window. After you have learned how to draw boxes/lines/text in GDI+ (or however you decide to do it) then the math will be easy.

JScript, You could use my GUIExtender UDF to do something like this: #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <WindowsConstants.au3> #include <GUIExtender.au3> $hGUI = GUICreate("Test", 500, 500) GUISetState() $hMenu = GUICreate("Menu", 480, 40, 10, 0, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) _GUIExtender_Init($hMenu) $iSection = _GUIExtender_Section_Start($hMenu, 0, 30) $cButton_1 = GUICtrlCreateButton("Button 1", 0, 0, 80, 30) $cButton_2 = GUICtrlCreateButton("Button 2", 80, 0, 80, 30) $cButton_3 = GUICtrlCreateButton("Button 3", 160, 0, 80, 30) $cButton_4 = GUICtrlCreateButton("Button 4", 240, 0, 80, 30) $cButton_5 = GUICtrlCreateButton("Button 5", 320, 0, 80, 30) $cButton_6 = GUICtrlCreateButton("Button 6", 400, 0, 80, 30) _GUIExtender_Section_End($hMenu) _GUIExtender_Section_Start($hMenu, 30, 10) _GUIExtender_Section_Action($hMenu, $iSection, "", "", 0, 30, 480, 10, 1) _GUIExtender_Section_End($hMenu) _GUIExtender_Section_Extend($hMenu, $iSection, False) GUISetState() While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE Exit Case $cButton_1 To $cButton_6 MsgBox($MB_SYSTEMMODAL, "Clicked", "You clicked Button " & $iMsg - $cButton_1 + 1) EndSwitch _GUIExtender_Action($hMenu, $iMsg) WEnd Any use? M23

a little improvement this searches any duplicate (no need to know prior what to search) note: if there are more empty elements are considered duplicate #include <Array.au3> Local $aArray[14] = [2,5,7,2,25,6,31,1,24,5,7,8,7,99] Local $aResult Local $aArrayUnique = _ArrayUnique($aArray, 1, 0, 0, 0) ; keep only single elements If UBound($aArrayUnique) = UBound($aArray) Then ConsoleWrite("There are not duplicates." & @CRLF) Else For $i = 0 To UBound($aArrayUnique) - 1 $aResult = _ArrayFindAll($aArray, $aArrayUnique[$i]) If UBound($aResult) > 1 Then ConsoleWrite("There are " & UBound($aResult) & " '" & $aArrayUnique[$i] & "'" & @LF) EndIf Next EndIf edit: I saw the post by boththose only after I posted this

#Include <Array.au3> Local $aArray[14] = [2,5,7,2,25,6,31,1,24,5,7,8,7,99] For $i = ubound($aArray) - 1 to 0 step -1 Local $aResult = _ArrayFindAll($aArray, $aArray[$i]) if ubound($aResult) > 1 Then msgbox (0 , '' , "There are " & ubound($aResult) & ": " & $aArray[$i]) for $x = UBound($aResult) - 1 to 0 step - 1 _ArrayDelete($aArray , $aResult[$x]) Next Endif $i = $i - (UBound($aResult) - 1) Next

Unfortunately there is no _Word_DocCopyPaste function available (at the moment). Use _Word_DocRangeSet to mark the range you want to copy. Then use the Range.Copy method to copy the marked range to the clipboard. Use _Word_DocRangeSet to mark a range of 0 length at the end of the target document and use the Range.Paste method to copy the content of the clipboard.