Utorrent plugin

first you have to configure plugin webui of utorrent

and after copy utorrent.dll & utorrent.plugin to lcdstudio directorie

utorrent_plugin.rar
save as to download
an update: utorrent_plugin1.rar

Last edited by vinzzz on Fri Apr 25, 2008 9:36 am; edited 2 times in total

thank you very much, this is a long awaited plugin by many i think...
looks promising, but i would expect some more data, like azureus plugin does.
if that's possible, i will replace azureus with utorrent at once.

thank you Mostly harmless
this is the code if someone wants to help me to do a better plugin

Code:

Imports System
Imports LcdStudio.CoreInterfaces
Imports System.Net
Imports System.IO
Imports System.Math
Imports System.Drawing

Public Class Plugin
Inherits AbstractDataPlugin

Public upspeed As String = 0
Public downspeed As String = 0

Public Overrides Sub RegisterData(ByVal ds As IDataService)
ds.RegisterVariable(Group, "utorrent.torrents", "utorrent\torrent")
ds.RegisterVariable(Group, "utorrent.downspeed", "utorrent\downspeed")
ds.RegisterVariable(Group, "utorrent.upspeed", "utorrent\upspeed")
'ds.RegisterVariable(Group, "utorrent.Settings.PORT", "utorrent\Settings\PORT")
Me.UpdateInterval = 10000
'Update every 300000ms (5 min)
End Sub

Public Overrides Sub UpdateData(ByVal ds As IDataService)

ds.SetValue("utorrent.torrents", webrequesting())
ds.SetValue("utorrent.downspeed", downspeed & "kb/s")
ds.SetValue("utorrent.upspeed", upspeed & "kb/s")
End Sub

Public Function webrequesting() As String
' Create a request for the URL.
Dim request As WebRequest = WebRequest.Create("http://localhost:29230/gui/?list=1")
' If required by the server, set the credentials.
request.Credentials = New System.Net.NetworkCredential("admin", "")
' Get the response.
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
' Get the stream containing content returned by the server.
Dim dataStream As Stream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Dim test As String = extractionMots(responseFromServer)
' Cleanup the streams and the response.
reader.Close()
dataStream.Close()
response.Close()
Return (test)
End Function

Public Function extractionMots(ByVal mots As String) As String
Dim Tableau() As String
Dim tableau1() As String
Dim i As Integer
Dim j As Integer

Dim torrent As String = ""
downspeed = 0
upspeed = 0

'découpe la chaine en fonction des espaces " "
'le résultat de la fonction Split est stocké dans un tableau
Tableau = Split(mots, "[" & Chr(34))

For i = 1 To UBound(Tableau)
tableau1 = Split(Tableau(i), ",")
For j = 0 To UBound(tableau1)
tableau1(j) = tableau1(j).Trim(Chr(34))
Next j

Dim nom_torrent As String = tableau1(2)
If (nom_torrent.Length > 20) Then
nom_torrent = nom_torrent.Substring(0, 20)
End If
nom_torrent = nom_torrent.Replace(".", " ")
Dim completer_torrent As String = tableau1(4) / 10 & "% "
Dim speed_torrent As Decimal = (tableau1(9) / 1000)
speed_torrent = Round(speed_torrent, 2).ToString

torrent = torrent & nom_torrent & completer_torrent & speed_torrent & vbNewLine
downspeed = downspeed + (tableau1(9) / 1000)
upspeed = upspeed + (tableau1(8) / 1000)
Next i
Return (torrent)
End Function

End Class

ahhh nice... I use uTorrent all the time.

_________________
Henry Jakl
President
Matrix Orbital

This is an update with more data
total down speed
total up speed
utorrent status
torrents downspeed
torrents upspeed
torrents name
torrents downloaded size
torrents remaining size
torrents percent
torrents status
http://membres.lycos.fr/rmullens4/utorrent_plugin1.rar
File save as to download

to display data in column in data text properties set autosize to true and scroll type to none

and this is an example

thanks for your comment

Great little plugin Very Happy

been waiting for this one.
Thanks vinzzz

Can someone please post this file for download somewhere else? If just one person has it and can send it I'll even host it!

_________________
There are 10 kinds of people in the world: those who know binary and those who don't.

	tehseano wrote:
	Can someone please post this file for download somewhere else? If just one person has it and can send it I'll even host it!

the file is working, host it if you can, to download you have to do file save as with left click

vinzzz wrote:

	tehseano wrote:
	Can someone please post this file for download somewhere else? If just one person has it and can send it I'll even host it!

the file is working, host it if you can, to download you have to do file save as with left click

No, the file itself is a corrupt .rar

I'm well aware the download works.

_________________
There are 10 kinds of people in the world: those who know binary and those who don't.

tehseano wrote:

vinzzz wrote:

	tehseano wrote:
	Can someone please post this file for download somewhere else? If just one person has it and can send it I'll even host it!

the file is working, host it if you can, to download you have to do file save as with left click

No, the file itself is a corrupt .rar

I'm well aware the download works.

no probleme for me the rar is working great maybe update your winrar version or give me your email and i send you the plugin

/me eagerly waiting for it... =}

http://www.chez.com/vincewebsite/utorrent_widget.rar
if you want to test it, i hope you have a 240 pixel wild screen or more because i've design the plugin to work with my screen (240*320)
juste had the widget, you will see my widget in the widget list resize and please tell me how it's work
thanks you

well, i only have a g15, but i tried it.
what a surprise, it doesn't fit... Smile

maybe with a user-definiable font...
thanks for the effort though i'm sure there will be who appreciate it...

	Mostly Harmless wrote:
	what a surprise, it doesn't fit...

...now you see why we were telling you to do the items text only, and let users format them on their own?

_________________
Live long and prosper...