Beiträge von Alina

  • Outlook & OExpress Saver...

    Hallo Oscar.

    Ich habe nicht geholfen beim übersetzen. Aber ich kann, wenn es gewünscht wird so übersetzen, das es eine umgangssprachliche Übersetzung ist. ;) Aber das weiß RR04 auch bezüglich der Übersetzung ins dänische bzw. "Skandia-Talk". Einfach die Begriffe via PN und ich mache das.

    Aber das Tool ist doch super. Finde ich auf jeden Fall. Habe es hier getestet und auf einem PC ohne AutoIt.

    LG, Crazy-A.

  • JPG in einem GUI als Link

    @xeno & Oscar

    Habt RECHT.
    Mit ShellExecute("http://www.autoit.de") geht es einwandfrei.

    Danke.

    LG, Crazy-A.

    P. S. Wer RECHT hat, gibt ....
    Zwei die Recht haben und einen aus geben müssen. Jeder ein halbes Glas Cola. Nur wer die oberste und wer die unterste??? ;)

  • GUI erstellen mit Button, die Word Dokumente aufrufen.

    So evtl.?

    #include <GuiConstants.au3>
    #include <Word.au3>

    ; GUI
    GuiCreate("bla", 400, 400)
    GuiSetIcon(@SystemDir & "\cmd.exe", 0)
    GUICtrlCreateLabel("blabla", 123,1)
    $Button1 = GUICtrlCreateButton("TEST", 1, 14, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("4-2 1", 79, 14, 75, 25, 0)
    $Button3 = GUICtrlCreateButton("5-0 1", 1, 43, 75, 25, 0)
    $Button4 = GUICtrlCreateButton("6-2 1", 1, 72, 75, 25, 0)
    $Button5 = GUICtrlCreateButton("6-4 1", 79, 72, 75, 25, 0)
    $Button6 = GUICtrlCreateButton("7-2 1", 1, 101, 75, 25, 0)
    $Button7 = GUICtrlCreateButton("7-4 1", 79, 101, 75, 25, 0)
    $Button8 = GUICtrlCreateButton("7-5 1", 157, 101, 75, 25, 0)
    $Button9 = GUICtrlCreateButton("7-6 1", 235, 101, 75, 25, 0)
    $Button10 = GUICtrlCreateButton("8-2 1", 1, 130, 75, 25, 0)
    $Button11 = GUICtrlCreateButton("8-3 1", 79, 130, 75, 25, 0)
    $Button12 = GUICtrlCreateButton("8-5 1", 157, 130, 75, 25, 0)
    $contextMenu = GuiCtrlCreateContextMenu()
    GuiCtrlCreateMenuItem("Copyright ©blabla", $contextMenu)
    GuiCtrlCreateMenuItem("", $contextMenu) ;separatoru)
    GuiCtrlCreatePic("Logo.gif",120,315, 169,68)
    GuiCtrlSetColor(-1,0xffffff)
    GUICtrlCreateDate ( "", 1, 383, 399, 20)
    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ShellExecute('c:\doku0815.doc'); muss aber auch beim testen vorhanden sein ;)
    #cs
    _Func1 ()
    Case $Button2
    _Func2 ()
    Case $Button3
    _Func3 ()
    Case $Button4
    _Func4 ()
    Case $Button5
    _Func5 ()
    Case $Button6
    _Func6 ()
    Case $Button7
    _Func7 ()
    Case $Button8
    _Func8 ()
    Case $Button9
    _Func9 ()
    Case $Button10
    _Func10 ()
    Case $Button11
    _Func11 ()
    Case $Button12
    _Func12 ()
    #ce
    EndSwitch
    WEnd

    Func _Func1 ()

    MsgBox(0, "Minimiert", "Das Programm wird jetzt minimiert")
    Exit
    EndFunc

    LG, Crazy-A.

  • Windows von Balast entfernen

    http://www.acronis.de/enterprise/products/drivecleanser/ = "Acronis® Drive Cleanser 6.0"
    Kinderleichte Bedienung. Zwar einmal einstellen, aber danach putzt der besser als jede/r Hausfrau/Hausmann ;)
    Würde sagen das ist die luxus Junggesellenreinigung für den PC :rofl: Also leicht ausreichend, wenn man keine "Secrets" drauf hat.

    Zum Beispiel: Bringt den Papierkorb nicht nur vor die Tür (Papierkorb leeren), sondern sogar auch runter in die Tonnen (richtig löschen der Dateien von dr HDD).

    Crazy-A.

  • JPG in einem GUI als Link

    So sieht das aus bei mir (Firmmendaten entfernt).
    Bild ist eingebaut, aber das mit dem Link bekomme ich nicht hin. :(

    EDIT: nach langem "Hin und her" selber geschafft mit o. g. Mega-Hilfe.

    Ich habe es so gemacht:

    Spoiler anzeigen
    [autoit]


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

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

    $key = "" ; zugang extern
    $buchung = "" ; wird noch nicht benötigt, sondern in Planung
    $net = "" ; hier Netzauswahl der Grp.

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

    GUICreate("Benutzeroberfläche", 310, 325, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
    $bild = GUICtrlCreatePic("dialog_dk.jpg", 5, 220, 300, 100) ; Linkbild nach dialog DK
    $bild2 = GUICtrlCreateLabel ("", 4, 219, 1, 1)

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

    ;tl-nr. 10 stellen
    GUICtrlCreateLabel("ersten 10 TL-Nr", 5, 5, 300, 14)
    $tlnr = GUICtrlCreateInput("", 5, 20, 300, 20)
    GUICtrlSetLimit(-1, 10)

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

    ;kkv 15 stellen
    GUICtrlCreateLabel("BK Bez. Nr. 1 bis 15", 5, 45, 300, 14)
    $kkv = GUICtrlCreateInput("", 5, 60, 300, 20)
    GUICtrlSetLimit(-1, 15)

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

    ;sstv 30 stellen
    GUICtrlCreateLabel("SSTV", 5, 85, 300, 14)
    $sstv = GUICtrlCreateEdit("", 5, 100, 300, 50, $ES_WANTRETURN)
    GUICtrlSetLimit(-1, 30)

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

    ;buttons
    $uebergeben = GUICtrlCreateButton("Übernahme", 5, 160, 60, 20)
    $exit = GUICtrlCreateButton("Exit", 5, 195, 60, 20)

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

    ;Infotext
    GUICtrlCreateLabel("", 80, 160, 220, 60)

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

    GUISetState()

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

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select

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

    Case $msg = $uebergeben
    ; Keine Domain veröffentlichen in Forum
    $sReturn = _INetGetSource("https://www..........dk/?key=" & $key & "&tlnr=" & GUICtrlRead($tlnr) & "&kkv=" & GUICtrlRead($kkv) & "&ma=" & "ma:" & "DK" & GUICtrlRead($sstv) & "&net=" & $net)
    $sReturn = StringSplit($sReturn, ";")
    Switch $sReturn[1]
    Case "1"
    MsgBox(0, "", "KKV Fehler")
    Case "2"
    MsgBox(0, "", "MA durch ADMIN eintragen lassen, da MA ungleich LOGIN.")
    Case "3"
    MsgBox(0, "", "Netz nicht bereit. Bitte Teamleiterin Skandina anrufen.")

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

    EndSwitch

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

    Case $msg = $exit
    ExitLoop

    Case $msg = $bild2
    _Inetgetsource("http://www.autoit.de")
    EndSelect
    WEnd

    [/autoit]

    Ob Zeile 13 nötig ist weiß ich nicht !
    Ob Zeile 61 und 62 so okay weiß ich auch nicht, aber es funktioniert ja.

    !!! DANKE !!!

    LG, Crazy-A.

  • Einweghandynummer

    Habe eine Lsg. gefunden.

    Das Aktionshaus mit den vier Buchstaben? Handykarte für einen "Euronen" beziehen oder auch gleich zwei oder drei Karten.

    Aber die beste Lsg. ist die von O2, da gibt es zwei Karten gratis und ohne Versandkosten. Wenn man die unter Angaben der richtigen persönlichen Daten bezieht bekommt man die auch und nach dem Nutzungsvorhaben einfach in der Schublade "vergessen" oder bei dem Aktionshaus anbieten.

    Auf jeden Fall: Problem gelösssssst.

    Danke für die Hilfe und LG,

    Crazy-A.

  • Installationspacket

    franzp
    Die Farbe kann man später sicherlich selber verändern.

    Turbolocke
    Vorschläge für Programme:
    AutoIt aktuelle Version (erst downloaden dann installieren)
    AutoIt aktuelle Beta Version (erst downloaden dann installieren)
    SciTe aktuelle Version (erst downloaden dann installieren)

    Gruß, Crazy-A.

  • RunDll32

    Moin zusammen.

    Es gibt ja unter "http://www.dx21.com/SCRIPTING/RUNDLL32/REFGUIDE.ASP?P=A" die Refference zur RunDll32.

    Bei "Files: Open With" ist die Syntax: RunDll32.exe SHELL32.DLL,OpenAs_RunDLL FileName

    Okay, das soweit.

    Aber wie nutze ich jetzt diese Syntax-Information richtig in AutoIt?

    Beispiel ich habe eine Datei mit der Endung "a1b" und die soll mit dem Programm @Scriptdir/beispiel.exe ausgeführt werden.

    Die Dateiendung "a1b" gibt es nicht und ist somit auch nicht in der Registry zu finden.

    Mich würde die Umsetzung einfach interessieren m so evtl. auch aus der RunDLL32 mehr Nutzen zu ziehen.

    Gruß, Crazy-A.

  • Problem mit Fileinstall und Bildabrufen undter Vista....

    Hallo.

    Entschuldigen für einen Post dieser Form ist wahrlich nicht nötig.
    Ist doch fein wenn Du es selber geschafft hast.

    Nur 2 Sachen / Fragen:

    1.) Wo war das Problem? Man sucht ungerne lange.

    2.) Du hättest beide Post in eines schreiben können, was aber für die Zukunft sicherlich in Anwendung kommt ;)

    Aber schau mal meine Signatur. LOL ;)

    Gruß, Crazy-A.

  • _INetSmtpMail mit Passwort????

    Hallo micneu.

    Hier mal ein Beispiel. CC und BCC funktionieren hier noch nicht, aber wenn das notwenig ist, dieses als Problem ins Forum stellen und Du bekommst Hilfe.

    Aber viel SPASS damit !!!

    Spoiler anzeigen
    [autoit]


    #include <inet.au3>
    #Include <file.au3>

    ;##################################
    ; Variables !!! Hier anpassen !!!
    ;##################################
    $s_SmtpServer = "***********" ; smtp vom sendeserver
    $s_FromName = "***********" ; der anmeldename
    $s_FromAddress = "***********" ; die angemeldete emailadresse
    $s_ToAddress = "***********" ; emailadresse an wen es gehen soll
    $s_Subject = "***********" ; das betreff

    $file = @SystemDir & "\info.txt" ; Datei die mitgesendet werden soll steht hier im gleichen Ordner via Script
    $fh = FileOpen($file, 0)
    $as_Body = FileRead($fh) ; text im body <-------------------- Inhalt der 5 Zeiligen Datei
    FileClose($fh)

    $s_AttachFiles = @SystemDir & "\info.txt" ; anhang <-------------------- @SystemDir & "\info.txt"
    $s_CcAddress = "" ; adresse für cc ; geht nicht !!!
    $s_BccAddress = "" ; aadresse für bcc ; geht nicht !!!
    $s_Username = "***********" ; username von dem gesendet werden soll
    $s_Password = "***********" ; passwort von dem sendekonto gebe ich eigentlich an ;)

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

    ; ggf. aktivieren, so es nicht einwandfrei arbeitet
    ; $IPPort=25 ; port - 25 oder 465 ; PORT 25 ist default
    ; $ssl=0 ; enables/disables ssl sonst 0 oder 1 ; 0 ist default

    ;##################################
    ; Script
    ;##################################
    Global $oMyRet[2]
    Global $oMyError = ObjEvent("Error", "ErrFunc")

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

    $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password);, $IPPort, $ssl)
    If @error then
    msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
    EndIf
    #ce
    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", _
    $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.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])
    If FileExists($S_Files2Attach[$x]) Then
    $objEmail.AddAttachment ($S_Files2Attach[$x])
    Else
    $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
    SetError(1)
    return 0
    EndIf
    Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Sent the Message
    $objEmail.Send
    if @error then
    SetError(2)
    return $oMyRet[1]
    EndIf
    EndFunc ;==>_INetSmtpMailCom
    ; Com Error Handler
    Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    EndFunc ;==>MyErrFunc

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


    *) Erklärungen sind im Script

    Gruß, Crazy-A.

  • Einweghandynummer

    Moin zusammen.

    Gibt es irgendwie die Möglichkeit eine Einweghandynummer zu bekommen?
    Hintergedanken ist, das ich einen Aktivierungscode benötige, aber nicht meine Handynummer raus geben kann (Firmenhandy), da die so viel Werbung danach senden.

    Wäre super, wenn da eine Möglichkeit besteht.

    LG, Crazy-A.

  • Gehäuse

    @fabs

    Sorry. hatte jetzt falsch gedacht.

    Klar die HDD's kommen ja in den kleinen Schacht und davon brauche ich 5, da ich 2 HDD's incl. Kühler und dann das FDD Laufwerk einbauen möchte. In die großen kommen ja nur die beiden DVD-LW.

    Das ist jetzt echt peinlich, das ich das verwechselt habe. Nichts da "Gr. Platte, gr. LW" ;):rofl:

    Mange tak / Vielen Dank / Merci beaucoup / 非常感谢 / Puno ti hvala / Thank you very much.

    LG, Crazy-A.