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

Beiträge von autoBert

  • Dienste starten und beenden

    • autoBert
    • 30. Dezember 2010 um 16:59

    veruch es so:

    [autoit]

    Local $pcname[1] = ["PCname"]
    For $a = 0 to ubound($pcname) - 1
    Local $commandName = "psservice \\" & $pcname[$a] & " setconfig Remote-Registrierung auto"
    ConsoleWrite($commandName & @crlf) ;diese Zeilen sind nur zur Kontrolle
    Run($commandName, "", @SW_HIDE)
    next

    [/autoit]

    mfg autoBert

  • csv Array Problem

    • autoBert
    • 30. Dezember 2010 um 15:03

    Hallo Ilse,

    hier einmal dein Skript mit zum Verständnis eingebautem Hilfebeipiel zu UBound:

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    Main()
    Func Main()

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

    Local $sAdr = @ScriptDir & "\new.txt"
    Local $h = FileOpen($sAdr, 0)

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

    Local $aRet = _CSV2Array($h, "Auto", True, 1)
    FileClose($h)
    _ArrayDisplay($aRet)
    $rows = UBound($aRet)
    $cols = UBound($aRet, 2)
    $dims = UBound($aRet, 0)

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

    MsgBox(0, "Das " & $dims & "-dimensionale Array hat", _
    $rows & " Zeilen, " & $cols & " Spalten")

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

    ; Zeigt den Inhalt von $aRet
    $output = ""
    For $r = 0 To UBound($aRet, 1) - 1
    $output = $output & @LF
    For $c = 0 To UBound($aRet, 2) - 1
    $output = $output & $aRet[$r][$c] & " "
    Next
    Next
    MsgBox(4096, "Inhalt des Arrays", $output)

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

    MsgBox(0, "Zeile 2/Spalte 1:", $aRet[2][1])
    ;Ausgabe von Alter des Hundes in Zeile 2 /Spalte 1
    ;Achtun Array ist NULL-basierend
    EndFunc ;==>Main

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

    ; #FUNCTION# ===================================================================
    ; Name ..........: _CSV2Array
    ; Description ...:
    ; AutoIt Version : V3.3.0.0
    ; Syntax ........: _CSV2Array($hFile[, $cSeperator = "auto"[, $bFilterString = True[, $iColumnMode = 0]]])
    ; Parameter(s): .: $hFile - Handle for the CSV file to Read
    ; $cSeperator - Optional: (Default = "auto") : Tries to find the separator char ;) or , or TAB or | or space)
    ; | Data-seperator-char
    ; | Empty-string = Opt("GUIDataSeparatorChar")
    ; $bFilterString - Optional: (Default = True) : Removes leading and trailing " or '
    ; $iColumnMode - Optional: (Default = 0) :
    ; | 0: Sets error if lines have different columns and @extended to the csv-line number
    ; | 1: returns lines with different columns numbers comparing to the first line, too
    ; | 2: removing all columns > column numbers in the first line
    ; Return Value ..: Success - 2-dim Array
    ; Failure - 0
    ; @ERROR - 1: error file read
    ; @ERROR - 2: different number of columns / @EXTENDED = CSV-line
    ; - 3: parameter error
    ; Author(s) .....: Thorsten Willert
    ; Date ..........: Mon Dec 07 18:54:35 CET 2009
    ; ==============================================================================
    Func _CSV2Array($hFile, $cSeperator = "auto", $bFilterString = True, $iColumnMode = 0)
    Local $s = FileRead($hFile)
    If @error Then Return SetError(1)

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

    If $cSeperator = Default Then $cSeperator = "auto"
    If Not $cSeperator Then $cSeperator = Opt("GUIDataSeparatorChar")

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

    ; searching the line-seperator and splitting the lines into an array
    Local $aLines
    If StringInStr($s, @CRLF) Then
    $aLines = StringSplit($s, @CRLF, 1)
    ElseIf StringInStr($s, @CR) Then
    $aLines = StringSplit($s, @CR)
    Else
    $aLines = StringSplit($s, @LF)
    EndIf

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

    ; searching the delimiter in the first line
    Local $aTMP
    If $cSeperator = "auto" Then
    Local $iMax = 0
    Local $iC[5] = [0, 0, 0, 0, 0]
    Local $sC[5] = [";", ",", @TAB, "|", " "]

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

    $aTMP = StringRegExp($aLines[1], ";", 3)
    If Not @error Then $iC[0] = UBound($aTMP)
    $aTMP = StringRegExp($aLines[1], ",", 3)
    If Not @error Then $iC[1] = UBound($aTMP)
    $aTMP = StringRegExp($aLines[1], "\t", 3)
    If Not @error Then $iC[2] = UBound($aTMP)
    $aTMP = StringRegExp($aLines[1], "\|", 3)
    If Not @error Then $iC[3] = UBound($aTMP)
    $aTMP = StringRegExp($aLines[1], "[ ]", 3)
    If Not @error Then $iC[4] = UBound($aTMP)

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

    For $i = 0 To UBound($sC) - 1
    If $iC[$i] > $iMax Then
    $iMax = $iC[$i]
    $cSeperator = $sC[$i]
    EndIf
    Next
    EndIf

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

    ; creating 2-dim array based on the number of data in the first line
    $aTMP = StringSplit($aLines[1], $cSeperator)
    Local $iCol = $aTMP[0]
    Local $aRet[$aLines[0]][$iCol]

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

    ; splitting and filling the lines
    For $i = 1 To $aLines[0]
    $aTMP = StringSplit($aLines[$i], $cSeperator)
    If @error Then ContinueLoop
    If $aTMP[0] > $iCol Then
    Switch $iColumnMode
    Case 0
    Return SetError(2, $i)
    Case 1
    ReDim $aRet[$aLines[0] - 1][$aTMP[0]]
    Case 2
    $aTMP[0] = $iCol
    Case Else
    Return SetError(3)
    EndSwitch
    EndIf
    For $j = 1 To $aTMP[0]
    $aTMP[$j] = StringStripWS($aTMP[$j], 3)
    If $bFilterString Then ; removing leading and trailing " or '
    $aTMP[$j] = StringRegExpReplace($aTMP[$j], '^("|'')(.*?)\1$', '$2')
    EndIf
    $aRet[$i - 1][$j - 1] = $aTMP[$j]
    Next ; /cols
    Next ; /lines

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

    Return $aRet
    EndFunc ;==>_CSV2Array

    [/autoit]

    Hier noch ein Bild, das zeigt wie die letzte MsgBox zustandekommt:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    mfg autoBert

    Dateien

    LN.JPG 26,59 kB – 0 Downloads
  • Radiobutton auswählen

    • autoBert
    • 30. Dezember 2010 um 14:25

    Hallo J1nZ,

    Zitat von J1nZ

    Die Ausgabe der Scite-Konsole hilft mir nicht viel weiter, da sie keinen Fehler ausgibt

    aber sie zeigt was bei der Kommunikation zwichen AutoiIt,MozRepl,FreFox gelaufen isz. Hier die Konsole zu dem im vorherigen Beitrag gepoteten Beeipielkript zu _FFFormRadioButton.

    Code
    >"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Examples\FireFox\RadioButton.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
    +>14:15:15 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
    >Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
    +>14:15:15 AU3Check ended.rc:0
    >Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Examples\FireFox\RadioButton.au3"    
    __FFStartProcess: ""C:\Programme\Mozilla Firefox\firefox.exe" -new-window "http://ff-au3-example.thorsten-willert.de/"  -repl 4242 
    _FFConnect: OS:	WIN_XP WIN32_NT 2600 Service Pack 3
    _FFConnect: AutoIt:	3.3.6.1
    _FFConnect: FF.au3:	0.6.0.1
    _FFConnect: IP:	127.0.0.1
    _FFConnect: Port:	4242
    _FFConnect: Delay: 	2ms
    _FFConnect: Socket: 	1524
    _FFConnect: Browser:	Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13
    __FFSendJavaScripts: Sending functions to FireFox .......... done
    _FFLoadWait: .............................................................................................................................................................................................................................................................................................................................................................................................................................................
    
    
    __FFSend: try{FFau3 != null?1:0}catch(e){'_FFCmd_Err';};
    _FFLoadWait ==> Timeout: Can not check site status.
    __FFRecv: 1
    __FFSend: FFau3.xpath=null;try{FFau3.xpath=FFau3.WCD.evaluate("//form[1]//input[@type='radio' and position()=2]",FFau3.WCD,null,9,null).singleNodeValue.checked=true;}catch(e){'_FFXPath_Error: '+e;};
    __FFRecv: 1
    __FFSend: FFau3.xpath=null;try{FFau3.xpath=FFau3.WCD.evaluate("//form[@name='Pizza']//input[@type='radio' and @name='size' and position()=2]",FFau3.WCD,null,9,null).singleNodeValue.checked=true;}catch(e){'_FFXPath_Error: '+e;};
    __FFRecv: 1
    +>14:17:21 AutoIT3.exe ended.rc:0
    >Exit code: 0    Time: 128.140
    Alles anzeigen

    Also bitte posten.

    Läuft den wenigsten das Beipiel-Skript? Wenn nein:Ist Mozrepl bei dir intalliert und getartet?

    mfg autoBert

  • guictrlsettip bei _iecreateembedded?

    • autoBert
    • 30. Dezember 2010 um 13:52

    dazu mütet du den HTML-Code der anzuzeigenden eite anpasen,

    mfg autoBert

  • Wiederholt Werte aus dem Internet lesen.

    • autoBert
    • 30. Dezember 2010 um 13:47

    Hallo AndreStein,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem, da du mit ObjCreate auf ein externes Objekt zugreifst musst du auch die Parameter für den Aufruf kennen, hier hilft dir warcheins http://msdn.microsoft.com/en-us/library/…6(v=vs.85).aspx weiter. Warum du dazu nicht

    Zitat

    InetGet

    Lädt eine Datei aus dem Internet unter Verwendung des HTTP-, HTTPS- oder FTP-Protokolls.

    InetGet ( "URL" [,"filename" [, options [, background]]] )

    bzw.

    Zitat

    _INetGetSource

    Ermittelt den Quelltext von einer URL ohne eine temporäre Datei zu schreiben.

    verwendest verstehe ich nicht

    mfg autoBert

  • Wechselnde Button in dynamischer Toolbar ansprechen

    • autoBert
    • 30. Dezember 2010 um 12:56

    Hallo ,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem:

    Zitat von woehlb

    Au3Info.exe ermittelt nur die Control ID der Toolbar und die Command ID der statischen Button. Wie kann ich die Command ID der Button ermitteln, die je nach Aktion ausgetauscht werden?

    Da wirt du dir einmal die Mühe machen müssen, alle diese Aktionen mehmals in unterschiedlicher Reihenfolgeaufzurufen, die ControlID ermitteln und auch prüfen ob diese jedesmal die gleiche ist, ansonten geht entweder die dir bekannte Methode 2 oder evtl. auch die Button über Classname und Intance anzusprechen,

    mfg autoBert

  • Funktion zu einem bestimmten Zeitpunkt ausführen

    • autoBert
    • 30. Dezember 2010 um 12:36

    Hallo philn,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu

    Zitat von philn

    Kann mir jemand helfen?


    Ja, wenn du dein kompöettes Skript postest,

    mfg autoBert

  • Radiobutton auswählen

    • autoBert
    • 30. Dezember 2010 um 05:45

    Hallo J1nZ,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Hallo ,

    • Mozrepl wird dafür benötigt, kannst du von hier installieren: http://wiki.github.com/bard/mozrepl/
    • FF.au3 herunterladen
    • Mozrepl über Extras|Mozrepl im Firefox starten
    • Funktionsrefernz findest du hier
    • Zum testen Skript starten: [autoit]#Include <FF.au3>

      _FFStart("http://ff-au3-example.thorsten-willert.de/")

      If _FFIsConnected() Then
      _FFFormRadioButton(1, 0, "index")
      Sleep(3000)
      _FFFormRadioButton("size", 1, "name", "Pizza", "name")
      EndIf

      [/autoit]
    [autoit]
    • Eine Tutorial findest du hier
    • [autoit]
    • dieser Link Wenn mal was nicht geht ... bitte zuerst hier nachschauen ... enthält auch sehr nützliche Hinweise von [user='200122']Stilgar[/user] (Author von ff.au3)
    [/autoit]
      [/autoit]

    und jetzt zu deinem Problem, da der Quellcode des Buttons nicht sichtbar ist, solltest du deinen 1. Beitrag bearbeiten. Sehr wichtig wäre die Ausgabe der Scite-Konsole, meist ist auch die URL der Seite hilfreich,


    mfg autoBert

  • Komplexeres? schnelles durchsuchen größerer Arrays

    • autoBert
    • 30. Dezember 2010 um 02:38

    Hallo abc user,

    die Verglichsoperatoren <, <=, >, >=, = und == funktionieren auch mit Strings, einzig bei = must du beachten dass hier nicht auf Gross- Kleinschreibung geachtet wird,

    mgf autoBert

  • Shockwave klappt nicht. Liegts an x64?

    • autoBert
    • 30. Dezember 2010 um 01:16

    Hallo Developer30,

    kompilier es einfach als x86 und teste es mit der EXE, dann hast du die Antwort,

    mfg autoBert

  • auf Eingabe warten

    • autoBert
    • 30. Dezember 2010 um 00:56

    Hallo anton_s,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem, du musst eine Endlosschleife einbauen:

    Spoiler anzeigen
    [autoit]

    HotKeySet("{1}", "_eins")
    HotKeySet("{2}", "_zwei")
    HotKeySet("{3}", "_drei")
    HotKeySet("{Esc}","_exit")

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

    while 1
    Sleep(50)
    WEnd

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

    Func _exit()
    Exit
    EndFunc

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

    Func _eins()
    MsgBox ( 0, "eins", "eins" )
    EndFunc

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

    Func _zwei()
    MsgBox ( 0, "zwei", "zwei" )
    EndFunc

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

    Func _drei()
    MsgBox ( 0, "drei", "drei" )
    EndFunc

    [/autoit]

    mfg autoBert

  • ComboBox2 inhalt abhäning von Combobox1

    • autoBert
    • 29. Dezember 2010 um 22:51

    Hallo TonySiat,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und hier noch ein Besispielskipt dass zu deiner Fragestellung passt:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #AutoIt3Wrapper_Add_Constants=n
    #include <Date.au3>

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

    $Form1 = GUICreate("2 Combos",200,150)
    $cbo1 = GUICtrlCreateCombo("",5,5,190)
    GUICtrlSetData($cbo1,"Täglich")
    GUICtrlSetData($cbo1,"Wöchentlich")
    GUICtrlSetData($cbo1,"Monatlich")
    GUICtrlSetData($cbo1,"Jährlich")
    $cbo2 = GUICtrlCreateCombo("",5,45,190)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    case $Gui_Event_Close
    Exit
    case $cbo1
    $sCbo1 = GUICtrlRead($cbo1)
    GUICtrlSetData($cbo2,"","")
    Switch $sCbo1
    Case "Täglich"
    $sCbo2 = ""
    for $i = 9 to 17
    $sCbo2 &= $i & " Uhr"
    If $i < 17 Then $sCbo2 &= "|"
    Next
    GUICtrlSetData($cbo2,$sCbo2,"9 Uhr")
    Case "Wöchentlich"
    $sCbo2 = ""
    for $i = 1 to 7
    $sCbo2 &= _Locale_DayName($i)
    If $i < 7 Then $sCbo2 &= "|"
    Next
    GUICtrlSetData($cbo2,$sCbo2,_Locale_DayName(1))
    case "Monatlich"
    $sCbo2 = ""
    for $i = 1 to 5
    $sCbo2 &= $i & ". Woche"
    If $i < 5 Then $sCbo2 &= "|"
    Next
    GUICtrlSetData($cbo2,$sCbo2,"1. Woche")
    case "Jährlich"
    $sCbo2 = ""
    for $i = 1 to 12
    $sCbo2 &= _Locale_MonthName($i)
    If $i < 12 Then $sCbo2 &= "|"
    Next
    GUICtrlSetData($cbo2,$sCbo2,_Locale_MonthName(@MON))
    EndSwitch
    EndSwitch
    WEnd

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

    Func _Locale_MonthName($Month, $Abbrev = False)
    ; ==========================================================================================
    ; Autor: Großvater (http://www.autoit.de)
    ; Parameter:
    ; $Month - Nummer des Monats (1 - 12)
    ; $Abbrev - abgekürzten Namen liefern:
    ; |0 : nein
    ; |1 : ja
    ; ==========================================================================================
    Local Const $LOCALE_USER_DEFAULT = 0x0400
    Local Const $LOCALE_SMONTHNAME = 0x37
    Local Const $LOCALE_LOCALE_SABBREVMONTHNAME = 0x43
    Local $LCType = $LOCALE_SMONTHNAME
    If $Abbrev Then $LCType = $LOCALE_LOCALE_SABBREVMONTHNAME
    If Not StringIsInt($Month) Or $Month < 1 Or $Month > 12 Then Return False
    Local $aResult = DllCall("Kernel32.dll", "Int", "GetLocaleInfoA", _
    "UInt", $LOCALE_USER_DEFAULT, _
    "UInt", $LCType + $Month, _
    "Str", "", _
    "Int", 255)
    If @error Or $aResult[0] = 0 Then Return False
    Return $aResult[3]
    EndFunc

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

    Func _Locale_DayName($WDay, $Abbrev = False)
    ; ==========================================================================================
    ; Autor: Großvater (http://www.autoit.de)
    ; Parameter:
    ; $WDay - Nummer des Wochentages (1 - 7) (!!! 1 ist Montag (s.u.) !!!)
    ; $Abbrev - abgekürzten Namen liefern:
    ; |0 : nein
    ; |1 : ja
    ; Anmerkungen:
    ; Zu meinem Erstaunen hat MS in WinNLS.h folgende Konstanten definiert:
    ; #define LOCALE_SDAYNAME1 0x0000002A // long name for Monday
    ; ...
    ; #define LOCALE_SDAYNAME7 0x00000030 // long name for Sunday
    ; Anders als beim Macro @WDAY gilt deshalb der Montag als Tag 1 und der Sonntag
    ; als Tag 7. Der passende Wert lässt sich per Aufruf der UDF-Funktion
    ; _DateToDayOfWeekISO()
    ; ermitteln.
    ; ==========================================================================================
    Local Const $LOCALE_USER_DEFAULT = 0x0400
    Local Const $LOCALE_SDAYNAME = 0x29
    Local Const $LOCALE_SABBREVDAYNAME = 0x30
    Local $LCType = $LOCALE_SDAYNAME
    If $Abbrev Then $LCType = $LOCALE_SABBREVDAYNAME
    If Not StringIsInt($WDay) Or $WDay < 1 Or $WDay > 7 Then Return False
    Local $aResult = DllCall("Kernel32.dll", "Int", "GetLocaleInfoA", _
    "UInt", $LOCALE_USER_DEFAULT, _
    "UInt", $LCType + $WDay, _
    "Str", "", _
    "Int", 255)
    If @error Or $aResult[0] = 0 Then Return False
    Return $aResult[3]
    EndFunc

    [/autoit]

    PS.: wenn eine Problem gelöst ist ist es gut ihn den Thread auch auf gelöst zu setzten. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    mfg autoBert

  • Array & combobox

    • autoBert
    • 29. Dezember 2010 um 06:22

    Hallo marsoo,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: hier einmal ein kleines Beispielkript mit Array und 2 ComboBoxen:

    Spoiler anzeigen
    [autoit]

    #Include <GuiComboBox.au3>
    #include <GUIConstantsEx.au3>
    #include <array.au3>
    #include <File.au3>

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

    Const $sCSV = @ScriptDir & "\2cbo.TXT"
    Const $sElect = "bitte auswählen"
    Dim $a_sCSV, $aSplit, $scboChr = ""
    _FileReadToArray($sCSV,$a_sCSV)
    Dim $aCSV[$a_sCSV[0]][2]
    for $i = 1 to UBound($a_sCSV) - 1
    ConsoleWrite($i & $a_sCSV[$i] & @CRLF)
    $aSplit = StringSplit($a_sCSV[$i],";")
    if not StringInStr($scboChr,$aSplit[1]) Then $scboChr &= $aSplit[1] & "|"
    $aCSV[$i-1][0] = $aSplit[1]
    $aCSV[$i-1][1] = $aSplit[2]
    Next
    ConsoleWrite($scboChr & @CRLF)

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

    $hGui = GUICreate("2 Comboboxen aus 1er CSV", 250, 120, 302, 218)
    $hcboChr = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
    GUICtrlSetData(-1,$scboChr)
    $hcboChrNr = GUICtrlCreateCombo("",8,35,200,25)
    $hbtnExit = GUICtrlCreateButton("Be&enden", 8, 65)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hbtnExit
    Exit
    Case $hcboChr
    $sVal = GUICtrlRead($hcboChr)
    GUICtrlSetData($hcboChrNr,"")
    if $sVal <> $sElect Then
    $aSplit = _ArrayFindAll($aCSV,$sVal,0,0,True,True,0)
    $scboChr = ""
    for $i = 0 to UBound($aSplit) - 1
    $scboChr &= $aCSV[$aSplit[$i]][1] & "|"
    Next
    ConsoleWrite($scboChr & @CRLF)
    GUICtrlSetData($hcboChrNr,$scboChr)
    _GUICtrlComboBox_SetCurSel($hcboChrNr, 0)
    EndIf
    EndSwitch
    WEnd

    [/autoit]


    Hier noch die dazugehörige Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. , viel Spass damit,

    mfg autoBert

    mfg autoBert

  • 2 Fragen

    • autoBert
    • 29. Dezember 2010 um 00:11

    Hallo Bansei,

    Zitat von Bansei

    Also erstmal wie lerne ich AutoIt3 ? Gibt es da gute Tutorials die ihr mir empfehlen könnt ?

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee
    mgf autoBert

  • $b_trace von Funktion _INetSmtpMail anwenden

    • autoBert
    • 28. Dezember 2010 um 18:15

    Vor allem solltest du alle Antworten lesen, mein Skript im vorhergehenden Post macht genau das was du fragst, es öffnet das Trace-Fenter:

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>

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

    $s_SmtpServer = "mail.gmx.net"
    $s_FromName = "Bert"
    $s_FromAddress = ""
    $s_ToAddress = ""
    $s_Subject = "Meine Test UDF"
    Dim $as_Body[2]
    $as_Body[0] = "Die neue E-Mail UDF wird getestet"
    $as_Body[1] = "Zweite Zeile"
    $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,Default,Default,True)
    $err = @error
    If $Response = 1 Then
    MsgBox(0, "Erfolg!", "Die E-Mail wurde versandt")
    Else
    MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Fehlercode: " & $err)
    EndIf

    [/autoit]

    Edit: hatte seltsamer Weise vemehrt Spam, Ursachenforschung => in diesem Skript war eine echte EMailadressen von mir. Jetzt wirds hoffentlich wieder ruhiger

    mfg autoBert

  • $b_trace von Funktion _INetSmtpMail anwenden

    • autoBert
    • 28. Dezember 2010 um 17:50

    Hallo YayYo,

    warum bist du so mies drauf? Sind deine Wihnachtgeschenke nicht so ausgefallen wie du erhofft hast?

    Zitat von YayYo

    Hallo ? Poste 1 ist eindeutig mit Spoiler versehn. Ich hoffe den kann nicht nur ich sehen.


    Sorry, nach dem Post von @prenger war der Thread für mich wirklich eledigt, aber jetzt dein Skript (ergänzt laut Hilfe :

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>

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

    $s_SmtpServer = "mysmtpserver.com.au"
    $s_FromName = "Mein Name"
    $s_FromAddress = "Absender E-Mail Adresse"
    $s_ToAddress = "Empfänger E-Mail Adresse"
    $s_Subject = "Meine Test UDF"
    Dim $as_Body[2]
    $as_Body[0] = "Die neue E-Mail UDF wird getestet"
    $as_Body[1] = "Zweite Zeile"
    $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,Default,Default,True)
    $err = @error
    If $Response = 1 Then
    MsgBox(0, "Erfolg!", "Die E-Mail wurde versandt")
    Else
    MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Fehlercode: " & $err)
    EndIf

    [/autoit]

    wie Oscar schon sagte sollte man diese Umetzung von jedem der sich ensthaft mit AutoIt bechäftigt erwaten können das er dies umsetzen können.

    Zitat von YayYo

    Nagut spielen wir das Spielchen noch etwas weiter

    ich denke solange du nicht lernst vernünftige (und auch die richtigen) Fragen zu stellen wird dieses Spiel wohl ewig weiter gehen. Um diesem vorzubeugen gebe ich dir jetzt folgenden Rat: Schau dir [gelöst] Daten an Email senden
    an. Im gleichen Thread in Post #14 sind weitere Informationen

    mfg autoBert

  • $b_trace von Funktion _INetSmtpMail anwenden

    • autoBert
    • 28. Dezember 2010 um 06:00

    Hallo YayYo,

    Zitat von YayYo

    zeigt mir das du meinen ersten Poste nicht gelesen oder gar verstanden hast !


    Doch, ich habe vesrtanden dass du diesen Paramter benutzen willst, aber nicht weisst wie er eingesetzt wird. Dass du

    Zitat von YayYo

    Aber wie dem auch sei, nur seltsam das niemand ein praktisches Beispiel zu deren Aussagen hat.

    Hättest du ein Skript gepostet, hätte ich den nötigen Parameter ergänzt,

    mfg autoBert

  • Problem mit TCP-Kommunikation zwischen zwei Rechnern im Internet

    • autoBert
    • 28. Dezember 2010 um 02:22

    Hallo ,

    schau dir dazu am besten https://autoit.de/index.php?page…2025#post172025 von Andy an,

    mfg autoBert

  • Automatischer Zeilenumbruch

    • autoBert
    • 28. Dezember 2010 um 02:13

    Hallo Weisgarnix,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem, erstelle dein Input-Control folgendermassen:

    [autoit]

    $idEdtBem = GUICtrlCreateInput("" , 2, 405, 713, 105, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE, $ES_WANTRETURN))
    GUICtrlSetFont(-1, 10,10,Default,"Courier New")

    [/autoit]

    dadurch solltest du einen automatischen Zeilenumbruch hinbekommen. Die Breite musst du noch anpassen,

    Edit: fehlende )) ergänzt, sorry Kopier-Fehler
    mfg autoBert

  • _FTP_FileListRekursiv()

    • autoBert
    • 28. Dezember 2010 um 00:20
    Zitat von chrisatack

    konnte auch im Forum keine Funktion in der hinsicht finden...

    ja, auch ich habe es schon mitbekommen, dass das Prob gelöst ist.
    In [ offen ] FTP Server inhalt auslesen habe ich den Inhalt eines FTP-Servers als Treeview dargestellt. Hatte dir auch in der SB ca. 20-30 min nach deiner Frage letzte Nacht den Hinweis gegeben,

    mfg autoBert

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™