蓝天630902-CSDN博客

原创解决 “Microsoft.XMLHTTP” 拒绝访问的问题

Sub 下载XML数据() Dim http As Object, nod, nod2 'Set http = CreateObject("Microsoft.XMLHTTP")'拒绝访问 Set http = CreateObject("MSXML2.ServerXMLHTTP") http.Open "get", "http://zx.500wan.com/s

2013-11-15 09:30:47 2076

原创 Excel Vba GetObject 如何保存Excel文件

问题：通过GetObject打开的Excel文件后，只要被修改并保存，工作表是看不到！本方法就是要解决这个问题。 Private Sub CommandButton1_Click() On Error Resume Next 文件目录 = ThisWorkbook.Path & "\Excel\" Set fso = CreateObject("Sc

2013-11-14 11:28:02 2145

原创 EXCEL VBA 　WinHttp获取验证码图片

EXCEL VBA 　WinHttp获取验证码图片 Private Sub CommandButton1_Click() Dim arr() As Byte On Error Resume Next With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", "http://202

2013-09-27 12:46:01 5027 4

原创洗牌算法

Sub 洗牌算法() Set doc = CreateObject("htmlfile") Set Window = doc.parentWindow Window.execScript "function Shuffle(ary){for(var i=ary.length-1;i>=0;i--){var v=parseInt(Math.random()*(i+1))

2013-09-02 07:36:39 3950

原创 XMLHttp 登录淘宝 (tid参数还有待完善)

Sub 登录淘宝() 'tid参数还有待完善 Set oDoc = CreateObject("htmlfile") Set mx = CreateObject("WinHttp.WinHttpRequest.5.1") Set ms = CreateObject("msscriptcontrol.scriptcontrol") ms.Language

2013-08-09 17:27:27 8578

原创 JS反混淆

Sub js反混淆() With CreateObject("Microsoft.XMLHTTP") On Error Resume Next .Open "GET", "http://passport.58.com/rsa/ppt_security.js", False '这个js是被混淆了的 .send s

2013-07-23 19:26:01 7346

原创 ExcelVba 调用jQuery计算Md5 和 rsa

Sub postdata() 'ExcelVba_调用jQuery计算Md5_和_rsa：——http://passport.58.com/login?path=http://my.58.com登录的POST参数的计算。用户名：abcd456，密码：mm = abcd123，这里要改用自己的密码和用户名。 Set Doc = CreateObject("htmlfile")

2013-07-19 08:52:16 8532 1

原创 ExcelVba_调用jQuery计算Md5和CRC32

Sub ExcelVba_调用jQuery计算Md5() Set doc = CreateObject("htmlfile") Set scr = doc.createelement("script") scr.src = "http://code.jquery.com/jquery-1.10.2.min.js" doc.body.appendchild s

2013-07-15 10:24:08 7805 2

原创 Vba解压GZIP流，网页数据下载的 “WinHttp” 方法

模块代码：Public Const OFFSET As Long = &H8Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)Public Declare Function InitDecom

2013-07-05 07:28:36 8320

原创 Vba调用JS计算24节气

Private Sub CommandButton1_Click() ' Vba调用JS计算24节气 tt = "2013" With CreateObject("Msxml2.XMLHTTP.5.0") .Open "GET", "http://www.fjptsz.com/xxjs/xjw/rj/113.htm", False .send

2013-07-03 23:13:56 7838

原创 VBA彻底解决MD5加密中文不一致问题

var hexcase = 0;function hex_md5(a){ return rstr2hex(rstr_md5(str2rstr_utf8(a)))}function hex_hmac_md5(a, b){ return rstr2hex(rstr_hmac_md5(str2rstr_utf8(a), str2rstr_utf8(b)))}

2013-07-01 02:26:37 7537

原创 vb 读取比较复杂的json

用Ｅｘｃｅｌ读取比较复杂的json数据源在：http://bbs.csdn.net/topics/390485808 Private Sub CommandButton2_Click() '比较复杂的json On Error Resume Next bt = Split("order_id,order_sn,type,extension,seller_i

2013-06-10 16:09:22 7645