I am stuck again, really tried hard, to no avail

Question

Dear applescript genius,
I have had help, came a long way, but got stuck again.
I am still facing a lot of problems, but this one is now top 1 prio for me.
I am trying to automate creating a new event in facebook.
When you click Create Event on your facebook page, a new form pops up where you can fill in data of the event you want to create.
I am trying to build an applescript to automate this proces.
I have learned from this forum how to find the pointers to the form elements.
I can use the following code to fill in a form element :
  tell Details_Pointer
  set focused of Details_Pointer to true
  delay delay_time
  keystroke "a" using command down
  keystroke "Details of the event"
  delay delay_time
  keystroke (ASCII character (9))
  end tell
Where Details_Pointer is the UI Element of the form element "Details"
But this code is not robuust and needs delays between filling in the diferent elements.
So, i have been trying this code:
  tell process Details_Pointer
  activate
                              set value of Details_Pointer to "Details of this event"
  end tell
But when you use this code to fill in the elements of the form and then you click Create on the form, non of the data filled in on the form is takn over!.
Could some please show what to do to fil in the form elements so that the information is actually "taken over" in the form?
Ths is the code i use.
LocateElementsTFTA() is to locate the UI Elements
find_new_event_pointers() is to extract the UI Elements of the form.
And then the last lines of code
tell application "Safari"
  activate
  tell application "System Events"
  keystroke "Title of this event"
  end tell
end tell
Is used to fill in the form elements.
What happens s that when yu run this code the form elements seem te have taken over the data. However when you click on create non of the info is "taken over" (except for the first element where the Keystroke command is used)
Can someone please help me to make a next step in this code?
Thanks
jschaafsma
set pointers to {}
global Details_Pointer
global name_Pointer
global where_Pointer
global when_Pointer
global start_time_Pointer
on LocateElementsTFTA()
  script o
  property mindepth : 2
  property maxdepth : 8
                    property uu : {}
                    tell application "System Events"
  tell application process "Safari"
                                        set d to 1
  set uuref to a reference to window 1's UI elements
                                        repeat while (count uuref) > 0
                                                  if d < mindepth then
                                                  else
  repeat with u in (uuref whose (class = text field or class = text area))
  --set end of my uu to {d, u's contents} -- for test
                                                                      set end of my uu to u's contents
  end repeat
                                                  end if
                                                  set d to d + 1
  if d > maxdepth then exit repeat
  set uuref to a reference to uuref's UI elements
  end repeat
  end tell
  end tell
  return uu's contents
  end script
  tell o to run
end LocateElementsTFTA
on find_new_event_pointers()
  set pointerlijst to LocateElementsTFTA()
  set process_error to 5
          tell application "System Events"
  tell application process "Safari"
  repeat with deze_pointer in pointerlijst
  set veldwaarde to (title of deze_pointer as string) & "  " & (value of deze_pointer as string)
                                        if veldwaarde contains "Add more info" then
  set Details_Pointer to deze_pointer
  set process_error to process_error - 1
                                        end if
                                        if veldwaarde contains "Birthday" then
  set name_Pointer to deze_pointer
  set process_error to process_error - 1
                                        end if
                                        if veldwaarde contains "Add a place" then
  set where_Pointer to deze_pointer
  set process_error to process_error - 1
                                        end if
                                        if veldwaarde contains "Expected format" then
  set when_Pointer to deze_pointer
  set process_error to process_error - 1
                                        end if
                                        if veldwaarde contains "Add a time" then
  set start_time_Pointer to deze_pointer
  set process_error to process_error - 1
                                        end if
  end repeat
  end tell
  end tell
  return process_error
end find_new_event_pointers
my find_new_event_pointers()
tell application "Safari"
  activate
          tell application "System Events"
                    keystroke "Title of this event"
  keystroke (ASCII character (9))
  tell process where_Pointer
  activate
                              set value of where_Pointer to "Where the event takes place"
  end tell
  tell process Details_Pointer
  activate
                              set value of Details_Pointer to "Details of this event"
  end tell
  tell process when_Pointer
  activate
                              set value of when_Pointer to "7/5/2012"
  end tell
  tell process start_time_Pointer
  activate
                              set value of start_time_Pointer to "06:20 am"
  end tell
  end tell
end tell

Answer 1

Try deleting and then App Store > Updates > Purchased and then find your apps again.