无法修改稻壳2.10.10强制升级

语之男 · 发表于 2025-9-30 01:44:21

本帖最后由语之男于 2025-9-30 08:09 编辑

谁有能力改一下稻壳的强制升级，让2.10.10版不升级。这个程序只要联网状态下一打开就自动静默升级了，十分烦，改了好久无法去除它的升级

原程序：https://yvnan.lanzouu.com/iw67Q37bahla（稻壳阅读2.10.10）

手动点检测更新仍可升级的半成品：https://yvnan.lanzouu.com/iSXua37bilof

语之男 · 发表于 2025-9-30 02:31:59

抱歉，太困了，明天改一下帖子。有点词不达意

630 · 发表于 2025-9-30 02:52:08

我想它升级它都不升级，用的是2.12.17

语之男 · 发表于 2025-9-30 03:27:00

630 发表于 2025-9-30 02:52
我想它升级它都不升级，用的是2.12.17

2.10.10版以后打印都会糊掉

阿雷斯 · 发表于 2025-9-30 07:07:14

同样想问问

a__p · 发表于 2025-9-30 07:37:37

本帖最后由 a__p 于 2025-9-30 07:39 编辑

试试吧，去掉了一个线程检测，不强制启动运行升级，但是能手动去点检测并更新。
临时下载地址A:文叔叔24小时有效链接临时下载地址B：临时网盘提取码：8235b67ad 有效期也是24小时

ootdyao · 发表于 2025-9-30 07:37:57

确实夜猫子

zhl0518 · 发表于 2025-9-30 07:46:46

我用新版的还好啊

temptemp · 发表于 2025-9-30 07:55:36

换个版本用吧，2.12.43单文件版
https://pan.baidu.com/s/1sJEXG-RAdPcwlBmL5Yk1lQ 提取码: c925

语之男 · 发表于 2025-9-30 07:58:05

temptemp 发表于 2025-9-30 07:55
换个版本用吧，2.12.43单文件版
https://pan.baidu.com/s/1sJEXG-RAdPcwlBmL5Yk1lQ 提取码: c925

所说2.10.10之后的版本打印很糊，不清淅

语之男 · 发表于 2025-9-30 07:58:19

zhl0518 发表于 2025-9-30 07:46
我用新版的还好啊

所说2.10.10之后的版本打印很糊，不清淅

语之男 · 发表于 2025-9-30 08:05:06

a__p 发表于 2025-9-30 07:37
试试吧，去掉了一个线程检测，不强制启动运行升级，但是能手动去点检测并更新。
临时下载地址A:文叔叔24小 ...

我也是只能做到这种程度，实在能力有限

小龙飞 · 发表于 2025-9-30 08:25:15

感谢您的分享！

yanglinman · 发表于 2025-9-30 08:41:58

感谢大佬们的辛苦付出！

9zhmke · 发表于 2025-9-30 08:47:46

禁止联网可以参考这个方法：

Dim tmp1,tmp2,firewall_dictSet WshShell=WScript.CreateObject("WScript.Shell")
Set firewall_dict=CreateObject("Scripting.Dictionary")
Set objWMIService = GetObject("winmgmts:\\.")
Set colOperatingSystems = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
windir=objOperatingSystem.WindowsDirectory
Next
'============请参照下面的格式，把引号之间的名字替换成你给项目取的英文名，以及完整路径的执行文件=================
firewall_dict.add "Office_OfficeClickToRun","%ProgramFiles%\Common Files\microsoft shared\ClickToRun\OfficeClickToRun.exe"
firewall_dict.add "Office_msoia","%ProgramFiles%\Microsoft Office\root\Office16\msoia.exe"
firewall_dict.add "Office_WINWORD","%ProgramFiles%\Microsoft Office\root\Office16\WINWORD.EXE"
firewall_dict.add "Office_EXCEL","%ProgramFiles%\Microsoft Office\root\Office16\EXCEL.EXE"
firewall_dict.add "Office_POWERPNT","%ProgramFiles%\Microsoft Office\root\Office16\POWERPNT.EXE"
firewall_dict.add "Office_VISIO","%ProgramFiles%\Microsoft Office\root\Office16\VISIO.EXE"
firewall_dict.add "Office_WINPROJ","%ProgramFiles%\Microsoft Office\root\Office16\WINPROJ.EXE"
firewall_dict.add "Office_MSPUB","%ProgramFiles%\Microsoft Office\root\Office16\MSPUB.EXE"
firewall_dict.add "Office_MSACCESS","%ProgramFiles%\Microsoft Office\root\Office16\MSACCESS.EXE"
firewall_dict.add "AutoCAD_LMU","%ProgramFiles%\Common Files\Autodesk Shared\AdLM\R11\LMU.exe"
firewall_dict.add "AutoCAD_DADispatcherService","C:\Program Files\Autodesk\AutoCAD 2016\DADispatcherService.exe"
firewall_dict.add "AutoCAD_acad","C:\Program Files\Autodesk\AutoCAD 2016\acad.exe"
firewall_dict.add "Windows Update","wuauserv"
firewall_dict.add "TopazDeNoiseAI","D:\Tools\影音图\AI图片降噪TopazDeNoiseAI2.2\Topaz DeNoise AI BETA.exe"
firewall_dict.add "TopazDeNoiseAIUpdate","D:\Tools\影音图\AI图片降噪TopazDeNoiseAI2.2\autoupdate.exe"
firewall_dict.add "SU2020_SU","D:\Tools\multimedia\SketchUp2020\SketchUp.exe"
firewall_dict.add "SU2020_SUSW","D:\Tools\multimedia\SketchUp2020\sketchup_webhelper.exe"
firewall_dict.add "SU2020_JSEDIT","D:\Tools\multimedia\SketchUp2020\jsonpatcheditor.exe"
firewall_dict.add "SU2020_IWL","D:\Tools\multimedia\SketchUp2020\ifcplugin\IFCPluginWorker_Loader.exe"
firewall_dict.add "SU2020_IL","D:\Tools\multimedia\SketchUp2020\ifcplugin\ImportLoader.exe"
firewall_dict.add "SU2020_LO","D:\Tools\multimedia\SketchUp2020\LayOut\LayOut.exe"
firewall_dict.add "SU2020_LOSW","D:\Tools\multimedia\SketchUp2020\LayOut\sketchup_webhelper.exe"
firewall_dict.add "SU2020_SB","D:\Tools\multimedia\SketchUp2020\Style Builder\Style Builder.exe"
firewall_dict.add "SU2020_SBSW","D:\Tools\multimedia\SketchUp2020\Style Builder\sketchup_webhelper.exe"
msgbox "OK"
For Each i in firewall_dict
firewall_dict(i)=WshShell.ExpandEnvironmentStrings(firewall_dict(i))
'netsh advfirewall firewall del rule name=i
tmp1=" del rule name=" & chr(34) & i & chr(34)
'netsh advfirewall firewall add rule name=i program=i action=block dir=out
tmp2=" add rule name=" & chr(34) & i & chr(34) & " program=" & chr(34) & firewall_dict(i) & chr(34) & " action=block dir=out"
'netsh advfirewall firewall add rule name=i service=%%j action=block dir=out program="%svchost_exe%"
tmp3=" add rule name=" & chr(34) & i & chr(34) & " service=" & chr(34) & firewall_dict(i) & chr(34) & " action=block dir=out program=" & chr(34) & windir & "\system32\svchost.exe" & chr(34)
WshShell.Run "netsh advfirewall firewall " & tmp1 ,0,true '删除之前规则
WshShell.Run "netsh advfirewall firewall " & tmp2 ,0,true '建立新规则
if i="Windows Update" then WshShell.Run "netsh advfirewall firewall " & tmp3 ,0,true '添加阻止服务出站规则
next

