SuperStrict

Import MaxGui.drivers

Global GetAcc:Byte = 0 
Const Client_ID:String = "XXXX" 'Client_ID
Const Client_Sec:String = "XXXX" 'Client_Secret

AppTitle = "Facebook Test"

Local MyWindow:TGadget = CreateWindow(AppTitle, 0,0,300,400,Null,WINDOW_TITLEBAR|WINDOW_CENTER|WINDOW_RESIZABLE)
Local HTMLView:TGadget = CreateHTMLView(0,0,300,370,MyWindow,HTMLVIEW_NONAVIGATE)
SetGadgetLayout htmlview,1,1,1,1 

NSSetText TNSGadget(HTMLView),"https://graph.facebook.com/oauth/authorize?client_id="+Client_ID+"&redirect_uri=http://www.facebook.com/connect/login_success.html&Type=user_agent&display=popup"
'Kann die Funktion HTMLViewGo nicht benutzten, da ich https! brauche. 

Local Timer:TTimer = CreateTimer(3)

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_APPTERMINATE, EVENT_WINDOWCLOSE
			End
		Case EVENT_GADGETACTION
			Select EventSource()
				Case HTMLView
					Print EventText()
			End Select
		Case EVENT_GADGETDONE
			Select EventSource()
				Case HTMLView
					If GetAcc = 1 Then
						Local Token:String = HtmlView.Run("function GetPage(){return document.getElementsByTagName('PRE').item(0).innerHTML;} GetPage();")
						Token = Token[13..Token.Find("&")]
						Print "Get some User-Informations"
						Print "https://graph.facebook.com/me?access_token="+Token
						NSSetText TNSGadget(HTMLView),"https://graph.facebook.com/me?access_token="+Token.Replace("|","%7C") 'Bisschen URL-Encoding
						GetAcc = 0
					EndIf 
			End Select
		Case EVENT_TIMERTICK
			Local Title:String = HtmlView.Run("function GetTitle(){return document.title;} GetTitle();")
			If Title = "Success" Then 
				GetAcc = 1
				Local Code:String = String(HtmlView.Run("function GetHref(){return window.location.href;} GetHref();"))[56..]
				Local Link:String = "https://graph.facebook.com/oauth/access_token?client_id="+Client_ID+"&client_secret="+Client_Sec+"&code="+Code+"&redirect_uri=http://www.facebook.com/connect/login_success.html"
				NSSetText TNSGadget(HTMLView),Link
			EndIf 
	End Select
Forever