Farklı Bir Autorun Istegi

aspawa · 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 ?

blackman12 · 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
	EndIf
Else
	MsgBox(0,"Autorun","Autorun Kapatılıyor...")
	Exit
EndIf[/CODE]
Eğer yapamam sen bana şu.exe yi çalıştırcak bir exe yapıp veriver diyorsan söyle onuda yaparız...

aspawa · October 5, 2008

Bu verdiğin kodları autorun.inf dosyasınamı kaydedicem birde cd'ye yakmadan nasıl denerim bunu

aspawa · October 5, 2008

Verdiğin kodları exe haline getirip çalıştırdım hata verdi

morning · October 5, 2008

exe kodları böyle çalışmaz ki.bunlar autoit kodları.Autoitin düzenleme penceresine yapıştırdıktan sonra compile edeceksin.

aspawa · 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

$Y£|\|! C£®!$ · 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.

aspawa · 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ı

doruk101 · 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.

aspawa · 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

blackman12 · 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ı")
	Exit
EndIf[/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ı")
	Exit
EndIf[/CODE]
He bu arada bu oluşturduğun script exe sinin adını yazıcaksın autorun.inf e ona göre...

aspawa · 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ı")
	Exit
EndIf[/CODE]

Bu verdiğin kod çalışmadı diğeri çalışıyor ilginden dolayı teşekür ederim blackman12

blackman12 · October 5, 2008

Çalışmadığını söylemiştim zaten çünkü progresson daki zıplamayı ayarlayamadım...

aspawa · 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ı")
	Exit
EndIf[/CODE]

Şu kodu çalışır hale getirirsen sana minnettar kalıcam blackman12

gavara · October 6, 2008

Denemedim ama sanırım Çalışabilir

[autorun]
open=Deneme.exe
icon=deneme.ico
RunPreSetupCommands=Ayarla.desk:1
ProfileItems=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,25
CmdLine   =%CDROM%,deneme.exe
WorkingDir=%CDROM%
InfoTip   ="Deneme"[/CODE]

Aklımdan Yazdım....

blackman12 · 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..

aspawa · 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

gavara · 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

blackman12 · October 6, 2008

İyide sen kısayol oluşturuyosun...

aspawa · 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

blackman12 · 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ı")
	Exit
EndIf[/CODE]
Bunu bir autoit exesine dönüştür yukleniyor.gifi de yanına koy.Autorun.infe de 
[CODE][autorun]
open=Deneme.exe
icon=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.ico
RunPostSetupCommands=Calistir
CopyFiles=deneme.copy

[Calistir]
"deneme.exe"

[Deneme.Copy]
deneme.exe

[DestinationDirs]
Deneme.Copy	= 16384[/CODE]

gavara · 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,0
RunPreSetupCommands=kopyala.desk:1

[kopyala.desk]
"xcopy /d /y ""%01%\deneme.exe"" ""%16384%"""
"""%16384%\deneme.exe"""[/CODE]

bunun yeterli olması lazım

Sign In

Farklı Bir Autorun Istegi

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Archived

Recently Browsing 0 members