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

Beiträge von Alina

  • Bilder

    • Alina
    • 11. April 2009 um 18:55

    @simon.

    Ich glaube es wäre besser, wenn Du mit kleinen Tools anfängst und nicht gleich was großes versuchst zu scripten?

    Also viele Deiner Fragen im Forum zeigen doch eher das es der Wissensmangel ist. Dieses ist nicht schlimm, aber so verlierst Du irgendwann die Lust am scripten.

    Mein Vorschlag, der nett gemeint ist. Gehe mal die Hilfe durch. Da sind für sehr viele Sachen Beispiele die Du auch testen kannst. Dazu kommt, das Du so lernst wie man was richtig benutzt. Viele Texte die da drinne sind, geben Dir dann auch Hinweise auf Fehler die man machen kann, wie man evtl. Sachen lösen kann und Besonderheiten. So bin ich Angefangen bevor ich mich hier angemeldet habe. Ich habe einfach geschaut, ob ich damit eigentlich klar komme.

    Hast Du das gemacht, dann versuch doch erst einmal ein "INI-Maker" zu schreiben, was sehr leicht ist und Dir schnellen Erfolg zeigt. Also ich habe nachdem ich die Hilfe durch hatte und paar Tage im Forum war, alleine durch die Hilfe und die richtige Nutzung von der Suchfunktion innerhalb von einer Stunde einen INI-Maker gemacht. Vorkenntnisse hatte ich zuvor (vor AutoIt) nur in der Erstellung von Batch-Dateien, welche ich heute so gut wie überflüssig finde.

    Nimm es, wie gesagt nicht als Rüge auf, sondern als eine Hilfe, damit es Dir auch in Zukunft SPASS macht, zu scripten und später vllt. auch mal zusätzlich auf weitere Entwicklungsprogramme / -software zu erweitern. Vor zwei Jahren (wenn ich denn schon so lange dabei bin) hätte ich nie gedacht, das ich mal ansatzweise verstehe was ein Array ist oder wie man damit umgeht. Heute weiß ich was es ist und kann auch schon einfach Array und 2D-Arrays anwenden, wenn auch noch mit kleinen Problemen.

    Jeder Stammuser hier ist gerne bereit Dir zu helfen, aber es wird halt gerne gesehen, wenn man auch zeigt, das man sich mit den grundbegriffen versucht auszukennen und nicht gleich mit großen Projekten beginnt, sondern mit kleinen. Du bist doch auch als Säugling geboren, wurdest ein Kind, dann ein Teenager und dann irgendwann mal ein "Mann".

    So, schöne Grüße nach Feldkirchen aus dem wunderschönen Norden.

    L I N A

  • Plugin-Installation?

    • Alina
    • 11. April 2009 um 18:39
    Zitat von simon

    stimmt eigentlich wenn de willst kanst du es dir ja umbauen
    bitte nicht jeder!!!

    Selbst ist der Mann, die Frau !!! X(

  • Plugin-Installation?

    • Alina
    • 11. April 2009 um 14:20

    Local kannst Du in der Hilfe nachlesen

    *******************************************************************************************************

    was $x = 1 To Y bedeutet ganz einfach gesagt, das der Zähler-$x von 1 bis Y zählt.
    Ist Y 60, dann zählt der Zähler von 1 bis 60.

    For $x = 1 To $S_Files2Attach[0]
    Hier zählt der Zähler-$x von 1 bis zum max. von $S_Files2Attach[0]

    Aber auch hier etwas die Hilfe durch gehen. Ich selber kann das schlecht erklären, aber
    vom Sinn her sollte es so verständlich rüber kommen.

  • AutoIt Editor

    • Alina
    • 11. April 2009 um 14:14

    @Yakumo500

    1.)
    Die Version 2.0 ist nun kein AutoIt Projekt mehr.

    2.)
    Ich meine das Links in der Signatur verboten sind. ;)

  • Plugin-Installation?

    • Alina
    • 11. April 2009 um 14:09

    @simon

    1.)
    Ich habe auch die Anzahl der Include-Dateien auf zwei reduziert. Alle anderen warer überflüssig.

    2.)
    Wenn Du das _INETSMTPCOM aus dem Forum hast, schaust Du es nicht durch was es macht???
    Also ich mache das zumeist, denn ich möchte es verstehen und daraus lernen.

    Überflüssig auch so ein deutsches Wort, das nicht in den Ordner "sinnvoll" kommt. Etwas ist über flüssig? Mehr als flüssig gibt es doch gar nicht. :rofl: SPASS :rofl:

  • Plugin-Installation?

    • Alina
    • 11. April 2009 um 13:58

    @simon
    Ich habe doch nur die Fehlermeldung die ausgegeben ist versucht zu verstehen. Der Versuch war erfolgreich und das habe ich auch erst nach Wochwen gelernt. Ab und an ist das auch sehr zeitaufwendig. Immer dann, wenn das Script sehr groß ist und nicht dokumentiert ist, bekommt man ab und an den "verlorenen Überblick" gratis. ;)

  • Plugin-Installation?

    • Alina
    • 11. April 2009 um 13:52

    So sollte es einwandfrei arbeiten:

    Spoiler anzeigen
    [autoit]

    #include<GUIConstantsEx.au3>
    #include<File.au3>

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

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Email versender", 396, 294)
    $Input1 = GUICtrlCreateInput("", 8, 40, 121, 21)
    $Input2 = GUICtrlCreateInput("", 248, 40, 121, 21)
    $Label1 = GUICtrlCreateLabel("Mail sever: Für http://www.web.de ist er smtp.web.de ", 8, 16, 229, 17)
    $Label2 = GUICtrlCreateLabel("Name des Absenders", 248, 16, 105, 17)
    $Label3 = GUICtrlCreateLabel("Absender email addresse", 8, 72, 122, 17)
    $Input3 = GUICtrlCreateInput("", 8, 96, 121, 21)
    $Input4 = GUICtrlCreateInput("", 248, 96, 121, 21)
    $Label4 = GUICtrlCreateLabel("Empfänger email addresse", 248, 72, 128, 17)
    $Input5 = GUICtrlCreateInput("", 8, 152, 121, 21)
    $Label5 = GUICtrlCreateLabel("Betreff", 8, 128, 35, 17)
    $Label6 = GUICtrlCreateLabel(" Text ", 248, 128, 34, 17)
    $Input6 = GUICtrlCreateInput("", 248, 152, 121, 21)
    $Label7 = GUICtrlCreateLabel("Nochmal Absender email", 8, 184, 121, 17)
    $Input7 = GUICtrlCreateInput("", 8, 208, 121, 21)
    $Input8 = GUICtrlCreateInput("", 248, 208, 121, 21)
    $Label8 = GUICtrlCreateLabel("Passwort der Absender email", 248, 184, 140, 17)
    $Button1 = GUICtrlCreateButton("Email versenden", 152, 248, 100, 25, 0)
    $Button2 = GUICtrlCreateButton("Abbrechen", 312, 256, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $rc = _INetSmtpMailCom(GUICtrlRead( $Input1),GUICtrlRead($Input2),GUICtrlRead($Input3), GUICtrlRead($Input4), GUICtrlRead($Input5), GUICtrlRead($Input6), "", "","", GUICtrlRead($Input7), GUICtrlRead($Input8))
    If @error then
    msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
    EndIf
    Case $Button2
    Exit
    EndSwitch
    WEnd

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


    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
    $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") = 25
    ;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
    ;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]

    Zeile 64 & 65 geändert.

    Zeile 64 war zuvor: For $ex = 1 To $S_Files2Attach[0]
    Zeile 65 nur eine Leerstelle entfernt, was aber meine ich nicht so wichtig war.

  • Bild wird nicht angezeigt

    • Alina
    • 11. April 2009 um 13:45

    Simon? Es ist kein Bild, sondern ein Icon.

  • Plug-In Schnittstelle

    • Alina
    • 11. April 2009 um 13:44

    So vllt.?

    Spoiler anzeigen
    [autoit]

    ; setzen des Wertes einer Umgebungsvariablen
    EnvSet("MYENV", '"GUICreate("Form1", 300, 300)"')

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

    ; ermitteln des Wertes einer Umgebungsvariablen
    $var = EnvGet("MYENV")
    MsgBox(4096, "Die Pfad-Variable lautet:", $var)

    [/autoit]

    Ich habe davon auch keine Ahnung, aber ist eine Sache, die Frau sich ja annehmen kann.

  • Plug-In Schnittstelle

    • Alina
    • 11. April 2009 um 13:34

    Also EnvGet usw.? Meinst Du das hier?

    Spoiler anzeigen
    [autoit]

    ; setzen des Wertes einer Umgebungsvariablen
    EnvSet("MYENV", "Dies ist ein Test.")

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

    ; ermitteln des Wertes einer Umgebungsvariablen
    $var = EnvGet("MYENV")
    MsgBox(4096, "Die Pfad-Variable lautet:", $var)

    [/autoit]
  • Ich hab ein Problem

    • Alina
    • 11. April 2009 um 13:28
    Zitat von Zeitriss

    Danke aber hat auch jemand eine Idee wie ich das Programm davon überzeuge statt von 3 bis 32 zu zählen das tut was es soll.

    Nicht böse nehmen, aber: wo soll er das tun, was Du möchtest, statt von 3 bis 32 zu zählen, was nicht überzeugt in dem Programm von Dir ??? <--- Oben fehlt das eine oder andwere Komma, das ich hier mit eingebaut habe. :rofl:

  • Plug-In Schnittstelle

    • Alina
    • 11. April 2009 um 13:22

    Kann man z.b. Variablen aus einer Textdatei auslesen?

    Also wenn Du die Variable mit FileWrite(-Line) in eine Textdatei schreibst, dann kannst Du diese mit FileRead(-Line) auch wieder einlesen.

    Aber ich glaube nicht, das Deepred das sucht, denn darauf wäre er sicherlich selber gekommen. Aber ich verstehe es nun mal so und das ist nicht "blonde Verstehen". ;)

  • Ich hab ein Problem

    • Alina
    • 11. April 2009 um 13:13

    Ich würde die Funktionen mit If/Else statt mit If/Elseif schreiben.
    Also so:

    Spoiler anzeigen
    [autoit]


    Func Wiederholen()
    If $Wiederholen = 1 Then
    sleep(2000)
    send("[\Wiederholen]")
    $Wiederholen = 0
    Else
    sleep(2000)
    send("[Wiederholen]")
    $Wiederholen = 1
    EndIf
    EndFunc

    [/autoit]


    Statt so:

    Spoiler anzeigen
    [autoit]

    Func Wiederholen()
    If $Wiederholen = 1 Then
    sleep(2000)
    send("[\Wiederholen]")
    $Wiederholen = 0

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

    ElseIf $Wiederholen = 0 Then
    sleep(2000)
    send("[Wiederholen]")
    $Wiederholen = 1
    EndIf
    EndFunc

    [/autoit]
  • Befehl zum Prozess starten

    • Alina
    • 11. April 2009 um 12:54
    Zitat

    Bei mir eig ja auch bloß dauert es ne ganze Zeit und ich will das ein bissl verschnellern.

    Schneller und Windows? Dasssss paßt doch gar nicht zusammen :rofl:

  • PingAll UDF

    • Alina
    • 11. April 2009 um 12:48
    Zitat

    Sry, das ich trotz des alters dieses Threads noch ein post gemacht habe.


    Zeigt doch eigentlich, das Du irgendwie hier heir gekommen bist.
    Also ich schätze mal die Suchfunktion (SuFu) genutzt und so zum Beitrag gekommen. Die SuFu hat es schließlich (pos.) in sich !!!

  • MsgBox bereits offen

    • Alina
    • 10. April 2009 um 18:11

    Hallo Doc.

    1.) ICH BOTTE NICHT !!!
    Alleine das Du es mir zu traust ein : :evil:

    Danke @Commander21, aber ich glaube das es die Stammuser wie Doc, BugFix, peethebee usw. alle tuen, denn ich mag die Dinger halt nicht.

    2.) Hier mal ein Beispiel:

    Spoiler anzeigen
    [autoit]


    If FileExists(@ScriptDir & "\alt.exe") Then
    _1delete()
    _restart()
    Else FileCopy("H:\br.exe", @ScriptDir & "\neu.exe")
    EndIf

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

    ; Deletefunktion
    Func _1delete()
    FileDelete(@ScriptDir & "\alt.exe"
    EndFunc

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

    ; Restartfunktion
    Func _restart()
    If @Compiled = 1 Then
    MsgBox(0,"Hinweis","Erfolgreicher Abschluss.")
    Run( FileGetShortName(@ScriptFullPath))
    Else
    MsgBox(0,"Hinweis","Erfolgreicher Abschluss.")
    Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
    EndFunc

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

    ; Exitfunktion
    Func OnAutoItExit()
    MsgBox(0,"Hinweis","Ich soll nur einmal aufgerufen werden, nicht aber beim RESTART.")
    EndFunc

    [/autoit]

    Es geht um die MSgBox in Zeile 30, die ja einmal durch das normale starten und einmal durch den Restart aufgerufen wird.

    Habe ich das nun gut erklärt? "Ja", habe ich!

  • MsgBox bereits offen

    • Alina
    • 10. April 2009 um 17:38

    Wie kann ich schauen, ob folgende MsgBox bereits auf dem Display zu sehen ist?

    Spoiler anzeigen
    [autoit]


    MsgBox(0,"Box ist offen","MsgBog ist offen")

    [/autoit]
  • Anfänger Projekt Hilfe!!!

    • Alina
    • 10. April 2009 um 13:55

    @Sniekers
    außer das was BugFix bereits geschrieben hat noch folgendes. Bitte das Thema eindeutiger bezeichnen (Anregung, kein meckern), damit man es besser zuordnen kann.
    In Deinem Bsp. wäre es z. B. "IE Problem - Nickname".

    Schönen Karfreitag, der zweite Feiertag diese Woche in Dänemark, der erste diese Woche in Deutschland. :rock:

  • Variable

    • Alina
    • 10. April 2009 um 13:51

    Hallo.

    Ich habe mal eine Farge bezüglich Variablen.

    Wenn meine Variable so aus schaut, ich diese aber nach z. B. 2 Minuten wieder nutze, dann ist sie ja nicht mehr so wie am Anfang. Wie kann ich es machen, das diese gleich ist, solang ich das Script laufen lassen würde?

    Spoiler anzeigen
    [autoit]


    $var_zeit = @MDAY & "-" & @MON & "-" & @YEAR & "_" & @HOUR & "-" & @MIN & "\"

    [/autoit]
  • Nutzer mit 0 Beiträgen, bzw. weniger Beteiligung...

    • Alina
    • 9. April 2009 um 20:08
    Zitat von MatthiasG.

    Auch die alten Threats zu alten AutoIt-Versionen gehören mal weg :D

    Dann wäre es hier viel sauberer ;)

    Auf keinen Fall, denn daran lernen Anfänger noch evtl. das eine oder andere.
    Bin ehr dafür, das man beim Posting dazu schreiben sollte, für welche AutoIt-Version das Script ist ;)

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™