Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 08/11/2016 in all areas

  1. Create tab items and subtabs dynamically. The tabs and subtabs are managed by a tree structure implemented as a treeview control. Add tab items and subtabsResizable windowRename tab itemsDrag and drop supportCut, copy (once), paste (many)Save to and read from inifile23 December 2011 Added an option to the context menu to set the spacing between the tab controls. The zipfile below is updated. 19 December 2011 Drag and drop You can drag a tab item (tab header) and drop it on another tab item. An item is dropped under the mouse cursor moving the item you are dropping on to the left or right. You can't drop an item on one of it's own subtabs. That means that you can drag sidewards and upwards but not downwards. When you click a tab item you can't drag until the item is updated (when you see the dotted rectangle around the text). TabExDemo.au3 is a demo program. It shows how the tabs and subtabs are managed by the tree structure in the treeview control. TabExEdit.au3 is an example with an edit control. For tab items with an even number (name) the edit control is initially set to the number. TabExList.au3 is an example with a listview (includes WinAPIEx.au3). TabExEmpty.au3 has an empty window with no data. It can be used as a starting point for applications. TabExFunc.au3 is common functions (includes APIConstants.au3). This is a zipfile with the scripts. TabEx.zip LarsJ
    1 point
  2. l3ill

    Scripting Teamspeak

    In my experience Shellexecute works better for programs where Run is more for batch files and commandline stuff. Maybe a Dev will show up and elaborate... I just go for what works not always knowing why
    1 point
  3. In this case a range object is either returned by $oExcel.ActiveSheet.Range(...) or .Range(... ) when used in a With $oExcel.ActiveSheet / EndWith construct With/EndWith prefixes all parts of a statement starting with a dot with the expression defined in the With statement. A better description can be found in the help file: https://www.autoitscript.com/autoit3/docs/intro/ComRef.htm
    1 point
  4. Thanks to all. It was that easy #include <FTPEx.au3> #include <MsgBoxConstants.au3> Local $sServer = 'etet' ; zOS MVS System (IBM) Local $sUsername = @UserName Local $sPass = 'xxx' Local $path_Tempfile = @TempDir & '\tempBankinfo.txt' Local $path_DatenTXT = 'c:\Autoit\GAD\bank21-Reporting-Manager\Initialization\DATEN.TXT' Local $hOpen = _FTP_Open('MyFTP Control') Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 0, 21, $INTERNET_SERVICE_FTP, $INTERNET_FLAG_TRANSFER_ASCII) If @error Then MsgBox($MB_SYSTEMMODAL, '_FTP_Connect', 'ERROR=' & @error) Else ConsoleWrite(_FTP_Command($hConn, 'site sbd=(IBM-273,iso8859-1)', $INTERNET_FLAG_TRANSFER_ASCII) & @CRLF) ConsoleWrite(_FTP_FileGet($hConn, "'SRV.DWS.TEMP.BNKINFOD'", @ScriptDir & '\Daten1.txt', False, 0, $INTERNET_FLAG_TRANSFER_ASCII) & @CRLF) EndIf Local $iFtpc = _FTP_Close($hConn) Local $iFtpo = _FTP_Close($hOpen) This works perfectly with umlauts and so on. Mega
    1 point
  5. water

    End-To-End Check

    Then I have run out of ideas
    1 point
  6. czardas

    Weird Autoit File

    The file begins with 0xFFFE which you can check like this: Local $hFile = FileOpen('C:\Users\Alexandra\Documents\what1.au3', 16) ; replace with your own file path Local $data = FileRead($hFile) FileClose($hFile) MsgBox(0, "", $data) Here is what Wikipedia has to say about this Unicode code point. LINK: https://en.wikipedia.org/wiki/Specials_(Unicode_block) This might give you some insight.
    1 point
  7. BrewManNH

    Weird error

    You get that error message because the Object you created in the _IECreate line no longer exists, you closed the window, and therefor the variable $oIE now has an object reference that doesn't exist any longer. That's how it's supposed to work. And to be clear, now that _IEPropertyGet errors, the return value from it is now 0, and a string, when compared to a number, is converted to a number itself, and a string is equal to zero as a number.
    1 point
  8. water

    End-To-End Check

    Glad you could get your task done
    1 point
  9. water

    End-To-End Check

    Another idea: Add the second mailbox as a shared mailbox to your profile 1 Create a rule to forward test mails from the shared to your primary Inbox Create a send and new mail event for your primary inbox This way you can get rid of profile switching.
    1 point
  10. water

    End-To-End Check

    This doesn't work because the mail is already in your inbox of Profil2 when you start Outlook for profil2. You would need to use _OL_ItemFind to search for the mail item with the GUID as unique key.
    1 point
  11. water

    End-To-End Check

    Our Exchange/Outlook system is so reliable that all mails I send get delivered. If there is anything wrong with your system then I would hunt and eliminate this problems as a first measure. If still needed I would split the send and receive part into two scripts (like a client / server application) and run them on separate computers with the needed profiles.
    1 point
  12. water

    End-To-End Check

    Welcome to AutoIt and the Forum! You need to provide more information! Which mail clients do you use to send/receive mails? Can you post the code so have written so far?
    1 point
  13. I fixed some parts to work with imgur api v3 Here's a working code, http://pastebin.com/PMHYULDE I have also included the .au3 file imgur.v3.au3
    1 point
  14. Try this var expr = /(^.*?filename)(\*?\=.*?)([^']+)$/mg; fileName = responseHeaders.replace(expr, "$3");
    1 point
  15. Could you please specify which browsers you use as the implementations have slight differences
    1 point
  16. Here is efect universal solution for all edit controls in GUI #include <GUIConstantsEx.au3> #include <GUIEdit.au3> #include <WinAPI.au3> $hGUI = GUICreate("Test", 500, 500) $hInput1 = GUICtrlCreateEdit("here is some text 1", 10, 10, 480, 240) $hInput2 = GUICtrlCreateEdit("here is some text 2", 10, 250, 480, 240) ; Create dummy for accelerator key to activate $hSelAll = GUICtrlCreateDummy() GUISetState() ; Set accelerators for Ctrl+a Dim $AccelKeys[1][2]=[["^a", $hSelAll]] GUISetAccelerators($AccelKeys) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $hSelAll _SelAll() EndSwitch WEnd Func _SelAll() $hWnd = _WinAPI_GetFocus() $class = _WinAPI_GetClassName($hWnd) If $class = 'Edit' Then _GUICtrlEdit_SetSel($hWnd, 0, -1) EndFunc ;==>_SelAll
    1 point
×
×
  • Create New...