Kleiner Bug im Code - brauche kleine Hilfe

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

Beitrag von X360 Andy »

Code: Alles auswählen

;Fenster
Enumeration
  #OP
EndEnumeration

;Links
Enumeration
#Main
#Suchbegriff
#Suchen
EndEnumeration

;Buttons
Enumeration
#Close
EndEnumeration



;---------PROZEDUREN--------------------

Procedure GetWindowBkColor(hWnd)
  A$=Space(40)
  GetObject_(GetClassLong_(hWnd,#GCL_HBRBACKGROUND),40,@A$)
  ProcedureReturn PeekL(@A$+4)
EndProcedure

;------------FENSTER---------------------

OpenWindow(#OP,0,0,800,600,"xxxxxxxxxx - Klick2Go",1|#WS_SYSMENU)
hBrush=CreateSolidBrush_(RGB(255,255,255))
SetClassLong_(WindowID(#OP),#GCL_HBRBACKGROUND,hBrush)     ; Fensterfarbe setzen
InvalidateRect_(WindowID(#OP),#Null,#True)


;-----------------GADGETS---------------------
If CreateGadgetList(WindowID(#OP))
ButtonGadget(#Close,300,540,155,20,"xxxxxxxxxxx Klick2Go beenden")
StringGadget(#Suchbegriff, 200,200, 100, 20 , "Gamerscore" )
ButtonGadget(#Suchen,300,240,155,20,"Suchen")
HyperLinkGadget(#Main, 28, 38, 285, 15, "xxxxxxxxxxxxxx Portal", RGB(248, 15, 7),#PB_HyperLink_Underline)
GadgetToolTip(#Main, "www.xxxxxxxxxxx.net")
EndIf

 

   
Repeat
   EventID = WaitWindowEvent()
Select EventID
  Case #PB_Event_Gadget
    Select EventGadget()
     Case #main
      RunProgram("http://www.xxxxxxxxxxxx.net")
    EndSelect 
        
     Select EventGadget()
      Case #Suchen
      boardsuche$=GetGadgetText(#suchbegriff)
      RunProgram("http://www.google.de/search?hl=de&q="+boardsuche$+"&btnG=Google-Suche&meta=")
    EndSelect 
  
EndSelect

Until eventID=#WM_CLOSE


End
// Danke Kiffi :oops:
Zuletzt geändert von X360 Andy am 04.10.2008 11:48, insgesamt 1-mal geändert.
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

X360 Andy hat geschrieben:Edit ... noch zu müde :lol:
hättest nur boardsuche$=GetGadgetText(#suche) vor RunProgram() setzen müssen ;-)

Grüße ... Kiffi
a²+b²=mc²
Benutzeravatar
DrShrek
Beiträge: 1970
Registriert: 08.09.2004 00:59

Beitrag von DrShrek »

marco2006 hat geschrieben:Mit der Demo kann er aber kein Winapi nutzen :wink:
Wenn er bezahlt hat...kann er updaten.
Wenn nicht ...gibt es keine Unterstützung...warez ist nicht die feine Art.
Siehste! Geht doch....?!
PB*, *4PB, PetriDish, Movie2Image, PictureManager, TrainYourBrain, ...
Odiii
Beiträge: 8
Registriert: 04.10.2008 09:49
Kontaktdaten:

Beitrag von Odiii »

Nein, meine Version ist keine Warez, sonst hätte ich längst die 4.3 druff :mrgreen:

Habe das mit der SuFu hinbekommen.
Nun aber eine andere Frage.
Ist es möglich sich über das Tool in (m)einem Board einzuloggen?

Sprich mit 2 Strings (Username & PW)?

Gruß&Thx

Wart bisher wirklich hilfreich, thx an der Stelle
:allright:
Benutzeravatar
DrShrek
Beiträge: 1970
Registriert: 08.09.2004 00:59

Beitrag von DrShrek »

Odiii hat geschrieben:Nein, meine Version ist keine Warez, sonst hätte ich längst die 4.3 druff :mrgreen:
...klar...schöne Begründung...genauso lässt es sich andersrum auch argumentieren...

Ich persönlich werde nur noch bei Sourcen zu der jeweils aktuellen PB Version meine Hilfe anbieten.
Siehste! Geht doch....?!
PB*, *4PB, PetriDish, Movie2Image, PictureManager, TrainYourBrain, ...
Benutzeravatar
cxAlex
Beiträge: 2111
Registriert: 26.06.2008 10:42

Beitrag von cxAlex »

naja, 4.3 ist noch Beta die aktuelle Stable-Version ist 4.2. Also dürftest du eigentlich für 4.3 keine Hilfe anbieten.
Projekte: IO.pbi, vcpu
Pausierte Projekte: Easy Network Manager, µC Emulator
Aufgegebene Projekte: ECluster

Bild

PB 5.1 x64/x86; OS: Win7 x64/Ubuntu 10.x x86
Odiii
Beiträge: 8
Registriert: 04.10.2008 09:49
Kontaktdaten:

Beitrag von Odiii »

Wie gesagt, kein Warez ;)

Gibt es da nun eine Möglichkeit?
Noch eine Frage btw: Kann man den Text im Framegadget centrieren, also mittig anzeigen lassen?

Grüßle
Benutzeravatar
DrShrek
Beiträge: 1970
Registriert: 08.09.2004 00:59

Beitrag von DrShrek »

cxAlex hat geschrieben:naja, 4.3 ist noch Beta die aktuelle Stable-Version ist 4.2. Also dürftest du eigentlich für 4.3 keine Hilfe anbieten.
Stable ist eine Frage der Funktionen die DU nutzt.
Somit war PB4.20 weniger stable als PB4.30 Beta3 -> Ich nutze Subsystem DirectX9
Siehste! Geht doch....?!
PB*, *4PB, PetriDish, Movie2Image, PictureManager, TrainYourBrain, ...
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

was isn der Grund, warum du noch nicht 4.2 benutzt?
kannste ruhig updaten, die ist stabil, und nur ein paar kleine Bugs die nicht so ins Gewicht fallen...
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Odiii
Beiträge: 8
Registriert: 04.10.2008 09:49
Kontaktdaten:

Beitrag von Odiii »

Meinst du mich?
Der Grund ist, das ich nicht updaten kann.
Habe meine Version bei Ebay erworben und wenn ich auf Update klicke, kommt eine Meldung, dass die Version keine Updatefähige Version ist, da sie nicht im Internet erworben wurde oder so ähnlich.

Könnte mir jemand meine Frage beantworten? Wäre echt nett :allright:
Antworten