Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Sélectionner un chemin..
Auteur Message
Répondre en citant
Message Sélectionner un chemin.. 
Salut, j'aurais besoin d'aide pour modifier un script qui sert à sélectionner un fichier .rar pour qui serve a sélectionner un répertoire.

Voila le code:

Code:
@echo off
:Rar
(
    echo Function GetFileDlgEx(sIniDir,sFilter,sTitle^)
    echo Set oDlg = CreateObject("WScript.Shell"^).Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("^&Len(sIniDir^)^+Len(sFilter^)^+Len(sTitle^)+41^&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />"""^)
    echo oDlg.StdIn.Write "var iniDir='" ^& sIniDir ^& "';var filter='" ^& sFilter ^& "';var title='" ^& sTitle ^& "';"
    echo GetFileDlgEx = oDlg.StdOut.ReadAll
    echo End Function
    echo sIniDir = "C:\MyFile.rar"
    echo sFilter = "RAR files (*.rar)|*.rar|"
    echo sTitle = "WinRar Password Cracker by Hackoo (Only Digits numbers)"
    echo MyFile = GetFileDlgEx(Replace(sIniDir,"\","\\"^),sFilter,sTitle^)
    echo wscript.echo MyFile
)>"%tmp%\%~n0.vbs"
for /f "tokens=* delims=" %%p in ('Cscript /NoLogo "%tmp%\%~n0.vbs"') do set "file=%%p"
echo "%file%"
pause>nul


Merci.




______________________________________________________
#~Ma chaine Youtube~#
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Sélectionner un chemin.. 
salut,


http://www.robvanderwoude.com/vbstech_ui_selectfolder.php

Wink




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message Sélectionner un chemin.. 
Salut Smile
https://stackoverflow.com/questions/31087866/batch-scripts-find-and-copy-fi…




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Sélectionner un chemin.. 
Merci, à vous. Voila le resultat:

Code:
@echo off
:Browser
(
echo;T3B0aW9uIEV4cGxpY2l0DQpEaW0gc3RyUGF0aA0Kc3RyUGF0aCA9IFNlbGVjdEZvbGRlciggIiV1c2VycHJvZmlsZSUiICkNCklmIHN0clBhdGggPSB2Yk51bGwgVGhlbg0KICAgIHdzY3JpcHQuUXVpdA0KRWxzZQ0KICAgIFdTY3JpcHQuRWNobyBzdHJQYXRoDQpFbmQgSWYNCkZ1bmN0aW9uIFNlbGVjdEZvbGRlciggbXlTdGFydEZvbGRlciApDQogICAgRGltIG9iakZvbGRlciwgb2JqSXRlbSwgb2JqU2hlbGwNCiAgICBPbiBFcnJvciBSZXN1bWUgTmV4dA0KICAgIFNlbGVjdEZvbGRlciA9IHZiTnVsbA0KICAgIFNldCBvYmpTaGVsbCAgPSBDcmVhdGVPYmplY3QoICJTaGVsbC5BcHBsaWNhdGlvbiIgKQ0KICAgIFNldCBvYmpGb2xkZXIgPSBvYmpTaGVsbC5Ccm93c2VGb3JGb2xkZXIoIDAsICJTZWxlY3Rpb25uZXIgbCdlbXBsYWNlbWVudCBkdSByYWNjb3VyY2kuLiIsIDAsIG15U3RhcnRGb2xkZXIgKQ0KICAgIElmIElzT2JqZWN0KCBvYmpmb2xkZXIgKSBUaGVuIFNlbGVjdEZvbGRlciA9IG9iakZvbGRlci5TZWxmLlBhdGgNCiAgICBTZXQgb2JqRm9sZGVyID0gTm90aGluZw0KICAgIFNldCBvYmpzaGVsbCAgPSBOb3RoaW5nDQogICAgT24gRXJyb3IgR290byAwDQpFbmQgRnVuY3Rpb24=
)> out.file
(certutil -f -decode "out.file" "bvbs.vbs")>NUL
Del out.file>NUL
for /f "tokens=* delims=" %%p in ('Cscript /NoLogo "bvbs.vbs"') do set "shorcut_localisation=%%p"
del bvbs.vbs
echo "%shorcut_localisation%"
pause>nul
cls & goto Browser





______________________________________________________
#~Ma chaine Youtube~#
Message Sélectionner un chemin.. 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch