PureBasic Forums - English

Code: Select all

tell application "System Events"
	tell application "Safari" to activate
	tell process "Safari"
		keystroke "," using command down
		delay 3
		tell window 1
			click button "Privacy" of tool bar 1
			delay 3
			click radio button "From third parties and advertisers" of radio group 1 of group 1 of group 1
		end tell
	end tell
	tell application "Safari" to quit
end tell

Code: Select all

CookieStorage = CocoaMessage(0, 0, "NSHTTPCookieStorage sharedHTTPCookieStorage")

If CookieStorage
  OpenWindow(0, 270, 100, 260, 117, "Change cookie settings")
  FrameGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 20, "Block cookies:")
  OptionGadget(1, 20, 80, WindowWidth(0) - 20, 20, "Never")
  OptionGadget(2, 20, 55, WindowWidth(0) - 20, 20, "Always")
  OptionGadget(3, 20, 30, GadgetWidth(0) - 20, 20, "From third parties and advertisers")

  CookiePolicy = CocoaMessage(0, CookieStorage, "cookieAcceptPolicy")
  SetGadgetState(CookiePolicy + 1, #True)

  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        SelectedGadget = EventGadget()

        If SelectedGadget >= 1 And SelectedGadget <= 3
          CookiePolicy = SelectedGadget - 1
          CocoaMessage(0, CookieStorage, "setCookieAcceptPolicy:", CookiePolicy)
        EndIf
    EndSelect
  ForEver
EndIf