无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3664|回复: 13

[已解决] 最新版 tampermonkey 及 beta 版本下载

[复制链接]
发表于 2020-7-4 17:30:19 | 显示全部楼层 |阅读模式
本帖最后由 chishingchan 于 2020-7-4 23:31 编辑

Tampermonkey Stable  4.10
Chrome >= 59

https://chrome.google.com/websto ... fjojejmpbldmpobfkfo

Tampermonkey Beta 4.11.6113
Chrome >= 59
https://chrome.google.com/websto ... ebpfijmoaglllgpjagf

没有梯子,帮助上传附件,谢谢!

Tampermonkey_v4.10.zip (1.27 MB, 下载次数: 85)

评分

参与人数 1无忧币 +5 收起 理由
hlccfu + 5 很给力!

查看全部评分

发表于 2020-7-4 18:56:47 | 显示全部楼层
谢谢分享 正需要 论坛因为有你而更精彩
回复

使用道具 举报

发表于 2020-7-4 19:34:03 | 显示全部楼层
我之前已经安装4.1,当时是直接添加进chrome的,请问怎么样下载或提取?
关于梯子,我用的是chrome的setupVPN这个扩展。
回复

使用道具 举报

 楼主| 发表于 2020-7-4 19:55:56 | 显示全部楼层
本帖最后由 chishingchan 于 2020-7-4 23:20 编辑

隐藏于问题中的福利:

Internet Download Manager v6.38 Build 1
http://mirror2.internetdownloadm ... =idman638build1.exe

破解脚本:
idman638build1.vbs (最佳运行时机:idman638build1.exe 安装程序出现 完成 按钮界面)
  1. 'http://mirror2.internetdownloadmanager.com/idman638build1.exe?b=1&filename=idman638build1.exe

  2. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  3. Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
  4. For Each objItem in colItems
  5.         OSA = objItem.OSArchitecture
  6. Next

  7. Const HKLM = &H80000002

  8. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

  9. If OSA = "64-bit" Then
  10.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayIcon",DI
  11.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayName",DN
  12.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayVersion",DV
  13. Else
  14.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayIcon",DI
  15.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayName",DN
  16.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Internet Download Manager","DisplayVersion",DV
  17. End If

  18. Set WshShell = CreateObject("WScript.Shell")

  19. Set objFSO = CreateObject("Scripting.FileSystemObject")

  20. If Not objFSO.FileExists(DI) Then
  21.         WshShell.Popup "软件可能未安装!",5,"错误",0
  22.         WScript.Quit
  23. End If

  24. If DV <> "6.38.1" Then
  25.         WshShell.Popup "软件版本不支持!",5,"错误",0
  26.         WScript.Quit
  27. End If

  28. Name = Array("IDM1.tmp","IEMonitor.exe","IDMan.exe")
  29. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
  30. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
  31. For Each objProcess In colProcessList
  32.         For Each Process In Name
  33.                 If LCase(objProcess.Name) = LCase(Process) Then
  34.                         objProcess.Terminate()
  35.                 End If
  36.         Next
  37. Next

  38. Set ado_stream = CreateObject("ADODB.Stream")
  39.         ado_stream.Type = 1
  40.         ado_stream.open
  41.         ado_stream.LoadFromFile DI
  42.         ado_stream.position = 296727
  43.         ado_stream.Write HexToByte("00")
  44.         ado_stream.position = 393933
  45.         ado_stream.Write HexToByte("48C20800")
  46.         ado_stream.position = 402033
  47.         ado_stream.Write HexToByte("65")
  48.         ado_stream.position = 402042
  49.         ado_stream.Write HexToByte("EBF4")
  50.         ado_stream.position = 426335
  51.         ado_stream.Write HexToByte("33")
  52.         ado_stream.position = 535404
  53.         ado_stream.Write HexToByte("FC")
  54.         ado_stream.position = 545835
  55.         ado_stream.Write HexToByte("FF")
  56.         ado_stream.position = 677168                'No Update
  57.         ado_stream.Write HexToByte("C3")        '55 -> C3
  58.         ado_stream.position = 1095845
  59.         ado_stream.Write HexToByte("33")
  60.         ado_stream.position = 1163755
  61.         ado_stream.Write HexToByte("00")
  62.         ado_stream.position = 3267304
  63.         ado_stream.Write HexToByte("90")
  64.         ado_stream.SaveToFile DI, 2
  65.         ado_stream.Close
  66. Set ado_stream = Nothing

  67. If OSA = "64-bit" Then
  68.         oReg.CreateKey HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager"
  69.         oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","Email","e@mail.com"
  70.         oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","FName","Microsoft"
  71.         oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","LName","Windows"
  72.         oReg.SetStringValue HKLM,"SOFTWARE\Wow6432Node\Internet Download Manager","Serial","DDDDM-DDDDD-DDDDX-DDDDX"
  73. Else
  74.         oReg.CreateKey HKLM,"SOFTWARE\Internet Download Manager"
  75.         oReg.SetStringValue HKLM,"SOFTWARE\Internet Download Manager","Email","e@mail.com"
  76.         oReg.SetStringValue HKLM,"SOFTWARE\Internet Download Manager","FName","Microsoft"
  77.         oReg.SetStringValue HKLM,"SOFTWARE\Internet Download Manager","LName","Windows"
  78.         oReg.SetStringValue HKLM,"SOFTWARE\Internet Download Manager","Serial","DDDDM-DDDDD-DDDDX-DDDDX"
  79. End If

  80. WshShell.Popup "已破解主程序:" & DI & vbcrlf & vbcrlf & "已添加序列号:DDDDM-DDDDD-DDDDX-DDDDX" & vbcrlf & vbcrlf & "VBScript by ChiShingChan", 10, DN & " " & DV, 0

  81. Function HexToByte(hexStr)
  82.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
  83.         Set byteObj= xmldom.createElement("byteObj")
  84.         byteObj.dataType = "bin.hex"
  85.         byteObj.nodeTypedValue = hexStr
  86.         HexToByte=byteObj.nodeTypedValue
  87. End Function
