1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Schnuffel

Beiträge von Schnuffel

  • Kommunikation Skripte untereinander

    • Schnuffel
    • 13. Oktober 2014 um 21:11

    jetzt ist mir in FASM aufgefallen, die erstellte dll ist immer knapp 4x so groß wie der allozierte Speicher.
    Das ist doch nicht im Sinne des Erfinders???
    Ich dachte damit wird "nur" Speicher im RAM angefordert und reserviert.
    Aber in der dll???

    Mache ich etwas falsch?

    Beispiel einer 1MB dll:

    Spoiler anzeigen

    format PE GUI 4.0 DLL
    entry DllEntryPoint

    include 'win32ax.inc' ;includes


    ;************Hier die in der DLL verwendeten Funktionen für den Export eintragen
    section '.edata' export data readable writable
    export 'sharedmem.DLL',\ ;Dateiname, Zeilentrenner ist ,\
    GetPointer,'GetPointer' ;Funktion


    ;weitere Sektionen je nach Anforderung der Funktionen
    section '.data' data readable writeable shareable

    _mem dd 1000000 dup 0 ;1 MB Speicher


    ;section für die Funktionen
    section '.code' code readable executable

    ;DllEntryPoint wird beim Laden der DLL aufgerufen
    ;um "bombensicheres" Errorhandling zu haben, Funktion anpassen!
    proc DllEntryPoint hinstDLL,fdwReason,lpvReserved
    mov eax,TRUE ;hart aber herzlich^^
    ret
    endp


    ;******************Ab hier fangen die Benutzer-Funktionen an **********

    proc GetPointer
    ;ab hier folgt der Code, wie er z.B. von AssembleIt verarbeitet wird

    use32
    mov eax,_mem ;Startadresse variable
    ret

    endp

    section '.reloc' fixups data discardable

  • Kommunikation Skripte untereinander

    • Schnuffel
    • 13. Oktober 2014 um 19:54

    Danke Euch.

    Andy das mit der FASM werd ich ausprobieren.

    Ich hab die dll dann sowieso als Variable in autoit eingebettet und passend zur Anforderung erstellt und gestartet.

  • Kommunikation Skripte untereinander

    • Schnuffel
    • 12. Oktober 2014 um 21:41

    Hallo zusammen,

    jetzt hätte ich noch eine Frage an Andy.

    wie kann man aus dem asm Code eine dll erstellen
    und wie könnte man den Speicherbereich der reserviert werden soll durch den DLLCall direkt angeben.
    Im Moment ist der Speicherbereich ja begrenzt auf 10KB.

    Grüße
    Schnuffel

  • Autoit Info Tool (Finder-Tool)

    • Schnuffel
    • 7. Februar 2014 um 21:24

    Hi Ilse,

    wenn es hart auf hart kommt und eine dirty Version auch reicht würde ich die ComboBox mit Send ansprechen und entsprechend mit SEND("{DOWN 3}") oder ähnlichem mit Tastatur Klicks durch die Combo navigieren

  • Merkwürdige Rückgabe beim Auslesen von Combobox einträgen

    • Schnuffel
    • 5. Februar 2014 um 19:30

    zu wenig Hintergrund Informationen

  • E-Mail

    • Schnuffel
    • 6. Juli 2013 um 13:15

    ich hab da mal einen Email'er geschrieben.

    Vielleicht hilft Dir die Lektüre des Source-Codes weiter...
    https://www.autoit.de/index.php?page=Thread&threadID=11263

  • RDP Verbindungen mit AutoIT - RDP Fenster eingebettet in eigene GUI - Beispiel mit allen Parametern

    • Schnuffel
    • 1. November 2011 um 18:24

    Hi BLinz,

    ich hoffe Dir nicht zu nahe zu treten, aber mich hatte das Thema mal interessiert
    und da hab ich den Tip aus dem engl. Forum gleich mal umgesetzt.

    Das mit den Tab's konnte schwieriger werden oder wenn überhaupt möglich nicht sonderlich performant.
    Da würde ich dann eher mit einer separaten GUI arbeiten, in der man die einzelnen Sitzungen an-/abwählen kann.

    Auf jeden Fall wird jetzt das Fenster immer neu gezeichnet.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("WinTitleMatchMode", 4)
    Opt("WinSearchChildren", 1)
    Opt("MustDeclareVars", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Global $msg, $sATLClass
    Global $GuiWidth = @DesktopWidth -25
    Global $GuiHeight = @DesktopHeight -35
    Global $GuiTitle = "Remote Zugang"
    Global $oRDP = ObjCreate("MsTscAx.MsTscAx")
    Global $GUI = GUICreate($GuiTitle, $GuiWidth, $GuiHeight, 5, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    Global $GUIActiveX = GUICtrlCreateObj($oRDP, 5, 5, $GuiWidth -10, $GuiHeight -10)
    GUISetBkColor(0x6c3C42)

    [/autoit] [autoit][/autoit] [autoit]

    $oRDP.Server = "Server / IP-Adresse"
    $oRDP.Domain = "muss nicht sein"
    $oRDP.UserName = "Username"
    $oRDP.ConnectingText = "Die Verbindung wird hergestellt ..."
    $oRDP.DisconnectedText = "Die Verbindung wurde getrennt ..."
    $oRDP.AdvancedSettings2.RedirectDrives = False
    $oRDP.AdvancedSettings2.RedirectPrinters = True
    $oRDP.AdvancedSettings2.RedirectPorts = False
    $oRDP.AdvancedSettings2.RedirectSmartCards = False
    $oRDP.AdvancedSettings2.EnableAutoReconnect = True
    $oRDP.AdvancedSettings2.AllowBackgroundInput = True
    $oRDP.AdvancedSettings2.ConnectionBarShowRestoreButton = False
    $oRDP.AdvancedSettings2.keepAliveInterval = 500
    $oRDP.AdvancedSettings5.AudioRedirectionMode = 0
    $oRDP.AdvancedSettings7.PerformanceFlags = 0x00000000
    $oRDP.Connect()

    [/autoit] [autoit][/autoit] [autoit]

    _Styles() ; setzen der Styles für die Control's und die GUI
    AdlibRegister("checkconn", 500) ; checken, ob die Verbindung noch besteht. Ansonsten wird in diesem Fall beendet...
    While GUIGetMsg() <> -3
    Sleep(10)
    WEnd
    _Exit()

    [/autoit] [autoit][/autoit] [autoit]

    ;====================================================================> ab hier kommen die Funktionen

    [/autoit] [autoit][/autoit] [autoit]

    Func _Styles()
    Local $aClasses = StringSplit(WinGetClassList($GUI, ""), @LF)
    For $i = 1 To $aClasses[0]
    If StringLeft($aClasses[$i], 4) = "ATL:" Then
    $sATLClass = $aClasses[$i]
    ExitLoop
    EndIf
    Next
    Global $hUIContainerClass = ControlGetHandle($GUI, "", "[CLASS:UIContainerClass]")
    Global $hUIMainClass = ControlGetHandle($GUI, "", "[CLASS:UIMainClass]")
    Global $hATL = ControlGetHandle($GUI, "", "[CLASS:" & $sATLClass & "]")
    _SetStyle($hUIContainerClass, BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE), BitOR(0x100000, 0x4))
    _SetStyle($hUIMainClass, BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE))
    _SetStyle($hATL, BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE))
    _SetStyle($GUI, BitOR($WS_BORDER, $WS_CAPTION, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_DLGFRAME, $WS_GROUP, $WS_SYSMENU,$WS_THICKFRAME, $WS_VISIBLE))
    EndFunc ;==>_Styles

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    GUIDelete()
    AdlibUnRegister("checkconn")
    Exit
    EndFunc ;==>_Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func checkconn()
    If $oRDP.Connected = 0 Then _Exit()
    EndFunc ;==>checkconn

    [/autoit] [autoit][/autoit] [autoit]

    Func _SetStyle($hwnd, $style, $exstyle = 0x0)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -16, "long", $style)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -20, "long", $exstyle)
    EndFunc ;==>_SetStyle

    [/autoit] [autoit][/autoit] [autoit]

    ;Hier noch mal alle Parameter bis RDP Version 7
    ;Das "AdvancedSettings2" <- die Zahl am Ende Symbolisiert ab welcher RDP Version dieser Parameter verfügbar ist

    [/autoit] [autoit][/autoit] [autoit]

    ;CipherStrength Read-only The maximum encryption strength of the current control.
    ;Connected Read-only The connection state of the current control.
    ;ConnectingText Read/write The text that appears centered in the control while the control is connecting.
    ;DesktopHeight Read/write The current control's height, in pixels, on the initial remote desktop.
    ;DesktopWidth Read/write The current control's width, in pixels, on the initial remote desktop.
    ;DisconnectedText Read/write The text that appears centered in the control before a connection is terminated.
    ;Domain Read/write The domain to which the current user logs on.
    ;FullScreenTitle Write-only The window title displayed when the control is in full-screen mode.
    ;HorizontalScrollBarVisible Read-only Indicates whether the control has displayed a horizontal scroll bar.
    ;SecuredSettings Read-only A IMsTscSecuredSettings interface pointer.
    ;SecuredSettingsEnabled Read-only Indicates whether the IMsTscSecuredSettings interface is available.
    ;Server Read/write The name of the server to which the current control is connected.
    ;StartConnected Read/write Indicates whether the control will establish the RD Session Host server connection immediately upon startup.
    ;UserName Read/write The user name logon credential.
    ;Version Read-only The version number of the current control.
    ;VerticalScrollBarVisible Read-only Indicates whether the control displays a vertical scroll bar.
    ;AdvancedSettings2.AcceleratorPassthrough Read/write Specifies if keyboard accelerators should be passed to the server.
    ;AdvancedSettings2.BitmapCacheSize Read/write The size, in kilobytes, of the bitmap cache file used for 8-bits-per-pixel bitmaps. Valid numeric values of this property are 1 to 32 inclusive.
    ;AdvancedSettings2.BitmapPersistence Read/write Specifies if persistent bitmap caching should be used. Persistent caching can improve performance but requires additional disk space.
    ;AdvancedSettings2.BitmapVirtualCache16BppSize Read/write Specifies the size, in megabytes, of the persistent bitmap cache file to use for the 15 and 16 bits-per-pixel high-color settings.
    ;AdvancedSettings2.BitmapVirtualCache24BppSize Read/write Specifies the size, in megabytes, of the persistent bitmap cache file to use for the 24 bits-per-pixel high-color setting.
    ;AdvancedSettings2.BitmapVirtualCacheSize Read/write Specifies the size, in megabytes, of the persistent bitmap cache file to use for 8-bits-per-pixel color. Valid numeric values of this property are 1 to 32 inclusive. Note that the maximum size for all virtual cache files is 128 MB. Related properties include the BitmapVirtualCache16BppSize and BitmapVirtualCache24BppSize properties.
    ;AdvancedSettings2.brushSupportLevel Read/write This property is not supported.
    ;AdvancedSettings2.CachePersistenceActive Read/write Specifies whether persistent bitmap caching should be used.
    ;AdvancedSettings2.ClearTextPassword Write-only Specifies the password with which to connect. For more information, see the IMsTscNonScriptable interface.
    ;AdvancedSettings2.ConnectToServerConsole Read/write Windows Server 2003, Windows XP with SP2, Windows XP with SP1, and Windows XP: Specifies if the control should attempt to connect to the console session of a server.
    ;AdvancedSettings2.ConnectWithEndpoint Write-only This property is not supported.
    ;AdvancedSettings2.DedicatedTerminal Read/write Windows XP with SP1 and Windows XP: Specifies if the client should run in dedicated-terminal mode.
    ;AdvancedSettings2.DisableCtrlAltDel Read/write Specifies if the initial explanatory screen in Winlogon should display.
    ;AdvancedSettings2.DisplayConnectionBar Read/write Specifies whether to use the connection bar. The default value is VARIANT_TRUE, which enables the property.
    ;AdvancedSettings2.DoubleClickDetect Read/write Specifies if the client identifies double-clicks for the server.
    ;AdvancedSettings2.EnableMouse Read/write Windows XP with SP1 and Windows XP: Specifies if the client sends mouse-button messages to the server.
    ;AdvancedSettings2.EnableWindowsKey Read/write Specifies if the Windows key can be used in the remote session.
    ;AdvancedSettings2.EncryptionEnabled Read/write This property is not supported. Encryption cannot be disabled.
    ;AdvancedSettings2.GrabFocusOnConnect Read/write Specifies if the client control should have the focus while connecting.
    ;AdvancedSettings2.HotKeyAltEsc Read/write Specifies the virtual-key code to add to ALT to determine the hotkey replacement for ALT+ESC. VK_INSERT is the default value, with ALT+INSERT as the resulting sequence. This property is valid only when the KeyboardHookMode property is not enabled.
    ;AdvancedSettings2.HotKeyAltShiftTab Read/write Specifies the virtual-key code to add to ALT to determine the hotkey replacement for ALT+SHIFT+TAB. VK_NEXT is the default value, with ALT+PAGE DOWN as the resulting sequence. This property is valid only when the KeyboardHookMode property is not enabled.
    ;AdvancedSettings2.HotKeyAltSpace Read/write Specifies the virtual-key code to add to ALT to determine the hotkey replacement for ALT+SPACE. VK_DELETE is the default, with ALT+DELETE as the resulting sequence. This property is valid only when the KeyboardHookMode property is not enabled.
    ;AdvancedSettings2.HotKeyAltTab Read/write Specifies the virtual-key code to add to ALT to determine the hotkey replacement for ALT+TAB. VK_PRIOR is the default value, with ALT+PAGE UP as the resulting sequence. This property is valid only when the KeyboardHookMode property is not enabled.
    ;AdvancedSettings2.HotKeyCtrlAltDel Read/write Specifies the virtual-key code to add to CTRL+ALT to determine the hotkey replacement for CTRL+ALT+DELETE, also called the secure attention sequence (SAS). VK_END is the default. Note that even when the KeyboardHookMode property is enabled, CTRL+ALT+DELETE is never redirected to the remote server; CTRL+ALT+DELETE is the local SAS sequence.
    ;AdvancedSettings2.HotKeyCtrlEsc Read/write Specifies the virtual-key code to add to ALT to determine the hotkey replacement for CTRL+ESC. VK_HOME is the default value, with ALT+HOME as the resulting sequence. This property is valid only when the KeyboardHookMode property is not enabled.
    ;AdvancedSettings2.HotKeyFullScreen Read/write Specifies the virtual-key code to add to CTRL+ALT to determine the hotkey replacement for switching to full-screen mode. VK_CANCEL is the default value.
    ;AdvancedSettings2.InputEventsAtOnce Read/write This property is not supported. Windows XP with SP1 and Windows XP: Specifies the typical number of input events to batch together.
    ;AdvancedSettings2.keepAliveInterval Read/write Specifies an interval, in milliseconds, at which the client sends keep-alive messages to the server. The default value of the property is zero, which disables keep-alive messages. The minimum valid value of this property is 10,000, which represents 10 seconds. Note that a group policy setting that specifies whether persistent client connections to the server are allowed can override this property setting.
    ;AdvancedSettings2.KeyboardFunctionKey Read/write Valid for Windows CE only.
    ;AdvancedSettings2.KeyboardSubType Read/write Valid for Windows CE only.
    ;AdvancedSettings2.KeyboardType Read/write Valid for Windows CE only.
    ;AdvancedSettings2.LoadBalanceInfo Read/write Specifies the load balancing cookie that will be placed in the X.224 Connection Request packet in the RD Session Host server protocol connection sequence.
    ;AdvancedSettings2.maxEventCount Read/write This property is not supported. Windows XP with SP1 and Windows XP: Specifies the maximum number of input events to batch together.
    ;AdvancedSettings2.MaximizeShell Read/write Specifies if programs launched with the StartProgram property should be maximized.
    ;AdvancedSettings2.minInputSendInterval Read/write Specifies the minimum interval, in milliseconds, between the sending of mouse events.
    ;AdvancedSettings2.MinutesToIdleTimeout Read/write Specifies the maximum length of time, in minutes, that the client should remain connected without user input. If the specified time elapses, the control calls the IMsTscAxEvents::OnIdleTimeoutNotification method.
    ;AdvancedSettings2.NotifyTSPublicKey Read/write This property is not supported.
    ;AdvancedSettings2.NumBitmapCaches Read/write This property is not supported. Windows XP with SP1 and Windows XP: Specifies the number of bitmap caches to use.
    ;AdvancedSettings2.orderDrawThreshold Read/write This property is not supported. Windows XP with SP1 and Windows XP: Specifies the maximum number of drawing operations to batch together for rendering.
    ;AdvancedSettings2.overallConnectionTimeout Read/write Specifies the total length of time, in seconds, that the client control waits for a connection to complete. The maximum valid value of this property is 600, which represents 10 minutes. If the specified time elapses before connection completes, the control disconnects and calls the IMsTscAxEvents::OnDisconnected method. A related property is singleConnectionTimeout.
    ;AdvancedSettings2.PerformanceFlags Read/write Specifies a set of features that can be set at the server to improve performance.
    ;AdvancedSettings2.PersistCacheDirectory Write-only This property is not supported. Windows XP with SP1 and Windows XP: Specifies the path to the directory for storage of bitmap cache files.
    ;AdvancedSettings2.PinConnectionBar Read/write Specifies the state of the UI connection bar. Setting this property to VARIANT_TRUE sets the state to "lowered", that is, invisible to the user and unavailable for input. VARIANT_FALSE sets the state to "raised" and available for user input.
    ;AdvancedSettings2.RdpdrClipCleanTempDirString Read/write Windows XP with SP1 and Windows XP: Specifies the message to be displayed before exiting while the client control is deleting files in a temporary directory; for example, "Cleaning up temporary directory"
    ;AdvancedSettings2.RdpdrClipPasteInfoString Read/write Windows XP with SP1 and Windows XP: Specifies the message to be displayed while the client control processes clipboard information in preparation for pasting the data; for example, "Preparing to paste information".
    ;AdvancedSettings2.RdpdrLocalPrintingDocName Read/write Windows XP with SP1 and Windows XP: Specifies the name to be used for printer documents that are redirected; for example, "Remote Desktop Redirected Printer Document".
    ;AdvancedSettings2.RDPPort Read/write Specifies the connection port. The default value is 3389.
    ;AdvancedSettings2.RedirectDrives Read/write Specifies if redirection of disk drives is allowed.
    ;AdvancedSettings2.RedirectPorts Read/write Specifies if redirection of local ports (for example, COM and LPT) is allowed.
    ;AdvancedSettings2.RedirectPrinters Read/write Specifies if redirection of printers is allowed.
    ;AdvancedSettings2.RedirectSmartCards Read/write Specifies if redirection of smart cards is allowed.
    ;AdvancedSettings2.SasSequence Read/write Specifies the secure access sequence the client will use to access the login screen on the server.
    ;AdvancedSettings2.ScaleBitmapCachesByBPP Read/write Windows XP with SP1 and Windows XP: Specifies if the size of bitmap caches should be scaled by bit depth (bits per pixel). The default value, enabled or nonzero, is recommended.
    ;AdvancedSettings2.ShadowBitmap Read/write Windows Vista, Windows Server 2003, and Windows XP: Specifies if shadow bitmaps should be used.
    ;AdvancedSettings2.shutdownTimeout Read/write Specifies the length of time, in seconds, to wait for the server to respond to a disconnection request. The default value of the property is 10. The maximum valid value of the property is 600, which represents 10 minutes. If the server does not reply within the specified time, the client control disconnects.
    ;AdvancedSettings2.singleConnectionTimeout Read/write Specifies the maximum length of time, in seconds, that the client control waits for a connection to an IP address. During connection the control may attempt to connect to multiple IP addresses. The maximum valid value of this property is 600. A related property is overallConnectionTimeout.
    ;AdvancedSettings2.SmartSizing Read/write Specifies if the display should be scaled to fit the client area of the control. VARIANT_TRUE enables scaling. Note that scroll bars do not appear when the SmartSizing property is enabled.
    ;AdvancedSettings2.SmoothScroll Read/write Windows XP with SP1 and Windows XP: Specifies if the Remote Desktop window should scroll smoothly when scroll bars are used. The default is a nonzero value, which enables smooth scrolling and increases the scrolling response on slower computers. The property has no effect on scrolling in the actual remote session.
    ;AdvancedSettings2.TransportType Read/write Specifies the transport type used by the client. This property is not used by the Remote Desktop ActiveX control.
    ;AdvancedSettings2.WinCEFixedPalette Read/write Valid for Windows CE only.
    ;AdvancedSettings2.CanAutoReconnect Read-only Specifies whether the client control is able to reconnect automatically to the current session in the event of a network disconnection.
    ;AdvancedSettings2.EnableAutoReconnect Read/write Specifies whether to enable the client control to reconnect automatically to a session in the event of a network disconnection.
    ;AdvancedSettings2.MaxReconnectAttempts Read/write Specifies the number of times to try to reconnect during automatic reconnection. The valid values of this property are 0 to 200 inclusive.
    ;AdvancedSettings2.allowBackgroundInput Read/write Specifies whether background input mode is enabled.
    ;AdvancedSettings2.BitmapPeristence Read/write Specifies whether bitmap caching is enabled. Note The spelling error in the name of the property is in the released version of the control.
    ;AdvancedSettings2.Compress Read/write Specifies whether compression is enabled.
    ;AdvancedSettings2.ContainerHandledFullScreen Read/write Specifies whether the container-handled full-screen mode is enabled.
    ;AdvancedSettings2.DisableRdpdr Read/write Specifies whether printer and clipboard redirection is enabled.
    ;AdvancedSettings2.IconFile Write-only Specifies the name of the file containing icon data that will be accessed when displaying the client in full-screen mode.
    ;AdvancedSettings2.IconIndex Write-only Specifies the index of the icon within the current icon file.
    ;AdvancedSettings2.KeyBoardLayoutStr Write-only Specifies the name of the active input locale identifier (formerly called the keyboard layout) to use for the connection.
    ;AdvancedSettings2.PluginDlls Write-only Specifies the names of virtual channel client DLLs to be loaded.
    ;AdvancedSettings4.AuthenticationLevel Read/write Specifies the authentication level to use for the connection.;AdvancedSettings3.ConnectionBarShowMinimizeButton Read/write Specifies whether to display the Minimize button on the connection bar.
    ;AdvancedSettings3.ConnectionBarShowRestoreButton Read/write Specifies whether to display the Restore button on the connection bar.
    ;AdvancedSettings5.AudioRedirectionMode Read/write The audio redirection mode. The AudioRedirectionMode property has the following possible values.
    ; AUDIO_MODE_REDIRECT 0 (Audio redirection is enabled and the option for redirection is "Bring to this computer". This is the default mode.)
    ; AUDIO_MODE_PLAY_ON_SERVER 1 (Audio redirection is enabled and the option is "Leave at remote computer". The "Leave at remote computer" option is supported only when connecting remotely to a host computer that is running Windows Vista. If the connection is to a host computer that is running Windows Server 2008, the option "Leave at remote computer" is changed to "Do not play". )
    ; AUDIO_MODE_NONE 2 (Audio redirection is enabled and the mode is "Do not play".)
    ;AdvancedSettings5.BitmapVirtualCache32BppSize Read/write Specifies the virtual cache file size for 32 bits per pixel (bpp) bitmaps. The maximum value is 48 megabytes (MB).
    ;AdvancedSettings5.ConnectionBarShowPinButton Read/write Specifies whether the pin button should be shown on the connection bar. By default, the value is TRUE.
    ;AdvancedSettings5.PublicMode Read/write Specifies whether public mode should be enabled or disabled. By default, public mode is set to FALSE.
    ;AdvancedSettings5.RedirectClipboard Read/write Specifies whether clipboard redirection should be enabled or disabled. By default, clipboard redirection mode is set to TRUE (enabled).
    ;AdvancedSettings5.RedirectDevices Read/write Specifies whether redirected devices should be enabled or disabled. By default, redirected devices mode is set to FALSE.
    ;AdvancedSettings5.RedirectPOSDevices Read/write Specifies whether Point of Service redirected devices should be enabled or disabled. By default, Point of Service redirected devices mode is set to FALSE.
    ;AdvancedSettings6.AuthenticationServiceClass Read/write Specifies the service principal name (SPN) to use for authentication to the server.
    ;AdvancedSettings6.AuthenticationType Read-only Specifies the type of authentication used for this connection.
    ;AdvancedSettings6.ConnectToAdministerServer Read/write Retrieves or specifies whether the ActiveX control should attempt to connect to the server for administrative purposes.
    ;AdvancedSettings6.EnableCredSspSupport Read/write Specifies whether the Credential Security Service Provider (CredSSP) is enabled for this connection.
    ;AdvancedSettings6.HotKeyFocusReleaseLeft Read/write Specifies the virtual-key code to add to CTRL+ALT to determine the hotkey replacement for CTRL+ALT+LEFT ARROW.
    ;AdvancedSettings6.HotKeyFocusReleaseRight Read/write Specifies the virtual-key code to add to CTRL+ALT to determine the hotkey replacement for CTRL+ALT+RIGHT ARROW.
    ;AdvancedSettings6.PCB Read/write Specifies the preconnection BLOB (PCB) setting to use prior to connecting for transmission to the server.
    ;AdvancedSettings6.RelativeMouseMode Read/write Specifies whether the mouse should use relative mode.
    ;AdvancedSettings7.AudioCaptureRedirectionMode Read/write Specifies or retrieves a value that indicates whether the default audio input device is redirected from the client to the remote session.
    ;AdvancedSettings7.AudioQualityMode Read/write Specifies or retrieves a value that indicates the audio quality mode setting for redirected audio.
    ;AdvancedSettings7.EnableSuperPan Read/write Specifies or retrieves a value that indicates whether SuperPan is enabled or disabled.
    ;AdvancedSettings7.NetworkConnectionType Read/write Specifies or retrieves a value that indicates the network connection type.
    ;AdvancedSettings7.RedirectDirectX Read/write This property is not used.
    ;AdvancedSettings7.SuperPanAccelerationFactor Read/write Specifies or retrieves a value that indicates the SuperPan acceleration factor.
    ;AdvancedSettings7.VideoPlaybackMode Read/write Specifies or retrieves a value that indicates the video playback mode.

    [/autoit]
  • Differenz zwischen 2 Datumsangaben

    • Schnuffel
    • 31. Oktober 2011 um 19:16
    [autoit]

    #include <Date.au3>
    MsgBox(0, '',"Tage Differenz: " & _DateDiff( 'D',"1970/01/01 00:00:00",_NowCalc()))

    [/autoit]
  • RDP Verbindungen mit AutoIT - RDP Fenster eingebettet in eigene GUI - Beispiel mit allen Parametern

    • Schnuffel
    • 31. Oktober 2011 um 13:43

    Hallo BLinz,

    eine Sache ist mir noch aufgefallen.
    Wenn man die GUI minimiert und wieder herstellt wird der Inhalt nicht neu gezeichnet.

    Wenn das auch noch geht, dann ist das Script perfekt ;)

  • RDP Verbindungen mit AutoIT - RDP Fenster eingebettet in eigene GUI - Beispiel mit allen Parametern

    • Schnuffel
    • 29. Oktober 2011 um 18:58

    Hy BLinz,

    ich find das ja super geil :D

    Danke für die Mühe.
    Kann ich fein gebrauchen.....

  • Textdatei einlesen und als Mail versenden...

    • Schnuffel
    • 25. Oktober 2011 um 22:11

    über einen "normalen" SMTP-Server wirst Du Dich mit diesem Script schwer tun, da Du so keinen User und kein Passwort angeben kannst.
    Versuche es doch mal mit diesem Script... (PS: der body sollte dabei ein String und kein Array sein ;) )
    dafür kannst Du auch HTML-Emails versenden. Musst halt nur dem entsprechend formatieren.

    Spoiler anzeigen
    [autoit]

    #include <file.au3>
    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
    $rc = _INetSmtpMailCom("MailServer", "Your Name", "your@Email.Address.com", "CCadress1@test.com;CCadress2@test.com", "Test Subject", "Test <b>Body</b>", "test.au3;test3.au3")
    ;
    ;
    ;
    ;
    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
    $objEmail.HTMLBody = $as_Body
    Else
    $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
    Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
    For $x = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
    If FileExists($S_Files2Attach[$x]) Then
    $objEmail.AddAttachment ($S_Files2Attach[$x])
    Else
    $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
    SetError(1)
    return 0
    EndIf
    Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Sent the Message
    $objEmail.Send
    if @error then
    SetError(2)
    return $oMyRet[1]
    EndIf
    EndFunc ;==>_INetSmtpMailCom
    ;
    ;
    ; Com Error Handler
    Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    EndFunc ;==>MyErrFunc

    [/autoit]
  • Tidy ?

    • Schnuffel
    • 25. Oktober 2011 um 21:50

    Hallo Ilse,

    überprüfe mal Dein Script , ob da am Anfang irgendeine Zeile beginnend mit einem '#'
    das Problem auslöst...

    [autoit]

    #AutoIt3Wrapper_Run_Tidy= ;(Y/N) Run Tidy before compilation. default=N
    #AutoIt3Wrapper_Tidy_Stop_OnError= ;(Y/N) Continue when only Warnings. default=Y
    #Tidy_Parameters=

    [/autoit]
  • Die word datei im hintergrung beschreiben

    • Schnuffel
    • 24. Oktober 2011 um 21:27

    dein Button4 soll eine Email erstellen...

    Ich hab das in den Case Button1 eingefügt ;)

  • Die word datei im hintergrung beschreiben

    • Schnuffel
    • 24. Oktober 2011 um 21:20
    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    AutoIt Version: 3.3.6.1
    Author: myName

    [/autoit][autoit][/autoit][autoit]

    Script Function:
    Template AutoIt script.

    [/autoit][autoit][/autoit][autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    ; Script Start - Add your code below here

    [/autoit][autoit][/autoit][autoit]

    #include <GUIConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=c:\autoit\gui\kodak\forms\de es.kxf
    $Form1_1 = GUICreate("Form1", 839, 757, 187, 133)
    GUISetFont(8, 800, 0, "MS Sans Serif")
    $Label1 = GUICtrlCreateLabel("Trackingnummer", 16, 40, 97, 17)
    $Input1 = GUICtrlCreateInput("", 152, 32, 297, 21)
    $Label2 = GUICtrlCreateLabel("Name", 16, 80, 36, 17)
    $Input2 = GUICtrlCreateInput("", 152, 72, 297, 21)
    $Label3 = GUICtrlCreateLabel("Adresse", 16, 120, 49, 17)
    $Input3 = GUICtrlCreateInput("", 152, 112, 297, 21)
    $Label4 = GUICtrlCreateLabel("Ort / Plz", 16, 160, 52, 17)
    $Input4 = GUICtrlCreateInput("", 152, 152, 297, 21)
    $Label5 = GUICtrlCreateLabel("Telefon", 16, 200, 47, 17)
    $Input5 = GUICtrlCreateInput("", 152, 192, 297, 21)
    $Checkbox1 = GUICtrlCreateCheckbox("Fehlende Telefonnummer ", 24, 256, 233, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Neue Telefonnummer angegebene Falsch", 24, 288, 305, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Fehlende Rechnung", 24, 320, 241, 17)
    $Checkbox4 = GUICtrlCreateCheckbox("China Puschen ", 24, 352, 225, 17)
    $Checkbox5 = GUICtrlCreateCheckbox("TR verzollung verweigert ", 24, 384, 257, 17)
    $Checkbox6 = GUICtrlCreateCheckbox("Adresse und Telefonnummer Falsch", 24, 416, 281, 17)
    $Checkbox7 = GUICtrlCreateCheckbox("Russlad Verzollung verweigert ", 24, 456, 265, 17)
    $Checkbox8 = GUICtrlCreateCheckbox("Ukraine 10 Tage DDl nicht verzollt", 24, 488, 265, 17)
    $Checkbox9 = GUICtrlCreateCheckbox("Verweigerte Zollkosten ", 24, 520, 209, 17)
    $Checkbox10 = GUICtrlCreateCheckbox("Verweigert Transportkosten ", 24, 552, 209, 17)
    $Checkbox11 = GUICtrlCreateCheckbox("Sendung verweigert", 24, 592, 209, 17)
    $Checkbox12 = GUICtrlCreateCheckbox("Zoll Form USA fehlt", 24, 624, 241, 17)
    $Checkbox13 = GUICtrlCreateCheckbox("RTS Shanghai", 24, 656, 193, 25)
    $Button1 = GUICtrlCreateButton("Brief Erstellen", 256, 696, 377, 41, 0)
    $Button2 = GUICtrlCreateButton("Neu", 16, 696, 209, 41, 0)
    $Checkbox14 = GUICtrlCreateCheckbox("3x Not In PH# NA", 416, 288, 161, 17)
    $Checkbox15 = GUICtrlCreateCheckbox("Empfänger nicht erreicht unter der neuen Nummer", 416, 320, 385, 17)
    $Checkbox16 = GUICtrlCreateCheckbox("Rechnungs Änderung China", 416, 352, 273, 17)
    $Checkbox17 = GUICtrlCreateCheckbox("Rückholung nicht Shanghai", 416, 384, 257, 17)
    $Checkbox18 = GUICtrlCreateCheckbox("T2 San Marino", 416, 416, 249, 17)
    $Checkbox19 = GUICtrlCreateCheckbox("Nicht Verzollung FDA Brasilien", 416, 448, 241, 17)
    $Checkbox20 = GUICtrlCreateCheckbox("Value Limit 200 Euro in Russland", 416, 480, 265, 17)
    $Checkbox21 = GUICtrlCreateCheckbox("Chemikalien Russland ", 416, 512, 233, 17)
    $Checkbox22 = GUICtrlCreateCheckbox("Privat Sendungen Russland", 416, 544, 249, 17)
    $Checkbox23 = GUICtrlCreateCheckbox("Große Firma Name, Abt, Durchwahl ", 416, 576, 249, 17)
    $Label6 = GUICtrlCreateLabel("Faxnummer", 496, 40, 99, 17)
    $Input6 = GUICtrlCreateInput("", 624, 40, 145, 21)
    $Label7 = GUICtrlCreateLabel("Kosten", 496, 80, 75, 17)
    $Input7 = GUICtrlCreateInput("", 624, 80, 145, 21)
    $Label8 = GUICtrlCreateLabel("Account", 496, 120, 75, 17)
    $Input8 = GUICtrlCreateInput("", 624, 120, 145, 21)
    $Label9 = GUICtrlCreateLabel("Emailadresse", 492, 160, 102, 17)
    $Input9 = GUICtrlCreateInput("", 624, 160, 145, 21)
    $Button3 = GUICtrlCreateButton("Speichern", 480, 200, 113, 41, 0)
    $Button4 = GUICtrlCreateButton("Mail erstellen", 664, 696, 161, 41, 0)
    $Button5 = GUICtrlCreateButton("Suchen", 624, 200, 139, 41, 0)
    $Checkbox24 = GUICtrlCreateCheckbox("Checkbox24", 792, 40, 17, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    #include <word.au3>
    #include <outlook.au3>

    [/autoit][autoit][/autoit][autoit]

    $text = ClipGet ()

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

    [/autoit][autoit][/autoit][autoit]

    ;------------------------------------------------------------------------------------------------------------------------------------------------------
    ;------------------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    Case $Button1

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $oWordApp = _WordCreate("marcel.doc",0,0)

    [/autoit][autoit][/autoit][autoit]

    WinActivate ("marcel.doc")
    WinWaitActive ("marcel")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    send ("{enter}")
    Send ("Sehr geehrter UPS Kunde ")
    Send ("{enter 2}")
    Send ("Wir haben ein Problem bei der Zustellung Ihrer Sendung ")
    Send (GUICtrlREAD($Input1))
    Send ("{enter 2}")
    Send ("an:")
    Send ("{Space}")
    send (GUICtrlREAD($Input2))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input3))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input4))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input5))
    Send ("{enter 5}")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Empfänger Telefonnummer.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Telefonnummer Ihres{Enter}Empfängers da die angegebene Telefonnummer nicht richtig zu sein scheint.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Rechnung für die Verzollung.{Enter}Ich würde Sie bitten mir diese als PDF zukommen zu lassen als Antwort auf diese Mail.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Chinesischen Zoll aufgefordert die Verzollung Ihrer{Enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten Unterlagen eingereicht.{Enter 2}Der Chinesische Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{Enter}Ihn zu einer Verzollung zu bewegen. Sollte dies nicht möglich sein würden wir Sie bitten uns{Enter}Eine Anweisung zukommen zu lassen wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter}Da diese nicht mehr länger im Zoll verbleiben darf.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert. Wir würden Sie um eine{Enter}Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter 2}Ich bitte Sie da drauf zu achten das im Falle eines Rücktransports der Türkische Zoll{Enter}Kosten in Höhe von $ 250 USD erhebt die zuzüglich zu den RückSendekosten hinzukommen.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Adresse und Telefonnummer{enter}Da ihr Empfänger auf der angegebenen Adresse nicht ausfindig gemacht werden kann. Und die{Enter}Angegeben Telefonnummer nicht beantwortet wird Bzw. nicht richtig ist.{ENTER 2}Wir würden Sie bitten uns die Benötigten Daten als Antwort auf diese Email zukommen zu lassen.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert.{enter}Der Russische Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{enter}Ihn zu einer Verzollung zu bewegen{enter}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich DATUM verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken,{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Ukrainischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Der Ukrainischen Zoll würde Sie bitten sich mit Ihrem Empfänger in Verbindung zu setzen und {Enter}Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich DATUM verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{enter}Ebenfalls wird eine Änderung des Empfängers oder der Rechnung nicht mehr vom Zoll{enter}Akzeptiert nach dem sich die Sendung bereits im Zoll befindet.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat es verweigert die Zoll abgaben in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat es verweigert die Zahlung der Transportkosten in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Annahme Ihrer Sendung verweigert.{enter}Wir würden Sie um eine Anweisung bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für die Verzollung Ihrer Sendung würde der Amerikanische Zoll ein „ FORM „ benötigen.{enter}Diese finden Sie im Anhang an diese Mail. Ich würde Sie bitten mir diese ausgefüllt und mit{enter}Stempel und Unterschrift versehen als PDF Dokument zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Rückholung Ihrer Sendung aus dem Zoll von Shanghai fordert der Zoll von Ihnen:{enter 2}1 Ein schreiben auf Firmenbriefpapier in Englischer Sprache Gerichtet an den Zoll{ENTER}In Shanghai. ( Dear China Customs ) Bitte keine andere anrede verwenden.{enter 2}2 Die die Anfrage diese Sendung an Sie zurück zu schicken.{enter 2}3 Eine Angabe einer Begründung warum diese Sendung an Sie zurück geSendet werden muss.{enter}Hier werden vom Zoll nur akzeptiert, falsche Wahre, falscher Empfänger oder Fehlende{enter}Dokumente die der Empfänger nicht einreichen kann.{enter 2}Im Fall falscher Ware muss angegeben werden welche Ware sich in der Sendung{enter}Befindet und welche der Empfänger hätte bekommen sollen.{enter 2}Im Fall eines falschen Empfängers muss die Adresse angegeben werden an denn die{enter}Sendung jetzt geschickt wurde und an welche Adresse diese hätte geschickt werden müssen.{enter}Des Weiteren verlangt der Zoll in diesem Fall das Einreichen einer Kopie der Original{enter}Kaufverträge / Purchaseorder gestempelt und Unterschrieben vom AbSender und{enter}Empfänger. Aus dieser muss ersichtlich sein das der Empfänger eine andere wahre{enter}Geordert hat.{enter 2}Ebenfalls verlangt der Zoll das Einreichen der vollständigen Email Kommunikation{enter}Zwischen Ihnen und dem Empfänger über dieses Problem.{enter 2}4 Die Bestätigung der Übernahme der Rücktransport Kosten müssten ebenfalls in diesem{enter}Schreiben bestätigt werden.{enter 2}5 Das Schreiben muss mit einem Stempel und einer Unterschrift versehen sein.{enter 2}6 Sollte der Grund ein Fehlendes Dokument sein das der Empfänger nicht einreichen kann{enter}So reicht dies als Begründung vollkommen aus. Das Dokument das nicht beigebracht{enter}werden kann sollte in dem Schreiben genannt werden.{enter}In diesem Fall wird kein Kaufvertrag, purchaseorder, Emailverlauf benötigt.{enter 2}Ich würde sie bitten mir die benötigten Dokumente als PDF zu kommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Wir haben Ihre Sendung mehrfach versucht bei Ihrem Empfänger zuzustellen.{ENTER}Leider war es unserem Fahrer nicht möglich Ihren Kunden an zu treffen.{ENTER}Ebenfalls ist es uns nicht möglich Ihren Empfänger unter der angegebenen Rufnummer{enter}zu erreichen da diese leider nicht beantwortet wird.{ENTER 2}Wir würden Sie hiermit um alternative Kontaktdaten bitten oder um eine Anweisung{enter}Wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox15), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Leider konnten wir ihren Empfänger such unter der neunen Telefonnummer nicht erreichen.{ENTER}Wir würden Sie um alternative Kontaktdaten bitten oder um eine Anweisung wie wir mit{enter}Ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox16), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat beim Zoll angegeben dass die beigefügte Rechnung nicht richtig ist.{enter}Wir würden eine korrigierte Rechnung benötigen mit einem beigefügtem {enter}Erklärungsschreiben in englischer Sprache auf Firmen Briefpapier worin erklärt wird warum die {enter}Rechnung geändert werden muss und wie es zu diesem Fehler gekommen ist.{enter 2}Ich würde sie bitten mir dies als PDF Datei als Antwort auf diese Mail zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox17), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für die Rückholung Ihrer Sendung benötigen wir von Ihnen ein Schreiben in englischer{enter}Sprache in dem Sie die RückSendung anfragen und erklären das Sie für die Rücktransport kosten{enter}Mit Ihrer Kundennummer ( Kundennummer ) aufkommen werden.{enter}Als Bezug in diesem Schreiben würden wir sie bitten die Trackingnummer zu verwenden.{enter 2}Wir würden Sie bitten und dieses Schreiben als PDF Datei zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox18), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Wir haben heute eine Nachricht vom Zoll in San Marino erhalten das Ihre Sendung{Enter}Ohne ein Original T2 Dokument in San Marion eingetroffen ist. Ohne dieses Dokument{enter}Ist eine Verzollung Ihrer Sendung leider nicht möglich.{enter 2}Wir würden Sie bitten das originale T2 Dokument an die folgende Adresse zu schicken{enter}Und uns die Paketnummer bekannt zu geben unter welcher das Dokument nach San Marion{enter}Verschickt wird.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox19), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Brasilianischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Laut Geltender FDA Bestimmungen wir ihre Sendung maximal bis zu 45 Tage nach dem Importdatum{enter}Gehalten. Nach Ablauf dieser Zoll Frist wird diese Sendung von der FDA kosten Pflichtig an Sie{enter}Retourniert. Ich bitte Sie hierbei zu beachten das der Zoll Sie für alle angefallen Kosten in Regress{enter}nehmen wird und diese an Sie zurück belastet. Dies umfasst Lager Kosten, Rückversand,{enter}Broker- , Zoll- , und Administrative –Kosten.{enter 2}Um diese zu verkommen würden wir Sie bitten sich mit Ihrem Empfänger in Kontakt zu setzen{enter}Und Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger nicht zu einer Verzollung zu bewegen sein würden wir Sie bitten uns{Enter}Schnellst möglich eine Rückholungsanweisung zukommen zu lassen um weitere Lager Kosten zu{enter}Vermeiden.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox20), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihre Sendung übersteigt das import-Limit von 200 € für diese Region in Russland.{enter}Das Limit wird berechnet anhand der Transport Kosten + den angegebenen Warenwert.{enter}Diese darf einen Gesamt Betrag von 200 Euro nicht übersteigen.{enter 2}Wir würden Sie bitten und eine alternative Zustellungsadresse in Moscow oder{enter}St. Petersburg zukommen zu lassen da diese Regionen von der Import-Beschränkung{enter}Ausgenommen sind. Ebenfalls würden wir Sie bitten uns eine abgeänderte Rechnung{enter}Ausgestellt auf den neuen Empfänger mit Angabe eines vollständigen Kontaktnamens{enter}Und einer direkten Telefonnummer zukommen zu lassen.{enter 2}Wir müssen Sie im Vorfeld darüber informieren das einer Änderung des Empfängers{enter}Vom örtlichen Zoll genehmigt werden muss und wir keine Garantie geben können das{enter}Dies durch die Behörden Akzeptiert wir.{ Enter 2}Sollte es Ihnen nicht möglich sein einen alternativen{enter}Empfänger in einem dieser Gebiete zu Bennen{enter}Sind wir nach Landesgesetz dazu verpflichtet ihnen die Sendung Kosten Pflichtig zu retournieren da{enter}Die Vernichtung von Zollpflichtiger Ware in Russland ausgeschlossen ist.{enter 2}Sollten sich die Sendung nach Ablauf der Zollfrist ( DATUM) immer noch im Zoll befinden{enter}So wird diese Automatisch an Sie returniert.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox21), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihre Sendung wurde vom örtlichen Zoll gestoppt. Eine Verzollung von Chemischen-, Kosmetischen{enter}Pulver- , und Flüssigen Waren ist leider mit UPS nicht möglich in Russland. Diese Produkte{enter}Unterliegen einem Epidemiological Control Importverfahren für die Verzollung das wir als UPS{enter}Leider nicht anbieten können da dies nur Transportgesellschaften erlaubt ist die{enter}Ansässig sind im auf dem Flughafengelände was auf UPS nicht zu trifft.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox22), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Es ist momentan nicht möglich für Private Personen Zollpflichtige Ware zu erhalten.{enter}Das Land Russland hat ein Importverbot erlassen das es Privaten Personen untersagt{enter}Sendungen zu verzollen. Es gelten Ebenfalls als privat Sendungen Waren die von einer{Enter}Firma bestellt wurden aber von einer Privatperson bezahlt wurden.{enter}Die Offizielle Bekanntmachung entnehmen Sie bitte der Russischen Zoll Seiten{enter 2}Auszug:{enter}There is a temporary suspension on the import of non-document shipments to{enter}private individuals in the Russian Federation. Any such shipments received will{enter}be automatically returned to the shipper.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox23), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Leider war es uns nicht möglich Ihren Empfänger innerhalb der Firma ausfindig zu machen.{enter}Für eine Zustellung benötigen wir einen vollständigen Kontaktnamen, die Angabe einer{enter}Einer Abteilung und eine Telefonnummer mit direkter Durchwahl.{enter}Wir würden Sie bitten uns diese Daten als Antwort auf diese Mail zukommen zu lassen.{enter 2}")

    [/autoit][autoit][/autoit][autoit]

    Send ("Mit freundlichen Grüßen")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Send ("^a")
    Send ("^c")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    _WordPropertySet ($oWordApp, "visible", True)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;-------------------------------------------------------------------------------------------------------------------------------------------------------
    ;-------------------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $Button2

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    GUICtrlSetData($Input1, "")
    GUICtrlSetData($Input1, "")
    GUICtrlSetData($Input2, "")
    GUICtrlSetData($Input3, "")
    GUICtrlSetData($Input4, "")
    GUICtrlSetData($Input5, "")
    GUICtrlSetData($Input6, "")
    GUICtrlSetData($Input7, "")
    GUICtrlSetData($Input8, "")
    GUICtrlSetData($Input9, "")
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox6, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox7, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox15, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox16, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox17, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox18, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox19, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox20, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox21, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox22, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox23, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox24, $GUI_UNCHECKED)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;----------------------------------------------------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $Button3

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $Names = IniReadSection(@ScriptDir & "\base.ini", "Name")

    [/autoit][autoit][/autoit][autoit]

    If _ArraySearch($Names, GUICtrlRead($Input8)) = -1 Then
    IniWrite(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), GUICtrlRead($Input9))
    MsgBox(0, "Kundendaten", "Gespeichert")
    GUICtrlSetData($Input8, "")
    GUICtrlSetData($Input9, "")

    [/autoit][autoit][/autoit][autoit]

    Else
    MsgBox(0, "Account", "Der account ist bereits vorhanden")

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetData($Input8, "")
    GUICtrlSetData($Input9, "")

    [/autoit][autoit][/autoit][autoit]

    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;-----------------------------------------------------------------------------------------------------------------------------------------------
    ;-----------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $Button4

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $oWordApp = _WordCreate("marcel.doc")

    [/autoit][autoit][/autoit][autoit]

    WinActivate ("marcel.doc")
    WinWaitActive ("marcel")

    [/autoit][autoit][/autoit][autoit]

    BlockInput (1)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    send ("{enter}")
    Send ("Sehr geehrter UPS Kunde ")
    Send ("{enter 2}")
    Send ("Wir haben ein Problem bei der Zustellung Ihrer Sendung ")
    Send (GUICtrlREAD($Input1))
    Send ("{enter 2}")
    Send ("an:")
    Send ("{Space}")
    send (GUICtrlREAD($Input2))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input3))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input4))
    Send ("{enter}")
    Send ("{space 7}")
    Send (GUICtrlREAD($Input5))
    Send ("{enter 5}")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Empfänger Telefonnummer.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Telefonnummer Ihres{Enter}Empfängers da die angegebene Telefonnummer nicht richtig zu sein scheint.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Rechnung für die Verzollung.{Enter}Ich würde Sie bitten mir diese als PDF zukommen zu lassen als Antwort auf diese Mail.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Chinesischen Zoll aufgefordert die Verzollung Ihrer{Enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten Unterlagen eingereicht.{Enter 2}Der Chinesische Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{Enter}Ihn zu einer Verzollung zu bewegen. Sollte dies nicht möglich sein würden wir Sie bitten uns{Enter}Eine Anweisung zukommen zu lassen wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter}Da diese nicht mehr länger im Zoll verbleiben darf.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert. Wir würden Sie um eine{Enter}Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter 2}Ich bitte Sie da drauf zu achten das im Falle eines Rücktransports der Türkische Zoll{Enter}Kosten in Höhe von $ 250 USD erhebt die zuzüglich zu den Rücksendekosten hinzukommen.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Adresse und Telefonnummer{enter}Da ihr Empfänger auf der angegebenen Adresse nicht ausfindig gemacht werden kann. Und die{Enter}Angegeben Telefonnummer nicht beantwortet wird Bzw. nicht richtig ist.{ENTER 2}Wir würden Sie bitten uns die Benötigten Daten als Antwort auf diese Email zukommen zu lassen.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert.{enter}Der Russische Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{enter}Ihn zu einer Verzollung zu bewegen{enter}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich DATUM verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken,{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Ukrainischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Der Ukrainischen Zoll würde Sie bitten sich mit Ihrem Empfänger in Verbindung zu setzen und {Enter}Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich DATUM verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{enter}Ebenfalls wird eine Änderung des Empfängers oder der Rechnung nicht mehr vom Zoll{enter}Akzeptiert nach dem sich die Sendung bereits im Zoll befindet.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat es verweigert die Zoll abgaben in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat es verweigert die Zahlung der Transportkosten in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat die Annahme Ihrer Sendung verweigert.{enter}Wir würden Sie um eine Anweisung bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für die Verzollung Ihrer Sendung würde der Amerikanische Zoll ein „ FORM „ benötigen.{enter}Diese finden Sie im Anhang an diese Mail. Ich würde Sie bitten mir diese ausgefüllt und mit{enter}Stempel und Unterschrift versehen als PDF Dokument zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Rückholung Ihrer Sendung aus dem Zoll von Shanghai fordert der Zoll von Ihnen:{enter 2}1 Ein schreiben auf Firmenbriefpapier in Englischer Sprache Gerichtet an den Zoll{ENTER}In Shanghai. ( Dear China Customs ) Bitte keine andere anrede verwenden.{enter 2}2 Die die Anfrage diese Sendung an Sie zurück zu schicken.{enter 2}3 Eine Angabe einer Begründung warum diese Sendung an Sie zurück gesendet werden muss.{enter}Hier werden vom Zoll nur akzeptiert, falsche Wahre, falscher Empfänger oder Fehlende{enter}Dokumente die der Empfänger nicht einreichen kann.{enter 2}Im Fall falscher Ware muss angegeben werden welche Ware sich in der Sendung{enter}Befindet und welche der Empfänger hätte bekommen sollen.{enter 2}Im Fall eines falschen Empfängers muss die Adresse angegeben werden an denn die{enter}Sendung jetzt geschickt wurde und an welche Adresse diese hätte geschickt werden müssen.{enter}Des Weiteren verlangt der Zoll in diesem Fall das Einreichen einer Kopie der Original{enter}Kaufverträge / Purchaseorder gestempelt und Unterschrieben vom Absender und{enter}Empfänger. Aus dieser muss ersichtlich sein das der Empfänger eine andere wahre{enter}Geordert hat.{enter 2}Ebenfalls verlangt der Zoll das Einreichen der vollständigen Email Kommunikation{enter}Zwischen Ihnen und dem Empfänger über dieses Problem.{enter 2}4 Die Bestätigung der Übernahme der Rücktransport Kosten müssten ebenfalls in diesem{enter}Schreiben bestätigt werden.{enter 2}5 Das Schreiben muss mit einem Stempel und einer Unterschrift versehen sein.{enter 2}6 Sollte der Grund ein Fehlendes Dokument sein das der Empfänger nicht einreichen kann{enter}So reicht dies als Begründung vollkommen aus. Das Dokument das nicht beigebracht{enter}werden kann sollte in dem Schreiben genannt werden.{enter}In diesem Fall wird kein Kaufvertrag, purchaseorder, Emailverlauf benötigt.{enter 2}Ich würde sie bitten mir die benötigten Dokumente als PDF zu kommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Wir haben Ihre Sendung mehrfach versucht bei Ihrem Empfänger zuzustellen.{ENTER}Leider war es unserem Fahrer nicht möglich Ihren Kunden an zu treffen.{ENTER}Ebenfalls ist es uns nicht möglich Ihren Empfänger unter der angegebenen Rufnummer{enter}zu erreichen da diese leider nicht beantwortet wird.{ENTER 2}Wir würden Sie hiermit um alternative Kontaktdaten bitten oder um eine Anweisung{enter}Wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox15), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Leider konnten wir ihren Empfänger such unter der neunen Telefonnummer nicht erreichen.{ENTER}Wir würden Sie um alternative Kontaktdaten bitten oder um eine Anweisung wie wir mit{enter}Ihrer Sendung weiter zu verfahren haben.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox16), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger hat beim Zoll angegeben dass die beigefügte Rechnung nicht richtig ist.{enter}Wir würden eine korrigierte Rechnung benötigen mit einem beigefügtem {enter}Erklärungsschreiben in englischer Sprache auf Firmen Briefpapier worin erklärt wird warum die {enter}Rechnung geändert werden muss und wie es zu diesem Fehler gekommen ist.{enter 2}Ich würde sie bitten mir dies als PDF Datei als Antwort auf diese Mail zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox17), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für die Rückholung Ihrer Sendung benötigen wir von Ihnen ein Schreiben in englischer{enter}Sprache in dem Sie die Rücksendung anfragen und erklären das Sie für die Rücktransport kosten{enter}Mit Ihrer Kundennummer ( Kundennummer ) aufkommen werden.{enter}Als Bezug in diesem Schreiben würden wir sie bitten die Trackingnummer zu verwenden.{enter 2}Wir würden Sie bitten und dieses Schreiben als PDF Datei zukommen zu lassen.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox18), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Wir haben heute eine Nachricht vom Zoll in San Marino erhalten das Ihre Sendung{Enter}Ohne ein Original T2 Dokument in San Marion eingetroffen ist. Ohne dieses Dokument{enter}Ist eine Verzollung Ihrer Sendung leider nicht möglich.{enter 2}Wir würden Sie bitten das originale T2 Dokument an die folgende Adresse zu schicken{enter}Und uns die Paketnummer bekannt zu geben unter welcher das Dokument nach San Marion{enter}Verschickt wird.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox19), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihr Empfänger wurde mehrfach vom Brasilianischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Laut Geltender FDA Bestimmungen wir ihre Sendung maximal bis zu 45 Tage nach dem Importdatum{enter}Gehalten. Nach Ablauf dieser Zoll Frist wird diese Sendung von der FDA kosten Pflichtig an Sie{enter}Retourniert. Ich bitte Sie hierbei zu beachten das der Zoll Sie für alle angefallen Kosten in Regress{enter}nehmen wird und diese an Sie zurück belastet. Dies umfasst Lager Kosten, Rückversand,{enter}Broker- , Zoll- , und Administrative –Kosten.{enter 2}Um diese zu verkommen würden wir Sie bitten sich mit Ihrem Empfänger in Kontakt zu setzen{enter}Und Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger nicht zu einer Verzollung zu bewegen sein würden wir Sie bitten uns{Enter}Schnellst möglich eine Rückholungsanweisung zukommen zu lassen um weitere Lager Kosten zu{enter}Vermeiden.{Enter 2}")
    If BitAnd(GUICtrlRead($Checkbox20), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihre Sendung übersteigt das import-Limit von 200 € für diese Region in Russland.{enter}Das Limit wird berechnet anhand der Transport Kosten + den angegebenen Warenwert.{enter}Diese darf einen Gesamt Betrag von 200 Euro nicht übersteigen.{enter 2}Wir würden Sie bitten und eine alternative Zustellungsadresse in Moscow oder{enter}St. Petersburg zukommen zu lassen da diese Regionen von der Import-Beschränkung{enter}Ausgenommen sind. Ebenfalls würden wir Sie bitten uns eine abgeänderte Rechnung{enter}Ausgestellt auf den neuen Empfänger mit Angabe eines vollständigen Kontaktnamens{enter}Und einer direkten Telefonnummer zukommen zu lassen.{enter 2}Wir müssen Sie im Vorfeld darüber informieren das einer Änderung des Empfängers{enter}Vom örtlichen Zoll genehmigt werden muss und wir keine Garantie geben können das{enter}Dies durch die Behörden Akzeptiert wir.{ Enter 2}Sollte es Ihnen nicht möglich sein einen alternativen{enter}Empfänger in einem dieser Gebiete zu Bennen{enter}Sind wir nach Landesgesetz dazu verpflichtet ihnen die Sendung Kosten Pflichtig zu retournieren da{enter}Die Vernichtung von Zollpflichtiger Ware in Russland ausgeschlossen ist.{enter 2}Sollten sich die Sendung nach Ablauf der Zollfrist ( DATUM) immer noch im Zoll befinden{enter}So wird diese Automatisch an Sie returniert.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox21), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Ihre Sendung wurde vom örtlichen Zoll gestoppt. Eine Verzollung von Chemischen-, Kosmetischen{enter}Pulver- , und Flüssigen Waren ist leider mit UPS nicht möglich in Russland. Diese Produkte{enter}Unterliegen einem Epidemiological Control Importverfahren für die Verzollung das wir als UPS{enter}Leider nicht anbieten können da dies nur Transportgesellschaften erlaubt ist die{enter}Ansässig sind im auf dem Flughafengelände was auf UPS nicht zu trifft.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox22), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Es ist momentan nicht möglich für Private Personen Zollpflichtige Ware zu erhalten.{enter}Das Land Russland hat ein Importverbot erlassen das es Privaten Personen untersagt{enter}Sendungen zu verzollen. Es gelten Ebenfalls als privat Sendungen Waren die von einer{Enter}Firma bestellt wurden aber von einer Privatperson bezahlt wurden.{enter}Die Offizielle Bekanntmachung entnehmen Sie bitte der Russischen Zoll Seiten{enter 2}Auszug:{enter}There is a temporary suspension on the import of non-document shipments to{enter}private individuals in the Russian Federation. Any such shipments received will{enter}be automatically returned to the shipper.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}")
    If BitAnd(GUICtrlRead($Checkbox23), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Leider war es uns nicht möglich Ihren Empfänger innerhalb der Firma ausfindig zu machen.{enter}Für eine Zustellung benötigen wir einen vollständigen Kontaktnamen, die Angabe einer{enter}Einer Abteilung und eine Telefonnummer mit direkter Durchwahl.{enter}Wir würden Sie bitten uns diese Daten als Antwort auf diese Mail zukommen zu lassen.{enter 2}")

    [/autoit][autoit][/autoit][autoit]

    Send ("Mit freundlichen Grüßen")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Send ("^a")
    Send ("^c")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $name2 = IniRead(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), "0")
    $oOutlook = ObjCreate("Outlook.Application")
    $oOl = $oOutlook.CreateItem($olMailItem)
    $oFolder = $oOutlook.GetNamespace("MAPI").GetDefaultFolder ($olFolderInbox)
    With $oOl
    .To = $name2
    .body = $text
    .save
    .Move($oFolder)

    [/autoit][autoit][/autoit][autoit]

    EndWith

    [/autoit][autoit][/autoit][autoit]

    BlockInput (0)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;-------------------------------------------------------------------------------------------------------------------------------
    ;-------------------------------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $Button5

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $name2 = IniRead(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), "0")
    MsgBox(0, "Dein Name", $name2)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]
  • Die word datei im hintergrung beschreiben

    • Schnuffel
    • 24. Oktober 2011 um 21:08
    [autoit]

    $oWordApp = _WordCreate("marcel.doc", 0, 0) ; mit diesen Parametern wird das erzeugte Document direkt versteckt ;)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    WinActivate ("marcel.doc")
    WinWaitActive ("marcel")

    [/autoit][autoit][/autoit][autoit]

    ....
    ....
    ....
    _WordPropertySet ($oWordApp, "visible", True)

    [/autoit]
  • Die word datei im hintergrung beschreiben

    • Schnuffel
    • 24. Oktober 2011 um 20:47

    möglicherweise kommt es darauf an, wo Du das einfügst ;)

  • Die word datei im hintergrung beschreiben

    • Schnuffel
    • 24. Oktober 2011 um 20:31

    in Deinem Fall wäre das:

    [autoit]

    _WordPropertySet ($oWordApp, "visible", False)

    [/autoit]


    zum anzeigen des Dokuments:

    [autoit]

    _WordPropertySet ($oWordApp, "visible", True)

    [/autoit]
  • Starten/Pausieren mit derselben Taste

    • Schnuffel
    • 23. Oktober 2011 um 10:02
    Zitat

    Naja, jetzt wird mir eh niemand mehr glauben..


    Du gibst Dir aber auch alle Mühe dazu ;)

    Als kleinen Tip würde ich sagen:
    Da du einen wechselnden Zustand abfragen/ausführen willst,
    empfiehlt sich dazu ein Boolean.
    D.h. erstelle Dir eine Variable (z.B. $bStatus) und gib Ihr den Wert $bStatus = "True".
    Jedes mal, wenn Du in Deiner Funktion den Zustand ändern willst "switcht" du den Wert der Variable
    mit : $bStatus = Not $bStatus (Achtung, das ist nur eine Variable, deren Zustand Du in deiner Funktion abfragen kannst, um die entsprechende Aktion auszuführen)

    Beispiel:

    [autoit]

    Global $bStatus = True

    [/autoit][autoit][/autoit][autoit]

    HotKeySet("!q", "Status_aendern"); Test mit Alt & q
    HotKeySet("{Esc}", "_Exit"); Esc beendet das Script

    [/autoit][autoit][/autoit][autoit]

    While Sleep(10)

    [/autoit][autoit][/autoit][autoit]

    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func Status_aendern()
    If $bStatus = True Then
    MsgBox(0, '', 'Der Status ist "wahr".')
    ;hier kann dann die Ausführung der Änderung rein
    Else
    MsgBox(0, '', 'Der Status ist "nicht wahr".')
    ;hier kann dann die Ausführung der Änderung rein
    EndIf
    $bStatus = Not $bStatus ; Status der Variable switchen
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _Exit()
    Exit
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
  • Run-Befehl

    • Schnuffel
    • 23. Oktober 2011 um 09:47

    versuch das mal mit:

    [autoit]

    $file = "C:\temp\Tools\npp.5.9.4.Installer.exe"
    ShellExecute($file, "", "", "open", @SW_MAXIMIZE)

    [/autoit]


    möglicherweise musst Du noch ein WorkingDir angeben.
    Manche Programme sind da zickig ...

  • Starten/Pausieren mit derselben Taste

    • Schnuffel
    • 22. Oktober 2011 um 22:14

    in der Regel hat der Fragende schon in gewisser Weise versucht selbst eine Lösung zu finden
    und stellt uns seine bisherigen Versuche in Form eines Scriptes bereit.

    Ich würde mir mal HotKeySet ansehen und das in eine Funktion packen ...

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™