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
