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. msp-holzwurm

Beiträge von msp-holzwurm

  • Wie viel Zoll sind das?

    • msp-holzwurm
    • 4. Oktober 2007 um 21:55

    GERMAN
    ist mein im Geburtenbuch der Stadt Würzburg eingetragener Vornamen.

    außerhalb Frankens (Nördlich von Fulda und südlich von Ingolstadt, westlich von Aschaffenburg und östlich von Bayreuth) evtl. nicht so gebräuchlich --)))


    Grüße aus Main-Spessart

    German

  • Wie viel Zoll sind das?

    • msp-holzwurm
    • 4. Oktober 2007 um 21:37

    schonmal auf der CeBIT geholfen??
    Am letzten Tag vorm Messestart darf kein Auto mehr aufs Messegelände, die 4 21" Röhrenmonitore haben wir dann halt mal in Halle 21 getragen (ca. 800m vom Parkplatz aus) damit den guten Stücken nix passiert auch nicht auf sonem holprigen Vollgummitransportwagen.

    das waren halt noch Zeiten und abends beim Griechen sind die verbrauchten Kaloriechen wieder nachgeladen worden ....

    Grüsse

    German

  • Das Ergebnis eines Befehls aus UNIX-Tools an einen Variablen übergeben

    • msp-holzwurm
    • 4. Oktober 2007 um 21:00

    mach ja sehr viel in gnu-Tools, aber auf was willst Du raus:

    a, das war nur ein blödes Beispiel, Du brauchst was anderes als das Auslesen der Volume.txt Datei

    b, willst Du mit Autoit die lokalen Festplatten abarbeiten (um z.B. dadrauf ne Datei zu suchen)

    bei b ist es 10 mal einfacher gleich das in Autoit zu programmieren.
    (auslesen der lokalen Festplattennamen)
    ; ===lokale Festplatten??
    $LWS = DriveGetDrive( "fixed" )
    If NOT @error Then
    ; MsgBox(4096,"", "Found " & $var[0] & " drives")
    For $i = 1 to $LWS[0]
    _poutput($PSYSINFOINI,"LOCAL_DIR" & $i & "=" & $LWS[$i])
    Next
    EndIf


    Achtung _poutput ist eine weitere Funktion von mir!!

    Schreib mal genau, was Du machen willst.

    Grüße

    German

  • Wie viel Zoll sind das?

    • msp-holzwurm
    • 4. Oktober 2007 um 20:50

    Du hast noch keine Frau nach einem 8h Computerkurs mit mir als Referenten gesehen!!!!!
    (dagegen sieht die aus, wie eine Marathonläuferin wie 2:45h vor ihrem ersten Olympiasieg)!!!!

    würde sagen, daß sind 63" Mäuschenklicker vor nem anständigen Bildschirm!!!!

    (siehe diese verkrampfte Handhaltung!!)

    Den Monitor würde ich ja sofort nehmen, mein Arbeitstisch hier ist auch nicht von IKEA sondern SONDERANFERTIGUNG aus 40x30mm Stahlrohr und mein 21"er hier wiegt schätzungsweise genausoviel (nämlich rund 42kg!!!)

    Grüße

    German

  • tail und grafische Oberfläche

    • msp-holzwurm
    • 4. Oktober 2007 um 20:44

    Hallo All!

    weiß, es ist peinlich, mach echt viel mit Autoit, aber meine Programme laufen auf irgendeinem Server ohne Menü und Oberfläche und werden zu 99% von einem bestimmten Produkt aufgerufen (dessen Menüoberfläche ich dann benutzen muss).

    habe versucht ein tail Kommando zu schreiben (für alle Nicht-Unixler) der schaut in ne Datei uns spuckt mit der option -f normalerweise die letzten 20 Zeilen permanent aus (das ist sinnvoll wenn ich mir das Protokoll eines Jobs anschauen will, der stundenlang läuft ich ich mitschauen will, wo ist der gerade.
    Das wollte ich jetzt mit Autoit und Windows-Optik realisieren.

    Autoit-Code ist anbei (einer meiner ersten Versuche mit Oberfläche), das Protokoll unterstelle ich in c:\protokoll, nur heute ist mir das Teil auf einem Produktionsserver 2mal abgeschmiert, bzw. VNC hat nicht mehr gewollt und ich konnte nicht mehr weiterarbeiten.

    Kann da mal ein Experte draufschauen, hab ich da einen haarsträubenden Fehler drin???


    Wie bringt mann den Spoiler rein??

    Gartenzaun und Text Spoiler oder sowas??


    Spoiler anzeigen
    [autoit]

    ; WINTAIL.AU3
    #include <Date.au3>
    #include <string.au3>
    #include <file.au3>
    #include <array.au3>
    #include <GUIConstants.au3>
    $Version="1.00"

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

    $message = "Wähle eine Protokoll-Datei" & $VERSION
    $grepfile = FileOpenDialog($message, "C:\protokoll\", "LOGs (*.log;*.txt;*.prt;*.prot)| Alle Dateien (*.*)", 1 + 2 )

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

    If @error Then
    MsgBox(4096,"","Keine Datei ausgewählt")
    exit
    Else
    $tailfile = StringReplace($grepfile, "|", @CRLF)

    EndIf

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

    Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
    $mainwindow = GUICreate("Wintail " & $Version & " " & $tailfile, 600, 150)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    $line=_tail($tailfile)
    GUICtrlCreateEdit ($line, 5,5,590,140,$WS_HSCROLL)

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

    ;$okbutton = GUICtrlCreateButton("OK", 70, 50, 60)
    ; GUICtrlSetOnEvent($okbutton, "OKButton")
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(2500) ; Häng rum
    ;$Zeit=@HOUR & ":" & @MIN & ":" & @SEC
    $line=_tail($tailfile)

    GUICtrlCreateEdit ($line, 5,5,590,140,$WS_HSCROLL)
    WEnd

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

    Func CLOSEClicked()
    ;Beachte: an diesem Punkt wäre @GUI_CTRLID gleich $GUI_EVENT_CLOSE,
    ;und @GUI_WINHANDLE wäre gleich $mainwindow
    MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...",1)
    Exit
    EndFunc

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

    Func _tail($PROT)

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

    $gelzeilen=_filecountlines($PROT)
    ; msgbox(0,"gelesene Zeilen", $gelzeilen)

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

    $lesezeile=10
    $startzeile=$gelzeilen - $lesezeile

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

    ; einlesen in ein Array

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

    $tailtext=''
    Dim $aRecords

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

    $l=0

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

    If Not _FileReadToArray($PROT,$aRecords) Then
    ; MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf
    For $x = 1 to $aRecords[0]

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

    if $x >= $startzeile then
    $tailtext=$tailtext & @CRLF & $aRecords[$x]
    EndIf
    ; Msgbox(0,'Record:' & $x, $aRecords[$x],2)

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

    Next

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

    Return($tailtext)
    ; msgbox(0,"nachricht ist", $tailtext)

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

    EndFunc

    [/autoit]

    Edit GtaSpider: [04.10.2007 21:08]
    Spoiler und AutoIt Tags eingefügt
    Aufruf:

    Code
    [SPOILER][AUTOIT]
    AutoIt Code
    [/AUTOIT][/SPOILER]
  • Salve

    • msp-holzwurm
    • 3. Oktober 2007 um 20:42

    Hallo!

    auch als absoluter Nicht-Computer-Spieler (meine Kiste hier ist Soundkartenfreie-Zone)

    HERZLICH WILLKOMMEN

    arbeite jetzt ca. 1,5 Jahre mit Autoit (hab damit einiges aus der gnu-Shell Schiene abgelöst) und es macht jeden Tag mehr Spaß.


    msp-holzwurm
    msp=Main-Spessart

  • Umgebungsvariablen per AutoIT Skript

    • msp-holzwurm
    • 21. September 2007 um 16:14

    Klar kannst Du verschiedene Errorlevel abfragen, dann aber nur mit Spagetticode weiterarbeiten

    siehe unten Beispiel mit 99999 (das wären 100.000 Möglichkeiten)

    ==autoit programm test_41.au3====================
    test_41.au3
    #include <string.au3>
    #include <file.au3>
    #include <array.au3>
    #include <GUIConstants.au3>

    $grepstring = InputBox("test_41.au3", "Zahl eingeben." , "", "")
    if StringIsDigit($grepstring) then
    exit $grepstring
    EndIf

    ==================

    ============hier die Batch dazu=======

    test_41.au3

    goto test_41%ERRORLEVEL%

    test_41.au3

    goto test_41%ERRORLEVEL%

    :test_411
    echo eins
    goto ende
    :test_412
    echo zwo
    goto ende
    :test_4199999
    echo der spinnt hier
    :test_413
    echo keinen bock
    goto ende
    :ende
    echo schnauze voll

    =================================


    Scheunenbadscher:

    Scheune= Gebäude meist teilmassiv und Holzständerbauweise für landwirtschaftliche Zwecke errichtet (Lagerhalle, Maschinenhalle)

    Scheunenbadscher=selbsternannter Kfz-Innungsobermeister nach dessen Reparaturkünsten die Karre 5l Öl auf 100km braucht, die Bremsen nicht mehr gehen und die Beifahrertüre nur noch von innen zu öffnen ist und der Lack sieht nach Lackierkabine Modell SAHARA aus.
    (der kann natürlich auch Hubschrauber, U-Boote, Raketenwerfer und Flachbildschirme reparieren!!)


    PS: falls Haku hier Geburtstag hat (hab doch was gesehen):

    ALLES GUTE

  • Umgebungsvariablen per AutoIT Skript

    • msp-holzwurm
    • 19. September 2007 um 20:49

    Hallo!

    hier meine nix.bat

    Spoiler anzeigen
    Code
    ======================
    ts_test.exe
    if not errorlevel 1 goto nixts
    :ts
    echo Ich_bin_terminalserver
    :nixts
    echo ich_nix_terminalserver
    goto ende
    :ende
    echo schnauze_voll
    =======================
    Alles anzeigen

    und hier der Quellcode des ts_test.au3
    alles läuft in einer CMD-shell

    Spoiler anzeigen
    [autoit]

    ;=============================
    ; ts_test.au3
    ; füttert die Umgebungsvariable errorlevel mit
    ; 0 für kein Terminalserver
    ; 1 für Terminalserver

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

    #include <file.au3>

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

    $doit=_queryTermServ()

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

    if $doit=0 then
    exit 0
    Endif
    if $doit=1 then
    exit 1
    Endif

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

    Func _queryTermserv()

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

    ; Kommando query Termserver eigener Name
    ; Return 0 ist kein Termserver
    ; Return 1 ist ein Termserver
    $ts=0
    $myname=@computerName

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

    Dim $StrTempFiles = _TempFile() ; Name für Temp-Datei erzeugen

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

    RunWait(@ComSpec & " /c " & Chr(34) & "query termserver /continue" & Chr(34) & " > " & $StrTempFiles, "", @sw_hide)

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

    ; einlesen in ein Array

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

    Dim $aRecords

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

    If Not _FileReadToArray($StrTempFiles,$aRecords) Then
    ; MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf
    For $x = 1 to $aRecords[0]

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

    ; Msgbox(0,'Record:' & $x, $aRecords[$x],2)

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

    if StringInStr($aRecords[$x],$myname) > 0 then
    $ts=1
    exitloop
    EndIf

    Next

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

    Return $ts
    FileDelete($StrTempFiles)

    EndFunc
    ;===========================================

    [/autoit]

    Viel Spaß damit und ich fleh Dich an:
    mach gleich alles in AUTOIT!!!! das ist einfach Erste Bundesliga, Batch ist und bleibt was für SCHEUNENBADSCHER wie wir Fraggn sagen.

    Grüße

    German

    Edit BugFix: CodeTags

  • Datei in ZIP-Datei einpacken !!!

    • msp-holzwurm
    • 4. August 2007 um 18:30

    Hallo All!

    bin nach wie vor der Fan des zip.exe von info-zip, gibt aber Probleme, wenn der oracle-client in bestimmten Versionen auf dem Rechner ist, da die Herrschaften den auch benutzen (aber in einer älteren Version).
    Etliche schnucklige Sachen funktionieren nur mit zip ab Version 2.3

    Um zu prüfen, ob das Zip-Programm im Suchpfad liegt, hab ich 2 Funktionen gebaut.
    _pruefzip23()
    _pruefzip232()

    hab zwischenzeitlich auch ein Superteil an Hichtech-Archivierungs Version für Produktionsserver, die dynamisch die CPU-Last abfragt, damit die Kiste beim zippen nicht völlig in die Knie geht. (sowas gibts garantiert noch nicht von Winzip)

    Wenn ich im Winter mal wieder mehr Zeit habe, dann stell ich da mal einen ganzen Berg zusammen, denke, daß ist ein wirklich interessantes Thema und das sind die Tools, die es nicht zu kaufen gibt.

    Ist da jemand interessiert dran, das Teil läuft bei mir jeden früh um 4.00 auf dem Produktionsserver und sorgt dafür daß ich am Monatsende statt 50.000 Dateien nur jeweils 2 pro Tag habe.??????


    Gruß aus dem heißen Spessart

    German

    (war heute mit der Lagerung seiner Holzernte 2007 beschäftigt)

    Spoiler anzeigen

    ===========hier Beispiel aus einem Hauptprogramm==========

    [autoit]

    $checkzip=_pruefzip23()
    if $checkzip="2.3" then
    msgbox(0,"externes Programm","zip.exe Version 2.3 dedected",1)
    $zipfound=1
    EndIf

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


    if $zipfound=0 then
    $checkzip=_pruefzip232()
    if $checkzip="2.32" then
    msgbox(0,"externes Programm","zip.exe Version 2.32 dedected",1)
    $zipfound=1
    EndIf
    EndIf

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

    ======================================

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

    ; *************************
    Func _pruefzip23()

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

    $Pfad=EnvGet("Path")

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

    if $Pfad=" " then
    Return 0
    exit
    Endif

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

    $suche=StringSplit($Pfad,";")
    $s=$suche[0]

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

    $i=1
    while $i < $s
    $suchnach=$suche[$i]

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

    $suchzip=$suche[$i] & "\zip.exe"

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

    if FileExists($suchzip) then
    ; msgbox(0,"zip found at", $suchzip)

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

    Dim $StrTempFiles = _TempFile() ; Name für Temp-Datei erzeugen

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

    ; $Befehl=" /C" & $suchzip & Chr(34) & "-v"
    $Befehl=$suchzip & " -h "

    RunWait(@comspec & " /c" & $Befehl & " > " & $StrTempFiles, "", @SW_HIDE)

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

    if fileGetSize($suchzip) > 0 then

    $fhFiles = FileOpen($StrTempFiles,0)
    $line = FileReadLine($fhFiles,3)
    If @error = -1 Then ExitLoop
    $VersInfo=StringMid($line,5,3)

    FileClose($fhFiles)

    FileDelete($StrTempFiles)
    EndIf
    Return $VersInfo
    exitloop
    EndIf

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

    ; msgbox(0,"teil ist",$suche[$i],2)

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

    $i=$i+1

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

    WEnd
    Return 0

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

    EndFunc

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

    ; #############################################################################

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

    Func _pruefzip232()

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

    $Pfad=EnvGet("Path")

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

    if $Pfad=" " then
    Return 0
    exit
    Endif

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

    $suche=StringSplit($Pfad,";")
    $s=$suche[0]

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

    $i=1
    while $i < $s
    $suchnach=$suche[$i]

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

    $suchzip=$suche[$i] & "\zip.exe"

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

    if FileExists($suchzip) then
    ; msgbox(0,"zip found at", $suchzip)

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

    Dim $StrTempFiles = _TempFile() ; Name für Temp-Datei erzeugen

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

    ; $Befehl=" /C" & $suchzip & Chr(34) & "-v"
    $Befehl=$suchzip & " -h "

    RunWait(@comspec & " /c" & $Befehl & " > " & $StrTempFiles, "", @SW_HIDE)

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

    if fileGetSize($suchzip) > 0 then

    $fhFiles = FileOpen($StrTempFiles,0)
    $line = FileReadLine($fhFiles,2)
    If @error = -1 Then ExitLoop
    $VersInfo=StringMid($line,5,4)

    FileClose($fhFiles)

    FileDelete($StrTempFiles)
    EndIf
    Return $VersInfo
    exitloop
    EndIf

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

    ; msgbox(0,"teil ist",$suche[$i],2)

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

    $i=$i+1

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

    WEnd
    Return 0

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

    EndFunc

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

    ; #############################################################################

    [/autoit]

    bernd670: Tags gesetzt!

  • Etwas über mich...

    • msp-holzwurm
    • 26. Juni 2007 um 20:26

    ja, schätze Word hat dann statt 1000 unnötiger Funktionen für den Normalbediener mehrere Funktionsassistenten und mindestens 10 verschiedene Layoutsysteme, die Hotline arbeitet dann direkt für ihr Krankengeld vom Bett im Nervenkrankenhaus aus mit Online-Video-Streaming.

    und die Mausstrecke bis zum ersten Ausdruck ist mindestens 1km lang ---))))

    Gruss

    German

  • Etwas über mich...

    • msp-holzwurm
    • 25. Juni 2007 um 21:29

    als Stift hatten wir ein System mit 2x 8-Zoll Floppy (da müßte ich sogar noch eine besitzen) und dieses Wahnsinnsteil mit Wechselplatte.

    Größe einer Tortenhaube und mit der Haube hat man die 5 Platten die zentrisch auf einem 16,6cm dicken Zylinder befestigt waren in die "Futterschneidmaschine" (Spitzname wegen des Lämrpegels) als Topladermäßig eingeführt.
    (wäre heute verboten, das Startgeräusch liegt ca. beim Lärmpegel einer 727-Turbine)

    Zur Weihnachtszeit kam dann immer einer aus dem Schwabeländle (war ja schließlich ein Kienzle-System) und hat die Futtschneidmaschine (da ja kein geschlossenens System) mit Alkohol und OP-Stäbchen gereinigt.


    Die Drucker waren einfach Made-in-Germany Qualität (Kienzle 256er sag ich nur), wenn das Papier aus war, konnte man auf der Fronthaube eines Autos weiterdrucken.

    Als ich dann Fulltime in der EDV angefangen hatte und bei nem Kunden ein Fredmprodukt uminstallieren mußte bekam ich von der Hotline die Nummer eines Seniorenstiftes!!!!! (der Programmierer war zwar schon in Rente, aber es war natürlich eine Frage der Ehre, seinen letzten 5 Kunden beim Problemen zu helfen!!!)

    ein 2MB RAM-System beim Kunden hatte ca. 42 Terminals und 5 Drucker angeschlossen!!!!!! und die Edelkunden hatten ein Mehrprozessorsystem mit Geräten am gemeinsamen SCSI-II Bus!!!!!!!
    (z.B. 60 MB Streamer)

    (daß sowas geht, wird heute wahrscheinlich nicht mal in einem Hardwarefachbuch mehr erwähnt werden!!)

    ja, so waren sie die guten Alten Zeiten

    Grüßle

    German

  • Etwas über mich...

    • msp-holzwurm
    • 24. Juni 2007 um 17:20

    Hallo Oscar!

    Du hast das nur falsch formuliert:

    wir um die vierzig:

    - können nen Computer noch ohne Maus bedienen.
    - haben Windows 2.3 mit AdobePageMaker installiert (auf DOS ist das Teil gar nicht gelaufen)
    - können einen Computer noch aufschrauben und die Teile dadrin benennen
    - haben auf Wechselplatten mit 5MB gearbeitet
    - brauchen keine 80 stelligen Dateinamen, sondern haben ne Struktur auf unserer HD

    langen einen Lötkolben auf der richtigen Seite an und können ein serielles Kabel selbst zusammenbauen

    lt. Statistik haben wir also 2x20 Jahr ERFAHRUNG

    Viel Spaß hier

    German

  • Terminalserver erkennen

    • msp-holzwurm
    • 11. Juni 2007 um 21:02

    Hallo All!

    hab mir unten eine Funktion gebaut, die mein Analysetool nutzt, um festzustellen, ob ich auf einem Terminalserver bin oder nicht.
    Mangels Testmöglichkeiten und/oder Erfahrungen auf solchen Systemen wäre es schön, wenn mal ein Profi einen Blick drauf werfen könnte. lt. Kollegen würden bei dem

    query termserver

    Kommando auch Server angezeigt werden, die keine Terminalserver sind.

    Was besseres (Abfrage Registry??) hab ich aber nicht gefunden.

    Es Dankt Euch

    German

    Spoiler anzeigen
    [autoit]

    Func _queryTermserver()

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

    ; Kommando query Termserver eigener Name
    ; Return 0 ist kein Termserver
    ; Return 1 ist ein Termserver
    $ts=0
    $myname=@computerName

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

    Dim $StrTempFiles = _TempFile() ; Name für Temp-Datei erzeugen

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

    RunWait(@ComSpec & " /c " & Chr(34) & "query termserver /continue" & Chr(34) & " > " & $StrTempFiles, "", @sw_hide)

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

    ; einlesen in ein Array

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

    Dim $aRecords

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

    If Not _FileReadToArray($StrTempFiles,$aRecords) Then
    ; MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf
    For $x = 1 to $aRecords[0]

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

    ; Msgbox(0,'Record:' & $x, $aRecords[$x],2)

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

    if StringInStr($aRecords[$x],$myname) > 0 then
    $ts=1
    exitloop
    EndIf

    Next

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

    Return $ts
    FileDelete($StrTempFiles)

    EndFunc

    [/autoit]

    Edit BugFix: Tags eingefügt

  • Variablengroesse (z.B. FileRead)

    • msp-holzwurm
    • 8. März 2007 um 19:46

    Hallo!

    Stringsuche in solchen "Dampfhämmern" geht ziemlich langsam:


    Hier mal ein Stück aus Testcode von mir, hab das Teil jetzt auf C umgestellt, da das doch etwas schneller geht (hat mich zwar ne Pizza und nen Kaffee gekostet, da ich Nachhilfe gebraucht habe, aber es war bei 200MB mit autoit einfach zu langsam)

    Stell die Blocksize auf 4096, das war bei meinen Performancetests am schnellsten. (am Beispiel unten sind 2048)


    $hfile= FileOpen($hexfile, 0)
    if $hfile = -1 then
    Return 1
    Exit
    EndIf

    ; Read in 1 character at a time until the EOF is reached
    While 1
    $read=0
    ; $aryChar = FileRead($hfile,1)
    $block = FileRead($hfile,2048)

    If @error = -1 Then ExitLoop

    $aryChar = StringSplit($block, "")
    ; jetzt hab ich das Teil im array

    For $i = 1 To $aryChar[0]
    ; nur Ausgabe wenn Integer Wert
    $asciiwert=asc($arychar[$i])
    if $asciiwert=0 then
    $arychar[$i]=" "
    Endif
    $convstring = $convstring & $arychar[$i]
    Next

    FileWrite($afile, $convstring)
    $convstring=""


    Wend


    ================================

    Gruss

    German
    genannt der INTEGRATOR

  • Hallo!

    • msp-holzwurm
    • 7. März 2007 um 21:27

    Hallo Knuspertux!

    hört sich ja mal richtig vernünftig an.
    Die Spezies: DMK (degeneriertes Mäuschen Klickerchen) ist leider stark auf dem Vormarsch.

    Soll ja noch einzelne Lebewesen geben, die den vi bedienen können.

    Also viiiieeeellll Spaß hier

    Gruss

    German
    PS: als richtiger Holzwurm hab ich natürlich auch ne Stichaxt im Einsatz, sowas funktioniert sogar ohne Strom

  • Systemumgebung, VMWARE

    • msp-holzwurm
    • 7. März 2007 um 21:14

    Hallo All!

    habe ein sehr komplexes Analysetool mit Autoit gebaut wäre echt Klasse, wenn ich jetzt noch irgendwie feststellen könnte, ob mein Win2000 oder Win2003 unter ner VMWARE läuft.

    Mein Tool funktioniert erste Sahne, aber eines unserer Programme eben nicht und die "lieben Kunden" stellen einfach um, ohne vorher zu fragen und jammern dann nach Wochen daß sie Probleme haben.

    Gibts irgendeine Möglichkeit, außer in HKLM\software nach den vmware-tools zu suchen????

    1000 Danke & gruss aus dem Spessart

    German

  • Zahlwert aus String auslesen

    • msp-holzwurm
    • 22. Februar 2007 um 21:31

    Hallo!

    hier ist meine Lösung, sicher nicht so brilliant, aber auch immer ne Frage, wie oft und wieviele Daten werden da "konvertiert".

    Hier ne einfache und ausbaufähige Anfängerlösung, die bei mir im Kundeneinsatz ist und Buchungsstellen säubern muß (falls da wieder so ein Äggsberde Text drin erfasst hat, war bei meiner Integration aber nicht kommen darf).

    ; test_31.au3
    ; Beispiel fuer Usergroup

    $Variable = "Sie haben $0,37 gewonnen"

    $cleanit=StringToNum($Variable)
    msgbox(0,"Sauber sieht dess so aus",$cleanit)


    Func StringToNum($stringtoconv)

    Local $Hilf, $i, $convString
    $aryChar = StringSplit($stringtoconv, "")
    ; jetzt hab ich das Teil im array

    For $i = 1 To $aryChar[0]
    ; nur Ausgabe wenn Integer Wert
    $checkstring=StringIsInt($aryChar[$i])
    if $checkstring=1 then
    $convString = $convString & $aryChar[$i]
    EndIf
    if $aryChar[$i]='.' then
    ;msgbox(0,"Punkt gefunden","HUHU")
    $convString = $convString & $aryChar[$i]
    EndIf
    if $aryChar[$i]=',' then
    ;msgbox(0,"Komma gefunden","HUHU")
    $convString = $convString & $aryChar[$i]
    EndIf


    Next

    Return $convString

    EndFunc

    ===========================================

    es grüßt Euch

    German

  • trallala

    • msp-holzwurm
    • 6. Februar 2007 um 22:08

    Dein Profil tut echt gut, mal wieder einer, der schonmal was anders als Windoof gesehen hat und noch XTREE und NC bedienen kann.

    Dos 2.3 auf OLYPMPIA 386-10er beim Computerschein A in der Handwerkskammer das waren halt noch Zeiten.

    UIH hab ich übrigens nach wie vor im Einsatz (TP-Programmierung läst grüßen)
    (Druckvorschau im DOS Modus!!!)


    Viel Spass hier

    Grüsse aus dem Spessart

    German

  • _GetFileList um Ausgabe von Datum und grösse erweitern ??

    • msp-holzwurm
    • 6. Februar 2007 um 21:51

    Hallo!

    hier mal ein kleiner Versuch von mir, Akku ist aber schon ziemlich leeer heute.

    wie gefällt dir das???
    =========================================


    $N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
    ; if Directory than add to the list of directories to be processed
    ; Datum und Größe rausholen
    If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
    $T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
    $T_FILECOUNT = $T_FILECOUNT + 1
    $T_FILESIZE=FileGetSize($N_TFILE)
    if $T_FILESIZE > 1048576 then
    $HILF_FILESIZE = $T_FILESIZE / 1024 /1024
    $HILF1_FILESIZE = StringFormat("%.2f",$HILF_FILESIZE)
    $FORMAT_FS=@TAB & $HILF1_FILESIZE & " " & " MB"
    Else
    $HILF_FILESIZE = $T_FILESIZE / 1024
    $HILF1_FILESIZE = StringFormat("%.2f",$HILF_FILESIZE)
    $FORMAT_FS=@TAB & $HILF1_FILESIZE & " " & " KB"
    EndIf
    $t = FileGetTime( $N_TFILE, 1)

    If Not @error Then
    ; $yyyymd = $t[0] & "/" & $t[1] & "/" & $t[2]
    $Format_Datum= @TAB & $t[2] & "." & $t[1] & "." & $t[0]
    EndIf
    ; Datum Ende


    MsgBox(0,'filecount xx' & $T_FILECOUNT ,$N_TFILE & $FORMAT_FS & $FORMAT_Datum)
    EndIf

    ============================================


    Gruss


    German
    genannt: DER INTEGRATOR

    PS: Deinen Code hab ich jetzt aber auch gemopst, gefällt mir gut.

  • Ende Liste erkennen

    • msp-holzwurm
    • 26. Januar 2007 um 19:52

    Hallo!

    helf hier auch gerne, hab aber keine VISO Datei, ist das Textformat wie DXF oder wie sehen die Dateien aus.
    Binärzeichen drin???

    Mach halt mal ein Muster oder stelle mal eine Textstelle hier rein und sag was von ALT-->NEU getauscht werden soll.

    Gruss aus dem Spessart

    German

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™