ich möchte mithilfe dem Tool topng aus einem bmp ein png bild erstellen irgendwie gehtst per hand aber beim runwait geht einfach nichts mehr ich lad mal die erforderlichen daten in den anhang
hier der code:
[autoit]
$SaveAs = ".bmp"
If $SaveAs = ".jpg" Then
Global $SaveAs = ".jpg"
Else
$SaveAs = ".bmp"
$quality = -1
EndIf
Global $CaptureDirectory = @TempDir & "\"; Verzeichnis für die Screenshots
$CaptureFile = "ss" & @HOUR & @MIN & @SEC & $SaveAs
DllCall("data\captdll.dll", "int", "CaptureRegion", "str", $CaptureDirectory & $CaptureFile, "int", "0", "int", "0", "int", @DesktopWidth, "int", @DesktopHeight, "int", $quality)
; $CaptureDirectory & $CaptureFile = zu speichernder Pfad und Name des Screenshots
; "0" = Links
; "0" = Oben
; @DesktopWidth = Breite
; @DesktopHeight = Höhe
; $Quality = BMP (-1) od. JPG (1-100)
If @error Then
MsgBox(262160,"Error","failed to make screenshot - maybe captdll.dll is missing in scriptdir")
Else
If $SaveAs = ".jpg" Then
Global $CaptureFile ;damit die variable in der anderen funktion verwendet werden kann
;_Upload() zum hochladen der datei dann
Else
;MsgBox(0,"",$CaptureFile)
FileMove($CaptureDirectory & $CaptureFile, @ScriptDir&"\data\"&$CaptureFile)
sleep(500)
If FileExists("data\"&$CaptureFile) Then
$filename = StringTrimRight($CaptureFile, 3)
$BatFile = "@echo off" & @CRLF
$BatFile = $BatFile & "topng " & $CaptureFile & " png" & @CRLF
$bat = FileWrite("data\pngcreate.bat", $BatFile)
FileClose($bat)
RunWait("data\pngcreate.bat", @ScriptDir&"\data", @SW_HIDE)
sleep(1000)
;FileDelete(@ScriptDir & "\data\pngcreate.bat")
;FileDelete(@ScriptDir & "\data\"&$CaptureFile)
;FileMove(@ScriptDir & "\data\"&$filename&"png", @TempDir&"\"&$filename&"png")
;MsgBox(0,"",@ScriptDir & "\data\"&$filename&"png"&" "&@TempDir&"\"&$filename&"png")
Global $CaptureFile = $filename&"png"
;MsgBox(1,"", $CaptureFile)
;_Upload()
Else
MsgBox(1,"Error", "Can't find file!")
EndIf
EndIf
EndIf