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

Beiträge von Jeahaha

  • Godaddy IP Update Skript

    • Jeahaha
    • 30. November 2019 um 22:47

    Gude!

    Nach langer Inaktivität habe ich mir mal gedacht, dass ich mein Skript, welches via HTTPS-Befehl Zugriff auf die API von Godaddy, die IP eines DNS Eintrags Ändert hier hochlade.

    Für das Absenden via HTTPS müsst ihr im Skript-Ordner die Curl.exe platzieren - LINK

    Das Skript mag nicht perfekt sein und noch einige Verbesserungs-Möglichkeiten haben, allerdings funktioniert es für mich bereits schon ewig.

    Es kann wunderbar als .exe mit der Aufgabenplanung ausgeführt werden - ich lasse das Skript alle 5 Minuten ausführen.

    Für Anregungen bin ich immer zu haben!

    LG Timo

    AutoIt
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile_x64=update-compusales.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <Inet.au3>
    #include <File.au3>
    
    Local $lip
    $log = @ScriptDir & "\log.csv"
    $auth = "euer API-Key"
    $domain = "eure Domäne"
    $name = "eure Domäne"
    $ttl = "600" ;Sollte auf diesem Mindest-Wert bleiben, niedrigere Werte funktionieren nicht
    
    If FileExists( $log ) <> 1 Then
        _FileCreate( $log )
        _logwrite("Logfile erstellt")
    EndIf
    
    TCPStartup()
    $dip = TCPNameToIP($domain)
    TCPShutdown()
    If @error Then
        _logwrite("Could not resolve current dns IP Address")
    Else
    $cip = _GetIP()
        If @error Then
            _logwrite("Could not retreive external IP, maybe the WAN Interface was down")
        Else
            If $cip == $dip Then
        ;~         _logwrite("No change in IP")
            Else
                _logwrite("New IP detected: " & $cip)
                $curl = 'curl -X PUT "https://api.godaddy.com/v1/domains/' & $domain &'/records/A" -H "accept: application/json" -H "Content-Type: application/json" -H "Authorization: sso-key ' & $auth & '" -d "[ { \"data\": \"' & $cip & '\", \"name\": \"' & $name & '\", \"priority\": 1, \"ttl\": ' & $ttl & ', \"weight\": 1 }]"'
                RunWait($curl, "", @SW_HIDE)
                If @error Then
                    _logwrite("could not start Curl to insert IP to GoDaddy")
                EndIf
            EndIf
        EndIf
    EndIf
    
    Func _logwrite($data)
        $h = FileOpen( $log , 1 )
        FileWrite( $h , @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ";" & $data & @CRLF )
        FileClose( $h )
    EndFunc
    Alles anzeigen
  • TCPRec , bei eingehenden daten , daten in eine Editbox schreiben

    • Jeahaha
    • 15. März 2012 um 15:32

    geht i-wie net , oder ich kom net mit klar ;D ich habe es in die While eingebastelt die auch die Buttons abruft:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=server.exe
    #AutoIt3Wrapper_Res_Fileversion=0.0.0.41
    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <file.au3>
    #Include <Timers.au3>
    #include <GuiStatusBar.au3>
    #include <ProgressConstants.au3>
    #Region ### START Koda GUI section ### Form=c:\users\timo2\desktop\programieren\autoit\tcptests\server.kxf
    $Form1 = GUICreate("", 619, 362, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 617, 337, BitOR($ES_READONLY,$WS_HSCROLL,$WS_VSCROLL))
    $Input1 = GUICtrlCreateInput("", 0, 336, 529, 21)
    $Button1 = GUICtrlCreateButton("", 536, 336, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
    GUISetAccelerators($Form1_AccelTable)
    #EndRegion ### END Koda GUI section ###

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

    Global $log = "log.txt"

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

    If FileExists($log) Then
    MsgBox( 0 , "" , "Hallo" , 2 )
    Else
    _FileCreate( $log )
    MsgBox( 0 , "" , "Hallo" , 2 )
    EndIf

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

    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Server Gestartet" )
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Server Gestartet" & @CRLF , 1 )

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

    $IP = "127.0.0.1" ; IP

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

    TCPStartUp()

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

    $MainSocket = TCPListen($IP, 1024, 100 )
    If $MainSocket = -1 Then Exit

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    TCPCloseSocket( $MainSocket )
    TCPShutdown( )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Server Gestopt" )
    Exit
    Case $Button1
    $inp = GUICtrlRead($Input1)
    If $inp = "/exit" Then
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "/exit" )
    TCPCloseSocket( $MainSocket )
    TCPShutdown()
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Server Gestopt" )
    Exit
    EndIf

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

    If $inp = "/clearlog" Then
    FileDelete( $log )
    _FileCreate( $log )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "/clearlog" )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Log geleert (log.txt)" )
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "log geleert" & @CRLF , 1 )
    EndIf

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

    If $inp = "/clear" Then
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Geleert" & @CRLF )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "/clear" )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Edit geleert" )
    EndIf

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

    If $inp = "/help" Then
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "/help" )
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Hilfe:" & @CRLF , 1 )
    GUICtrlSetData( $Edit1 , "/exit - Beenden" & @CRLF , 1 )
    GUICtrlSetData( $Edit1 , "/clearlog - Logdatei leeren" & @CRLF , 1 )
    GUICtrlSetData( $Edit1 , "/clear - Verlauf leeren" & @CRLF , 1 )
    GUICtrlSetData( $Edit1 , "/help - Hilfe aufrufen" & @CRLF , 1 )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Hilfe aufgerufen!" )
    EndIf
    GUICtrlSetData( $Input1 , "" )
    EndSwitch

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

    $ConnectedSocket = TCPAccept( $MainSocket)
    If $ConnectedSocket >= 0 Then
    $conip = SocketToIP($ConnectedSocket)
    $conip2 = $conip
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Eingehende Verbindung" & @CRLF, 1 )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & "Eingehende Verbindung " & $conip2 )

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

    $rec = TCPRecv( $MainSocket , 2048 )
    If $rec <> "" Then GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & $rec & @CRLF , 1 )
    EndIf

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

    $sRecv = TCPRecv($MainSocket,1024)
    If $sRecv <> "" Then
    GUICtrlSetData( $Edit1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & $sRecv & @CRLF , 1 )
    _FileWriteToLine( $log , 1 , @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " " & $sRecv )
    EndIf
    Sleep(1)
    WEnd

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

    $szIP_Accepted = SocketToIP($ConnectedSocket)

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

    Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

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

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

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

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
    "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
    $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
    If Not @error Then $aRet = $aRet[0]
    Else
    $aRet = 0
    EndIf

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

    $sockaddr = 0

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

    Return $aRet
    EndFunc

    [/autoit]
  • TCPRec , bei eingehenden daten , daten in eine Editbox schreiben

    • Jeahaha
    • 14. März 2012 um 15:25

    hi frage steht oben , hier mein(e) scripts:


    http://pastebin.com/wvV02X4N

  • Minecraft Server Helper

    • Jeahaha
    • 13. März 2012 um 17:59

    =D hehe , habe mich gar nicht erst bemüht das ding zu verstecken

  • Minecraft Server Helper

    • Jeahaha
    • 13. März 2012 um 16:01

    @bbm , ich kenne dich doch ausm minecraft.de forum =D , hattest auch mal einen geschrieben aber die funktionen nicht gebastelt =D

  • Minecraft Server Helper

    • Jeahaha
    • 4. März 2012 um 11:27
    Zitat von Weisgarnix

    Auch, wenn ich damit einen fast schon uralten Thread auspacke, der vor ner Woche das letzte mal kommentiert wurde, aber wofür ist denn dein Quelltext voller Leerzeilen? Zwischen Funktionen mal eine zu setzen, kein Thema, macht das ganze übersichtlicher, aber so muss man ja ne halbe Stunde scrollen oO...
    Pack die 4 einzelnen Scripte doch in ein Script und mach eine Auswahl dazu ;)


    Leider Ist der Editor vom Forum nur halb Kompatibel mit Opera , wenn ich sachen bearbeite fügt er wahrlos leerzeilen ein , bin zu faul das zu löschen ;D

    Das Script dürfte im Download drin sein ;D

    EDIT: ist auch drin ;D

  • _InetSmtpMail will nicht , fehlercode 50

    • Jeahaha
    • 26. Februar 2012 um 00:42

    hi ich möchte einen kleinen einfachen emailsender coden besser gesagt habe es , aber ich bekomme dauernd fehlercode 50 :(
    hier der code:

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=automail.exe
    #AutoIt3Wrapper_Res_Fileversion=0.0.0.5
    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <INet.au3>
    #Region ### START Koda GUI section ### Form=c:\users\timo2\desktop\programieren\autoit\win live auto mail\form1.kxf
    $Form1 = GUICreate("E-mailer", 422, 212, 342, 126)
    $email1 = GUICtrlCreateInput("", 32, 0, 121, 21)
    $Label1 = GUICtrlCreateLabel("@", 160, 0, 20, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $email2 = GUICtrlCreateInput("", 184, 0, 57, 21)
    $Label2 = GUICtrlCreateLabel("An:", 0, 0, 28, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Text = GUICtrlCreateEdit("", 0, 24, 417, 153)
    GUICtrlSetData(-1, "")
    $Button1 = GUICtrlCreateButton("Senden", 8, 184, 75, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Optionen", 344, 184, 75, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Addressen", 144, 184, 139, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Auswählen", 248, 0, 171, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $settings = "settings.properties"
    FileOpen( $settings )
    $smtpserver = FileReadLine( $settings , 1 )
    $smtplogin = FileReadLine( $settings , 2 )
    $smtppasswort = FileReadLine( $settings , 3 )
    $vonadresse = FileReadLine( $settings , 4 )
    $adressenordner = FileReadLine( $settings , 5 )
    $vonname = FileReadLine( $settings , 6 )

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

    $an1 = GUICtrlRead( $email1 )
    $an2 = GUICtrlRead( $email2 )
    $an = $an1 & "@" & $an2

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    FileClose( $settings )
    Exit
    Case $Button1
    $Response = _INetSmtpMail( $smtpserver , $vonname , $vonadresse , $an , "test" , "hallo")
    $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
    Case $Button2
    FileClose( $settings )
    Run( "optionen.exe" )
    Exit
    Case $Button3
    Run( "adressen.exe" )
    Case $Button4
    $addr = FileOpenDialog( "Addresse auswählen" , @ScriptDir & "/adressen/" , "(*.txt)" )
    FileOpen( $addr )
    $1 = FileReadLine( $addr , 1 )
    $2 = FileReadLine( $addr , 2 )
    GUICtrlSetData( $email1 , $1 )
    GUICtrlSetData( $email2 , $2 )
    EndSwitch
    WEnd

    [/autoit]
  • _Filewritetoline geht nur wenn neue datei erstellt wurde oO

    • Jeahaha
    • 26. Februar 2012 um 00:09

    oh , habe gedacht das FileOpen auch zum schreiben notwendig ist :P Danke an alle

  • SB Zitate³

    • Jeahaha
    • 25. Februar 2012 um 23:20

    GEIL

  • _Filewritetoline geht nur wenn neue datei erstellt wurde oO

    • Jeahaha
    • 25. Februar 2012 um 22:43

    Ich ahne das es an der If .. else liegt aber net lang die kirche ums dorf tragen ;D :

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #AutoIt3Wrapper_outfile=optionen.exe

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

    #AutoIt3Wrapper_Res_Fileversion=0.0.0.4

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

    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

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

    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha

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

    #AutoIt3Wrapper_Res_Language=1031

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

    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include

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

    #include

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

    #include

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

    #include

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

    #Region ### START Koda GUI section ### Form=C:\Users\Timo2\Desktop\Programieren\Autoit\win live auto mail\Form2.kxf

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

    $Form2 = GUICreate("Optionen", 117, 147, 192, 124)

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

    $Button1 = GUICtrlCreateButton("Smtp server", 0, 0, 115, 25, $WS_GROUP)

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

    $Button2 = GUICtrlCreateButton("Smtp Login", 0, 24, 115, 25, $WS_GROUP)

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

    $Button3 = GUICtrlCreateButton("Smtp Passw.", 0, 48, 115, 25, $WS_GROUP)

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

    $Button4 = GUICtrlCreateButton("Vonadresse", 0, 72, 115, 25, $WS_GROUP)

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

    $Button5 = GUICtrlCreateButton("Adressenordner", 0, 96, 115, 25, $WS_GROUP)

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

    $Button6 = GUICtrlCreateButton("Von Name", 0, 120, 115, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    $sfile = "settings.properties"

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

    If FileExists($sfile) Then

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

    MsgBox( 0 , "" , "Willkommen" )

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

    Else

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

    _FileCreate($sfile)

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

    EndIf

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

    FileOpen($sfile)

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

    While 1

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

    $nMsg = GUIGetMsg()

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

    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE

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

    FileClose($sfile)

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

    Exit

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

    Case $Button1

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

    $inp1 = InputBox( "Smtp Server" , "Smtp Server eingeben" )

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

    _FileWriteToLine( $sfile , 1 , $inp1 , "1" )

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

    Case $Button2

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

    $inp2 = InputBox( "Smtp Login" , "Smtp login eingeben (sicher)" )

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

    _FileWriteToLine( $sfile , 2 , $inp2 , "1" )

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

    Case $Button3

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

    $inp3 = InputBox( "Smtp Passwort" , "Smtp passwort eingeben (sicher)" )

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

    _FileWriteToLine( $sfile , 3 , $inp3 , "1" )

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

    Case $Button4

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

    $inp4 = InputBox( "Von Adresse" , "Deine Email" )

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

    _FileWriteToLine( $sfile , 4 , $inp4 , "1")

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

    Case $Button5

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

    $fold = FileSelectFolder( "Adressenordner" , @ScriptDir & "/adressen/" )

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

    _FileWriteToLine( $sfile , 5 , $fold , "1" )

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

    Case $Button6

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

    $inp5 = InputBox( "Sendernamen" , "Absender angeben" )

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

    _FileWriteToLine( $sfile , 6 , $inp5 , "1" )

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

    EndSwitch

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

    WEnd

    [/autoit]
  • Update der Übersetzseite für die Hilfe auf 3.3.8.1

    • Jeahaha
    • 25. Februar 2012 um 22:39
    Zitat von xXxProGamerxXx

    welche neuen funktionen den ?^^

    wäre gut zu wissen :D

  • Update der Übersetzseite für die Hilfe auf 3.3.8.1

    • Jeahaha
    • 25. Februar 2012 um 21:44

    Werde auch mithelfen , Schulenglisch sollte ausreichen ;D

  • _FileWriteToLine hat den Geist verlassen

    • Jeahaha
    • 25. Februar 2012 um 21:02

    hm hab zwar den ersten fehler gefixt aber wenn ich jetzt die datei speichern will tut sich nix :( , keine datei wird erstellt , in ne vorhandene datei wird nix geschrieben :(

  • _FileWriteToLine hat den Geist verlassen

    • Jeahaha
    • 25. Februar 2012 um 20:54

    @Name oh verdammt ich bin so dooof :pinch: :pinch:

  • _FileWriteToLine hat den Geist verlassen

    • Jeahaha
    • 25. Februar 2012 um 20:51

    anbei nochmal , es ist kein bot , es ist mir kein anderer name eingefallen :P

  • _FileWriteToLine hat den Geist verlassen

    • Jeahaha
    • 25. Februar 2012 um 20:51

    Hi ich schon wieder,

    hier das script:

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #AutoIt3Wrapper_outfile=adressen.exe

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

    #AutoIt3Wrapper_Res_Fileversion=0.0.0.0

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

    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

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

    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha

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

    #AutoIt3Wrapper_Res_Language=1031

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

    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include

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

    #include

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

    #include

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

    #include

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

    #include

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

    #Region ### START Koda GUI section ### Form=C:\Users\Timo2\Desktop\Programieren\Autoit\win live auto mail\Form3.kxf

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

    $Form3 = GUICreate("Adressen", 285, 28, 351, 252)

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

    $Input1 = GUICtrlCreateInput("", 0, 0, 121, 21)

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

    $Label1 = GUICtrlCreateLabel("@", 120, 0, 20, 24)

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

    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

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

    $Input2 = GUICtrlCreateInput("", 144, 0, 65, 21)

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

    $Button1 = GUICtrlCreateButton("Setzen", 208, 0, 75, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    $inp1 = GUICtrlRead( $Input1 )

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

    $inp2 = GUICtrlRead( $Input2 )

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

    While 1

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

    $nMsg = GUIGetMsg()

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

    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE

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

    Exit

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

    Case $Button1

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

    $file = FileSaveDialog( "adresse speichern" , @ScriptDir & "/adressen/" , "(*.txt)" )

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

    _FileWriteToLine( $file , "1" , $inp1 , "1" )

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

    _FileWriteToLine( $file , "2" , $inp2 , "1" )

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

    EndSwitch

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

    WEnd

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


    hier der Fehlercode:


    Code
    >"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Users\Timo2\Desktop\Programieren\Autoit\win live auto mail\settings.au3" /autoit3dir "C:\Program Files (x86)\AutoIt3" /UserParams    
    
    
    +>20:47:34 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_7/  CPU:X64 OS:X64)
    
    
    >Running AU3Check (1.54.19.0)  from:C:\Program Files (x86)\AutoIt3
    
    
    C:\Users\Timo2\Desktop\Programieren\Autoit\win live auto mail\settings.au3(32,40) : ERROR: _FileWriteToLine(): undefined function.
    
    
    			_FileWriteToLine( $file , 1 , $inp1 )
    
    
    			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    
    
    C:\Users\Timo2\Desktop\Programieren\Autoit\win live auto mail\settings.au3 - 1 error(s), 0 warning(s)
    
    
    !>20:47:34 AU3Check ended.rc:2
    
    
    >Exit code: 0    Time: 6.451
    Alles anzeigen
  • Button soll Dateiwahlfenster öfnen , tuts aber net

    • Jeahaha
    • 25. Februar 2012 um 20:28

    Oh ok , trotzdem danke (an beide) ;D

  • Button soll Dateiwahlfenster öfnen , tuts aber net

    • Jeahaha
    • 25. Februar 2012 um 20:22

    DANKE

  • Fischgame

    • Jeahaha
    • 25. Februar 2012 um 20:21

    ich finds geil , ne globale highscore liste wäre geil , ein esc menü auch ;D

  • Button soll Dateiwahlfenster öfnen , tuts aber net

    • Jeahaha
    • 25. Februar 2012 um 20:14

    Ich schon wieder , ich bin gerade etwas am verzweifeln :( wil ein script das emails sendet machen , (er heist zwar noch windows live auto mailer , der name kommt aber nur weil ich keinen gefunden habe , ist kein bot ;D )

    hier mal das stück script:

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #AutoIt3Wrapper_outfile=automail.exe

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

    #AutoIt3Wrapper_Res_Fileversion=0.0.0.2

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

    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

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

    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha

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

    #AutoIt3Wrapper_Res_Language=1031

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

    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include

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

    #include

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

    #include

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

    #include

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

    #include

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

    #include

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

    #Region ### START Koda GUI section ### Form=c:\users\timo2\desktop\programieren\autoit\win live auto mail\form1.kxf

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

    $Form1 = GUICreate("E-mailer", 422, 212, 342, 126)

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

    $email1 = GUICtrlCreateInput("", 32, 0, 121, 21)

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

    $Label1 = GUICtrlCreateLabel("@", 160, 0, 20, 24)

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

    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

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

    $email2 = GUICtrlCreateInput("", 184, 0, 57, 21)

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

    $Label2 = GUICtrlCreateLabel("An:", 0, 0, 28, 24)

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

    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

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

    $Text = GUICtrlCreateEdit("", 0, 24, 417, 153)

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

    GUICtrlSetData(-1, "")

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

    $Button1 = GUICtrlCreateButton("Senden", 8, 184, 75, 25, $WS_GROUP)

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

    $Button2 = GUICtrlCreateButton("Optionen", 344, 184, 75, 25, $WS_GROUP)

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

    $Button3 = GUICtrlCreateButton("Addressen", 144, 184, 139, 25, $WS_GROUP)

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

    $Button4 = GUICtrlCreateButton("Auswählen", 248, 0, 171, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    $settings = "settings.properties"

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

    FileOpen( $settings )

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

    $smtpserver = FileReadLine( $settings , 1 )

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

    $smtplogin = FileReadLine( $settings , 2 )

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

    $smtppasswort = FileReadLine( $settings , 3 )

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

    $vonadresse = FileReadLine( $settings , 4 )

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

    $adressenordner = FileReadLine( $settings , 5 )

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

    $vonname = FileReadLine( $settings , 6 )

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

    $an1 = GUICtrlRead( $email1 )

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

    $an2 = GUICtrlRead( $email2 )

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

    While 1

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

    $nMsg = GUIGetMsg()

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

    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE

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

    Exit

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

    Case $Button1

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

    Case $Button2

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

    Run( "optionen.exe" )

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

    Exit

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

    Case $Button3

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

    Run( "adressen.exe" )

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

    Case $Button4

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

    $addr = FileOpenDialog( "Addresse auswählen" , @ScriptDir & "adressen" , ".txt" )

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

    FileOpen( $addr )

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

    $1 = FileReadLine( $addr , 1 )

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

    $2 = FileReadLine( $addr , 2 )

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

    GUICtrlSetData( $email1 , $1 )

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

    GUICtrlSetData( $email2 , $2 )

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

    EndSwitch

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

    WEnd

    [/autoit]

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™