复制代码

更新一下此脚本!添加去更新,支持双架构。

回复

使用道具 举报

发表于 2020-7-4 20:56:27 | 显示全部楼层
其他版本idm是否可用?

点评

If DV "6.38.1" Then 看代码是限制于 6.38.1版本  详情 回复 发表于 2020-7-4 21:12
回复

使用道具 举报

发表于 2020-7-4 21:10:54 | 显示全部楼层
回复

使用道具 举报

发表于 2020-7-4 21:12:55 | 显示全部楼层
kgenxp 发表于 2020-7-4 20:56
其他版本idm是否可用?

If DV <> "6.38.1" Then   看代码是限制于 6.38.1版本

点评

因为是指定位置修改,非搜索替换修改,所以限制此版本。  详情 回复 发表于 2020-7-4 21:34
回复

使用道具 举报

 楼主| 发表于 2020-7-4 21:34:25 | 显示全部楼层
都市浪子666 发表于 2020-7-4 21:12
If DV  "6.38.1" Then   看代码是限制于 6.38.1版本

因为是指定位置修改,非搜索替换修改,所以限制此版本。
回复

使用道具 举报

发表于 2020-7-4 22:19:54 来自手机 | 显示全部楼层
没有看明白
回复

使用道具 举报

发表于 2020-7-5 07:24:29 | 显示全部楼层
在谷歌浏览器中安装。感觉还是不错的。
回复

使用道具 举报

发表于 2020-7-5 11:35:28 | 显示全部楼层
支持一下啦
回复

使用道具 举报

发表于 2020-7-7 09:14:57 | 显示全部楼层
一直没弄懂油猴的使用方法,太笨了
回复

使用道具 举报

发表于 2020-7-14 11:37:09 | 显示全部楼层
IDM破解提示成功,但仍出现弹窗:idm is corrupt
回复

使用道具 举报

发表于 2020-7-14 15:27:17 | 显示全部楼层
正需要
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-4-17 04:40

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表