Leaderboard
Popular Content
Showing content with the highest reputation on 08/11/2016 in all areas
-
Tab control example: Tabs and subtabs on demand
jaberwacky reacted to LarsJ for a topic
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 LarsJ1 point -
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 why1 point
-
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.htm1 point
-
_FTP_... functions use codepage (zOS) (solved)
AutoBert reacted to Xenobiologist for a topic
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. Mega1 point -
1 point
-
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
-
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
-
1 point
-
End-To-End Check
echohelloworld reacted to water for a topic
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 -
End-To-End Check
echohelloworld reacted to water for a topic
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 -
End-To-End Check
echohelloworld reacted to water for a topic
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 -
End-To-End Check
echohelloworld reacted to water for a topic
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 -
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.au31 point
-
Try this var expr = /(^.*?filename)(\*?\=.*?)([^']+)$/mg; fileName = responseHeaders.replace(expr, "$3");1 point
-
Could you please specify which browsers you use as the implementations have slight differences1 point
-
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 ;==>_SelAll1 point