无忧启动论坛

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

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

[复制链接]
跳转到指定楼层
1#
发表于 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)

Tampermonkey-Beta_v4.11.6113.zip (1.26 MB, 下载次数: 72)

评分

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

查看全部评分

2#
发表于 2020-7-4 18:56:47 | 只看该作者
谢谢分享 正需要 论坛因为有你而更精彩
回复

使用道具 举报

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

使用道具 举报

4#
 楼主| 发表于 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
复制代码

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

回复

使用道具 举报

5#
发表于 2020-7-4 20:56:27 | 只看该作者
其他版本idm是否可用?

点评

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

使用道具 举报

6#
发表于 2020-7-4 21:10:54 | 只看该作者
回复

使用道具 举报

7#
发表于 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
回复

使用道具 举报

8#
 楼主| 发表于 2020-7-4 21:34:25 | 只看该作者
都市浪子666 发表于 2020-7-4 21:12
If DV  "6.38.1" Then   看代码是限制于 6.38.1版本

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

使用道具 举报

9#
发表于 2020-7-4 22:19:54 来自手机 | 只看该作者
没有看明白
回复

使用道具 举报

10#
发表于 2020-7-5 07:24:29 | 只看该作者
在谷歌浏览器中安装。感觉还是不错的。
回复

使用道具 举报

11#
发表于 2020-7-5 11:35:28 | 只看该作者
支持一下啦
回复

使用道具 举报

12#
发表于 2020-7-7 09:14:57 | 只看该作者
一直没弄懂油猴的使用方法,太笨了
回复

使用道具 举报

13#
发表于 2020-7-14 11:37:09 | 只看该作者
IDM破解提示成功,但仍出现弹窗:idm is corrupt
回复

使用道具 举报

14#
发表于 2020-7-14 15:27:17 | 只看该作者
正需要
回复

使用道具 举报

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

本版积分规则

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

闽公网安备 35020302032614号

GMT+8, 2024-4-26 07:00

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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