Sub btn1_Clicked(target As String)
Dim url As StringBuilder
url.Initialize
url.Append("https://notify-bot.line.me/oauth/authorize?")
url.Append("response_type=code")
url.Append("&client_id=gKzwJNUaVvNTzkN59TFLTe")
url.Append("&redirect_uri=http://localhost:8100/linenotify/index.html")
url.Append("&scope=notify")
url.Append("&state=abcde")
Dim job1 As HttpJob
job1.Initialize("GetDo",Me,Null)
job1.download(url)
'ws.Eval(url,Null)
'ws.Flush
Sub JobDone (Job As HttpJob)
Log(Job.GetString)
End Sub
End Sub