aspawa Posted October 4, 2008 Share Posted October 4, 2008 Autorun olarak hazırlayacagım cd inin içinde bir deneme.exe adlı bir proğram olucak cd'yi taktıgımda ekrana gelen autorun penceresinde belirttiğim linke tıkladıgımda cd'nin içinde bulunan deneme.exe'yi masa üstüne atıp aynızamanda çalışmasını sağlamak istiyorum böyle bişey yapılabilirmi ? Link to comment Share on other sites More sharing options...
blackman12 Posted October 4, 2008 Share Posted October 4, 2008 Böyle birşeyi autorunla ne kadar yapabilirsin bilmem ama autoitle ufak bir script hazırladım senin için buyur kodları: $mesaj = MsgBox(4,"Autorun","Deneme.exe Masaüstüne Kopyalanıp Çalıştırılsın mı?")if $mesaj = 6 Then if FileExists("deneme.exe") then FileCopy("deneme.exe",@DesktopDir & "\deneme.exe") Run(@DesktopDir & "\deneme.exe") Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") Exit EndIfElse MsgBox(0,"Autorun","Autorun Kapatılıyor...") ExitEndIf[/CODE]Eğer yapamam sen bana şu.exe yi çalıştırcak bir exe yapıp veriver diyorsan söyle onuda yaparız... Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 Bu verdiğin kodları autorun.inf dosyasınamı kaydedicem birde cd'ye yakmadan nasıl denerim bunu Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 Verdiğin kodları exe haline getirip çalıştırdım hata verdi Link to comment Share on other sites More sharing options...
morning Posted October 5, 2008 Share Posted October 5, 2008 exe kodları böyle çalışmaz ki.bunlar autoit kodları.Autoitin düzenleme penceresine yapıştırdıktan sonra compile edeceksin. Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 morning daha önce hiç autoit kullanmadım sitedeki autoit çalışmalarını biraz inceledim Bu kodalrı çalışabilir bir exe haline getirebileceğimi sanmıyorum sizin için eminim çok basittir Ben yaşlı bir adamım rica etsem exe haline getirip vere bilirmisin Yada bu exenin nasıl yapıldıgı ile ilgili bir döküman varmı sitede Link to comment Share on other sites More sharing options...
Y£|\|! C£®! Posted October 5, 2008 Share Posted October 5, 2008 Autoit koduna @blackman12'nin verdiği scripti yapıştır ve kaydet ardından scriptin üstüne gelip sağ tıkla Compile de tamamdır. Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 Evet exe dosayasını oluşturdum ve kod güzel çalıştı Koddaki şu bölümü sormasını istemiyorum [Deneme.exe Masaüstüne Kopyalanıp Çalıştırılsın mı ?] direk deneme.exe'yi masa üstüne atsın çalıştırsın Birde şunu sormak istiyorum outoit kurulu olmıyan bir pcde bu hazırladığımız exe çalışırmı Link to comment Share on other sites More sharing options...
doruk101 Posted October 5, 2008 Share Posted October 5, 2008 Masaüstüne atıp çalıştırılsın mı mesajının çıkmasını istemiyorsanız, kodlardaki aşağıdaki kısmı silip öyle deneyin. $mesaj = MsgBox(4,"Autorun","Deneme.exe Masaüstüne Kopyalanıp Çalıştırılsın mı?")[/CODE] Ayrıca autoit olmayan bilgisayarda da çalışır, merak etmeyin. Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 $mesaj = MsgBox(4,"Autorun","Deneme.exe Masaüstüne Kopyalanıp Çalıştırılsın mı?")[/CODE] Bu bölümü çıkardığımda hata veriyor Cd içindeki deneme.exe'yi masa üstüne kopyalarken kopyalama ekranı gözükmüyor bu ekranın gözükmesini nasıl sağlarız cd'den 3 gd bir exe'yi kopyalarken uzun bir zaman gecicektir bu sure zarfında ekranda hiç bişeyin gözükmemesi kullanan kişiye autoit'le hazırlanan exe'nin çalışmıyor izlenimi vere bilir Link to comment Share on other sites More sharing options...
blackman12 Posted October 5, 2008 Share Posted October 5, 2008 Çalışmaması doğaldır o kodu çıkarınca ben biraz daha gelişkin olsun diye öyle yazmıştım hiç sormadan çalışsın istiyosan şu kodları kullan... (Not: Kopyalama Animasyonu Olmadı Çalışan Bir Kod bulamadım çünkü ama şöyle birşey denedim...) #NoTrayIcon$kontrol = FileExists("deneme.exe")if $kontrol = 1 then $boyut = FileGetSize("deneme.exe") $percent = $boyut / 104857600 $tam = $boyut / 1048576 ProgressOn("Kopyalnıyor...","Deneme.exe Kopyalanırken Lütfen Bekleyin...") For $percent to $tam step 10 FileCopy("deneme.exe",@DesktopDir & "\deneme.exe") ProgressSet( $percent, $percent & " percent") Next ProgressSet($tam , "Bitti", "Tamamlandı") Sleep(250) ProgressOff() Run(@DesktopDir & "\deneme.exe")Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") ExitEndIf[/CODE]Sen bunu kullan şimdilik ben halledicem o sorunu[CODE]#NoTrayIcon$kontrol = FileExists("deneme.exe")if $kontrol = 1 then FileCopy("deneme.exe",@DesktopDir & "\deneme.exe") Run(@DesktopDir & "\deneme.exe")Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") ExitEndIf[/CODE]He bu arada bu oluşturduğun script exe sinin adını yazıcaksın autorun.inf e ona göre... Link to comment Share on other sites More sharing options...
aspawa Posted October 5, 2008 Author Share Posted October 5, 2008 #NoTrayIcon$kontrol = FileExists("deneme.exe")if $kontrol = 1 then $boyut = FileGetSize("deneme.exe") $percent = $boyut / 104857600 $tam = $boyut / 1048576 ProgressOn("Kopyalnıyor...","Deneme.exe Kopyalanırken Lütfen Bekleyin...") For $percent to $tam step 10 FileCopy("deneme.exe",@DesktopDir & "\deneme.exe") ProgressSet( $percent, $percent & " percent") Next ProgressSet($tam , "Bitti", "Tamamlandı") Sleep(250) ProgressOff() Run(@DesktopDir & "\deneme.exe")Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") ExitEndIf[/CODE] Bu verdiğin kod çalışmadı diğeri çalışıyor ilginden dolayı teşekür ederim blackman12 Link to comment Share on other sites More sharing options...
blackman12 Posted October 5, 2008 Share Posted October 5, 2008 Çalışmadığını söylemiştim zaten çünkü progresson daki zıplamayı ayarlayamadım... Link to comment Share on other sites More sharing options...
aspawa Posted October 6, 2008 Author Share Posted October 6, 2008 #NoTrayIcon$kontrol = FileExists("deneme.exe")if $kontrol = 1 then $boyut = FileGetSize("deneme.exe") $percent = $boyut / 104857600 $tam = $boyut / 1048576 ProgressOn("Kopyalnıyor...","Deneme.exe Kopyalanırken Lütfen Bekleyin...") For $percent to $tam step 10 FileCopy("deneme.exe",@DesktopDir & "\deneme.exe") ProgressSet( $percent, $percent & " percent") Next ProgressSet($tam , "Bitti", "Tamamlandı") Sleep(250) ProgressOff() Run(@DesktopDir & "\deneme.exe")Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") ExitEndIf[/CODE] Şu kodu çalışır hale getirirsen sana minnettar kalıcam blackman12 Link to comment Share on other sites More sharing options...
gavara Posted October 6, 2008 Share Posted October 6, 2008 Denemedim ama sanırım Çalışabilir [autorun]open=Deneme.exeicon=deneme.icoRunPreSetupCommands=Ayarla.desk:1ProfileItems=Desk.Shortcuts[Ayarla.desk]"cmd /c for %%%%i in (""C D E F G H I J K L M N O P Q R S T U V W X Y Z"") do ""%%%%i"" set ""CDROM=%%%%i"""[Desk.Shortcuts]Name =Deneme,0x00000008,25CmdLine =%CDROM%,deneme.exeWorkingDir=%CDROM%InfoTip ="Deneme"[/CODE] Aklımdan Yazdım.... Link to comment Share on other sites More sharing options...
blackman12 Posted October 6, 2008 Share Posted October 6, 2008 Aslında çalışması çok basit ama kopyalamayla çok dengesiz bir şekilde ilerler progressbar...Kopyalamayla aynı olabilmesi için yukardaki koda uyması gerek o da olmuyor...İleri düzey autoit derslerinden kopyalama animasyonuna baktım onlarında ikisi de çalımıyor yapabileceğim birşey yok.. Link to comment Share on other sites More sharing options...
aspawa Posted October 6, 2008 Author Share Posted October 6, 2008 Gavara ilginden dolayı teşekürler ama verdiğin kod çalışmıyor ekrana kopyalanıyor yazısı yahut görüntüsü gelmiyor Link to comment Share on other sites More sharing options...
gavara Posted October 6, 2008 Share Posted October 6, 2008 Gavara ilginden dolayı teşekürler ama verdiğin kod çalışmıyor ekrana kopyalanıyor yazısı yahut görüntüsü gelmiyor biraz daha çalışıyim üzerinde Link to comment Share on other sites More sharing options...
blackman12 Posted October 6, 2008 Share Posted October 6, 2008 İyide sen kısayol oluşturuyosun... Link to comment Share on other sites More sharing options...
aspawa Posted October 6, 2008 Author Share Posted October 6, 2008 Bana öyle çok gelişmiş bişey olmasada olur deneme.exe cd den kopyalanırken monitörde bir gif dursun yeter kopyalama bittikten sonra gif monitörden gisin bu örnek gif Link to comment Share on other sites More sharing options...
blackman12 Posted October 6, 2008 Share Posted October 6, 2008 O zaman kod budur: #NoTrayIcon$kontrol = FileExists("deneme.exe")if $kontrol = 1 then SplashImageOn("",@ScriptDir & "\yukleniyor.gif",196,66,-1,-1,1) FileCopy(@ScriptDir & "\deneme.exe",@DesktopDir & "\deneme.exe") SplashOff() Run(@DesktopDir & "\deneme.exe")Else MsgBox(0,"Autorun","Deneme.exe bulunamadı") ExitEndIf[/CODE]Bunu bir autoit exesine dönüştür yukleniyor.gifi de yanına koy.Autorun.infe de [CODE][autorun]open=Deneme.exeicon=deneme.ico[/CODE]yaz...Az sonra buraya direkt autorun.infle de yapacağın kodu ekleyeceğim...Edit: bunu da exesiz mexesiz direk autorun.infe yapıştır belki çalışır belki çalışmaz bilemem yukarıdakileri görünce inf mantığına göre hazırliyim dedim...[CODE][autorun]icon=deneme.icoRunPostSetupCommands=CalistirCopyFiles=deneme.copy[Calistir]"deneme.exe"[Deneme.Copy]deneme.exe[DestinationDirs]Deneme.Copy = 16384[/CODE] Link to comment Share on other sites More sharing options...
gavara Posted October 7, 2008 Share Posted October 7, 2008 İyide sen kısayol oluşturuyosun... Amaç o değilmi zaten... değilse daha kolay sadece kopyalama ise [autorun]icon=deneme.exe,0RunPreSetupCommands=kopyala.desk:1[kopyala.desk]"xcopy /d /y ""%01%\deneme.exe"" ""%16384%""""""%16384%\deneme.exe"""[/CODE] bunun yeterli olması lazım Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.