Beiträge von autoBert

  • Suche Mitarbeiter Für autoit-scripts.npage..de

    Hallo darksider3,

    Zitat von darksider3

    keine posts mehr ?


    doch, zum Theam Rechtschreibung:

    Zitat von darksider3

    mittlerweile sollten da nur noch ganz wenige sein habe fast alle texte geprüft ;9

    Zitat

    MyOnlineTelevision ist ein Programm womit man einzelne online Fernseh Streams annkucken kann.Das hatt den Vorteil das man wenn man grad am pc sitzt nicht umbedingt an den fehrnseher muss.


    zum Thema rechtliche Vorgaben: das Impressum fehlt immer noch oder ist imer noch falsch verlinkt, siehe Post #33,

    mfg (Auto)Bert

  • Hochzählen

    Hallo Ditb,

    Lösungsmöglichkeiten hast du zwar schon, aber der Fehler scheint ja wo anders zu liegen. Poste doch einfach einmal dein komplettes Skript,

    mfg (Auto)Bert

  • Diverse Fragen (Filebrowser, Formdesigner, Vorschau, Speichern)

    Hall lukiono,

    • zu 1.) lässt sich Koda über die normale Menüleiste Aufrufen (ALT-Tools|Koda)
    • zu 2 + 3.)ja siehe Skript.
    • zu 4.)mit den GDI+ Funktionen sollte dies möglich sein
    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #Include <GuiListView.au3>
    #include <File.au3>
    #include <array.au3>

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

    Opt('MustDeclareVars', 1)

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

    Global $msg, $message, $var, $aFiles, $idfrmMain, $sSourcePath, $aItem
    Global $szDrive, $szDir, $szFName, $szExt

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

    $idfrmMain = GUICreate("JPG-Viewer", 266, 450)
    Local $idfilemenu = GUICtrlCreateMenu("&Datei")
    Local $idfileitem = GUICtrlCreateMenuItem("Öffnen", $idfilemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    Local $idexititem = GUICtrlCreateMenuItem("Beenden", $idfilemenu)
    Local $idLV_Files = GUICtrlCreateListView("Name: |Pfad",5,5,256,140)
    Local $idbtnShow = GUICtrlCreateButton("&Zeige Bild",5,150,150,25)
    Local $idPic = GUICtrlCreatePic("",5,180,256,256)
    ;_GUICtrlListView_SetColumnWidth($idLV_Files,1,0) ;zweite Spalte versteckt
    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $idfileitem

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

    $message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."

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

    $var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $aFiles = StringSplit($var,"|")
    ;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
    ;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
    if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
    ;$aFiles[0] enthält Anzahl der Strings
    ;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
    ;$aFiles[2] enthält 1. Bild
    ;$aFiles[n+1] enthält n. Bild

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

    For $i = 2 to $aFiles[0]
    GUICtrlCreateListViewItem($aFiles[$i]&"|" & $aFiles[1],$idLV_Files)
    Next
    Else ;nur 1 Bild ausgewählt
    ;$aFiles[0] enthält Anzahl der Strings also 1
    ;$aFiles[1] enthält Bild inkl kompletten Pfad
    ConsoleWrite($aFiles[1] & @crlf) ;nur zu Verständnisuwecken evtl. deaktivieren
    _PathSplit($aFiles[1], $szDrive, $szDir, $szFName, $szExt)
    GUICtrlCreateListViewItem($szFName & $szExt & "|" & $szDrive & $szDir,$idLV_Files)
    EndIf
    _GUICtrlListView_SetColumnWidth($idLV_Files,0,$LVSCW_AUTOSIZE)
    ;setzt die 1 Spalte auf die benötigte Breite des längsten Eintrags
    EndIf
    Case $idbtnShow
    $aItem = _GUICtrlListView_GetItemTextArray($idLV_Files)
    ;$aItem[0] enthält Anzahl der Spalten [$aIem[1] die 1. Spalte usw.
    ;_ArrayDisplay($aItem) nur zu Verständnisuwecken evtl. aktivieren
    ConsoleWrite("Pfad zur Datei:" & $aItem[2] & "\" & $aItem[1] & @CRLF) ;nur zu Verständnisuwecken evtl. deaktivieren
    If $idPic = 0 then
    $idPic = GUICtrlCreatePic($aItem[2]&"\"&$aItem[1],5,180,256,256)
    ;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
    ;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
    Else
    GUICtrlSetImage($idPic,$aItem[2]&"\"&$aItem[1])
    ;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
    EndIf
    Case $GUI_EVENT_CLOSE, $idexititem
    Exit
    EndSwitch
    WEnd

    [/autoit]

    Viel Spass damit

    mfg (Auto)Bert

  • Word-Dok. ergänzen

    Hallo m-obi,

    ich habe zwar auf meinem NetBook kein Word installert, aber poste trotzdem bitte ein Doc-File, vielleicht kann ih es ja mit OpenOffice analysieren und dir den richtigen Ansatz geben,

    mfg (Auto)Bert

  • Suche Mitarbeiter Für autoit-scripts.npage..de

    Hallo

    Zitat

    Dies ist das erste programm das zum downlaod bereitggestellt wurde!!
    DEL ATTACKE!
    Beachreibung

    Ihr dürft dieses Programm nicht starten sonst werden alle programm die ihr offen habt alle 10sekuden wieder zu gemacht.Falls ihr es doch offen habt müsst ihr F10 drücken um es zu beenden . es ist perfekt um seine feinde zu entnerven
    DAS IST DER DOWNLOAD LINK HIER KLICKEN

    © by autoit-scripts

    na ja, das sagt schon alles über die Seriosität der Site. Das du auch noch unter allen Download's der dir zur Verfügung gestellten Skripte dein (c) setzt passt dann auch noch dazu.
    Bevor du Ärger bekommst solltest du auch unbedingt (ist in Deutschland Pflicht) die Seite Impressum korrekt verlinken und darin die Angaben zum Verantwortlichen machen

    mfg (Auto)Bert

  • Zeichen zählen

    Hallo qixx,

    @extended ist eine Erweiterung des Rückgabewertes einer Funktion, im Falle v on StringReplace enthält dieses Makro die Anzahl der Ersetzungen. Das Makro enthält nur direkt nach dem Aufruf den Wert, zur weiteren Verarbeitung (nach anderen Funktionsaufrufen) musst du es zwischenspeichern,

    mfg (Auto)Bert

  • Zeichen zählen

    Hallo Dankeschön,

    du kannst dafür @extended von StringReplace auswerte. Originalbeispiel dt. Hilfe:

    [autoit]

    $text = StringReplace("Dies ist eine Zeile mit Text", " ", "-")
    $numreplacements = @extended
    MsgBox(0, "Der neue String", $text)
    MsgBox(0, "Anzahl an Ersetzungen", $numreplacements)

    [/autoit]

    mfg (Auto)Bert

  • MAC-Adresse der LAN-Verbindung auslesen?

    Hallo Dino,

    Zitat

    gibt es die Möglichkeit nur die MAC-Adresse der LAN-Verbindung auszulesen?


    Welche :?:

    Zitat

    MAC-Adresse >>aus Wikipedia, der freien Enzyklopädie<<

    Die MAC-Adresse (Media-Access-Control-Adresse, auch Ethernet-ID oder Airport-ID bei Apple oder Physikalische Adresse bei Microsoft genannt) ist die Hardware-Adresse jedes einzelnen Netzwerkadapters, die zur eindeutigen Identifizierung des Geräts in einem Rechnernetz dient.

    Die deiner Netzwerkkarte, die des (über LAN) verbundenen Rechners, oder gar die der beteiligten Router, Switches

    mfg (Auto)Bert