set InputFieldUrl to text returned of (display dialog "Welke URL wilt u views geven?" default answer "")
display dialog "U gaat naar deze url: " & InputFieldUrl buttons {"Oke"} default button 1
set InputFieldTimes to text returned of (display dialog "Hoeveel views wilt u geven? " default answer "") as integer
display dialog "U gaat de pagina " & InputFieldTimes & " keer bekijken?" buttons {"Ja", "Nee"} default button 1


if button returned of result is "Ja" then
    tell application "Safari"
        activate
        make new document at end of documents
        set URL of document 1 to InputFieldUrl
    end tell

    tell application "System Events"
        tell process "Safari"
            delay 10
            repeat InputFieldTimes times
                delay 1
                keystroke "r" using {command down}
            end repeat
        end tell
    end tell

end if