复制代码

比如：

脚本.7z (1.14 KB, 下载次数: 18)
遍历当前目录解除禁止EXE文件联网.vbs、遍历当前目录禁止所有EXE文件联网.vbs

view520 · 发表于 2025-9-30 08:55:21

多谢楼主分享

win98se · 发表于 2025-9-30 09:01:05

9zhmke 发表于 2025-9-30 08:47
禁止联网可以参考这个方法：
比如：
遍历当前目录解除禁止EXE文件联网.vbs、遍历当前目录禁止所有EXE文件 ...

多谢分享

win98se · 发表于 2025-9-30 09:01:23

感谢楼主的话题

nie956 · 发表于 2025-9-30 09:13:29

9zhmke 发表于 2025-9-30 08:47
禁止联网可以参考这个方法：
比如：
遍历当前目录解除禁止EXE文件联网.vbs、遍历当前目录禁止所有EXE文件 ...

多谢分享

nyren · 发表于 2025-9-30 09:15:19

坐等，期待大神作答

wn168cn@163.com · 发表于 2025-9-30 09:19:58

试过用防火墙禁止效果还可以

ccjpjj · 发表于 2025-9-30 09:27:07

马上打印对比了，一点区别都没有啊！！

ccjpjj · 发表于 2025-9-30 09:30:02

请提供一下，打印有区别的文档！！！我这边喷墨打印机，打印PDF文件 PDF图片都没区别。

语之男 · 发表于 2025-9-30 09:46:25

9zhmke 发表于 2025-9-30 08:47
禁止联网可以参考这个方法：
比如：
遍历当前目录解除禁止EXE文件联网.vbs、遍历当前目录禁止所有EXE文件 ...

谢谢，我一直在想着修改原程序，让它原生不连网

语之男 · 发表于 2025-9-30 09:48:24

ccjpjj 发表于 2025-9-30 09:30
请提供一下，打印有区别的文档！！！我这边喷墨打印机，打印PDF文件 PDF图片都没区别。

我以前给别人打印过，打印的时候出来有点糊，但是还是可以看的。我说的是打印到A4纸上，不是打印成虚拟PDF这样子

20135911521 · 发表于 2025-9-30 10:32:33

语之男发表于 2025-9-30 09:46
谢谢，我一直在想着修改原程序，让它原生不连网

改两处，文偏地址：E907和54972，jne改jmp，一处影响启动升级，另一处是点击升级！没再找影响两处跳转的地方，自己可以找找！silver.yukaidi.com/s/0GetY

a66 · 发表于 2025-9-30 10:35:31

了解

23070205 · 发表于 2025-9-30 10:38:29

楼主，可以做2步试试，第一把docbox2.10.10改名为docbox.exe,第二步，把它改为只读属性。现在你不点击升级，就不会升级。

a66 · 发表于 2025-9-30 11:08:22

23070205 发表于 2025-9-30 10:38
楼主，可以做2步试试，第一把docbox2.10.10改名为docbox.exe,第二步，把它改为只读属性。现在你不点击升级 ...

这么神奇，是什么原理

23070205 · 发表于 2025-9-30 11:14:21

a66 发表于 2025-9-30 11:08
这么神奇，是什么原理

他不能替换同名的文件，也不能删除只读文件。

		自动登录	找回密码
密码			注册

[求助] 无法修改稻壳2.10.10强制升级

评分

点评

评分