#NoEnv
SetWorkingDir %A_ScriptDir%
#SingleInstance force 
FileEncoding , UTF-8 

inputbox, Text, , , ,150 ,100,, , , ,*****

url1 := "http://chart.apis.google.com/chart?cht=qr&chs=200x200&chl="
url3 := "&chld=H|0"

urlname := url1 . Text . url3

UrlDownloadToFile, %urlname%, %A_ScriptDir%\%Text%.png

Clipboard := % urlname

ExitApp