PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Bug ?! Pls Help ^^

https://www.purebasic.fr/german/viewtopic.php?t=19191

Seite 1 von 3

Bug ?! Pls Help ^^

Verfasst: 18.02.2009 16:59
von The_Dark_Zim-.-
Hey Ho
Habe mir einen WallpaperChanger gemacht :P
Aber irgentwie spinnt der unter Vista ein wenig.
Wenn man ein Desktophintergrund rein machen will geht das nur wenn ich 2 ausgewählt hab. Dann taucht die Console nur manchmal auf. Ich kann den Fehler nicht finden.

Code: Alles auswählen

OpenConsole()
ConsoleTitle("WallpaperChanger @ TheDarkZim-.-")
ConsoleColor(12, 0)
ConsoleCursor(10)
Print("Dieses Programm wurde von The_Dark_Zim-.- geschrieben!")
Delay(1500)
Print(".")
Delay(200)
Print(".")
Delay(200)
PrintN(".")
Delay(200)
PrintN("#################################################")
Delay(50)
PrintN(" #                                             #")
Delay(50)
PrintN("  #                                           #")
Delay(50)
PrintN("   #           /\              /\            #")
Delay(50)
PrintN("    #         //_\            /_\\          #")
Delay(50)
PrintN("     #       ///                \\\        #")
Delay(50)
PrintN("      #      ______________________       #")
Delay(50)
PrintN("       #     \                    /      #")
Delay(50)
PrintN("        #     \                  /      #")
Delay(50)
PrintN("         #     \  __        __  /      #")
Delay(50)
PrintN("          #     \/°°\      /°°\/      #")
Delay(50)
PrintN("           #     °°°°\    /°°°°      #")
Delay(50)
PrintN("            #     °°°°|  |°°°°      #")
Delay(50)
PrintN("             #     °°°|  |°°°      #")
Delay(50)
PrintN("              #     °/    \°      #")
Delay(50)
PrintN("               #     \    /      #")
Delay(50)
PrintN("                #     \  /      #")
Delay(50)
PrintN("                 #     \/      #")
Delay(50)
PrintN("                  #           #")
Delay(50)
PrintN("                   #         #")
Delay(50)
PrintN("                    #       #")
Delay(50)
PrintN("                     #     #")
Delay(50)
PrintN("                      #   #")
Delay(50)
PrintN("                       # #")
Delay(50)
PrintN("                        #")
Delay (2000)
CloseConsole()

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

Global Image0
Image0 = CatchImage(0, ?Image0)

DataSection
Image0:
  IncludeBinary "logo.bmp"
EndDataSection

Global Icon0
Icon0 = CatchImage(1, ?Icon0)

DataSection
Icon0:
  IncludeBinary "wallpaperZIM.ico"
EndDataSection


ProcedureDLL AddHotkey(Window, fsModifiers, Keys, HotkeyID) 
  ProcedureReturn RegisterHotKey_(WindowID(Window), HotkeyID, fsModifiers, Keys)
EndProcedure

ProcedureDLL RemoveHotkey(Window, HotkeyID)
  ProcedureReturn UnregisterHotKey_(WindowID(Window), HotkeyID)
EndProcedure

#PB_Event_Hotkey = 786

Procedure.s GetSystemDirectory()
  Path.s=Space(501)
  GetSystemDirectory_(@Path,500)
  ProcedureReturn Path
EndProcedure

 Procedure refresh()
