Ich habe mir seit kurzem Purebasic geleistet und versuche bei meinem ersten Programm das umzusetzen, was ich mir schon als HTA und vbs erstellt habe.
Ich scheitere aber bei dem Purebasiccode an einer Sache:
Ich lasse ein externes Programm mittels Sendkeys die Bilder eines Ordner bearbeiten. Dazu wird eine Schleife durchlaufen.
Nun wollte ich im Hauptprogramm irgendwie eine Anzeige in der Statuszeile haben, welche mir anzeigt, bei welchem Bild das Purebasicprogramm ist - also der aktuelle Schleifenstand.
Es scheitert irgendwie daran, das die Anzeige sich nicht aktualisieren kann.
(in vbs habe ich das mit einem zeitlich begrenzten msgbox-popub gemacht. Das ist ja in Purebasic nicht drin - oder ?)
Hat jemand einen Tip ?
Panik
Code: Alles auswählen
;Entrauscher für schlechte Fotos (z.B. digitalisierte Unterwasserbilder von Einwegkameras )
;Programm nach Sendkeys-Abschnitt von Panik programmiert
;
; German forum:
; Author: Danilo
; Date: 07. April 2003
; OS: Windows
; Demo: No
; Posted 07 April 2003 by Danilo on german forum
;SendKeys(handel,Window$,Keys$)
;Handel ......... ist ein Handel zu einen Fenster bekommst du wenn du das Fenster erzeugst.
;Window$ ........ Ist der Name des Fesnters, wenn du den Handel nicht kennst. In dem Fall gibt man dan Handel = 0 an.
;Keys$ .......... Sind die Tasten die du schicken möchtest, wobei du Sondertasten in {} Einschliest (zb. {CONTROLDOWN})
; SendKeys procedure by PB -- do whatever you want with it. :)
; Syntax: r=SendKeys(handle,window$,keys$) ; r = 0 for failure.
; Specify either a handle or window$ title to type to, but not both!
; You cannot type curly braces { } as part of the keystrokes, sorry!
;
Procedure SendKeys(handle,window$,keys$)
If window$<>"" : handle=FindWindow_(0,window$) : EndIf ; Use window$ instead of handle.
If IsWindow_(handle)=0 ; Does the target window actually exist?
ProcedureReturn 0 ; Nope, so report 0 for failure to type.
Else
; This block gives the target window the focus before typing.
thread1=GetWindowThreadProcessId_(GetForegroundWindow_(),0)
thread2=GetWindowThreadProcessId_(handle,0)
If thread1<>thread2 : AttachThreadInput_(thread1,thread2,#True) : EndIf
SetForegroundWindow_(handle) ; Target window now has the focus for typing.
Delay(125) ; 1/8 second pause before typing, to prevent fast CPU problems.
; Now the actual typing starts.
For r=1 To Len(keys$)
vk$=Mid(keys$,r,1)
If vk$="{" ; Special key found.
s=FindString(keys$,"}",r+1)-(r+1) ; Get length of special key.
s$=Mid(keys$,r+1,s) ; Get special key name.
Select s$ ; Get virtual key code of special key.
Case "ALTDOWN" : keybd_event_(#VK_MENU,0,0,0) ; Hold ALT down.
Case "ALTUP" : keybd_event_(#VK_MENU,0,#KEYEVENTF_KEYUP,0) ; Release ALT.
Case "BACKSPACE" : vk=#VK_BACK
Case "CONTROLDOWN" : keybd_event_(#VK_CONTROL,0,0,0) ; Hold CONTROL down.
Case "CONTROLUP" : keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0) ; Release CONTROL.
Case "DELETE" : vk=#VK_DELETE
Case "DOWN" : vk=#VK_DOWN
Case "END" : vk=#VK_END
Case "ENTER" : vk=#VK_RETURN
Case "F1" : vk=#VK_F1
Case "F2" : vk=#VK_F2
Case "F3" : vk=#VK_F3
Case "F4" : vk=#VK_F4
Case "F5" : vk=#VK_F5
Case "F6" : vk=#VK_F6
Case "F7" : vk=#VK_F7
Case "F8" : vk=#VK_F8
Case "F9" : vk=#VK_F9
Case "F10" : vk=#VK_F10
Case "F11" : vk=#VK_F11
Case "F12" : vk=#VK_F12
Case "ESCAPE" : vk=#VK_ESCAPE
Case "HOME" : vk=#VK_HOME
Case "INSERT" : vk=#VK_INSERT
Case "LEFT" : vk=#VK_LEFT
Case "PAGEDOWN" : vk=#VK_NEXT
Case "PAGEUP" : vk=#VK_PRIOR
Case "PRINTSCREEN" : vk=#VK_SNAPSHOT
Case "RETURN" : vk=#VK_RETURN
Case "RIGHT" : vk=#VK_RIGHT
Case "SHIFTDOWN" : shifted=1 : keybd_event_(#VK_SHIFT,0,0,0) ; Hold SHIFT down.
Case "SHIFTUP" : shifted=0 : keybd_event_(#VK_SHIFT,0,#KEYEVENTF_KEYUP,0) ; Release SHIFT.
Case "TAB" : vk=#VK_TAB
Case "UP" : vk=#VK_UP
EndSelect
If Left(s$,3)<>"ALT" And Left(s$,7)<>"CONTROL" And Left(s$,5)<>"SHIFT"
keybd_event_(vk,0,0,0) : keybd_event_(vk,0,#KEYEVENTF_KEYUP,0) ; Press the special key.
EndIf
r=r+s+1 ; Continue getting the keystrokes that follow the special key.
Else
vk=VkKeyScanEx_(Asc(vk$),GetKeyboardLayout_(0)) ; Normal key found.
If vk>304 And shifted=0 : keybd_event_(#VK_SHIFT,0,0,0) : EndIf ; Due to shifted character.
keybd_event_(vk,0,0,0) : keybd_event_(vk,0,#KEYEVENTF_KEYUP,0) ; Press the normal key.
If vk>304 And shifted=0 : keybd_event_(#VK_SHIFT,0,#KEYEVENTF_KEYUP,0) : EndIf ; Due to shifted character.
EndIf
Next
If thread1<>thread2 : AttachThreadInput_(thread1,thread2,#False) : EndIf ; Finished typing to target window!
keybd_event_(#VK_MENU,0,#KEYEVENTF_KEYUP,0) ; Release ALT key if user forgot.
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0) ; Release CONTROL key if user forgot.
keybd_event_(#VK_SHIFT,0,#KEYEVENTF_KEYUP,0) ; Release SHIFT key if user forgot.
ProcedureReturn 1 ; Report successful typing! :)
EndIf
EndProcedure
;
If OpenWindow(0,100,100,500,400,"Entrauscher.exe (c.) by pm",#PB_Window_SystemMenu)
If CreateGadgetList(WindowID(0))
ButtonGadget (1,20,20,100,20,"Quellordner")
ButtonGadget (2,160,20,100,20,"Zielordner")
StringGadget (3,20, 60, 400, 20, "")
SetGadgetText (3,quellpfad$)
ListViewGadget (4,20, 100, 400, 190)
ButtonGadget (5,300,20,100,20,"Übernehmen")
EndIf
If CreateStatusBar(0, WindowID(0))
AddStatusBarField(500)
EndIf
NewList MyList.s()
zaehl.l = 0
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
If EventGadget()=1
InitialPath$ = ""
Path$ = PathRequester("Bitte wählen Sie einen Quellordner aus", InitialPath$)
If Path$
quellpfad$ = Path$
TextGadget(8, 20, 310, 400, 30, "Quellordner : " + Chr(10) + quellpfad$)
SetGadgetText (3, quellpfad$)
ClearGadgetItemList(4)
If ExamineDirectory(0, GetGadgetText(3), "*.jpg")
While NextDirectoryEntry(0)
FileName$ = ""
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
FileName$ = FileName$ + DirectoryEntryName(0)
EndIf
AddGadgetItem(4, -1, FileName$)
AddElement(MyList())
MyList() = FileName$
Wend
FinishDirectory(0)
Else
MessageRequester("Fehler","Folgendes Verzeichnis konnte nicht gelesen werden : "+GetGadgetText(3),0)
EndIf
Else
MessageRequester("Information", "Die Auswahl wurde abgebrochen.", 0)
EndIf
EndIf
If EventGadget()=2
InitialPath$ = ""
Path$ = PathRequester("Bitte wählen Sie einen Zielordner aus", InitialPath$)
If Path$
zielpfad$ = Path$
TextGadget(9, 20, 350, 400, 30, "Zielordner : " + Chr(10) + zielpfad$)
Else
MessageRequester("Information", "Die Auswahl wurde abgebrochen.", 0)
EndIf
EndIf
If EventGadget()=5
ForEach MyList()
zaehl = zaehl + 1
StatusBarText(0, 0, "Datei " + Str(zaehl), #PB_StatusBar_Raised)
w$="Entrauscher.exe (c.) by pm"
Delay(1000) : SendKeys(0,w$,"")
bildpfad$ = quellpfad$+MyList()
tempbild1$ = "C:\Programme\FixFoto\noiseware\nce_temp.jpg"
tempbild2$ = "C:\Programme\FixFoto\noiseware\nce_temp_filtered.jpg"
DeleteFile(tempbild2$)
CopyFile(bildpfad$, tempbild1$)
RunProgram("C:\Programme\FixFoto\noiseware\Noiseware.exe " , #DQUOTE$ + tempbild1$ + #DQUOTE$ ,"",0)
w$="About Noiseware"
Delay(1000) : SendKeys(0,w$,"{TAB}")
Delay(1000) : SendKeys(0,w$,"{ENTER}")
w$="Aktion"
Delay(1000) : SendKeys(0,w$,"")
If zaehl = 1
; unbedingt in den Noiseware Speicherotionen die Dateisuffixangaben auf "_filtered" einstellen
MessageRequester("Aktion","Stellen Sie jetzt individuelle Filterfunktionen ein und klicken danach auf OK !",4096)
Else
EndIf
w$="nce_temp.jpg - Noiseware Community Edition"
Delay(1000) : SendKeys(0,w$,"{CONTROLDOWN}{ENTER}")
w$="nce_temp.jpg - Noiseware Community Edition"
Delay(3000) : SendKeys(0,w$,"{CONTROLDOWN}s")
w$="Save As"
Delay(1000) : SendKeys(0,w$,"{CONTROLDOWN}{ENTER}")
w$="nce_temp.jpg - Noiseware Community Edition"
Delay(2000) : SendKeys(0,w$,"{ALTDOWN}{F4}")
CopyFile(tempbild2$,zielpfad$+(Left(MyList(),Len(MyList())-4))+".jpg")
Next
EndIf
EndIf
Until Quit=1
EndIf
End
