Utiliser "Anatomic" a partir d'un VBS
Utiliser "Anatomic" a partir d'un VBS - VB/VBA/VBS - Programmation
Marsh Posté le 14-04-2005 à 19:01:22
tu veux simplement un form qui t'affiche les noms de fichiers (*.torrent) et que en en sélectionnant 1, il envoie la ligne de commande au prog ?
Marsh Posté le 14-04-2005 à 22:57:51
oui voila, un petit parcoureur dans lequel je choisis le fichier .torrent, et avec ca en paramètre il réalise une commande du style :
c:\Anatomic\btdownloadheadless.exe "nom_du_fichier_torrent" --max_upload_rate 6
Ce qui lance le prog, lui dit quel fichier torrent utiliser, et limite l'upload a 6k
Le programme que j'ai mis dans le post fonctionne a peu pres, mais ne permet pas d'ajouter l'argument max_upload_rate, et vu que j'ai le SP2, je dois a chaque fois autoriser le code de la fenetre a s'exécuter...
Si tu peux m'aider, ca serait cooooooooool
Au fait si t'as besoin du prog Anatomic pour faire des tests je peux te l'envoyer / mail.
MERCI !!!
Marsh Posté le 20-04-2005 à 17:32:40
1) on cherche un fichier .torrent qui servira a télécharger ce qu'on veut.
2) on ouvre une invite de commande DOS
3) on lance la commande btdownloadheadless.exe avec le nom du fichier torrent.
4) on laisse tourner la fenetre DOS jusqu'a ce qu'il ait terminé (on peut arrêter le DL a tout moment, puis le relancer sans pb)
Voila !
Marsh Posté le 20-04-2005 à 19:47:45
c'est bon j'ai trouvez ou je peu trouve un listing de tout les ragument existant
Marsh Posté le 20-04-2005 à 20:45:38
et tu saurais faire un vbs approprié ?
et si t'es tres fort, le vbs pourrait proposer un champs ou on choisit les max_upload_rate et max_download_rate 
Marsh Posté le 20-04-2005 à 22:06:17
Non j'ai pas de doc, j'y connais pas grand chose, je fais au feeling, et surtout en recherchant ce qu'il me faut sur google.
Mais comme tu peux le constater, je trouve pas tout, alors je poste mes questions ! (meme si pour l'instant, aucune réponse...)
Sujets relatifs:
- A partir d'une class changer la variable d'une aplet et la rafraichir
- utiliser Access et VB
- Utiliser VB avec Acess
- Comment reprogrammer la fonction strfry a partir dfe pointeur?
- enregistrer un fichier temporaire à partir d'une servlet
- [HTML/CSS/JS] Ya un moyen d'ouvrir un lien dans FFox à partir de IE ?
- Listes chaînées SANS utiliser Malloc
- Probleme creation de fichier excel a partir de php
- chemin absolu d'un fichier a partir de son FileOutputStream ????
- active directory | recherche dans les groupes en VBS
Marsh Posté le 09-04-2005 à 01:14:41
Bonjour,
Je viens de découvrir Anatomic P2P Client, il fonctionne, mais est peu pratique à utiliser.
Je souhaite faire un petit vbs qui facilite le tout.
Au départ ca fonctionne en ligne de commande :
c:\Anatomic\btdownloadheadless.exe "nom_du_fichier_torrent" arguments_eventuels
Je voudrais que le script m'ouvre une boite de choix de fichiers (torrent seulement si possible), et lance la ligne de commande.
J'ai commencé avec des morceaux de scripts trouvés sur le net, mais c'est pas joli joli.
Inutile de vous préciser que je suis newbie en la matiere, vous le verrez vous mêmes en voyant le code...
Si qqun a un moment pour regarder, ou me donner une solution + rapide, je suis preneur !
Merci à tous !
VOICI LE CODE :
_______________
Set sh = CreateObject("WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject" )
Dim ob, s, fic
set ob = New FindFile
MsgBox "Choisir le fichier torrent, upload max 6kb/s"
s = ob.Browse
set ob = nothing
fic = "c:\Anatomic\btdownloadheadless.exe " & chr(34) & s & chr(34) & "--max_upload_rate 6"
MsgBox fic
sh.Run fic
'-----------------BEGIN CLASS BLOCK -----------------------------------
'-- Use: Set obj = New FindFile
'-- var = obj.Browse
'-------------- var is path of file selected. -----------------------------
'---------------------------------------------------------------------
Class FindFile
Private fso, sPath1
'--FileSystemObject needed to check file path:
Private Sub Class_Initialize()
Set fso = CreateObject("Scripting.FileSystemObject" )
end sub
'---------------release FSO when class is released:
Private Sub Class_Terminate()
Set FSO = Nothing
End sub
'--The public one function in this class:
Public Function Browse()
on error resume next
sPath1 = GetPath
Browse = sPath1
end function
Private Function GetPath()
Dim Ftemp, ts, IE, sPath
'-----------Get the TEMP folder path and create a text file in it:
Ftemp = fso.GetSpecialFolder(2)
Ftemp = Ftemp & "\FileBrowser.html"
set ts = fso.CreateTextFile(Ftemp, true)
'----------------------write the webpage needed for file browsing window:
ts.WriteLine "<HTML><HEAD><TITLE></TITLE></HEAD>"
ts.WriteLine "<BODY BGCOLOR=" & chr(34) & "#F3F3F8" & chr(34) & " TEXT=" & chr(34) & "black" & chr(34) & ">"
ts.WriteLine "<script language=" & chr(34) & "VBScript" & chr(34) & ">"
'--------when OK is clicked assign path to statustext property:
ts.WriteLine "sub but_onclick()"
ts.WriteLine "status = document.forms(0).elements(0).value"
ts.WriteLine "end sub"
'--------when CANCEL is clicked assign "cancel" to statustext property:
ts.WriteLine "sub butc_onclick()"
ts.WriteLine "status = " & chr(34) & "cancel" & chr(34)
ts.WriteLine "end sub"
ts.WriteLine "</script>"
ts.WriteLine "<DIV ALIGN=" & chr(34) & "center" & chr(34) & ">"
ts.WriteLine "<FONT FACE=" & Chr(34) & "arial" & Chr(34) & " SIZE=2>"
ts.WriteLine "<BR>"
ts.WriteLine "<FORM>"
'-----------this is the file browsing box in webpage:
ts.WriteLine "<INPUT TYPE=" & chr(34) & "file" & chr(34) & "></input>"
'-----------this is the OK button:
ts.WriteLine "<input type=" & chr(34) & "button" & chr(34) & " id=" & chr(34) & "but" & chr(34) & " value=" & chr(34) & "OK" & chr(34) & "></input>"
ts.WriteLine "<BR><BR>"
'------------this is the CANCEL button:
ts.WriteLine "<input type=" & chr(34) & "button" & chr(34) & " id=" & chr(34) & "butc" & chr(34) & " value=" & chr(34) & "CANCEL" & chr(34) & "></input>"
ts.WriteLine "<BR><BR> Browse for file, then click OK."
ts.WriteLine "</FORM>"
ts.WriteLine "</FONT></DIV>"
ts.WriteLine "</BODY></HTML>"
ts.Close
set ts = nothing
on error resume next
'--webpage is written. now have IE open it:
Set IE = Wscript.CreateObject("InternetExplorer.Application" )
IE.Navigate "file:///" & Ftemp
IE.AddressBar = false
IE.menubar = false
IE.ToolBar = false
IE.width = 400
IE.height = 250
IE.resizable = false
IE.visible = true
'--do a loop every 1/2 second until either:
'-- the browsing window value is a valid file path or
'-- CANCEL is clicked (setting IE.StatusText to "cancel" ) or
'--IE is closed from the control box.
do while IE.visible = true
spath = IE.StatusText '--------get statustext value.
if fso.FileExists(spath) = true or spath = "cancel" or IE.visible = false then
exit do
end if
wscript.sleep 500
loop
IE.visible = false
IE.Quit
set IE = nothing
if fso.FileExists(spath) = true then
GetPath = spath
else
GetPath = ""
end if
End Function
End Class