کمک برای ویرایش این اسکریپت

[loo30fer]

سلام دوستان من میخواستم این اسکریپت دیگه سرچ نکنه تو کل درایوها ودنبال Autorun.exe بگرده فقط میخوام بجای سرچ از این ادرس که بهش میدم ببینه اسم اون درایو چیه و اون تو ثبت کنه ممنون میشم کمکم کنید​

آدرس :

<SrcDrive>\Autorun.exe

LoadVariable("mydrive","temp$")
If (temp$<>'') Then
  adres$=temp$+':\Autorun.exe'
  Run("adres$","")
  Return()
Else
  For i=65 To 90
    temp$=CHR(i)
    adres$=temp$+':\Autorun.exe'
    FileExist("adres$","Exist")
    If (Exist) Then
      SaveVariable("mydrive","temp$")
      Run("adres$","")
      Return()
    End
  Next i
End

 

[BEHESHT]

سلام دوست عزیز

سوالتون رو متوجه نمی شم ممکنه واضح تر توضیح بدید

در ضمن لطفاً کد ها رو تو تگ کد قرار بدید اینجوری خیلی ناخوانا میشند

موفق باشید

 

[loo30fer]

سلام این اسکریپت کارش اینکه تو همه درایوهای ویندوز میگرده و به دنبال Autorun.exe میگرده که ببینه تو کدوم آدرس مثلا C:\Autorun.exe هست یا تو E:\Autorun.exe اینکار درسته برای دفعه اول چند ثانیه زمان میبره و دفعات بعدی سریع لود میشه ولی من دیگه نمیخوام این اسکریپت بگرده که تو کدوم درایو هست فقط میخوام از طریق آدرسی که من دادم SrcDrive>\Autorun.exe ببینه که اسم درایو چیه و تو رجیستری ذخیره بشه درست مثل همین اسکریپت پایین ممنون میشم

LoadVariable("mydrive","temp$")

[LEFT]If (temp$<>'') Then
[LEFT] adres$=temp$+':\Autorun.exe'
 Run("adres$","")
 Return()
Else
 For i=65 To 90
   temp$=CHR(i)
   adres$=temp$+':\Autorun.exe'
   FileExist("adres$","Exist")
   If (Exist) Then
     SaveVariable("mydrive","temp$")
     Run("adres$","")
     Return()
   End
 Next i

End[/LEFT]

[/LEFT]

 

[ali guard]

دوست عزيز من كد براتو اينتور تغير داردم براى بار اول برنامة توى ريجيسترى يك كليد ميسازد فايلى موردنظر اجرا ميكند براى بار هاى بادى مير كليد ريجيسترى جك ميكند اطر بود برنامة اجرا ميكند

loadvariable("mydrive","temp")
 
if (temp=1) then
 
adres$='c:\ali\autorun.exe'
 
run("adres$","")
 
else
 
temp=1
 
message("باراول هستر اا","")
savevariable("mydrive","temp")
adres$='c:\ali\autorun.exe'
 
run("adres$","")
 
end

 

[peyman136]

اگه منظور شما رو درست متوجه شده باشم شما فقط میخوایید آدرسی به برنامه بدید (احتمالا از طریق سرچ دستی) و اسم درایو رو ذخیره کنید درسته اگه این طوره میتونی از کد زیر استفاده کنی :

Test$=<[color=#0000FF]SrcDrive[/color]>+[color=#800000]'Autorun.exe'[/color] 
t$=[color=#000090][b]ExtractDrive[/b][/color](Test$) 
[color=#009000]** bazgasht derive ro neshoon mide[/color] 
[color=#000090][b]Message[/b][/color]("","t$") 
[color=#009000]** Code eslah shode :[/color] 
[color=#000090][b]LoadVariable[/b][/color]("mydrive","temp$") 
[color=#0000FF]If[/color] (temp$<>[color=#800000]''[/color]) [color=#0000FF]Then[/color] 
  adres$=temp$+[color=#800000]':\Autorun.exe'[/color] 
  [color=#000090][b]Run[/b][/color]("adres$","") 
  [color=#000090][b]Return[/b][/color]() 
[color=#0000FF]Else[/color] 
  Test$=<[color=#0000FF]SrcDrive[/color]>+[color=#800000]'Autorun.exe'[/color] 
  t$=[color=#000090][b]ExtractDrive[/b][/color](Test$) 
  [color=#000090][b]FileExist[/b][/color]("Test$","Exist") 
  [color=#0000FF]If[/color] (Exist) [color=#0000FF]Then[/color] 
    [color=#000090][b]SaveVariable[/b][/color]("mydrive","t$") 
    [color=#000090][b]Run[/b][/color]("Test$","") 
    [color=#000090][b]Return[/b][/color]() 
  [color=#0000FF]End[/color] 
[color=#0000FF]End[/color]

 

[loo30fer]

نه منظورم خوب متوجه نشدید
من میخوام این اسکریپت اسم ویندوز درایوم از SrcDrive از آدرس زیر بگیره

<SrcDrive>\Autorun.exe

که درایو c هست یا مثلا D و آون رو در رجیستری ذخیره کنه و اون رو لود کنه و اسم درایو قبل Autorun.exe قرار بده و اون رواجرا کنه
برای مثال اسم درایو ویندوزم D هست اون رو با استفاده از دستور SaveVariable ذخیره کنه و سپس با LoadVariable لود کنه و ضمنا میخوام چک کنه اگه توی رجیستری ثبت شده که اون رو لود کنه اگه نبود این اسکریپت که اسم درایو ویندوز رو از ادرس میگیره و ذخیره میکنه اجرا بشه

 

[loo30fer]

هیچکس جواب این سوالم نمیدونه که کمکم کنه

 

[peyman136]

به کمک این کد میتونی اسم درایوی که ویندوز رو روش نصب گردی بدست بیاری
مثلا اگه ویندوزت روی درایو C نصب بشه کد حرف C رو برمیگردونه :

path$ = <Windows>
drive$ = ExtractDrive(path$)
DriveName$ = StrChange(drive$,:,'')
Message("DriveName$","")

 

[evil_gates]

با اجازه جناب peyman136 كدي كه بالاتر گفتن رو كمي كامل ميكنم تا منظور شما انجام بشه:

path$ = <Windows>
drive$ = ExtractDrive(path$)
mypath$=drive$+'Autorun.exe'
LoadVariable("regpath","regpath$")
If (regpath$<>'') Then
  Run("regpath$","")
Else
  SaveVariable("regpath","mypath$")
End

 

[peyman136]

با اجازه جناب peyman136 كدي كه بالاتر گفتن رو كمي كامل ميكنم تا منظور شما انجام بشه:

مرسی از شما اما یه مسئله ای قبل ها بود و کاربرای قدیمی یادشون هست وقتی کاربری سوال میپرسید ما بعضی وقتها بجای جواب دادن راهنمایی میکردیم تا خود کاربر کارش رو راه بندازه و کد نویسیش قوی بشه اینکه من جواب کامل به سوال ایشون ندادم این بود که حس کنجکتویشون فعال بشه و یکمی در مورد اسکریپت نویسی کار کنند


موفق باشید