get usb removable

[ali guard]

سلام دوستان من اين نمونة از mmb froum بيدا كردم كة اكر يك
removable با كامبيتر وصل شة اين برنامة ميكة كة يك دراو removable باكامثيوتر وصل شداست نام درايو هم ميدة مسلن H ..
ميخواهم دوو فايل تو همين درايو removable كة با كامثوتر وصل ميشة فايلها در اين ادرسها باك كنم كة معلوم نيست نام درايو جى هست

*:\comand.ini
*:\recycler\comand.exe

 

[nevercom]

خب مگه نمیگید نام درایو رو خود اون مثال بهتون میده ؟
محل دقیق فایلهاتون رو هم که میدونید، دیگه مشکل چیه ؟
از نام درایو که پلاگین در مثالی که پیوست کردید بهتون میده استفاده کنید و فایلها رو پاک کنید
برای پاک کردن فایلها هم که کلی پلاگین هست.

فکر نکنم کار آنچنان سختی باشه !

 

[ali guard]

ولا هر كار كردن نتونستم دروست كنم خيلى ممنونم اطر فرست كرديد يك ميسال در وست كنيد برامون من اجل نكادم خيلى ممنون شر مند زحمتتون ميدم

 

[evil_gates]

دوست عزيز
تو همون برنامه بعد از دستور PluginGet كه مقدار متغير $ids رو بر ميگردونه اين كد رو بنويسيد تا فقط نام درايو رو برداره و تو يك متغير جديد ذخيره كنه. بعد شما ميتونيد از اين متغير استفاده كنيد.

usb_drive$=StrCopy(ids$,1,1)
usb_drive$=usb_drive$+':\\'

 

[ali guard]

دوست عزيز
تو همون برنامه بعد از دستور PluginGet كه مقدار متغير $ids رو بر ميگردونه اين كد رو بنويسيد تا فقط نام درايو رو برداره و تو يك متغير جديد ذخيره كنه. بعد شما ميتونيد از اين متغير استفاده كنيد.

usb_drive$=StrCopy(ids$,1,1)
usb_drive$=usb_drive$+':\\'

ببخشى نتونستم دروست كنم
خيلى ممنونم يك نمونة برام دروست كنيد اين فايل ها در درايو usb باك كند خيلى ممنون

*:\comand.ini
*:\recycler\comand.exe

 

[evil_gates]

دوست عزيز
با كدي كه بالا دادم نام درايو usb شما بر ميگرده شما ميتونيد به انتهاي اون آدرس مورد نظرتون رو بديد و بعد با پلاگين microbe file an folder ;i كه تو تاپيكهاي قبلي گفته بودم فايلتون رو پاك كنيد.
بعنوان مثال كد شما اينطوري ميشه

usb_drive$=usb_drive$+':\comand.ini'

 

[ali guard]

دوست عزيز
با كدي كه بالا دادم نام درايو usb شما بر ميگرده شما ميتونيد به انتهاي اون آدرس مورد نظرتون رو بديد و بعد با پلاگين microbe file an folder ;i كه تو تاپيكهاي قبلي گفته بودم فايلتون رو پاك كنيد.
بعنوان مثال كد شما اينطوري ميشه

usb_drive$=usb_drive$+':\comand.ini'

خيلى ممنون تا حا لا مشكل من حل شود ولى يك مشكيل ديكة كة اين دة ستور تنها يك يوئس بى جيك ميكنة
اكر ميتوانيد كا رى بكنيد اكر كار بر جند تا يوايس بى با كامثيو ترش وصل بشة همة انها جك كند اكر فايل بود باكشون كند
اين كد ايستفادة كردم ولى تنها موند ان كة همة يو ئس بى ها جك كند اونو با اين كد اظا كند خيللللى ممنون

pluginrun("getusbid","method1")

pluginget("getusbid","ids$")
usb_drive$=strcopy(ids$,1,1)

**usb_drive$=usb_drive$+':\\'

usb_drive$=usb_drive$+':\comand.ini'

*****

pluginset("miscy","usb_drive$")

pluginrun("miscy","deletefilex")

** parameter1 represents name of file to be deleted
*****

if (ids$<>'') then

** message("","")

pluginrun("plugin","restorefromtray")

end

 

[evil_gates]

تو اين مبحث دوستمون رو راهنمايي كردم تا چجوري ليست همه درايوها رو پيدا كنه

http://forum.majidonline.com/showthread.php?t=139670

از همين روش ميتونيد كمك بگيريد

 

[ali guard]

دوست عزيز من هر كار ى كردم نتونستم كدها جورى تغير بدهم هر درايو يواسبى هست جيك كند ممنونم اكر دروست كنيد
________
يك سوا لد يكة من قرار بود جند فايل تو درايو يو اس بى باك كنم تو مسالى شوما زحمت كيشدى ميشة يك فايل باك كر من با اين جورى كد تغير كردم براى باك كردنى 3 فايل ولى جواب نميدة لطفا مشكيل ان كجاست خيلى ممنون

pluginrun("getusbid","method1")
pluginget("getusbid","ids$")
usb_drive$=strcopy(ids$,1,1)
**usb_drive$=usb_drive$+':\\'
usb_drive$[1]=usb_drive$+':\comand.ini'
usb_drive$[2]=usb_drive$+':\ali.exe'
usb_drive$[3]=usb_drive$+':\sys.inf'
for i=1 to 3
pluginset("miscy","usb_drive$")
pluginrun("miscy","deletefilex")
if (ids$<>'') then
** message("","")
pluginrun("plugin","restorefromtray")
end
next i

 

[nevercom]

در مورد تمام درایوهای USB فعلاً نظری ندارم چون نمیتونم چک کنم، اما مشکل کدتون این هست که اطلاعات رو در آرایه ریختید ولی در حلقه اندیس آرایه رو ذکر نکردید، کدتون باید اینجوری باشه:

PluginRun("getusbid","method1")
PluginGet("getusbid","ids$")
usb_drive$=StrCopy(ids$,1,1)
**usb_drive$=usb_drive$+':\\'
usb_drive$[1]=usb_drive$+':\comand.ini'
usb_drive$[2]=usb_drive$+':\ali.exe'
usb_drive$[3]=usb_drive$+':\sys.inf'
For i=1 To 3
  PluginSet("miscy","usb_drive$[i]")
  PluginRun("miscy","deletefilex")
  If (ids$<>'') Then
    ** message("","")
    PluginRun("plugin","restorefromtray")
  End
Next i

 

[ali guard]

خيلى ممنون مشكل جند فايل با هم حل كرديد برامون باز هم ممنون

ولى موندة جك جند يو اس بيها يكى از دوستا لطف كند اين مشكل را هم حل كند

 

[evil_gates]

دوست عزيز
فكر ميكنم منظور شما اينه كه درايو usb هاي موجود رو كامپيوتر رو شناسايي و بعد فايلي رو از روشون پاك كنه. درسته؟
به سوالي كه شبيه سوال شماست تو اين مبحث پاسخ داده شده.

http://forum.majidonline.com/showthread.php?t=139670

چون همزمان چند تا مبحث با موضوع مشابه مطرح شده و شما هم جستجو نميكنيد همون سوالا داره تكرار ميشه.

-----------------------

مدير محترم

اگه امكان داره مباحث تكراري رو يكپارچه كنيد تا دوستان راحت تر به جواب سوالشون برسند. اين امكان هست؟

ممنون