RunProgram("rundll32.exe", "user32.dll,UpdatePerUserSystemParameters", GetSystemDirectory() , 0) 
 EndProcedure
  
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #String_0
  #String_1
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Text_0
  #Text_1
  #Image_0
  #Image_1
  #Image_2
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 506, 300, 310, 300, "WallpaperChanger @ TheDarkZim-.-",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_MinimizeGadget )
   If CreateStatusBar(0, WindowID(#Window_0))
   AddStatusBarField(506)
   StatusBarText(0,0, "1.Bild = Strg + F1 ; 2.Bild = Strg + F2")
   EndIf
     If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 20, 50, 100, 20, "")
      StringGadget(#String_1, 20, 130, 100, 20, "")
      ButtonGadget(#Button_0, 230, 50, 60, 20, "Search")
      ButtonGadget(#Button_1, 230, 130, 60, 20, "Search")
      ButtonGadget(#Button_4, 258, 2, 51, 20, "Minimize")
      TextGadget(#Text_0, 20, 30, 260, 20, "Bild 1:")
      TextGadget(#Text_1, 20, 110, 260, 20, "Bild 2:")
      ImageGadget(#Image_0, 52, 200, 200, 60, Image0)
      ButtonImageGadget(#Image_1, 140, 19, 80, 80,Icon0)
      ButtonImageGadget(#Image_2, 140, 101, 80, 80,Icon0)
     EndIf
  EndIf
EndProcedure

Open_Window_0()

AddSysTrayIcon(#PB_Any,WindowID(#Window_0),Icon0)
AddHotkey(0, #MOD_CONTROL, #PB_Shortcut_F1, 0)
AddHotkey(0, #MOD_CONTROL, #PB_Shortcut_F2, 1)

Repeat 


  Event = WaitWindowEvent()
  
  WindowID = EventWindow() 
  
  GadgetID = EventGadget()
  
  EventType = EventType()
  
  If Event = #PB_Event_Gadget
    
    If GadgetID = #String_0
      
    ElseIf GadgetID = #Button_0
     file$ = OpenFileRequester("Choose a picture", "", "All Images Formats|*.bmp;*.jpg;*.png;*.tif;*.tga", 0)
   If file$ > ""
     LoadImage(1,file$)
     SaveImage(1,  GetSystemDirectory()+"\Wall1.bmp",#PB_ImagePlugin_BMP)
     file1$ =  GetSystemDirectory()+"\Wall1.bmp"
     SetGadgetText(#String_0, GetFilePart(file$)) 
     LoadImage(2,file1$)
     ResizeImage(2,80,80) 
     ButtonImageGadget(#Image_1, 140, 19, 80, 80,ImageID(2))
   EndIf
    ElseIf GadgetID = #Button_1
     file$ = OpenFileRequester("Choose a picture", "", "All Images Formats|*.bmp;*.jpg;*.png;*.tif;*.tga", 0)
   If file$ > ""
     LoadImage(3,file$)
     SaveImage(3, GetSystemDirectory()+"\Wall2.bmp",#PB_ImagePlugin_BMP)
     file2$ = GetSystemDirectory()+"\Wall2.bmp"
     SetGadgetText(#String_1, GetFilePart(file$)) 
     LoadImage(3,file2$)
     ResizeImage(3,80,80) 
     ButtonImageGadget(#Image_2, 140, 101, 80, 80,ImageID(3))
   EndIf
    ElseIf GadgetID = #Image_1
    
datasize.l = Len(file1$) 

openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file1$,datasize) 
RegCloseKey_(hKey) 

refresh()
    ElseIf GadgetID = #Image_2

datasize.l = Len(file2$) 

openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file2$,datasize) 
RegCloseKey_(hKey) 
    
refresh()
    ElseIf GadgetID = #Button_4
     HideWindow(#window_0,1)
 EndIf
EndIf
  
  If EventType() = #PB_EventType_LeftClick
          min +1
  EndIf 
  
  If min = 2 
    HideWindow(#window_0,0)
    min = 0
  EndIf
  
    Select event
       Case #PB_Event_Hotkey 
         Select EventwParam() 
          Case 0 
datasize.l = Len(file1$) 

openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file1$,datasize) 
RegCloseKey_(hKey) 
    
refresh()
          Case 1 
datasize.l = Len(file2$) 

openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file2$,datasize) 
RegCloseKey_(hKey) 
    
refresh()
        EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow 

  RemoveHotkey(0, 0)
  RemoveHotkey(0, 1)

End
Logo und Icon (fals gesucht) :
Bild
Bild

Wenn jemand Fahler sieht bitte Melden, Danke ;)

Gruß ZIM

Verfasst: 18.02.2009 17:13
von Andesdaf
ich versteh nicht ganz was du meinst...
... nur wenn du zwei Bilder ausgewählt hast funktioniert das Programm?

ich empfehle dir mal mach die zwei Images in einer Datasection.

was soll eigentlich die Console im Programm? Hat die einen näheren Sinn
zum eigentlichen Programm?

Verfasst: 18.02.2009 18:10
von The_Dark_Zim-.-
Man kann 2 Bilder auswählen die man dann als Desktophintergrund einrichten kann, entweder per Bedienfeld oder Tastenkombie.

Die Console ist nur Spaß. Würde trotzdem gerne wissen warum die nicht immer erscheint.

Verfasst: 18.02.2009 18:40
von Andesdaf
Zur Console: Ich habe mehrmals probiert und beim ersten Start der Console
wurde sie zwar nicht auf dem Bildschirm angezeigt, aber in der Taskleiste.
Vielleicht meinst du das.
Scheint so als würde die nur minimiert geöffnet werden, wenn du sie das
erste Mal mit PB startest.
Ist aber nur eine Theorie.

Verfasst: 18.02.2009 20:03
von The_Dark_Zim-.-
Ne das mein ich nicht. Das ist auch meist nicht wenn man die exe ausführt. Bei Vista ist da nichtmals was in der Taskleiste. Das ist ja das merkwürdige.

Hast du denn Vista ?

Gruß ZIM

Verfasst: 18.02.2009 20:05
von Andesdaf
> Hast du denn Vista ?
Ja.

Verfasst: 18.02.2009 20:07
von The_Dark_Zim-.-
Geht bei dir denn das mit dem Hintergrund ändern ?

Verfasst: 18.02.2009 20:24
von Andesdaf
nein. Bei

Code: Alles auswählen

LoadImage(2,file1$)
bzw.

Code: Alles auswählen

LoadImage(2,file2$)
reckt er immer ab.

Irgendwie werd ich nicht schlau aus dem Code...

Verfasst: 18.02.2009 21:02
von The_Dark_Zim-.-
Bin selbst nochmal drüber gegangen und hab ein wenig was umgestellt.

Aktueller Code

Code: Alles auswählen

Enumeration
  #Window_0
  #String_0
  #String_1
  #Button_0
  #Button_1
  #Button_4
  #Text_0
  #Text_1
  #Image_0
  #Image_1
  #Image_2
EndEnumeration

Global Icon0
Global Image0
Icon0 = CatchImage(6, ?Icon0)
Image0 = CatchImage(7, ?Image0)

DataSection
Image0:
  IncludeBinary "logo.bmp"
Icon0:
  IncludeBinary "wallpaperZIM.ico"
EndDataSection

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

OpenConsole()
ConsoleTitle("WallpaperChanger @ TheDarkZim-.-")
ConsoleColor(12, 0)
ConsoleCursor(10)
Print("Dieses Programm wurde von The_Dark_Zim-.- geschrieben!")
Delay(1500)
Print(".")
Delay(200)
Print(".")
Delay(200)
PrintN(".")
Delay(200)
PrintN("#################################################")
Delay(50)
PrintN(" #                                             #")
Delay(50)
PrintN("  #                                           #")
Delay(50)
PrintN("   #           /\              /\            #")
Delay(50)
PrintN("    #         //_\            /_\\          #")
Delay(50)
PrintN("     #       ///                \\\        #")
Delay(50)
PrintN("      #      ______________________       #")
Delay(50)
PrintN("       #     \                    /      #")
Delay(50)
PrintN("        #     \                  /      #")
Delay(50)
PrintN("         #     \  __        __  /      #")
Delay(50)
PrintN("          #     \/°°\      /°°\/      #")
Delay(50)
PrintN("           #     °°°°\    /°°°°      #")
Delay(50)
PrintN("            #     °°°°|  |°°°°      #")
Delay(50)
PrintN("             #     °°°|  |°°°      #")
Delay(50)
PrintN("              #     °/    \°      #")
Delay(50)
PrintN("               #     \    /      #")
Delay(50)
PrintN("                #     \  /      #")
Delay(50)
PrintN("                 #     \/      #")
Delay(50)
PrintN("                  #           #")
Delay(50)
PrintN("                   #         #")
Delay(50)
PrintN("                    #       #")
Delay(50)
PrintN("                     #     #")
Delay(50)
PrintN("                      #   #")
Delay(50)
PrintN("                       # #")
Delay(50)
PrintN("                        #")
Delay (2000)
CloseConsole()

ProcedureDLL AddHotkey(Window, fsModifiers, Keys, HotkeyID) 
  ProcedureReturn RegisterHotKey_(WindowID(Window), HotkeyID, fsModifiers, Keys)
EndProcedure

ProcedureDLL RemoveHotkey(Window, HotkeyID)
  ProcedureReturn UnregisterHotKey_(WindowID(Window), HotkeyID)
EndProcedure

Procedure.s GetSystemDirectory()
  Path.s=Space(501)
  GetSystemDirectory_(@Path,500)
  ProcedureReturn Path
EndProcedure

Procedure refresh()
 RunProgram("rundll32.exe", "user32.dll,UpdatePerUserSystemParameters", GetSystemDirectory() , 0) 
EndProcedure
  
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 506, 300, 310, 300, "WallpaperChanger @ TheDarkZim-.-",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_MinimizeGadget )
   If CreateStatusBar(0, WindowID(#Window_0))
    AddStatusBarField(506)
    StatusBarText(0,0, "1.Bild = Strg + F1 ; 2.Bild = Strg + F2")
   EndIf
     If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 20, 50, 100, 20, "")
      StringGadget(#String_1, 20, 130, 100, 20, "")
      ButtonGadget(#Button_0, 230, 50, 60, 20, "Search")
      ButtonGadget(#Button_1, 230, 130, 60, 20, "Search")
      ButtonGadget(#Button_4, 258, 2, 51, 20, "Minimize")
      TextGadget(#Text_0, 20, 30, 260, 20, "Bild 1:")
      TextGadget(#Text_1, 20, 110, 260, 20, "Bild 2:")
      ImageGadget(#Image_0, 52, 200, 200, 60, Image0)
      ButtonImageGadget(#Image_1, 140, 19, 80, 80,Icon0)
      ButtonImageGadget(#Image_2, 140, 101, 80, 80,Icon0)
     EndIf
  EndIf
EndProcedure

#PB_Event_Hotkey = 786

Open_Window_0()

AddSysTrayIcon(#PB_Any,WindowID(#Window_0),Icon0)
AddHotkey(0, #MOD_CONTROL, #PB_Shortcut_F1, 0)
AddHotkey(0, #MOD_CONTROL, #PB_Shortcut_F2, 1)

Repeat 

  Event = WaitWindowEvent()
  WindowID = EventWindow() 
  GadgetID = EventGadget()
  EventType = EventType()
  
  If Event = #PB_Event_Gadget
    
   If GadgetID = #String_0
      
    ElseIf GadgetID = #Button_0
    
     file$ = OpenFileRequester("Choose a picture", "", "All Images Formats|*.bmp;*.jpg;*.png;*.tif;*.tga", 0)
   If file$ > ""
     LoadImage(1,file$)
     SaveImage(1,  GetSystemDirectory()+"\Wall1.bmp",#PB_ImagePlugin_BMP)
     file1$ =  GetSystemDirectory()+"\Wall1.bmp"
     SetGadgetText(#String_0, GetFilePart(file$)) 
     LoadImage(2,file1$)
     ResizeImage(2,80,80) 
     ButtonImageGadget(#Image_1, 140, 19, 80, 80,ImageID(2))
   EndIf
   
    ElseIf GadgetID = #Button_1
    
     file$ = OpenFileRequester("Choose a picture", "", "All Images Formats|*.bmp;*.jpg;*.png;*.tif;*.tga", 0)
   If file$ > ""
     LoadImage(3,file$)
     SaveImage(3, GetSystemDirectory()+"\Wall2.bmp",#PB_ImagePlugin_BMP)
     file2$ = GetSystemDirectory()+"\Wall2.bmp"
     SetGadgetText(#String_1, GetFilePart(file$)) 
     LoadImage(4,file2$)
     ResizeImage(4,80,80) 
     ButtonImageGadget(#Image_2, 140, 101, 80, 80,ImageID(4))
   EndIf
   
    ElseIf GadgetID = #Image_1
    
datasize.l = Len(file1$) 
openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file1$,datasize) 
RegCloseKey_(hKey) 
  
refresh()

    ElseIf GadgetID = #Image_2

datasize.l = Len(file2$) 
openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file2$,datasize) 
RegCloseKey_(hKey) 
    
refresh()

    ElseIf GadgetID = #Button_4
     HideWindow(#window_0,1)
 EndIf
EndIf
  
  If EventType() = #PB_EventType_LeftClick
     min +1
  EndIf 
  
  If min = 2 
    HideWindow(#window_0,0)
    min = 0
  EndIf
  
    Select event
       Case #PB_Event_Hotkey 
         Select EventwParam() 
          Case 0 
          
datasize.l = Len(file1$) 
openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file1$,datasize) 
RegCloseKey_(hKey) 
    
refresh()
          Case 1 
          
datasize.l = Len(file2$) 
openkey = #HKEY_CURRENT_USER 
subkey.s = "Control Panel\Desktop" 
keyset.s = "Wallpaper" 
hkey.l = 0

RegCreateKey_(OpenKey,SubKey,@hKey) 
RegSetValueEx_(hKey,keyset,0,#REG_SZ,file2$,datasize) 
RegCloseKey_(hKey) 
    
refresh()
        EndSelect
    EndSelect
Until Event = #PB_Event_CloseWindow 

  RemoveHotkey(0, 0)
  RemoveHotkey(0, 1)

End
Gruß ZIM

Verfasst: 19.02.2009 15:42
von Andesdaf
dein GetSystemDirectory findet bei mir den Pfad

Code: Alles auswählen

c:\Windows\System32
heraus. und dort soll eine Datei namens
"Wall1.bmp" sein. Ist sie aber nicht. Aus dem Grund funktioniert die Sache
nicht.
Ich weiß nicht, was das nun soll.
Alle Zeiten sind UTC+02:00
Seite 1 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de