Beiträge von bernd670

Hallo,

wenn man mit GutCtrlSetLimit eine Breite einstellt kann man scrollen. Allerdings muss der Wert scheinbar in Pixel angegeben werden.

Sollte man vllt. mal im Bug-Report melden!

Auf den letzten drücker,

auch von mir alles ales Gute zum Geburtstag! :kiss: :birthday:

Hallo und :willkommen:,

erst mal muss ich sagen schönes Programm!

Ein paar Tipps/Verbesserungsvorschläge habe ich noch für dich.

• Wenn Du mit der ControllID's arbeitest wie hier z.B.
  
  
  Spoiler anzeigen

  [autoit]

  Func Button()
  Local $ausw = @GUI_CTRLID
  Switch $ausw
  Case 7; [+] Button vom 1.Ring
  If $RingAkt[0] < $RingMax[0] then
  $RingAkt[0] += 1
  GUICtrlSetImage ($Ring[0], $widerstand[$RingAkt[0]])
  EndIf
  :
  :
  :

  [/autoit]

  dann ist es sinnvoll über die Variable zuzugreifen

  Spoiler anzeigen

  [autoit]

  Func Button()
  Local $ausw = @GUI_CTRLID
  Switch $ausw
  Case Button[0]; [+] Button vom 1.Ring
  If $RingAkt[0] < $RingMax[0] then
  $RingAkt[0] += 1
  GUICtrlSetImage ($Ring[0], $widerstand[$RingAkt[0]])
  EndIf
  :
  :
  :

  [/autoit]

  
  ansonsten kann es passieren, wenn Control-Elemente hinzufügt werden, das sich die ID ändert und alle Funktionen geändert werden müssen in denen die ControlID direkt eingetragen ist.

• Es gibt noch eine andere art zur Bestimmung welches der erste oder letzte Farbring ist, wenn der erste oder letzte Farbring gleich weit vom Widerstandsende entfernt sind ist der Toleranzring meist etwas breiter und Abstand vor dem Toleranz größer!
  
• Der 3. Ring kann auch Silber (* 0,01) sein!
  
• Es wäre schön wenn man die Toleranz auch auswählen könnte und der Widerstandswert mit Toleranzwert ausgeben wird z.B. 1MOhm +/- 0,2 MOhm oder 1MOhm - Wertebereich 0,8 MOhm - 1,2 MOhm
  
• Eine Erweiterung, das man auch Widerstande mit 6 Farbringen berechnen kann, wäre auch hilfreich.
  

Hallo,

so geht es!

If $CmdLine[2] = "-m" Then
Local $begin = TimerInit(), $diff
$Countdown *= 60000
Do
$diff = TimerDiff($begin)
;~ ToolTip("in " & Round(($Countdown *60 * 1000 - $diff) / 1000) & " Seconds", 0, 0, $head)
ToolTip(StringFormat("in %02i:%02i Minuten", Floor(($Countdown - $diff) / 60000), Floor(Mod($Countdown - $diff, 60000)/1000)), 0, 0, "Countdown")
Sleep(100)
Until $diff >= $Countdown
EndIf

Hallo,

in Word-Dateien was mit Filewrite zu schreiben ist für die Datei tödlich!

Ich schätze mal das hhctrl.ocx defekt ist.

in der Zip im anhang ist eine hh.exe (C:\Windows) und eine hhctrl.ocx (C:\Windows\system32). Probiers mal mit denen.

Hallo!

Probiers mal so (nicht getestet).

Opt("SendKeyDownDelay", 2000) ; 2000 ms
Send("{SPACE}")
Opt("SendKeyDownDelay", 5) ; 5 ms

Hallo,

vllt. ist ja die hh.exe beschädigt, was passiert den wenn Du "hh.exe <chm-Datei>" oder "hh.exe /?" aufrufst. Bei "hh.exe /?" sollte ein Fenster aufgehen mit dem Inhalt "Die Seite kann nicht angezeigt werden.".

Hallo,

