Pressing enter, how could start search?
Thank you in advance for your help!
Code: Select all
Global WebObject.IWebBrowser2
Global EventId.i, GadgetNumber.i
#OLECMDID_FIND = 32
Enumeration 1
#OLECMDID_OPEN
#OLECMDID_NEW
#OLECMDID_SAVE
#OLECMDID_SAVEAS
#OLECMDID_SAVECOPYAS
#OLECMDID_PRINT
#OLECMDID_PRINTPREVIEW
#OLECMDID_PAGESETUP
#OLECMDID_SPELL
#OLECMDID_PROPERTIES
#OLECMDID_CUT
#OLECMDID_COPY
#OLECMDID_PASTE
#OLECMDID_PASTESPECIAL
#OLECMDID_UNDO
#OLECMDID_REDO
#OLECMDID_SELECTALL
#OLECMDID_CLEARSELECTION
#OLECMDID_ZOOM
#OLECMDID_GETZOOMRANGE
#OLECMDID_UPDATECOMMANDS
#OLECMDID_REFRESH
#OLECMDID_STOP
#OLECMDID_HIDETOOLBARS
#OLECMDID_SETPROGRESSMAX
#OLECMDID_SETPROGRESSPOS
#OLECMDID_SETPROGRESSTEXT
#OLECMDID_SETTITLE
#OLECMDID_SETDOWNLOADSTATE
#OLECMDID_STOPDOWNLOAD
EndEnumeration
Enumeration 0
#OLECMDEXECOPT_DODEFAULT
#OLECMDEXECOPT_PROMPTUSER
#OLECMDEXECOPT_DONTPROMPTUSER
#OLECMDEXECOPT_SHOWHELP
EndEnumeration
Enumeration
#Window_0
#Web_0
#Button_vissza
#Button_elore
#FindButton
#Font_Button_vissza
#Font_Button_elore
#Font_FindButton
EndEnumeration
If OpenWindow(#Window_0, 0, 0, 1000, 600, "TippMix",#PB_Window_SystemMenu |#PB_Window_MinimizeGadget| #PB_Window_ScreenCentered)
StickyWindow(#Window_0,1)
WebGadget( #Web_0, 0, 30, 1000, 570, "http://www.tippmix.hu/sportfogadas")
WebObject.IWebBrowser2=GetWindowLong_(GadgetID(#Web_0),#GWL_USERDATA)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_X,Asc("x"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_C,Asc("c"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_V,Asc("v"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_A,Asc("a"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Z,Asc("z"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Y,Asc("y"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Shift|#PB_Shortcut_Z,Asc("y"))
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Return,13)
ButtonGadget(#Button_vissza, 0, 0, 333, 29, "<<< VISSZA")
ButtonGadget(#Button_elore, 334, 0, 333, 29, "ELŐRE >>>")
ButtonGadget(#FindButton, 668, 0, 333, 29, "KERESÉS")
; Gadget Fonts
SetGadgetFont(#Button_vissza, LoadFont(#Font_Button_vissza, "Microsoft Sans Serif", 14, 16))
SetGadgetFont(#Button_elore, LoadFont(#Font_Button_elore, "Microsoft Sans Serif", 14, 16))
SetGadgetFont(#FindButton, LoadFont(#Font_FindButton, "Microsoft Sans Serif", 14, 16))
EndIf
;{- Event loop
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case Asc("x")
Debug "cut"
WebObject\ExecWB(#OLECMDID_CUT,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case Asc("c")
Debug "copy"
WebObject\ExecWB(#OLECMDID_COPY,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case Asc("v")
Debug "paste"
WebObject\ExecWB(#OLECMDID_PASTE,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case Asc("a")
Debug "select all"
WebObject\ExecWB(#OLECMDID_SELECTALL,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case Asc("z")
Debug "undo"
WebObject\ExecWB(#OLECMDID_UNDO,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case Asc("y")
Debug "redo"
WebObject\ExecWB(#OLECMDID_REDO,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
Case 13
Debug "enter"
;WebObject\ExecWB(?)
EndSelect
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Web_0
ElseIf EventGadget = #Button_vissza
SetGadgetState(#Web_0,#PB_Web_Back)
ElseIf EventGadget = #Button_elore
SetGadgetState(#Web_0,#PB_Web_Forward)
ElseIf EventGadget = #FindButton
WebObject\ExecWB(#OLECMDID_FIND, #OLECMDEXECOPT_DODEFAULT, 0, 0)
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
res= MessageRequester("Kilépés","Biztos, hogy kilép a TippMixből?",#PB_MessageRequester_YesNo )
If res=6
CloseWindow(#Window_0)
Break
EndIf
EndIf
EndSelect
ForEver
;