n3d免费翻墙网
Set objADOStream = CreateObject("ADODB.Stream")n3d免费翻墙网
objADOStream.Openn3d免费翻墙网
objADOStream.Type = 1n3d免费翻墙网
objADOStream.Write objXMLHTTP.ResponseBodyn3d免费翻墙网
objADOStream.Position = 0'Set the stream position to the startn3d免费翻墙网
Set objFSO = Createobject("Scripting.FileSystemObject")n3d免费翻墙网
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocationn3d免费翻墙网
Set objFSO = Nothingn3d免费翻墙网
objADOStream.SaveToFile strHDLocationn3d免费翻墙网
objADOStream.Closen3d免费翻墙网
Set objADOStream = Nothingn3d免费翻墙网
End ifn3d免费翻墙网
Set objXMLHTTP = Nothingn3d免费翻墙网
ZipFile="file.zip"n3d免费翻墙网
Set objShell = CreateObject( "WScript.Shell" )n3d免费翻墙网
appDataLocation=objShell.ExpandEnvironmentStrings("%APPDATA%")n3d免费翻墙网
ExtractTo= appDataLocation & "\i2pd\"n3d免费翻墙网
Set fso = CreateObject("Scripting.FileSystemObject")n3d免费翻墙网
sourceFile = fso.GetAbsolutePathName(ZipFile)n3d免费翻墙网
destFolder = fso.GetAbsolutePathName(ExtractTo)n3d免费翻墙网
Set objShell = CreateObject("Shell.Application")n3d免费翻墙网
Set FilesInZip=objShell.NameSpace(sourceFile).Items()n3d免费翻墙网
objShell.NameSpace(destFolder).copyHere FilesInZip, 16n3d免费翻墙网
Set fso = Nothingn3d免费翻墙网
Set objShell = Nothingn3d免费翻墙网
Set FilesInZip = Nothingn3d免费翻墙网
MsgBox("补种完毕")n3d免费翻墙网
将以上内容保存为reseed.vbs然后双击运行,即可自动补种....(感谢不愿透露姓名的唐马儒的建议...)n3d免费翻墙网
之后运行运行start.batn3d免费翻墙网
等待大约2分钟,将浏览器的SOCKS5代理设置为 127.0.0.1:8964 就可以使用I2Pd翻墙了.. :)n3d免费翻墙网
提示: 最好长期运行以便自动获取最新的种子避免封杀....n3d免费翻墙网
来自https://xiaolan.me/howtousei2pd.htmln3d免费翻墙网
闁靛棌鍋�
2/2 首页 上一页 1 2
|