新版更新

FileRead,D_GET,*p65001 E:deskhabit.html
result :=RegExMatchAll(D_GET,"

(.+?)

",1) MsgBox % result[1] result :=RegExMatchAll(D_GET,"href=(.+?)target",1) MsgBox % result[1] result :=RegExMatchAll(D_GET,"
    (.*?)
",[1]) MsgBox % result[1] return D_GX(K_URL){ req := ComObjCreate("Msxml2.XMLHTTP") req.open("GET",K_URL,false) req.Send() return req.responseText } RegExMatchAll(ByRef Haystack, NeedleRegEx, SubPat="") { arr := [], startPos := 1 while ( pos := RegExMatch(Haystack, NeedleRegEx, match, startPos) ) { arr.push(match%SubPat%) startPos := pos + StrLen(match) } return arr.MaxIndex() ? arr : "" } InternetFileGetSize(URL:=""){ Static LIB="WININET", CL="00000000000000", N="" QRL := 16 If ! DllCall( "GetModuleHandle", Str,"wininet.dll" ) DllCall( "LoadLibrary", Str,"wininet.dll" ) If ! hIO:=DllCall( LIB "InternetOpenA", Str,N, UInt,4, Str,N, Str,N, UInt,0 ) Return -1 If ! (( hIU:=DllCall( LIB "InternetOpenUrlA", UInt,hIO, Str,URL, Str,N, Int,0, UInt,F, UInt,0 ) ) || ErrorLevel ) Return "",0 - ( !DllCall( LIB "InternetCloseHandle", UInt,hIO ) ) - 2 If ! ( RB ) If ( SubStr(URL,1,4) = "ftp:" ) CL := DllCall( LIB "FtpGetFileSize", UInt,hIU, UIntP,0 ) Else If ! DllCall( LIB "HttpQueryInfoA", UInt,hIU, Int,5, Str,CL, UIntP,QRL, UInt,0 ) Return "",0 - ( !DllCall( LIB "InternetCloseHandle", UInt,hIU ) )-( !DllCall( LIB "InternetCloseHandle", UInt,hIO ) ) - 4 return CL }

给TA捐赠
共{{data.count}}人
人已捐赠
其他

新建 AutoHotkey 脚本

2020-3-9 3:10:44

其他

时钟

2020-3-9 3:14:44

个人中心
购物车
优惠劵
有新私信 私信列表
搜索