$File_89 = IniRead("config.ini", "settings", "认领中的网址", "")
;;;;$id5 = IniRead("XZ.ini", $aid, "id5", "")
;$File_89 = "http://paper.pubmed.cn/"&$id5
$cookie = IniRead("config.ini", "settings", "cookie", "")
$TimeStamp=IniRead("timestamp.ini", "now", "timestamp", "")
$aid = IniRead("timestamp.ini", "now", "aid", "")
$filepath = IniRead("XZ.ini", $TimeStamp, "$File_8", "");传递文件路径
$uid = IniRead("config.ini", "settings", "uid", "")
$FileSize = IniRead("XZ.ini", $TimeStamp, "FileSize", "-2")

;;ToolTip("上传中...")
Local $UpLoadTime = 0

Do
	Local $str = ""
	Local $strFlag = 0
	ToolTip($aid & @CRLF & "上传中..." & @CRLF & $FileSize & @CRLF & $UpLoadTime, @DesktopWidth - 700, @DesktopHeight - 150, "")
	$str = POSTfile($aid, $filepath, $cookie)
	;IniWrite("post.ini", "upload", "backtext", $str)
	$strFlag = StringInStr($str, "/")
	$UpLoadTime += 1
Until $strFlag > 0 Or $UpLoadTime > 2
IniWrite("XZ.ini", $TimeStamp, "wxf", $str)



;Exit


;-----------------------------------------------------------------------------------------------------------------------------------------------------以下为自定义函数
Func POSTfile($aid, $filepath, $reqcookie);文件上传 ：参数1=$aid从网页获取,参数2=要上传的文件路径 注意必须是绝对路径，参数3=提交的网页cookie 自己获取或者使用 登录部分函数获取
	;-----------------------------------------------------------上传文件数据处理
	FileDelete($aid & ".dat")
	$fname = StringMid($filepath, StringInStr($filepath, "\", 0, -1) + 1)
	$upf = FileRead("上传头部.txt")
	$updat = StringReplace($upf, "test.pdf", $fname)
	$updat = StringReplace($updat, "2874287", $aid)
	$f = FileOpen($filepath, 16)
	$fdat = FileRead($f)
	FileClose($f)
	FileDelete($aid & ".dat")
	FileWrite($aid & ".dat", $updat)
	FileWrite($aid & ".dat", $fdat)
	FileWrite($aid & ".dat", FileRead("上传底部.txt"))
	$f = FileOpen($aid & ".dat", 16)
	$fdat = FileRead($f)
	FileClose($f)

	;----------------------------------------------------------上传文件提交
	$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
	With $oHTTP
		.Open("POST", "http://paper.pubmed.cn", False)
		.setRequestHeader("Accept", "text/html, application/xhtml+xml, */*")
		.setRequestHeader("Content-Type", "multipart/form-data; boundary=---------------------------7dfae352b067a")
		.setRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko")
		.setRequestHeader("Cookie", $reqcookie)
		.setRequestHeader("Connection", "keep-alive")
		.setRequestHeader("Pragma", "no-cache")
		.setRequestHeader("DNT", "1")
		.setRequestHeader("Content-Length", String(BinaryLen($fdat)))
		.setRequestHeader("Referer", "http://paper.pubmed.cn/")
		.Send($fdat)
	EndWith
	$return = $oHTTP.ResponseText
	$oHTTP = 0
	$str = Midstr($return, "信息提示", "<script>")
	$str = Midstr($str, "<a  href=", "</a>")
	ToolTip($aid & @CRLF & $str, @DesktopWidth - 700, @DesktopHeight - 150, "")
	Sleep(1000)
	FileDelete($aid & ".dat")
	Return $str
EndFunc   ;==>POSTfile

Func POSTSource($url, $postdata, $reqcookie, ByRef $headers)
	$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
	With $oHTTP
		.Option(4) = 13056
		.option(6) = 0
		.Open("POST", $url, False)
		.setRequestHeader("Accept", "*/*")
		.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		.setRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727)")
		.setRequestHeader("Cookie", $reqcookie)
		.setRequestHeader("Connection", "keep-alive")
		.setRequestHeader("Cache-Control", "max-age=0")
		.setRequestHeader("Content-Length", String(StringLen($postdata)))
		;.setRequestHeader("Referer", $url)
		.Send($postdata)
	EndWith
	$return = $oHTTP.ResponseText
	$headers = $oHTTP.GetAllResponseHeaders
	;$rescookie = Getcookie($headers)
	$oHTTP = 0
	Return $return
EndFunc   ;==>POSTSource
Func GetSource($url, $reqcookie, ByRef $headers)
	$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
	With $oHTTP
		.option(6) = 0
		.Open("GET", $url, False)
		If $reqcookie <> "" Then
			.setRequestHeader("Cookie", $reqcookie)
		EndIf

		.setRequestHeader("Accept", "*/*")
		.setRequestHeader("Accept-Language", "zh-CN")
		.setRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727)")
		.setRequestHeader("Connection", "keep-alive")
		;.setRequestHeader("Referer", "http://www.dxy.cn/")
		.Send()
	EndWith
	$return = $oHTTP.ResponseText
	$headers = $oHTTP.GetAllResponseHeaders
	;$rescookie = Getcookie($headers)
	$oHTTP = 0
	Return $return
EndFunc   ;==>GetSource

Func Getcookie($headers)
	Dim $re = ""
	$a = StringSplit($headers, @CRLF)
	If IsArray($a) Then
		For $b In $a
			If StringInStr($b, "Set-Cookie") <> 0 Then
				$re &= Midstr($b, "Set-Cookie:", ";") & ";"
			EndIf
		Next
	EndIf
	Return ($re)
EndFunc   ;==>Getcookie

Func Midstr($str1, $str2, $str3)
	Dim $a = 0, $b = 0, $c = 0
	$a = StringInStr($str1, $str2) + StringLen($str2)
	$b = StringInStr($str1, $str3, 0, 1, $a)
	$c = $b - $a
	If $a = 0 Or $b = 0 Then
		Return ("")
	Else
		Return (StringMid($str1, $a, $c))
	EndIf
EndFunc   ;==>Midstr