• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----四方接码----再见,“再见”(50) [复制链接]

1#
实现效果:[获取四方接码的短信验证码]
***** 该内容需您回复才可浏览 *****

  • 平台未提供Api接口
  • 无法使用[返回值 = Lib.网络.获得网页源文件(网页地址)]、[返回值 = Lib.网络.获得网页源文件_增强版(网页地址,网页编码)]获取源码
  • 取指定手机号最新的短信验证码
  1. TracePrint 取指定com内容(244)'获取对应com的内容(不同com代表不同手机号)
  2. TracePrint 取指定com内容(240)
  3. TracePrint 取指定com内容(252)
  4. Function 取指定com内容(参数)
  5. Call Plugin.Web.ClearTemp()’清理浏览器缓存
  6. 网站 = "https://sms.szfang.tw/listforjson.php?Room=walGh3SG5a"
  7. Call 下载网络文件(网站, "C:\1.txt")'一种代替直接获取网络源文件的写法
  8. Text = Plugin.File.ReadFileEx("C:\1.txt")
  9. Text = Unicode编码转文字(Text)
  10. 第一次 =Split( GetStrAB(Text,"msg"&chr(34)&":"&chr(34),"com"&chr(34)&":"&chr(34)&参数),chr(34))(0)'取两个字符串中间的内容
  11. 取指定com内容= 第一次
  12. End Function
  13. Function GetStrAB(Str, StrA, StrB)
  14. Dim i,ArrStrA,Ck
  15. ArrStrA=Split(Str,StrA)
  16. For i = 1 To UBound(ArrStrA)
  17. If InStr(ArrStrA(i), StrB) > 0 Then
  18. // TracePrint Split(ArrStrA(i), StrB)(0)
  19. GetStrAB=Split(ArrStrA(i), StrB)(0)
  20. Exit Function
  21. End If
  22. Next
  23. GetStrAB=Ck
  24. End Function
  25. Function HttpgetEx2(网页地址, 选项1至2)//多个参数.设置编码.跟乱码说88
  26. //Plugin.Sys.SetCLB(lib.网络.获得网页源文件_增强版("www.baidu.com","utf-8")) //百度
  27. //Plugin.Sys.SetCLB(lib.网络.获得网页源文件_增强版("www.sina.com.cn","gbk")) //新浪
  28. Dim xmlHttp, xmlUrl,ObjStream
  29. If InStr(网页地址, "http://") = 0 Then
  30. xmlUrl = "http://" & 网页地址
  31. Else
  32. xmlUrl = 网页地址
  33. End if
  34. Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1") //用这个对象,跟缓存/cookie 干扰说88
  35. xmlHttp.Open "GET", xmlUrl, True
  36. xmlHttp.Send
  37. If xmlhttp.waitforresponse() Then
  38. Set ObjStream = CreateObject("Adodb.Stream")
  39. ObjStream.Type = 1
  40. ObjStream.Mode = 3
  41. ObjStream.Open
  42. ObjStream.Write xmlHttp.ResponseBody
  43. ObjStream.Position = 0
  44. ObjStream.Type = 2
  45. Select Case 选项1至2
  46. Case 1
  47. 网页编码="utf-8"
  48. Case 2
  49. 网页编码="gbk"
  50. End Select
  51. ObjStream.Charset = 网页编码
  52. HttpgetEx2 = ObjStream.ReadText
  53. Set ObjStream = Nothing
  54. Else
  55. HttpgetEx2 = "" //如果获取失败返回值是 空
  56. End If
  57. Set xmlHttp = Nothing
  58. End Function
  59. Function Unicode编码转文字(编码内容)
  60. Unicode编码转文字=""
  61. Do Until instr(编码内容, "\u") = 0
  62. 进制编码 = Replace(mid(编码内容, instr(编码内容, "\u"), 6), "\u", "&H")
  63. 编码内容 = Replace(编码内容, Replace(进制编码,"&H","\u") , Eval("ChrW(" & 进制编码 & ")"))
  64. Delay 10
  65. loop
  66. Unicode编码转文字= 编码内容
  67. End Function
  68. Function 下载网络文件(网络http, 本地路径)
  69. Dim url
  70. url = 网络http '这里写你要下载文件的全路径
  71. Set obj1 = CreateObject("msxml2.xmlhttp")
  72. Set obj2 = CreateObject("adodb.stream")
  73. obj1.open "get",url,False
  74. obj1.send
  75. temp = obj1.responseBody
  76. obj2.Type = 1
  77. obj2.Mode = 3
  78. obj2.Open
  79. obj2.Write(temp)
  80. obj2.SaveToFile 本地路径,2 '2的意思是已有则覆盖
  81. obj2.Close
  82. End Function
复制代码

最后编辑瑞祥幽冥狼 最后编辑于 2022-05-15 21:33:13
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

啥玩意

3#

就好了

4#

長知識了

5#

564654564564564564

6#

谢谢分享

7#

学习一下 谢谢分享

8#


9#

666666

10#

[code][/code]111111111111111

11#

dsddfff

12#

学习一下

13#

aaaa阿达达

14#

感谢大佬

15#

谢谢

16#

66666666666666

17#

111111

18#

就好了

19#


20#

来学习一下大佬+

发新话题 回复该主题