bonsoir
j'ai deux trois bout de code .... voilà.
Cordialement
Code : Tout sélectionner
Enumeration
#Web1
#Button1
EndEnumeration
Procedure WindowOpen()
OpenWindow(1,0,0,500,400,"Window",#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(1))
ButtonGadget(#Button1, 10, 10, 40, 20, "Test")
WebGadget(#Web1, 10, 40, 480, 320, "www.google.de")
EndProcedure
Procedure MAKELPARAM(low.w, high.w)
ProcedureReturn low + (high << 16)
EndProcedure
Procedure SimulateClick()
mx.w= 473 ; These Coordinates are where a link should be, please check
my.w= 376
lParam = MAKELPARAM(mx.w, my.w)
SendMessage_(WindowID(1),#WM_LBUTTONDOWN,0,lParam)
SendMessage_(WindowID(1),#WM_LBUTTONUP,0,lParam)
EndProcedure
Procedure EventHandling()
Repeat
;GetCursorPos_(pt.POINT) ; Check Please where a Link is set in your WebGadget, I have used google germany.
;Debug "x:" + Str(pt\x) + "y:" + Str(pt\y)
EventID=WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadget()
Case #Button1
SimulateClick()
EndSelect
EndSelect
Until EventID=#PB_Event_CloseWindow
CloseWindow(1)
End
EndProcedure
Procedure Main()
WindowOpen()
EventHandling()
EndProcedure
Main()
Code : Tout sélectionner
; German forum:
; Author: Unknown (updated for PB4.00 by blbltheworm)
; Date: 22. March 2003
; OS: Windows
; Demo: No
;Mögliche Konstanten für das Ereignis
#MOUSEEVENTF_MOVE = $1
#MOUSEEVENTF_ABSOLUTE = $8000
#MOUSEEVENTF_LEFTDOWN = $2
#MOUSEEVENTF_LEFTUP = $4
#MOUSEEVENTF_MIDDLEDOWN = $20
#MOUSEEVENTF_MIDDLEUP = $40
#MOUSEEVENTF_RIGHTDOWN = $8
#MOUSEEVENTF_RIGHTUP = $10
Procedure MouseEvent(Ereignis.l)
Mem.l=GlobalAlloc_(0,8)
GetCursorPos_(Mem)
mouse_event_(Ereignis|#MOUSEEVENTF_ABSOLUTE,PeekL(Mem)*($FFFF/GetSystemMetrics_(0)),PeekL(Mem+4)*($FFFF/GetSystemMetrics_(1)),0,GetMessageExtraInfo_())
GlobalFree_(Mem)
EndProcedure
;Simuliert einen Klick mit der Rechten Maustaste an der aktuellen Cursorposition
MouseEvent(#MOUSEEVENTF_RIGHTDOWN)
MouseEvent(#MOUSEEVENTF_RIGHTUP)
Code : Tout sélectionner
OpenWindow(0,0,0,800,600,"",$CA0001)
CreateGadgetList(WindowID(0))
ButtonGadget(1,100,100,100,30,"pressed")
Repeat
If GetAsyncKeyState_(#VK_LBUTTON) And GetActiveWindow()=0
SendMessage_(GadgetID(1),#WM_LBUTTONDOWN,0,0)
EndIf
Until WaitWindowEvent()=16
Code : Tout sélectionner
keybd_event_(12, 0, 0, 0)
For a = 1 To 2
mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0)
Delay(GetDoubleClickTime_()-1)
mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0)
Next a
keybd_event_(12, 0, #KEYEVENTF_KEYUP, 0)
