把网页源代码发上来,我帮你搞定, F12的最好了
有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
FUNCTION GETURL(URL) IF PCOUNT()<1 OR EMPTY(url) RETURN '' ENDIF LOCAL lcurl,lcfile,lcstr lcurl=URL lcfile=ADDBS(SYS(2023))+SYS(3) DECLARE LONG URLDownloadToFile IN URLMON.DLL LONG, STRING, STRING, LONG, LONG =URLDownloadToFile(0,lcurl,lcfile,0,0) CLEAR DLLS "URLDownloadToFile" lcstr='' IF FILE(lcfile) lcstr=FILETOSTR(lcfile) DELETE FILE &lcfile. ENDIF RETURN lcstr ENDFUNC
[此贴子已经被作者于2020-1-7 20:56编辑过]