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. lsc

Beiträge von lsc

  • Von CSV nach Txt als String

    • lsc
    • 16. Juni 2020 um 10:20

    Hallo zusammen,

    Leider überschreitet das absolut meine Inkompetenz und suche jemand der mir dabei helfen kann :S

    Es geht darum, dass ich eine CSV Datei bekomme die ich in ein Textdokument umwandel muss mit bestimmten Feldgrößen bzw längen.

    Jede Zeile aus der CSV muss zu einem String in einem Textdokument werden.

    Die Feldlängen Beschreibung würde ich auch jemanden zuschicken der sich das gerne weiter anschauen würde.

    Im Prinzip sieht es so aus:

    KundenNr hat 8 Zeichen

    AuftragsNr hat 8 Zeichen

    BestellNr hat 20 Zeichen usw usw

    Das müsste ein einer reine hintereinander weg geschrieben werden.

    Jetzt ist aber aber so, dass z.b die KundenNr nur 6 Zeichen lang ist. Es müsste also mit 0 am Anfang aufgefüllt werden.

    Gleiche gilt für alle Felder der CSV wenn etwas drin steht.

    Wenn nichts drin steht z.b in der BestellNr dann muss diese nur mit 20 Leerzeichen aufgefüllt werden.

    Eine andere Besonderheit wären Preise und das Datum. Wenn beim Preis in der CSV "24,12" steht, muss daraus 00002412 gemacht werden. Also wieder auf 8 Zeichen aufgefüllt mit "0" und ohne Dezimaltrennung.

    Gleiche gilt fürs Datum, wobei hier die länge fest ist. Sprich aus "03.05.2020" muss dann 20200503 werden.

    Schön wäre es wenn das Programm in einem Ordner liegt und immer auf einen Festen Ordner zugreift und einfach ALLE CSV Dateien die sich darin befinden bearbeitet, und wenn es fertig ist die CSV einfach in einen Backup Ordner verschiebt.


    Wenn jemand Interesse hat sich dem anzunehmen müsste ich nur wissen wie hoch die Gegenleistung ausfallen würde :) Zeitlich müsste dies in den kommenden Wochen am besten Realisiert werden. Weitere Schnittstellen Beschreibungen und Beispiele schicke ich gern per PN zu.

    Mit Besten Grüßen :)

  • Excel Datei auslesen und Daten kopieren.

    • lsc
    • 25. Oktober 2018 um 15:31

    Ah okay ich glaube ich fange an Array zu verstehen. Danke für die Infos. Ich setz mich gleich direkt mal hin und Probier das. Versteh grade zumindest wo der Fehler lag. Vielen Dank für eure Geduld.


    PS: Ich sollte auch absenden drücken.. Hat super geklappt :) Habs dann noch etwas erweitert mit zip packen usw. Vielen Dank

  • Excel Datei auslesen und Daten kopieren.

    • lsc
    • 24. Oktober 2018 um 16:54

    Hey Musashi

    Ich habe mir die Anleitung gerade mal durch gelesen und bin nur halb schlauer als vorher :/ Ziemlich kompliziert für mich. Also UBound bedeutet schon mal (wenn ich das richtig verstanden habe) das er das Array weiter führt bis der letzte wert erreicht ist richtig ?

    Und so wie ich AutoItler verstanden habe, muss ich in meinem Falle mit 2 Dimensionen arbeiten. Halt so wie es mir im _ArrayDisplay auch angezeigt wird. Also in dem Falle Sieht der Code ja so aus:

    Code
    For $i = 0 To Ubound($aResult) - 1
        FileCopy($BilderPfadA & $aResult[$i][1] & ".jpg", $sFileSelectFolder & $aResult[$i][1] & ".jpg")

    Das bedeutet das [$i] die Elemente so lange weiter nach unten führt bis keine mehr da sind bzw das letzte erreicht ist. Und [1] bedeutet in dem Falle das er immer den Wert aus der Spalte 1 nehmen soll richtig soweit ?

    Ich bekomme dabei den Fehler "Array variable has incorrect number of subscripts or subscript dimension range exceeded."

  • Excel Datei auslesen und Daten kopieren.

    • lsc
    • 24. Oktober 2018 um 16:10

    Hey Autoitler,

    Ja das script geht soweit er zeigt mir das auch an was drin steht. Ich verstehe diese Arrays nicht nicht. bzw dieses Ubound und wie ich das in eine schleife setzen soll. KAnnst du mir das vielleicht für dumme erklären :x

  • Excel Datei auslesen und Daten kopieren.

    • lsc
    • 24. Oktober 2018 um 13:34

    Hallo zusammen :)

    vorweg gesagt, ich bin nicht gerade sehr Affin in Autoit und tue mich mit einigen Sachen recht schwer im verstehen bzw den zusammen hängen.

    Ich habe versucht weitestgehend alles mit Google und der Hilfe hin zu bekommen, nur leider hänge ich grade etwas fest.

    Mein Programm soll folgendes tun:


    In einer Excel Tabelle stehen Zahlen von Artikel Nummern. Zu jeder Artikel Nummer gibt es ein Bild was den auch den Namen der Artikel Nummer hat. Nun soll mein Programm eine Excel Tabelle auslesen, und mir die Bilder in ein vorher ausgewählten Ordner Kopieren.


    Bis jetzt sieht mein Script so aus:

    Spoiler anzeigen
    C
    #include <FileConstants.au3>
    #include <MsgBoxConstants.au3>
    #include <Excel.au3>
    $Bilder = "K:\Bild\"
    Example()
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Excel datei auswählen
    Func Example()
        ; Create a constant variable in Local scope of the message to display in FileOpenDialog.
        Local Const $sMessage = "Select a single file of any type."
    
        ; Display an open dialog to select a file.
        Local $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Excel (*.xlsx) (*.xls)", $FD_FILEMUSTEXIST)
        If @error Then
            ; Display the error message.
            MsgBox($MB_SYSTEMMODAL, "", "Keine Datei ausgewählt es wird Abgebrochen.")
    Exit
            ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
            FileChangeDir(@ScriptDir)
        Else
            ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
            FileChangeDir(@ScriptDir)
    
            ; Replace instances of "|" with @CRLF in the string returned by FileOpenDialog.
            $sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)
    
            ; Display the selected file.
            MsgBox($MB_SYSTEMMODAL, "", "Folgende Datei wurde Geladen:" & @CRLF & $sFileOpenDialog)
        EndIf
       ;==>Example
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Ordner zum Kopieren
    ; Create a constant variable in Local scope of the message to display in FileSelectFolder.
        Local Const $sMessage2 = "Select a folder"
    
        ; Display an open dialog to select a file.
        Local $sFileSelectFolder = FileSelectFolder($sMessage2, "")
        If @error Then
            ; Display the error message.
            MsgBox($MB_SYSTEMMODAL, "", "Es wurde kein Ordner gewählt.")
            Exit
        Else
            ; Display the selected folder.
            MsgBox($MB_SYSTEMMODAL, "", "Folgendes Verzeichnis wurde gewählt:" & @CRLF & $sFileSelectFolder)
        EndIf
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Excel Datei Auslesen
    ; Create application object and open an example workbook
    Local $oExcel = _Excel_Open()
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oExcel, $sFileOpenDialog)
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & $sFileOpenDialog & @CRLF & "@error = " & @error & ", @extended = " & @extended)
        _Excel_Close($oExcel)
        Exit
    EndIf
    
    ; Read the formulas of a cell range (all used cells in column A)
    Local $aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("A:A"), 2)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 3", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 3", "Data successfully read." & @CRLF & "Please click 'OK' to display all formulas in column A.")
    _ArrayDisplay($aResult, "Excel UDF: _Excel_RangeRead Example 3 - Formulas in column A")
    EndFunc
    Alles anzeigen

    Ich gebe auch zu das ich viel einfach nur kopiert habe aus der Hilfe heraus, aber zumindest habe ich es auch (so denke ich zumindest) verstanden.

    Nur Stehe ich total auf dem Schlauch was das Kopieren angeht. Zur zeit Listet Autoit mit alles auf was in Spalte A drin ist in einem Eigenen msgbox. Nur müsste ich das ja als Variable speichern um es zu kopieren. Und das verstehe ich nicht wie ich jede einzelne spalte als Variable zum Kopieren speichern kann.

    Hoffe ihr könnt mir den weg erleuchten :D

  • Mit Autoit Termin in Outlook Kalender eintragen.(Exchange)

    • lsc
    • 17. Oktober 2015 um 13:44

    Hallo gibts eine möglichkeit, wie ich einen Kalender eintrag mit Autoit in Outlook eintrage?

    AutoIt
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>
    GUICreate("LSC Kasperky Info Tool", 887, 397, 338, 517)
    $Input1 = GUICtrlCreateInput("", 230, 17, 345, 21)
    $Input2 = GUICtrlCreateInput("", 230, 48, 345, 21)
    $input3 = GUICtrlCreateDate("", 230, 80, 345, 21)
    $Input4 = GUICtrlCreateInput("", 230, 108, 345, 21)
    $Input5 = GUICtrlCreateInput("", 230, 144, 345, 21)
    $Input6 = GUICtrlCreateInput("", 230, 176, 345, 21)
    $Input7 = GUICtrlCreateInput("", 240, 312, 625, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Input8 = GUICtrlCreateInput("", 238, 348, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Input9 = GUICtrlCreateInput("", 999, 9, 121, 21)
    GUICtrlCreateLabel("Kunden Nach - Vorname", 7, 17, 120, 17)
    GUICtrlCreateLabel("Telefon Nummer", 8, 48, 112, 17)
    GUICtrlCreateLabel("Datum der Aktivierung ", 8, 80, 120, 17)
    GUICtrlCreateLabel("Verbleibende Zeit in Tagen", 8, 111, 136, 17)
    GUICtrlCreateLabel("Kaspersky Verison", 8, 144, 120, 17)
    GUICtrlCreateLabel("Welcher PC (nur Firmen mit , Tennen)", 8, 176, 208, 17)
    GUICtrlCreateLabel("Outlook Eintrag", 8, 312, 90, 17)
    GUICtrlCreateLabel("Outlook Datum", 8, 348, 90, 17)
    $Pic1 = GUICtrlCreatePic("C:\Users\Kevin Brach\Desktop\Unbenannt.jpg", 600, 16, 265, 185)
    $Button1 = GUICtrlCreateButton("Generieren", 320, 216, 177, 25)
    GUISetState(@SW_SHOW)
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			Exit
    	Case $Button1
    $kunde = Guictrlread($input1,0)
    $tele = Guictrlread($input2,0)
    $tage = Guictrlread($input4,0)
    $pc = Guictrlread($input6,0)
    $version = Guictrlread($input5,0)
    $Datum = Guictrlread($input2,0)
                            Local $sStyle = "yyyy/MM/dd HH:mm:ss"; Style für das Datecontrol um eine Ausgabe konform für _DateAdd zu erzeugen
                            Local $sStyle1 = "dddd, dd.MMMM yyyy";Localer Style Tagesname, Tag. ,Monatsname, Jahr
                            GUICtrlSendMsg($input3, $DTM_SETFORMATW, 0, $sStyle);Style setzen um Ausgabe für _DateAdd zu bekommen
                            $newDate =_DateAdd("D", GUICtrlRead($input4) -10, GUICtrlRead($input3, 0));Datum auslesen aus dem Datecontrol
                            GUICtrlSetData($Input8, _DateTimeFormat ($newDate, 2 )); Datum + 364 Tage in Input eintragen
                            GUICtrlSendMsg($input3, $DTM_SETFORMATW, 0, $sStyle1);Localen Style für das Datecontrol wiederherstellen
                            Local $sStyle = "yyyy/MM/dd HH:mm:ss"; Style für das Datecontrol um eine Ausgabe konform für _DateAdd zu erzeugen
                            Local $sStyle1 = "dddd, dd.MMMM yyyy";Localer Style Tagesname, Tag. ,Monatsname, Jahr
                            GUICtrlSendMsg($input3, $DTM_SETFORMATW, 0, $sStyle);Style setzen um Ausgabe für _DateAdd zu bekommen
                            $newDate =_DateAdd("D", GUICtrlRead($input4) , GUICtrlRead($input3, 0));Datum auslesen aus dem Datecontrol
                            GUICtrlSetData($Input9, _DateTimeFormat ($newDate, 2 )); Datum + 364 Tage in Input eintragen
                            GUICtrlSendMsg($input3, $DTM_SETFORMATW, 0, $sStyle1);Localen Style für das Datecontrol wiederherstellen
    $Datumausgabe = Guictrlread($input9,0)
    			GUICtrlSetData($Input7, "WICHTIG / TERMINIEREN - SARAH WERNER / " & $kunde &" " & $tele & "" & $pc & " / KASPERSKY LÄUFT AUS AM " & $Datumausgabe & " [ Kaspersky " & $version & " ]" )
    ;~          GUICtrlCreateInput("test " & $test   , 238, 348, 121, 21)
    ;~          GUICtrlCreateInput("Der Text der generiert werden soll (Zum kopieren) mit Variablen ", 240, 312, 625, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    	EndSwitch
    WEnd
    Alles anzeigen

    Das ist mein Script das was es Ausgibt am ende "GUICtrlSetData($Input7, "WICHTIG / TERMINIEREN...." soll in Outlook Als betreff stehn Das Datum was am ende ausgegeben wird ist das Datum und die zeit wäre z.b 10 uhr. Wie kann man sowas Realisieren ? Habe leider nicht viel ahnung davon und hatte schon mühe das Script so hin zu bekommen wie es jetzt ist ^^ (danke noch mal für die Hilfe Raupi)

  • Ausgabe box zum kopieren mit Variablen

    • lsc
    • 16. Oktober 2015 um 17:24

    Danke für die Rasche antwort.

    Nur versteh ich nicht so ganz wie ich das anstellen soll :/ das mit Clipput bekomme ich evl hin aber wie mache ich das mit den werten die ich eintragen will

  • Ausgabe box zum kopieren mit Variablen

    • lsc
    • 16. Oktober 2015 um 16:39

    Hallo zuasmmen. Ich versuche mich gerade ein wenig in Autoit..
    Nur leider komm ich nicht auf die lösung für mein problem ^^

    Ich habe mir ein GUI gemacht und habe dort text zeilen zum eingeben erstellt. Z.b

    Code
    $Input_tel = GUICtrlCreateInput("", 230, 48, 345, 21)

    Nun möchte ich aber das dass was dort eingegeben wird Später an bestimmten Text Stellen erscheint. Z.b steht dann da "WICHTIG / ANRUFEN / Nummer des Kunden: $Imput_tel " und dort auch die nummer eingetragen wird.


    Und mein 2tes anliegen ist das ich eine eingabe für tage habe, die zum angegeben Datum dazu gerechnet werden sollen. das Datum frage ich in der GUI mit

    Code
    GUICtrlCreateDate

    ab. Und dazu möchte ich dann aber die Tage dazu addieren. Z.b 354 Tage und er mir dann das Datum dafür ausgibt. So das ich das auch rauskopieren kann.


    Mein Ganzes Script:

    Spoiler anzeigen
    AutoIt
    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Users\Kevin Brach\Desktop\Form1_1.kxf
    $Form1_1 = GUICreate("LSC Kasperky Info Tool", 887, 397, 357, 458, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
    $Imput_name = GUICtrlCreateInput("", 230, 17, 345, 21)
    $impput_Date = GUICtrlCreateDate("2015/10/16 14:43:13", 230, 80, 345, 21)
    $Input_version = GUICtrlCreateInput("", 230, 144, 345, 21)
    $Input_pc = GUICtrlCreateInput("", 230, 176, 345, 21)
    $Button1 = GUICtrlCreateButton("Generieren", 320, 216, 177, 25)
    $Name = GUICtrlCreateLabel("Kasperks Verison", 8, 144, 120, 17)
    $version = GUICtrlCreateLabel("Kunden Nach - Vorname", 8, 17, 120, 17)
    $welche = GUICtrlCreateLabel("Welcher PC (nur Firmen mit , Tennen)", 8, 176, 208, 17)
    $Input_tel = GUICtrlCreateInput("", 230, 48, 345, 21)
    $Label2 = GUICtrlCreateLabel("Telefon Nummer", 8, 48, 112, 17)
    $Input1 = GUICtrlCreateInput("imput 1", 356, -316, 121, 21)
    $Label3 = GUICtrlCreateLabel("Datum", 356, -316, 50, 17)
    $Label4 = GUICtrlCreateLabel("TextAusgabe", 349, -138, 90, 17)
    $TextAusgabe = GUICtrlCreateLabel("Text Ausgabe", 8, 312, 90, 17)
    $Label5 = GUICtrlCreateLabel("Datum Heute", 8, 80, 120, 17)
    $Datum = GUICtrlCreateLabel("Datum Ausgabe", 8, 348, 90, 17)
    $Pic1 = GUICtrlCreatePic("C:\Users\Kevin Brach\Desktop\Unbenannt.jpg", 600, 16, 265, 185)
    $Input_tage = GUICtrlCreateInput("", 230, 108, 345, 21)
    $Label6 = GUICtrlCreateLabel("Verbleibende Zeit in Tagen", 8, 111, 136, 17)
    
    
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    
    While 1
    	$nMsg = GUIGetMsg()
    
    
    	Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			Exit
    
    
     Case $Button1
    	$Input_ausdatum = GUICtrlCreateInput("Das Addierte Datum", 238, 348, 121, 21)
    	$Input_textaus = GUICtrlCreateInput("Der Text der generiert werden soll (Zum kopieren) mit Variablen ", 240, 312, 625, 21)
    	EndSwitch
    WEnd
    Alles anzeigen
  • Einfaches Monitoring von Hardware

    • lsc
    • 1. Oktober 2015 um 15:39

    Sehr genial :) Vielen dank für den Tipp... Das Funzt super damit :D Und die 99 Doller beziehen sich ja auf eine Person also ist es ja egal auf wievielen rechner das läuft

  • Einfaches Monitoring von Hardware

    • lsc
    • 28. September 2015 um 16:22

    Selber machen könnte ich mal versuchen allerdings kann ichs halt nicht so gut ^^ Ich kann zwar sachen bearbeiten z.b wenn ich nen code habe aber zum selbst machen ka ob ich das so sauber hin bekommen würde.

    Wenn das programm sich als Dienst installiert ist natürlich schön. Muss aber nicht sein. Das würde ich zur not als Event in Windoof eintragen damit es selbst ständig kurz startet und mir die Infos zu schickt.

    Das Betriebssystem ist eig Windows (evl Vista) 7, 8 / 8.1, / 10 und Windows Server 2003, 2008, 2012


    Aida64 kann das ja z.b habs auch bei mir aufm server drauf zum testen. und der Mailversand übernimmt Autoit... Allerdings glaub ich das Telekom den Mail versand als Spam erkennt und die internet leitungen sperrt xD

  • Einfaches Monitoring von Hardware

    • lsc
    • 28. September 2015 um 13:28

    Hallo zusammen,

    Ich bin auf der suche nach nem Programm was ein paar werte ausliest an einem Rechner und mir per Email zusendet. (als HTML oder TXT ist eig fast egal)

    Sollte folgendes können:

    Smart werte der festplatte auslesen
    CPU und Grafikkarte Grad zahl (schön wäre auch spannung)
    Vll noch die Laufzeit des Rechners bzw Uhrzeit Datum und Rechner Name
    und die Liste der Laufenden Prozesse.

    Was würde sowas ca kosten wenn mir das jemand macht? Bzw ist das ohne weiteres machbar?

  • Text Schreiber mit Backoffice

    • lsc
    • 20. Oktober 2010 um 17:11

    Das sind einige das mit dem Barcode ist egal :) wenn ich diesen einscanne gibt der scanner die nummer aus und drückt selbst auf ENTER also ich brauch halt nur eins wo ich die nummern eingebe z.b


    654321574521 ist Canon PG 40 Schwarz

    Das ich das einmal irgendwo eintragen kann und mit dem barcode (Den zahlen) einfach einscanne das gerät drückt enter und schreibt das in ein TxT oder Doc oderw ie auch immer das es die Canon PG 40 zb. :) Verstanden :P ? ich weis nicht wie ich mich ausdrücken soll ^^

    Gegenleistung weis selbst nicht :) was müste ich den anbieten ?
    paar gig von RS oder FS ? mir egal sagt was

  • Text Schreiber mit Backoffice

    • lsc
    • 20. Oktober 2010 um 11:44

    Hallo ich brauche ein Programm wo ich einfach nur zahlen einpflegen kann und den dazugehörigen artikel dann in ein TXT schreibt

    Dazu brauch ich aber was womit ich die nummern einpflegen kann und die gespeichert werden

    Hintergrund ist das wenn ich eine Patrone auf der arbeit verkaufe muss ich diese aufschreiben dies möchte ich aber per Barcode machen das heist ich scanne den Barcode und das Programm schreibt dies dann in das txt z.b die zahlen 57482474 ist dann Brother Black oder sowas

    Wäre sowas möglich ?

  • nerviges UAC wegbekommen

    • lsc
    • 17. Oktober 2010 um 21:45

    Entweder schaltest du die steuerrung einfach aus .... ODER du Logst dich als Administrator ein ( NEIN du bist kein richtiger Admin wenn die die meldung bekommst) Kanste freischalten

  • Programm Checker

    • lsc
    • 16. Oktober 2010 um 22:35

    Hab ich auch schon gesehn habs jetzt aber anders gemacht so gehts aus

    Hab das bei Programm X nicht alles verstanden ^^

  • Programm Checker

    • lsc
    • 16. Oktober 2010 um 22:09

    Hallo zusammen ich würde gerne in mein jetziges tool was einfügen aber habe keine ahnung wie ich das machen soll...

    Ich installiere auf PC´s die Programme:
    Adobe Reader 9
    Nero 10
    Kaspersky oder Avira
    IE 8 bei win xp

    Jetzt würde ich gerne so machen das das programm schaut ob der pfad in der registry vorhanden ist oder nicht ! und wenn nicht mir sagt was nicht.. Könnt ihr mir helfen bzw die ansetze geben wie ich das mache ich raf das mit dem GUI nicht denke damit mus das gemacht werden oder?

  • Bei Fehler E-Mail versenden.

    • lsc
    • 16. Oktober 2010 um 21:46

    Der Code lief bei mir nie was du machen kannst ist evl

    Spoiler anzeigen
    [autoit]

    ;
    ;##################################
    ; Include
    ;##################################
    #Include<file.au3>
    ;##################################
    ; Variables
    ;##################################
    $SmtpServer = "smtp.1und1.de" ; address for the smtp-server to use - REQUIRED
    $FromName = "XXX" ; name from who the email was sent
    $FromAddress = "XXX@lsc-computer.de" ; address from where the mail should come
    $ToAddress = "XXX@lsc-computer.de" ; destination address of the email - REQUIRED
    $Subject = "Wlan Infos" ; subject from the email - can be anything you want it to be
    $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
    $CcAddress = "k.XXXX@lsc-computer.de" ; address for cc - leave blank if not needed
    $BccAddress = "" ; address for bcc - leave blank if not needed
    $Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
    $Username = "aussendienst@lsc-computer.de" ; username for the account used from where the mail gets sent - REQUIRED
    $Password = "XXXX" ; password for the account used from where the mail gets sent - REQUIRED
    $IPPort = 25 ; port used for sending the mail
    $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
    $s_kunde = Inputbox ("Wlan Aussendienst Mailer", "Name des Kunden/Firma" )
    $s_ssd = Inputbox ("Wlan Aussendienst Mailer", "Name der SSD" )
    $s_wlanpw = Inputbox ("Wlan Aussendienst Mailer", "Wlan PW" )
    $s_Ver = Inputbox ("Wlan Aussendienst Mailer", "Wlan Verschlüsslung" )
    $s_admin = Inputbox ("Wlan Aussendienst Mailer", "Admin PW" )
    $s_ip = Inputbox ("Wlan Aussendienst Mailer", "IP Range" )
    $Body = ""
    $Body &= "Kunde/Firma:"& $s_kunde & @CRLF
    $Body &= "SSD:"& $s_ssd & @CRLF
    $Body &= "Wlan PW:"& $s_wlanpw & @CRLF
    $Body &= "Verschlüsslung:"& $s_Ver & @CRLF
    $Body &= "Admin PW:"& $s_admin & @CRLF
    $Body &= "IP Range:"& $s_ip & @CRLF
    ;~ $IPPort=465 ; GMAIL port used for sending the mail
    ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

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

    ;##################################
    ; Script
    ;##################################
    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
    $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
    If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
    EndIf
    ;
    ; The UDF
    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $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.Bcc = $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])
    ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
    If FileExists($S_Files2Attach[$x]) Then
    ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
    $objEmail.AddAttachment($S_Files2Attach[$x])
    Else
    ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
    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
    If Number($IPPort) = 0 then $IPPort = 25
    $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
    ; Set Email Importance
    Switch $s_Importance
    Case "High"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
    Case "Normal"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
    Case "Low"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
    SetError(2)
    Return $oMyRet[1]
    EndIf
    $objEmail=""
    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]


    den nehmen der leuft bei mri muste nur für deine zwekce erweitern

  • Problem mit Body

    • lsc
    • 15. Oktober 2010 um 23:39

    Endlich es geht :)
    VIELEN DANK !!

    Da hätte ich auch drauf kommen können das ich das so schreiben kann mit dem leerzeile

    Muss glaub noch viel lernen :P aber vielen dank schonmal :)

  • Problem mit Body

    • lsc
    • 15. Oktober 2010 um 20:44

    kann es sein das der das nicht macht weil ich mit sovielen bodys nicht arbeiten kann ? oder ist das "egal" ?

  • Problem mit Body

    • lsc
    • 15. Oktober 2010 um 18:08

    danke bekomme nun den fehler
    ### COM Error ! Number: 80020005 ScriptLine: 59 Description:
    >Exit code: 0 Time: 5.624

    Was hat das zu bedeuten ?

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™