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

Beiträge von Schnitzel

  • Ordner mit WinRar archivieren und verschlüsseln - AuoIt Script Hilfe

    • Schnitzel
    • 26. Oktober 2009 um 15:42

    Herzlich willkommen im forum

    natürlich ist es mit autoit möglich ;)
    AutoIt = Automatisierung ;-);-)


    du brauchst eigentlich blos ein paar sachen

    Den Pfad.
    den befehl Run
    und die richtigen parameter, welche du in der Hilfe-Datei von Winrar findest.
    (standart-pfad: C:\Programme\WinRAR\WinRAR.chm)

    in der hilfe musste dir halt die richtigen "befehle" und "schalter" (unter Befehlszeilenmodus) suchen. weiß die für ein passwort leider nicht auswendig aber ich vermute es gibts welche dafür

    vllt is dir auch dieses beispiel recht:

    [autoit]

    $pfad = FileSelectFolder("Wähle ein Verzeichnis.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
    Run (@ProgramFilesDir & '\WinRAR\WinRAR.exe a -r -hp c:\Testpacker.rar ' & $pfad)

    [/autoit]

    damit wählst du einfach den ordner aus, gibtst das passwort ein und schon wird archiviert.

  • Warum funktioniert mein Script nur manchmal?

    • Schnitzel
    • 26. Oktober 2009 um 15:09
    Zitat von ePole

    Deswegen versuch ich ja auch so viel im Forum zu helfen

    ich denke mal er machts genauso wie ich.
    versuchen bei allen hilfethreads zu helfen um möglichst viel umfang zu bekommen

  • Warum funktioniert mein Script nur manchmal?

    • Schnitzel
    • 26. Oktober 2009 um 12:20
    Zitat von ePole

    irgendwie verstehe ich nicht warum es bei mir nur manchmal passiert

    das wird dir keiner beantworten können, weil dein script ja funktioniert.

    Zitat von ePole

    irgendwie habe ich das gefühl das der player aus dem die exe gestartet wird gelegentlich dazwischenhackt.

    wow, dazwischenhackt.
    geniale beschreibung...
    welcher player?
    wie dazwischenhackt?
    warum script über den player starten?
    sinn und zweck des scripts?

    Zitat von ePole

    Kann man da was machen?

    1. Andere Problemlösung suchen
    2. problem genauer beschreiben.
    3. Fehler selbst suchen

    suchs dir aus...

  • Warum funktioniert mein Script nur manchmal?

    • Schnitzel
    • 26. Oktober 2009 um 11:54

    Bei mir funktioniert dein scipt. wenn man die zeile
    _IENavigate($eIE,IniRead(@ScriptDir & "http://www.google.de" ))
    umändert in
    _IENavigate($eIE, "http://www.google.de" )

    weil die iniread bissl falsch is...
    kannst dir ja nochmal in der hilfe ansehn ;)

    Zitat von ePole

    Kann man den nicht irgendwie der Maus nach Start des Browser eine kleine kaum sichtbare Mausbewegung initialisieren?

    [autoit]

    $mauspos = MouseGetPos()
    MouseMove($mauspos[0] + 1 , $mauspos[1], 0)

    [/autoit]

    verschiebt die maus um 1 pixel nach rechts

  • Monitor zu bestimmten Zeiten ein- und ausschalten

    • Schnitzel
    • 23. Oktober 2009 um 16:01

    hab das skript gerade etwas erweitert.

    siehe: https://autoit.de/index.php?page…8198#post118198

    hoffe ich hab deine erlaubnis funkey

  • Windows - automatische Computer Sperre aufheben

    • Schnitzel
    • 23. Oktober 2009 um 15:54

    ok hier das veränderte script von funkey
    original thread: https://autoit.de/index.php?page=Thread&threadID=14461

    Veränderungen am Skript:
    mit Strg + Alt + F11 kann man nun den Zeitmodus an-/abschalten
    mit Strg + Alt + F12 kann man den monitor an-/abschalten

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Author: funkey
    Edited by: Schnitzel
    Official Thread: https://autoit.de/index.php?page=Thread&threadID=14461

    Script Function:
    En-/Disabling Monitor

    #ce ----------------------------------------------------------------------------

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

    #AutoIt3Wrapper_Res_LegalCopyright = ©funkey
    #AutoIt3Wrapper_Res_Fileversion = 2.0
    #AutoIt3Wrapper_Res_Description = Monitor-AutoStandby

    HotKeySet("^!{F11}", "_EnDisableCheck")
    HotKeySet("^!{F12}", "_EnDisableMonitor")

    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)
    Opt('GUIOnEventMode', 1)

    Global Const $lciWM_SYSCommand = 274
    Global Const $lciSC_MonitorPower = 61808
    Global Const $lciPower_Off = 2
    Global Const $lciPower_On = -1

    Global $title= "Monitor-AutoStandby"
    Global $IniFile = @ScriptDir & '\Monitor-AutoStandby.ini'
    Global $aTime[14]

    Global $MonitorIsOff = False
    Global $EnableCheck = True

    GUICreate($title, 230, 280)
    GUISetOnEvent(-3, '_Exit')
    GUIRegisterMsg(0x004E, '_SaveTimes')

    GUICtrlCreateLabel('Monitor ein', 80, 10, 60, 20, 0x201)
    GUICtrlCreateLabel('Monitor aus', 150, 10, 60, 20, 0x201)

    GUICtrlCreateButton('Start', 70, 242, 90, 30)
    GUICtrlSetFont(-1, 16, 1000)
    GUICtrlSetOnEvent(-1, '_Start')

    For $i = 0 To 6
    GUICtrlCreateLabel(_Wochentag($i+1), 15, 30+30*$i, 60, 20, 0x200)
    $aTime[$i] = GUICtrlCreateDate(IniRead($IniFile, 'Ein', _Wochentag($i+1), "04:00"), 80, 30+30*$i, 60, 20, 0x09)
    GUICtrlSendMsg(-1, 0x1032, 0, "HH:mm")
    $aTime[$i+7] = GUICtrlCreateDate(IniRead($IniFile, 'Aus', _Wochentag($i+1), "20:00"), 150, 30+30*$i, 60, 20, 0x09)
    GUICtrlSendMsg(-1, 0x1032, 0, "HH:mm")
    Next

    TrayCreateItem('Einstellungen')
    TrayItemSetOnEvent(-1, '_Show')
    TrayCreateItem('')
    TrayCreateItem('Beenden')
    TrayItemSetOnEvent(-1, '_Exit')

    GUISetState()

    While 1
    Sleep(20000)
    WEnd

    Func _SaveTimes($hWnd, $Msg, $wParam, $lParam)
    $nNotifyCode = BitShift($wParam, 16)
    $nID = BitAND($wParam, 0x0000FFFF)
    $hCtrl = $lParam
    For $i = 0 To 6
    If $nID = $aTime[$i] Then
    IniWrite($IniFile, 'Ein', _Wochentag($i+1), GUICtrlRead($aTime[$i]))
    Return
    EndIf
    Next
    For $i = 7 To 13
    If $nID = $aTime[$i] Then
    IniWrite($IniFile, 'Aus', _Wochentag($i-6), GUICtrlRead($aTime[$i]))
    Return
    EndIf
    Next
    EndFunc

    Func _Start()
    GUISetState(@SW_HIDE)
    AdlibEnable('_Check', 500)
    EndFunc

    Func _Show()
    AdlibDisable()
    GUISetState(@SW_SHOW)
    EndFunc

    Func _Check()
    If $EnableCheck = True Then
    Local $Ein = IniRead($IniFile, 'Ein', _Wochentag(@WDAY), "04:00")
    Local $Hour_Ein = StringLeft($Ein, 2), $Min_Ein = StringRight($Ein, 2)
    Local $Aus = IniRead($IniFile, 'Aus', _Wochentag(@WDAY), "20:00")
    Local $Hour_Aus = StringLeft($Aus, 2), $Min_Aus = StringRight($Aus, 2)
    If $Ein = $Aus Then Return
    If @HOUR >= $Hour_Aus And @MIN >= $Min_Aus And $MonitorIsOff = False Then
    AdlibDisable()
    _Monitor_OFF()
    EndIf
    EndIf
    EndFunc

    Func _Wochentag($WDAY)
    Local $aWoTa[7] = ['Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag']
    Return $aWoTa[$WDAY -1]
    EndFunc

    Func _Monitor_ON()
    $MonitorIsOff = False
    Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')

    DllCall('user32.dll', 'int', 'SendMessage', _
    'hwnd', $Progman_hwnd, _
    'int', $lciWM_SYSCommand, _
    'int', $lciSC_MonitorPower, _
    'int', $lciPower_On)
    If $EnableCheck = True Then AdlibEnable('_Check', 500)
    EndFunc

    Func _Monitor_OFF()
    $MonitorIsOff = True
    Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')

    While $MonitorIsOff = True
    DllCall('user32.dll', 'int', 'SendMessage', _
    'hwnd', $Progman_hwnd, _
    'int', $lciWM_SYSCommand, _
    'int', $lciSC_MonitorPower, _
    'int', $lciPower_Off)
    _IdleWaitCommit(0)
    Sleep(20)
    WEnd
    EndFunc

    Func _IdleWaitCommit($idlesec)
    Local $iSave, $LastInputInfo = DllStructCreate ("uint;dword")
    DllStructSetData ($LastInputInfo, 1, DllStructGetSize ($LastInputInfo))
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
    Do
    $iSave = DllStructGetData ($LastInputInfo, 2)
    Sleep(60)
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))

    Local $Ein = IniRead($IniFile, 'Ein', _Wochentag(@WDAY), "04:00")
    Local $Hour_Ein = StringLeft($Ein, 2), $Min_Ein = StringRight($Ein, 2)
    If @HOUR = $Hour_Ein And @MIN = $Min_Ein Then
    _Monitor_ON()
    EndIf

    Until (DllStructGetData ($LastInputInfo, 2)-$iSave) > $idlesec; Or $MonitorIsOff = False
    Return DllStructGetData ($LastInputInfo, 2)-$iSave
    EndFunc

    Func _Exit()
    _Monitor_ON()
    Exit
    EndFunc

    Func _EnDisableCheck()
    $EnableCheck = Not $EnableCheck
    MsgBox(0, "", "Zeitmodus: " & $EnableCheck)
    _Monitor_ON()
    EndFunc

    Func _EnDisableMonitor()
    $EnableCheck = False
    If $MonitorIsOff = True Then
    _Monitor_ON()
    Else
    _Monitor_OFF()
    EndIf
    EndFunc

    [/autoit]
  • GDI+: Rotating Letters

    • Schnitzel
    • 23. Oktober 2009 um 14:42

    Dickes lob sieht fantastisch aus

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 14:22

    meins?
    mit sicherheit :rofl:

    hätte allerdings nicht gedacht dass meine funktion auch nur annähernd so schnell ist wie mit StringRegEx

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 13:11
    Zitat

    Habs gerade für Dich getestet, leifert die gleichen Ergebnisse *schulterklopf*

    jippie dankeschön :)

  • CCleaner Setup 2.24

    • Schnitzel
    • 23. Oktober 2009 um 13:11

    Erstmal willkommen hier im forum

    Das nächste mal bitte unter Hilfe und Unterstützung posten

    probier das mal:
    falls du irgendwelche fragen hast kannst gerne nochmal schreiben ;)

    Spoiler anzeigen
    [autoit]

    run ("ccsetup224")
    ; mit run kommt die Sicherheitswarnung normalerweise nicht
    WinWait("Installer Language","Please select a language.")
    controlclick("Installer Language", "", "Button1")
    WinWait("CCleaner v2.24 Installation", "Willkommen beim Installations")
    controlclick("CCleaner v2.24 Installation", "", "Button2")
    WinWait("CCleaner v2.24 Installation", "Lizenzabkommen")
    controlclick("CCleaner v2.24 Installation", "", "Button2")
    WinWait("CCleaner v2.24 Installation", "Zielverzeichnis auswählen")
    controlclick("CCleaner v2.24 Installation", "", "Button2")
    WinWait("CCleaner v2.24 Installation", "Installations-Einstellungen")
    controlclick("CCleaner v2.24 Installation", "", "Button2")
    WinWait("CCleaner v2.24 Installation", "Die Installation von CCleaner v2.24 wird abgeschlossen")
    controlclick("CCleaner v2.24 Installation", "", "Button2")

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 12:47

    auch wenn ichs hier mit den profis zu tun hab würd ich gerne nochmal meine version posten. vllt gefällt sie dir ja

    Spoiler anzeigen
    [autoit]

    #Include <GUIConstantsEx.au3>
    #Include <Array.au3>
    #Include <File.au3>
    #include <String.au3>
    #NoTrayIcon
    Opt("GUIOnEventMode", 1)
    $main=GUICreate("Werkzeugliste erstellen", 350, 85)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
    $edit=GUICtrlCreateInput("", 5, 5, 340)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $search=GUICtrlCreateButton("NC Programm suchen (.txt) ...", 5, 30, 340, 25)
    GUICtrlSetOnEvent(-1, "_fileOpen")
    $go=GUICtrlCreateButton("Werkzeugliste aus NC Programm erstellen ...", 5, 55, 340, 25)
    GUICtrlSetOnEvent(-1, "_go")
    GUISetState(@SW_SHOW, $main)
    While True
    Sleep(100)
    WEnd
    Func _fileOpen()
    $filepath=FileOpenDialog("NC Programm auswählen", @DesktopDir & "\", "Text files (*.txt)", 1 + 2)
    GUICtrlSetData($edit, $filepath)
    EndFunc
    Func _go()
    Dim $lines
    Dim $matchLines
    Dim $txtfile
    Dim $ergebnis[1]
    $data=GUICtrlRead($edit)
    If $data="" Then
    MsgBox(0, "Fehler", "Bitte zuerst Datei einlesen")
    Else
    If Not _FileReadToArray($data, $txtfile) Then
    Msgbox(0,'Fehler', 'Fehler beim Einlesen der Datei')
    Else
    For $i = 1 To $txtfile[0]
    $between = _StringBetween($txtfile[$i], ' (', ')')
    if not @error Then
    $txtfile[$i] = StringTrimRight($txtfile[$i], StringLen($between[0]))
    $anweisungen = StringSplit( $txtfile[$i], ' ')
    for $h = 1 To $anweisungen[0]
    If StringLeft($anweisungen[$h], 1) = 'T' Then
    $zahl = StringRight($anweisungen[$h], StringLen($anweisungen[$h]) - 1)
    _ArrayAdd($ergebnis, $anweisungen[$h] & ' (' & $between[0] & ' )')
    $ergebnis[0] = UBound($ergebnis) - 1
    EndIf
    Next
    EndIf
    Next
    _ArrayDisplay($ergebnis)
    EndIf
    EndIf
    EndFunc

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

    Func _GUIEvents()
    Select
    Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    Exit
    Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
    Case @GUI_CtrlId = $GUI_EVENT_RESTORE
    EndSelect
    EndFunc ;==> _GUIEvents

    [/autoit]

    sie bringt jetzt keine falschen ergebnisse mehr.
    leider kenn ich mich mit Stringregex nicht wirklich aus. deshalb is es ohne gelöst
    auch wenn du meine version nicht hernimmst wär ne rückmeldung obs funktioniert klasse

    danke

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 12:14

    hab gerade entdeckt dass in meiner lösung noch n kleiner fehler ist. bzw die zeile 14 im NC-Quellcode von deinem Post Nr. 20 falsch interpretiert wird.

    diese da:

    Zitat

    N83 (2: T1 2D ANSCHLAGKANTE FRAESEN)

    ansonsten denk ich passt meins. fals der fehler was ausmacht könnte man den noch ausschließen ;)

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 12:08
    [autoit]

    #Include <GUIConstantsEx.au3>
    #Include <Array.au3>
    #Include <File.au3>
    #include <String.au3>
    #NoTrayIcon
    Opt("GUIOnEventMode", 1)
    $main=GUICreate("Werkzeugliste erstellen", 350, 85)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
    $edit=GUICtrlCreateInput("", 5, 5, 340)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $search=GUICtrlCreateButton("NC Programm suchen (.txt) ...", 5, 30, 340, 25)
    GUICtrlSetOnEvent(-1, "_fileOpen")
    $go=GUICtrlCreateButton("Werkzeugliste aus NC Programm erstellen ...", 5, 55, 340, 25)
    GUICtrlSetOnEvent(-1, "_go")
    GUISetState(@SW_SHOW, $main)
    While True
    Sleep(100)
    WEnd
    Func _fileOpen()
    $filepath=FileOpenDialog("NC Programm auswählen", @DesktopDir & "\", "Text files (*.txt)", 1 + 2)
    GUICtrlSetData($edit, $filepath)
    EndFunc
    Func _go()
    Dim $lines
    Dim $matchLines
    Dim $txtfile
    Dim $ergebnis[1]
    $data=GUICtrlRead($edit)
    If $data="" Then
    MsgBox(0, "Fehler", "Bitte zuerst Datei einlesen")
    Else
    If Not _FileReadToArray($data, $txtfile) Then
    Msgbox(0,'Fehler', 'Fehler beim Einlesen der Datei')
    Else
    For $i = 1 To $txtfile[0]
    $split = StringSplit( $txtfile[$i], ' ')
    for $h = 1 To $split[0]
    If StringLeft($split[$h], 1) = 'T' Then
    $zahl = StringRight($split[$h], StringLen($split[$h]) - 1)
    $between = _StringBetween($txtfile[$i], ' (', ')')
    if @error Then
    MsgBox(0, '_StringBetween', @error)
    Else
    _ArrayAdd($ergebnis, $split[$h] & ' (' & $between[0] & ' )')
    $ergebnis[0] = UBound($ergebnis)
    EndIf
    EndIf
    Next
    Next
    _ArrayDisplay($ergebnis)
    EndIf
    EndIf
    EndFunc

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

    Func _GUIEvents()
    Select
    Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    Exit
    Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
    Case @GUI_CtrlId = $GUI_EVENT_RESTORE
    EndSelect
    EndFunc ;==> _GUIEvents

    [/autoit]
  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 11:45

    17 antworten innerhalb von knapp 2 stunden.

    des sagt schon alles dazu wie gut das problem beschrieben wurde :rofl:

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 11:41

    soo probier mal das. ich hoff jetz passts endlich^^

    Spoiler anzeigen
    [autoit]

    #Include <GUIConstantsEx.au3>
    #Include <Array.au3>
    #Include <File.au3>
    #NoTrayIcon
    Opt("GUIOnEventMode", 1)
    $main=GUICreate("Werkzeugliste erstellen", 350, 85)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
    $edit=GUICtrlCreateInput("", 5, 5, 340)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $search=GUICtrlCreateButton("NC Programm suchen (.txt) ...", 5, 30, 340, 25)
    GUICtrlSetOnEvent(-1, "_fileOpen")
    $go=GUICtrlCreateButton("Werkzeugliste aus NC Programm erstellen ...", 5, 55, 340, 25)
    GUICtrlSetOnEvent(-1, "_go")
    GUISetState(@SW_SHOW, $main)
    While True
    Sleep(10)
    WEnd
    Func _fileOpen()
    $filepath=FileOpenDialog("NC Programm auswählen", @DesktopDir & "\", "Text files (*.txt)", 1 + 2)
    GUICtrlSetData($edit, $filepath)
    EndFunc
    Func _go()
    Dim $lines
    Dim $matchLines
    Dim $txtfile
    $data=GUICtrlRead($edit)
    If $data="" Then
    MsgBox(0, "Fehler", "Bitte zuerst Datei einlesen")
    Else
    If Not _FileReadToArray($data, $txtfile) Then
    Msgbox(0,'Fehler', 'Fehler beim Einlesen der Datei')
    Else
    For $i = 1 To $txtfile[0]
    $split = StringSplit( $txtfile[$i], ' ')
    for $h = 1 To $split[0]
    If StringLeft($split[$h], 1) = 'T' Then
    $zahl = StringRight($split[$h], StringLen($split[$h]) - 1)
    MsgBox(0, '', $split[$h] & ' ' & $split[$split[0]])
    ; msgbox nur als beispiel...
    ; lieber einfügen wie du die gefundenen werkzeuge ausgeben willst (textfile, array display, was auch immer...)
    EndIf
    Next
    Next
    MsgBox(0, 'Info', 'Bin fertig')
    EndIf
    EndIf
    EndFunc

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

    Func _GUIEvents()
    Select
    Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    Exit
    Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
    Case @GUI_CtrlId = $GUI_EVENT_RESTORE
    EndSelect
    EndFunc ;==> _GUIEvents

    [/autoit]
  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 11:23

    aber die namen stehen immer in dem Quellcode vom NC Programm oder wie?
    wenn die immer hinten stehen isses ja keine große veränderung

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 11:11

    so ich hab jetz auch mal was gebastelt
    ich hoffe jetz passts

    [autoit]

    #Include <File.au3>
    Dim $txtfile
    $file = FileOpenDialog('Wo ist der Quellcode des NC Programm?', @ScriptDir, 'Alle (*.*)')
    If @error Then
    Msgbox(0,'Fehler', 'Fehler beim Einlesen der Datei')
    Else
    If Not _FileReadToArray($file, $txtfile) Then
    Msgbox(0,'Fehler', 'Fehler beim Einlesen der Datei')
    Else
    For $i = 1 To $txtfile[0]
    $split = StringSplit( $txtfile[$i], ' ')
    for $h = 1 To $split[0]
    If StringLeft($split[$h], 1) = 'T' Then
    $zahl = StringRight($split[$h], StringLen($split[$h]) - 1)
    Switch $zahl
    Case 1
    $Werkzeug = '(WP - Igelfraeser D050,0)'
    Case 3
    $Werkzeug = '(HM - Schlichtfraeser D=20,0)'
    Case 59
    $Werkzeug = '(INFRA-Taster!)'
    Case Else
    $Werkzeug = 'unbekannt'
    EndSwitch
    MsgBox(0, '', $split[$h] & ' ' & $Werkzeug)
    EndIf
    Next
    Next
    MsgBox(0, 'Info', 'Bin fertig')
    EndIf
    EndIf

    [/autoit]

    Statt der Msgbox in zeile 25 kannst dir ja anpassen wie du es weiter verarbeiten willst

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 10:46

    das heißt wenn in einer zeile T3 steht dann soll in der selben zeile hinten "(HM - Schlichtfraeser D=20,0)" hingeschrieben werden oder?
    und wenn T* dasteht dann soll iwas anderes hingeschrieben werden?
    seh ich das jetz richtig?

    wenn ja was für T* gibt es denn alles, wär gut wenn du ne Werkzeugliste postest

  • Windows - automatische Computer Sperre aufheben

    • Schnitzel
    • 23. Oktober 2009 um 10:13
    Zitat

    Mhhh, und wenn ich das Programm als Dienst laufen lasse, funktioniert auch die Ansteuerung von Fenstern im gesperrten Modus???

    nein das funktioniert meines wissens nicht

    Zitat

    und ich vermute dass er den Befehl "WinActivate" auch nicht mehr ausführen kann!

    genauso wie das nicht funktioniert...


    an deiner stelle würde ich soetwas basteln das aussieht als wäre der pc gesperrt

    oder du benutzt ein script von funkey. mit welchen man den monitor ausschalten kann. dann kannst du trotzdem alle befehle (mousemove winactivate usw) benutzen und bildschirm wieder aktivieren kannst du dir dann auf ne tastenkombination legen (sowas wie Shift + Alt + Strg + O, da kommt sowieso keiner drauf)

    wenn das in ordnung wäre kann ich dir gerne helfen

    edit: hab den link zum thread vergessen. hier is das script von funkey ;)
    Monitor zu bestimmten Zeiten ein- und ausschalten
    ;)

  • StringRegExp Problem

    • Schnitzel
    • 23. Oktober 2009 um 10:04

    ich hätts so gemacht

    [autoit]

    $input = InputBox('Eingabe', '', 'N186 S1800 T3 M6')
    $split = StringSplit( $input, ' ')
    $left = StringLeft($split[3], 1)
    if $left = 'T' Then
    MsgBox(0,'','Der Fräser ist ein Schlichtfräser')
    Else
    MsgBox(0,'','Der Fräser ist kein Schlichtfräser')
    EndIf
    $zahl = StringRight($split[3], StringLen($split[3]) - 1)
    MsgBox(0,'', $zahl)

    [/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™