- 博客(12)
- 收藏
- 关注
原创 解决 “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 2093
原创 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 2156
原创 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 5034 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 3959
原创 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 8585
原创 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 7353
原创 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 8540 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 7819 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 8332
原创 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 7851
原创 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 7550
原创 vb 读取比较复杂的json
用Excel读取比较复杂的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 7652
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人