; PureBasic Visual Designer v3.72 ;- Window Constants ; #Window_0 = 0 ;- Gadget Constants ; #Gadget_0 = 0 #Gadget_1 = 1 #Gadget_2 = 2 #Gadget_3 = 3 Procedure Open_Window_0() If OpenWindow(#Window_0, 216, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )") If CreateGadgetList(WindowID()) StringGadget(#Gadget_0, 10, 30, 500, 40, "") ButtonGadget(#Gadget_1, 10, 90, 60, 30, "tryit") WebGadget(#Gadget_2, 10, 160, 700, 80, "About:") ButtonGadget(#Gadget_3, 150,90,60,30,"Send") EndIf EndIf EndProcedure Open_Window_0() SetForegroundWindow_(WindowID()) hGadget.l=GadgetID(#Gadget_0) setfocus_(hGadget) keybd_event_(74,0,0,0) ;keybd_event_(#VK_DOWN,0,#KEYEVENTF_KEYUP,0) Repeat quit.l=WindowEvent() If quit=#PB_EventGadget Select EventGadgetID() Case #Gadget_1 ;FreeGadget(#Gadget_2) m.s=GetGadgetText(#Gadget_0) SetGadgetText(#gadget_2,m) Delay(20) ;WebGadget(#Gadget_2, 10, 160, 500, 90, GetGadgetText(#Gadget_1)) Case #Gadget_3 ;send a command to webgadget setfocus_(GadgetID(#Gadget_2)) scrollwindow_(GadgetID(#Gadget_2),-10,-15,0,0) keybd_event_(#VK_DOWN,0,0,0) EndSelect EndIf Delay(1) Until quit=#PB_Eventclosewindow ; ExecutableFormat= ; DisableDebugger ; EOF