剪贴板读取

URL=http://xx.xx/clip.txt
Clip=% UrlDownloadToVar(URL,"UTF-8")
Msgbox,以下内容已加入剪贴板:`n`n%Clip%
clipboard=%Clip%
ExitApp

URLDownloadToVar(aUrl, aCharset = "UTF-8")
{
	ComObjError(0)
	_whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	_whr.Open("GET", aUrl, true)	
	_whr.SetRequestHeader("Cookie","test")
	_whr.Send()
	_whrTimeOut := -1
    _whr.WaitForResponse(_whrTimeOut)
	ADO:=ComObjCreate("adodb.stream")
	ADO.Type:=1
	ADO.Mode:=3
	ADO.Open()
	ADO.Write(_whr.ResponseBody)
	ADO.Position:=0
	ADO.Type:=2
	ADO.Charset:=aCharset
	ret_var:=ADO.ReadText()
	ADO.Close()
	return ret_var
}