onjour à vous je souhaiterais tester l'utilisation des API tweater à partir du code ci dessous mais j'ignore à quoi correspondent les valeurs consumer key et consumer secret et comment les trouver
peut être avez vous des infos qui pourraient m'éclairer...
En vous remerciant pour vos conseils et informations
Jean-Marc
Code : Tout sélectionner
[spoiler=]
#include <StaticConstants.au3>
#include <EditConstants.au3>
#Include <GuiListView.au3>
#include <Twitter.au3>
Dim $msg, $twitter, $twitter_ctrl
Global $main_gui, $curr_gui, $authentication_gui
; Setup the Main GUI
$main_gui = GUICreate("Twitter Example - Main", 460, 360, -1, -1)
GUICtrlCreateGroup("Authentication", 10, 10, 440, 70)
GUICtrlCreateLabel("Consumer Key:", 20, 30, 80, 20)
$consumer_key_input = GUICtrlCreateInput("WW6MD2bbVwoUHmCgijXog", 105, 30, 120, 20)
GUICtrlCreateLabel("Consumer Secret:", 20, 50, 85, 20)
$consumer_secret_input = GUICtrlCreateInput("xxxx", 105, 50, 120, 20)
$authenticate_button = GUICtrlCreateButton("Authenticate", 230, 50, 80, 20)
GUICtrlCreateGroup("Tweeting", 10, 90, 440, 230)
GUICtrlCreateLabel("Message:", 20, 110, 45, 20)
$message_input = GUICtrlCreateInput("hello world", 105, 110, 80, 20)
GUICtrlCreateLabel("Lat:", 190, 110, 30, 20)
$latitude_input = GUICtrlCreateInput("", 210, 110, 50, 20)
GUICtrlCreateLabel("Long:", 270, 110, 30, 20)
$longitude_input = GUICtrlCreateInput("", 300, 110, 50, 20)
$tweet_button = GUICtrlCreateButton("Tweet", 360, 110, 80, 20)
GUICtrlSetState($tweet_button, $GUI_DISABLE)
GUICtrlCreateLabel("Search Text:", 20, 130, 70, 20)
$search_text_input = GUICtrlCreateInput("hello world", 105, 130, 80, 20)
$search_text_button = GUICtrlCreateButton("Search", 360, 130, 80, 20)
GUICtrlCreateLabel("Result Type:", 20, 150, 90, 20)
$result_type_list = GUICtrlCreateList("", 105, 150, 80, 50, BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetData($result_type_list, "mixed|recent|popular", "mixed")
GUICtrlCreateLabel("Search Results:", 20, 190, 85, 20)
$response_listview = GUICtrlCreateListView("title|author name|published|id", 20, 210, 380, 100)
GUICtrlCreateLabel("Status:", 10, 330, 50, 20)
$status_input = GUICtrlCreateInput("Ready", 50, 330, 300, 20, $ES_READONLY)
$close_button = GUICtrlCreateButton("Close (Esc)", 370, 330, 80, 20)
dim $main_gui_accel[1][2]=[["{ESC}", $close_button]]
; Setup the Authentication GUI
$authentication_gui = GUICreate("Twitter Example - Authenication", 640, 480, -1, -1, BitOR($WS_SIZEBOX, $WS_MAXIMIZEBOX))
$authentication_label1 = GUICtrlCreateLabel("Now accessing Twitter for authentication." & @CRLF & "When prompted, please provide your Twitter username and password.", 10, 10, 630, 50, $SS_CENTER)
GUICtrlSetFont($authentication_label1, 12, 800)
$twitter_ctrl = _GUICtrlTwitter_Create($twitter, 0, 50, 640, 380)
GUICtrlSetState($twitter_ctrl, $GUI_HIDE)
$authentication_label2 = GUICtrlCreateLabel("This window will automatically close when authenication has finished.", 10, 430, 630, 50, $SS_CENTER)
GUICtrlSetFont($authentication_label2, 12, 800)
; Show the Main GUI
$curr_gui = $main_gui
GUISwitch($curr_gui)
GUISetState(@SW_SHOW)
GUISetAccelerators($main_gui_accel)
; The Main Loop
while 1
if $msg = $authenticate_button Then
GUICtrlSetData($status_input, "Authentication started ...")
$curr_gui = $authentication_gui
GUISwitch($curr_gui)
GUISetState(@SW_SHOW)
_GUICtrlTwitter_Authenticate($twitter, $twitter_ctrl, GUICtrlRead($consumer_key_input), GUICtrlRead($consumer_secret_input))
GUICtrlSetState($tweet_button, $GUI_ENABLE)
GUISetState(@SW_HIDE)
$curr_gui = $main_gui
GUISwitch($curr_gui)
GUISetState(@SW_ENABLE)
GUISetState(@SW_RESTORE)
GUISetAccelerators($main_gui_accel)
GUICtrlSetData($status_input, "Authentication complete.")
Sleep(2000)
GUICtrlSetData($status_input, "Ready")
EndIf
if $msg = $tweet_button Then
GUICtrlSetData($status_input, "Sending tweet ...")
_GUICtrlTwitter_UpdateStatus($twitter, GUICtrlRead($message_input), GUICtrlRead($latitude_input), GUICtrlRead($longitude_input))
GUICtrlSetData($status_input, "Tweet sent.")
Sleep(2000)
GUICtrlSetData($status_input, "Ready")
EndIf
if $msg = $search_text_button Then
GUICtrlSetData($status_input, "Searching Twitter ...")
$search_result = _GUICtrlTwitter_Search(GUICtrlRead($search_text_input), GUICtrlRead($result_type_list))
_GUICtrlListView_BeginUpdate($response_listview)
_GUICtrlListView_DeleteAllItems($response_listview)
$entry_num = 1
while StringLen($search_result.item("entry" & $entry_num & ".id")) > 0
$listviewitem = $search_result.item("entry" & $entry_num & ".title") & "|" & _
$search_result.item("entry" & $entry_num & ".name") & "|" & _
$search_result.item("entry" & $entry_num & ".published") & "|" & _
$search_result.item("entry" & $entry_num & ".id")
GUICtrlCreateListViewItem($listviewitem, $response_listview)
$entry_num = $entry_num + 1
WEnd
_GUICtrlListView_SetColumnWidth($response_listview,0,250)
_GUICtrlListView_SetColumnWidth($response_listview,1,100)
_GUICtrlListView_SetColumnWidth($response_listview,2,150)
_GUICtrlListView_SetColumnWidth($response_listview,3,270)
_GUICtrlListView_EndUpdate($response_listview)
GUICtrlSetData($status_input, "Search finished.")
Sleep(2000)
GUICtrlSetData($status_input, "Ready (" & $entry_num & " results returned)")
EndIf
If $msg = $GUI_EVENT_CLOSE or $msg = $close_button Then
; If the Main GUI was closed, then exit the script
if $curr_gui = $main_gui Then
ExitLoop
Else
; Other GUIs are disabled, and the Main GUI enabled.
GUISetState(@SW_HIDE)
$curr_gui = $main_gui
GUISwitch($curr_gui)
GUISetState(@SW_ENABLE)
GUISetState(@SW_RESTORE)
GUISetAccelerators($main_gui_accel)
EndIf
EndIf
$msg = GUIGetMsg()
WEnd
GUIDelete()
[/spoiler]