Waluev, fast richtig, zuerst die Datei umbenenen in "locale.properties" und dann ins Hauptverzeichnis von SciTE kopieren!

Koda: Einfach den aktuellen Koda herunterladen, entpacken und ins Verzeichnis SciTE\Koda kopieren, alle Dateien überschreiben!

Hallo,

ich habe mal versucht das was Du geschrieben hast lauffähig zu machen, ich hoffe ich habe verstanden was es sein soll!

Mit Strg-Alt-a kannst Du das Programm jederzeit beenden!

So sollte es gehen! Ich habe mal die Select-Anweisungen durch einfach If...Then...Else ersetzt, Select braucht man nur wenn man mehrere Fälle unterscheiden will, ausserdem habe ich die Shutdown-Funktion von AutoIt eingesetzt.

#include <date.au3>
;~ #include <Process.au3>

HotKeySet("{End}", "_kill")

If $CmdLine[0] > 0 And $CmdLine[0] < 4 Then
If $CmdLine[1] = "-l" Or $CmdLine[1] = "-s" Or $CmdLine[1] = "-r" Then
$Funktion = $CmdLine[1]
If $CmdLine[2] = "-t" Or $CmdLine[2] = "-h" Or $CmdLine[2] = "-m" Or $CmdLine[2] = "-s" Then
$TimeZone = $CmdLine[2]
If StringRegExp($CmdLine[3], "[0-9]+") Then
$Countdown = $CmdLine[3]
_countDown($Countdown)
Else
MsgBox(16, 'Fehler 4', "Parameter 3 muss eine Zahl sein")
EndIf
Else
MsgBox(16, 'Fehler 3', "Falsche Parameter verwendet")
EndIf
Else
MsgBox(16, 'Fehler 2', "Falsche Parameter verwendet")
EndIf
Else
MsgBox(16, 'Fehler 1', "Kein oder zuviele Parameter angegeben")
EndIf

Func _countDown($Countdown)
If $CmdLine[2] = "-s" Then
Local $begin = TimerInit(), $diff
Do
$diff = TimerDiff($begin)
ToolTip("Noch " & Round(($Countdown * 1000 - $diff) / 1000) & " Sekunden", 0, 0, "Countdown")
Sleep(100)
Until $diff >= $Countdown * 1000
If $CmdLine[1] = "-l" Then
Shutdown(4) ; Logoff und Force
;~ _RunDOS('shutdown -l -f')
ElseIf $CmdLine[1] = "-s" Then
Shutdown(13) ; Shutdown, Powerdown und Force
;~ _RunDOS('shutdown -s -f')
ElseIf $CmdLine[1] = "-r" Then
Shutdown(6) ; Reboot und Force
;~ _RunDOS('shutdown -r -f')
EndIf
EndIf
EndFunc ;==>_countDown

Func _kill()
Exit
EndFunc ;==>_kill

Hallo,

es ist im prinzip egal wo die Scripte abgelegt sind, nur scheint bei dir irgendwo ein verkehrter Pfad eingetragen zu sein, laut Fehlermeldung wird nämlich auf Laufwerk L: nach dem Script gesucht.

beim Kompiileren, kam dann die Fehlermeldung
"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "L:\IOM skripte\RAR\rcvtw32\MYRAR.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
>Das System kann den angegebenen Pfad nicht finden."

Hallo,

ich habs mal angepasst!

Hallo,

probiers mal so:

Dim $path_img = "X:\image.cue"
Dim $daemontoolspath = "C:\Programme\DAEMON Tools\daemon.exe"
$test = _mountdtools($daemontoolspath, $path_img, 1)
MsgBox(0, "", $test)

Func _mountdtools($path, $image, $device)
If StringRegExp($path, "(daemon.exe)", 0, 1) = 1 And StringRegExp($device, "[0123]") = 1 And StringLen($device) = 1 Then
MsgBox(0, "", $path)
$command = '"'&$path & '" -mount ' & $device & ', "' & $image & '"'
MsgBox(0, "", $command)
Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE)

