Torrent File Info

qiuqiu · November 16, 2021, 6:41am

laoqiuqiu/DOpus-Script/blob/master/Button/Torrent File Info.dcf

<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" textcol="none">
	<label>Torrent File Info</label>
	<tip>show .torrent file information!</tip>
	<icon1>#newcommand</icon1>
	<function type="script">
		<instruction>@disablenosel:numfiles=1,type=*.torrent</instruction>
		<instruction>@script VBScript</instruction>
		<instruction>&apos; show .torrent file information!</instruction>
		<instruction>&apos; qiuqiu</instruction>
		<instruction>&apos; http://script.dopus.net/</instruction>
		<instruction />
		<instruction>Option Explicit</instruction>
		<instruction />
		<instruction>Function OnClick(ByRef clickData)</instruction>
		<instruction>	Dim Dlg, Stream, Torrent, Char, I, TotalSize</instruction>
		<instruction>    Set Dlg = DOpus.Dlg</instruction>
		<instruction>    Dlg.Window = clickData.func.sourcetab</instruction>
		<instruction>    Dlg.Template = &quot;dlgTorrentInfo&quot;</instruction>
		<instruction>	Dlg.Title = &quot;Torrent File Info - &quot; &amp; clickData.func.sourcetab.selected_files(0)</instruction>

This file has been truncated. show original

Leo · November 16, 2021, 7:49am

I tried with ubuntu-21.10-desktop-amd64.iso.zip (232.7 KB) and got an error on line 67:

TotalSize.Add Torrent("length")

Variable uses an Automation type not supported in VBScript: 'TotalSize.Add' (0x800a01ca)

VarType(Torrent("length") returns 0 indicating the value is empty.

Also noticed some resizing bugs in the dialog:

For files hosted on GitHub, it might be worth adding a note about how to download them, as it's not obvious. The best way I found was to right-click the "Raw" button just above the code, then choose Save As.

qiuqiu · November 16, 2021, 8:03am

modify line 64-67

		ItemIndex = ListView.AddItem(Torrent("info")("name"))
		ListView.GetItemAt(ItemIndex).SubItems(0) = DOpus.FSUtil.NewFileSize(Torrent("info")("length")).fmt
		ListView.GetItemAt(ItemIndex).Icon = DOpus.FSUtil.NewPath(Torrent("info")("name")).ext
		TotalSize.Add Torrent("info")("length")

thanks @Leo

khalidhosain · November 20, 2021, 6:08am

This Button Works nicely for me. Thank you so much.

ementat · January 12, 2022, 2:10pm

I'm getting two errors with this script:

Error at line 91, position 5
Error 0x80131700
Error at line 127, position 5
Object required: 'Stream' (0x800a01a8)

Any ideas why this is happening?

qiuqiu · January 12, 2022, 11:59pm

upload torrent file.

ementat · January 13, 2022, 7:06am

I have this problem with all torrent files.
ubuntu-21.10-desktop-amd64.iso.zip (232.7 KB)

qiuqiu · January 13, 2022, 8:30am

I have not found the problem you put by here.

lxp · January 13, 2022, 12:36pm

Maybe an update is needed?

ementat · January 13, 2022, 1:00pm

I have .NET Framework 3.5 and 4.8 installed with the latest January 11, 2022-KB5008876 Cumulative Update. Maybe I am missing something else...

ementat · January 13, 2022, 1:03pm

So, the problem is not with the *.torrent files, but with my PC I think. Maybe some components are missing. I have a fully updated Windows 10 Pro 21H2 19044.1466.

ementat · January 13, 2022, 1:15pm

OK, I checked some system info and looks like I don't have .NET 3.5 installed. Do I need it for this script to work? I have .NET version 4.8 installed.