گرفتن آدرس فایل اصلی از شرت کاتش

[BlueMMB]

سلام . خسته نباشین و آرزوی شادی واسه همه مجید آنلاینی ها بخصوص قسمت بیلدر و آپادانا !

می خواستم بدونم یه پلاگینی یا کدی با cmd یا ... هست که باهاش آدرس فایل اصلی که شرتکاتش رو داریم پیدا کنیم .


خیلی ممنون .

 

[MahmoodM30]

برای این کار از دستور زیر استفاده کنید

OpenFile("All Files|*.*||","")
dir$=CBK_OpenDir
MessageEx("","dir$")

 

[nevercom]

کد زیر رو در یک فایل با پسوند bat. ذخیره کنید (من با اسم shortcut.bat ذخیره کردم و تئ کد ازش استفاده کردم):

@echo off
Set Shortcut=%~1
echo set WshShell = WScript.CreateObject("WScript.Shell")>DecodeShortCut.vbs
echo set Lnk = WshShell.CreateShortcut(WScript.Arguments.Unnamed(0))>>DecodeShortCut.vbs
echo wscript.Echo Lnk.TargetPath>>DecodeShortCut.vbs
set vbscript=cscript //nologo DecodeShortCut.vbs
For /f "delims=" %%T in ( ' %vbscript% "%Shortcut%" ' ) do set target=%%T
del DecodeShortCut.vbs
echo %target%>%temp%\MMBPlayer\out.txt

فایل رو در برنامه تون Embed کنید
کد زیر رو در یک اسکریپت بنویسید و اجراش کنید:

OpenFile("|*.lnk|All Files|*.*||","*.lnk")
Param$ = 'WAIT,HIDE "' + OpenFile$ + '"'
Run("<Embedded>\shortcut.bat","Param$")
FileName$ = '<Embedded>\out.txt'
Link$ = StrFromFile(FileName$,1,1)
Message("Link$","")