;run($path&" -mount "&$device, $image)
Return 1
Else
Return 0
EndIf
EndFunc ;==>_mountdtools

Hallo,

ich würde sagen schau dir das Kapitel über Array und Vergleichen von Strings noch mal an!

Ich war mal so Frei und habe dein Programm so umgeschrieben das es mit einem Array auskommt.

Ich gehe davon aus das in der Datei "C:\Taucher\mappe1.txt" die Nummern drin stehen und das in der Datei "c:\Taucher\taucher.prob" das Ergebnis (nicht vorhandene PDF-Dateien) stehen soll.

#include <file.au3>

;~ Opt("TrayIconDebug", 1)

Global $szCompareText, $aszFileList
Global $szOutFile = "c:\Taucher\taucher.prob"

If FileExists("C:\Taucher\mappe1.txt") Then
$szCompareText = FileRead("C:\Taucher\mappe1.txt")
EndIf

; Kontrollausgabe
Msgbox(0,"",$szCompareText)

; Nur PDF-Dateien einlesen
$aszFileList = _FileListToArray("C:\Taucher\EVN\PDF\", "*.pdf", 1)

If IsArray($aszFileList) Then
For $cIndex = 1 To $aszFileList[0]
$szCompareText = StringRegExpReplace($szCompareText, StringMid($aszFileList[$cIndex], 8, 10), "")
Next
$szCompareText = StringRegExpReplace($szCompareText, "\n\r\s*", "") ; Leerzeilen entfernen
EndIf

; Kontrollausgabe
Msgbox(0,"",$szCompareText)

$hFile = FileOpen($szOutFile,2)
FileWrite($hFile,$szCompareText)
FileClose($hFile)

Mit MsgBox wird nun mal was ausgeben, was Du benötigst heisst WinMove!

Hallo und :willkommen:,

das Problem ist das Task die im Hintergund laufen nicht mit Dialogfeldern kommunizieren können. D.h. wenn Du dich mit dem Account anmeldest unter dem der Task läuft, funktioniert auch der geplante Task.

Um es lauffähig zu bekommen benötigst Du einen SCP-Client der mit Parametern aus der Kommandozeile aufgerufen werden kann z.B. PSCP.

Zitat

Original von srb
...

Das ist leider nicht möglich, da die Drucker nicht an einem Server hängen. Sie haben je eine eigene IP. Das heißt ich kann nicht AddPrinterConnection("\\<Server>\<Druckerfreigabe>") verwenden. Sonst hätte ich es ganz einfach per batch-Datei schreiben können.

...

Das würde dann aber heissen das jeder Drucker einen internen Printserver besitzt, d.h. der Aufruf AddPrinterConnection("\\<IP-Adresse des Druckers>\<Druckerfreigabe>") sollte auch funktionieren.

Hallo,

es gibt zwar keinen DllCall in der user32.dll aber dafür in der winspool.drv, nämlich AddPrinterConnection!

AddPrinterConnection("\\<Server>\<Druckerfreigabe>")

Func AddPrinterConnection ($szPrinterName)
$lRetVal = DllCall("winspool.drv", "long", "AddPrinterConnection", "str", $szPrinterName)

If IsArray($lRetVal) Then
Return SetError(0,0,$lRetVal[0] = 1)
EndIf

Return SetError(1,0,False)
EndFunc

Hallo,

eine kleine Anmerkung hätte ich noch die Zeile:

Send("{lwin}{up}{up}{up}{enter}" & GUICtrlRead($i1) & "{enter}")

würde ich, wie @Pee weiter oben schon geschrieben hat, durch diese Zeile ersetzen:

ShellExecute(GUICtrlRead($i1))

ShellExecute macht im Prinzip das gleiche wie "Ausführen.." im Startmenü, nur beim Send-Befehl kann es unter umständen passieren das er nicht korrekt ausgeführt wird, z.B. wenn der Nutzer während der Ausführung irgendwo hinklickt!