![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vba
文章平均质量分 69
蓝天630902
这个作者很懒,什么都没留下…
展开
-
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 · 5020 阅读 · 4 评论 -
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 · 8316 阅读 · 0 评论 -
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 · 7527 阅读 · 0 评论 -
洗牌算法
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 · 3948 阅读 · 0 评论 -
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 · 8528 阅读 · 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 · 7800 阅读 · 2 评论 -
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 · 7345 阅读 · 0 评论 -
解决 “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 · 2071 阅读 · 0 评论 -
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 · 2140 阅读 · 0 评论 -
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 · 8575 阅读 · 0 评论 -
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 · 7836 阅读 · 0 评论