Jump to content

İleri düzey AutoIT örnekleri

sk8er_boi

By sk8er_boi,
in AutoIT

 Share

Recommended Posts

  • Replies 976
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

sk8er_boi
sk8er_boi

İlk örnek kurulum dosyasını autoit içine gizlemek. Katılımsız kurulum dosyaınızı çaldırmak istemiyorsanız güzel bir seçennek. FileInstall("C:\Documents and Settings\Administrator.PC\Desktop\emule.

blue_life
blue_life

Harfi bilinmeyen CD/DVD romdaki bir programı çalıştırmak....... $CD_DRV = DriveGetDrive("CDROM");Mevcut Cd/Dvd Sürücülerini arıyor... If NOT @error Then For $i = 1 to $CD_DRV[0] $DRV_ST = DriveS

blue_life
blue_life

@mkayer   Anladığım kadarıyla admin yetkisine sahip olmayan autoit çalışmanın içinden, admin yetkileri ile komut istemini çalıştırmak istiyorsun. Bunun için sana basit bir örnek vereyim. Sen kendine

blue_life Newbie

blue_life

Posted
Posted

*KuZeYLi*

Normal bir program kurulumuna benzenyen bir çalışma mı yapmak istiyorsun?

Tabiki autoitte bu çok kolay.

Koda formdesigner ile basit bir tasarım...

While 1
	Gui1()
	If Gui2() = -1 Then ContinueLoop
	Setup()
WEnd

Func Setup()
	MsgBox(64,"","Eylem")
	Exit
EndFunc

Func Gui1()
	MsgBox(64,"","Gui1")
	Local $Form1 = GUICreate("Form1", 428, 209, 192, 114)
	Local $Pic1 = GUICtrlCreatePic("resim", 8, 8, 100, 100)
	Local $Label1 = GUICtrlCreateLabel("Açıklama", 128, 8, 284, 89)
	Local $Button2 = GUICtrlCreateButton("Ileri", 256, 160, 75, 25)
	Local $Button3 = GUICtrlCreateButton("Iptal", 344, 160, 75, 25)
	GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3
				Exit
			Case $Button3
				Exit
			Case $Button2
	;~ 			İleri işlemi için gerekli satırlar buraya
				ExitLoop
		EndSwitch
	WEnd
	GUIDelete()
EndFunc

Func Gui2()
	MsgBox(64,"","Gui2")
	Local $Form1 = GUICreate("Form2", 428, 209, 192, 114)
	Local $Pic1 = GUICtrlCreatePic("resim", 8, 8, 100, 100)
	Local $Label1 = GUICtrlCreateLabel("Açıklama", 128, 8, 284, 89)
	Local $Button1 = GUICtrlCreateButton("Geri", 176, 160, 75, 25)
	Local $Button2 = GUICtrlCreateButton("Ileri", 256, 160, 75, 25)
	Local $Button3 = GUICtrlCreateButton("Iptal", 344, 160, 75, 25)
	GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3
				Exit
			Case $Button3
				Exit
			Case $Button1
				GUIDelete()
				Return -1
	;~ 			Geri işlemi için gerekli satırlar buraya

			Case $Button2
	;~ 			İleri işlemi için gerekli satırlar buraya
				ExitLoop
		EndSwitch
	WEnd
EndFunc

Link to comment
Share on other sites
*KuZeYLi* Newbie

*KuZeYLi*

Posted
Posted
*KuZeYLi*

Normal bir program kurulumuna benzenyen bir çalışma mı yapmak istiyorsun?

Tabiki autoitte bu çok kolay.

Koda formdesigner ile basit bir tasarım...

While 1
	Gui1()
	If Gui2() = -1 Then ContinueLoop
	Setup()
WEnd

Func Setup()
	MsgBox(64,"","Eylem")
	Exit
EndFunc

Func Gui1()
	MsgBox(64,"","Gui1")
	Local $Form1 = GUICreate("Form1", 428, 209, 192, 114)
	Local $Pic1 = GUICtrlCreatePic("resim", 8, 8, 100, 100)
	Local $Label1 = GUICtrlCreateLabel("Açıklama", 128, 8, 284, 89)
	Local $Button2 = GUICtrlCreateButton("Ileri", 256, 160, 75, 25)
	Local $Button3 = GUICtrlCreateButton("Iptal", 344, 160, 75, 25)
	GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3
				Exit
			Case $Button3
				Exit
			Case $Button2
	;~ 			İleri işlemi için gerekli satırlar buraya
				ExitLoop
		EndSwitch
	WEnd
	GUIDelete()
EndFunc

Func Gui2()
	MsgBox(64,"","Gui2")
	Local $Form1 = GUICreate("Form2", 428, 209, 192, 114)
	Local $Pic1 = GUICtrlCreatePic("resim", 8, 8, 100, 100)
	Local $Label1 = GUICtrlCreateLabel("Açıklama", 128, 8, 284, 89)
	Local $Button1 = GUICtrlCreateButton("Geri", 176, 160, 75, 25)
	Local $Button2 = GUICtrlCreateButton("Ileri", 256, 160, 75, 25)
	Local $Button3 = GUICtrlCreateButton("Iptal", 344, 160, 75, 25)
	GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3
				Exit
			Case $Button3
				Exit
			Case $Button1
				GUIDelete()
				Return -1
	;~ 			Geri işlemi için gerekli satırlar buraya

			Case $Button2
	;~ 			İleri işlemi için gerekli satırlar buraya
				ExitLoop
		EndSwitch
	WEnd
EndFunc

çok saol yardım ların için

bişey daha soracaktım bunlar hani şöyle mesage alanı çıkıyor ya form nasıl yapabilirim

Link to comment
Share on other sites
*KuZeYLi* Newbie

*KuZeYLi*

Posted
Posted
@*KuZeYLi*

Malesef ne kastettiğini anlamadım :(

Yukarıdaki verdiğim örnek çok basit ve mesaj kutularını daha iyi anlaman için ekledim.

mesaj kutusu değil kastetdiğim o mesaj kutularına form ekleyeceğim bana özel den ulaşabilirmisiniz sizin kutunuz dolu da sonra silersiniz isterseniz engellersiniz

Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted (edited)
İlk örnek kurulum dosyasını autoit içine gizlemek. Katılımsız kurulum dosyaınızı çaldırmak istemiyorsanız güzel bir seçennek.

Komple vereyim üstteki kodu:

FileInstall("C:\Documents and Settings\Administrator.PC\Desktop\emule.exe",@TempDir & "\$$.tmp")

FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )

RunWait(@TempDir & "\temp.exe")

FileDelete(@TempDir & "\temp.exe")[/CODE]

Programı compile edince elinizde program boyutundan 200kb büyük bir dosya olacaktır. Hayırlı olsun.

teşekkürler paylaşım için...ben bu kodlarla exe ye çevirdiğim zamn autoit bilgileri veriyor sürüm bilgilerinde vs.benim eklediğim bilgilerle kilitlenmesini istiyorum.oysa yaptığım çaılışmada bilgiler var oma compile olunca autoit bilgileri çıkıyor nasıl yapabilirim

Edited by ASEV13
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@ASEV13

Dosya özelliklerindeki bilgilerimi kastediyorsun acaba?

Öyleyse *.au3 dosyasının başına;

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=ExeIsmi.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Yorum
#AutoIt3Wrapper_Res_Description=Tanım
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 BlueLife
#AutoIt3Wrapper_Res_Field=DosyaAdı|ExeIsmi.exe
#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

vs. gibi örnek verebilirim. Tabi ordaki yazıları kendine göre düzenlemelisin.

Istemediklerinide silebirlisin. Kolay gelsin...

Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted (edited)
@ASEV13

Dosya özelliklerindeki bilgilerimi kastediyorsun acaba?

Öyleyse *.au3 dosyasının başına;

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=ExeIsmi.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Yorum
#AutoIt3Wrapper_Res_Description=Tanım
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 BlueLife
#AutoIt3Wrapper_Res_Field=DosyaAdı|ExeIsmi.exe
#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

vs. gibi örnek verebilirim. Tabi ordaki yazıları kendine göre düzenlemelisin.

Istemediklerinide silebirlisin. Kolay gelsin...

blue_life hocam gerçekten teşekkür ederim tam aradığım şeydi bu benim ama sanırım yapamadım..kodlar şu şekilde program kuruluyor kitleniyor.ama bu pro.exe falan filan tarafından yapılmıştır sürüm bilgisi vs.olmadı.kodu şu şekilde kullandım.

http://img198.imageshack.us/img198/640/adszvvs.png[/CODE]

[CODE]#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=pro.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Yorum
#AutoIt3Wrapper_Res_Description=Tanım
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13
#AutoIt3Wrapper_Res_Field=DosyaAdı|pro.exe
#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%
FileInstall("C:\Documents and Settings\ASEV13\Desktop\pro.exe",@TempDir & "\$$.tmp")
FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )
RunWait(@TempDir & "\temp.exe")
FileDelete(@TempDir & "\temp.exe")[/CODE]

Edited by ASEV13
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@ASEV13

Ama sen outfile ile fileinstall kısmındaki dosya isimlerini yazmışsın. Böyle olunca hata verir.

Aşağıdakini incele. Ordaki Func _Temp ile başlayan ve altındakiler temp klasöründe olmayan bir dosya ismini belirlemene yardımcı oluyor.

Neyse kolay gelsin...

#NoTrayIcon
#Region
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=deneme.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13
#AutoIt3Wrapper_Res_Description=Tanım
#AutoIt3Wrapper_Res_Comment=Yorum
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13
#AutoIt3Wrapper_Res_Field=DosyaAdı|deneme.exe
#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%
#EndRegion
Global $Tmp_File = _TempFile()
Global $Exe_File = _TempFile(".exe")
FileInstall("pro.exe",$Tmp_File)
FileMove ($Tmp_File,$Exe_File ,1)
RunWait($Exe_File)
FileDelete($Exe_File)
FileDelete($Tmp_File)

Func _TempFile($s_FileExtension = ".tmp",$s_DirectoryName = @TempDir,$s_FilePrefix = "~", $i_RandomLength = 7)
	Local $s_TempName
	If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"
	Do
		$s_TempName = ""
		While StringLen($s_TempName) < $i_RandomLength
			$s_TempName = $s_TempName & Chr(Random(97, 122, 1))
		WEnd
		$s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension
	Until Not FileExists($s_TempName)
	Return ($s_TempName)
EndFunc   ;==>_TempFile

Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted (edited)

Hocam yardımlarınız için gerçekten teşekkür ederim...ama ben ne yaptıysam olmadı. Ben katılımsız.exe mi yaptıktan sonra bu kodla çalınmaması için Compile Script to .exe diyip kitliyorum...yeni bir exe oluşturuyor ve son katılımsız dosyam oluyor.bu kodla

FileInstall("C:\Documents and Settings\asev13\Desktop\Gomplayer.exe",@TempDir & "\$$.tmp")

FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )

RunWait(@TempDir & "\temp.exe")

FileDelete(@TempDir & "\temp.exe")[/CODE]

Şimdi sizin paylaşmış olduğunuz kodlarla denediğim zamanda yeni compile.exe oluyor bilgiler yine olmuyor.fileinstall kısmındaki dosya ismini yazmazsam yeni katılımsız.ex oluşmuyor.outfile kısmınıda yazıyorum ki exe oluşurken bilgilerde güncellensin diye olmuyor.sizindediğiniz gibi yazmıyorum yine olmuyor.Kusura bakma ama aşagıdaki kodları gomplayer.exe olarak yanlış olan yerleri düzeltirseniz yanlışımın ne olduğunu anlayabileyim

[CODE]#NoTrayIcon
#Region
#AutoIt3Wrapper_Icon=GOM.ico
#AutoIt3Wrapper_Outfile=Gomplayer.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13
#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır
#AutoIt3Wrapper_Res_Comment=film izleme
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13
#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe
#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%
#EndRegion
Global $Tmp_File = _TempFile()
Global $Exe_File = _TempFile(".exe")
FileInstall("Gomplayer.exe",$Tmp_File)
FileMove ($Tmp_File,$Exe_File ,1)
RunWait($Exe_File)
FileDelete($Exe_File)
FileDelete($Tmp_File)

Func _TempFile($s_FileExtension = ".tmp",$s_DirectoryName = @TempDir,$s_FilePrefix = "~", $i_RandomLength = 7)
    Local $s_TempName
    If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"
    Do
        $s_TempName = ""
        While StringLen($s_TempName) < $i_RandomLength
            $s_TempName = $s_TempName & Chr(Random(97, 122, 1))
        WEnd
        $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension
    Until Not FileExists($s_TempName)
    Return ($s_TempName)
EndFunc ;==>_TempFile[/CODE]

Edited by ASEV13
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@ASEV13

Sicite açıkken Compile edeceksin.

Yukarıdaki menüde bulunan Tools altındaki Build seçeneğini kullan!

Tools -> Build -> Daha sonra yeni exe dosyası oluşacaktır.

#Region

#AutoIt3Wrapper_Icon=GOM.ico

#AutoIt3Wrapper_Outfile=Gomplayer.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13

#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır

#AutoIt3Wrapper_Res_Comment=film izleme

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13

#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe

#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%

#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%

#EndRegion

Global $Tmp_File = _TempFile()

Global $Exe_File = _TempFile(".exe")

FileInstall("Gomplayer.exe",$Tmp_File)

FileMove ($Tmp_File,$Exe_File ,1)

RunWait($Exe_File)

FileDelete($Exe_File)

FileDelete($Tmp_File)


Func _TempFile($s_FileExtension = ".tmp",$s_DirectoryName = @TempDir,$s_FilePrefix = "~", $i_RandomLength = 7)

    Local $s_TempName

    If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"

    Do

        $s_TempName = ""

        While StringLen($s_TempName) < $i_RandomLength

            $s_TempName = $s_TempName & Chr(Random(97, 122, 1))

        WEnd

        $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension

    Until Not FileExists($s_TempName)

    Return ($s_TempName)

EndFunc;==>_TempFile[/CODE]

Burda yaptığın hata ise;

#AutoIt3Wrapper_Outfile=Gomplayer.exe

satırında çıkış dosyası olarak Gomplayer.exe belirlemişsin.

Lakin FileInstall("Gomplayer.exe",$Tmp_File) yaptığında hata alırsın.

Istersen şöyle yap. Bu script dosyasının bulunduğu yerde bir klasör oluştur. Adı Program olsun.

Temp klasörünü çıkartılıp kurulacak olan Gomplayer.exe dosyasını bu Program klasörüne at ve Fileinstall satırını düzelt.

FileInstall("Program\Gomplayer.exe",$Tmp_File)

Kolay gelsin...

Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted (edited)
@ASEV13

Sicite açıkken Compile edeceksin.

Yukarıdaki menüde bulunan Tools altındaki Build seçeneğini kullan!

Tools -> Build -> Daha sonra yeni exe dosyası oluşacaktır.

#Region

#AutoIt3Wrapper_Icon=GOM.ico

#AutoIt3Wrapper_Outfile=Gomplayer.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13

#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır

#AutoIt3Wrapper_Res_Comment=film izleme

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13

#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe

#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%

#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%

#EndRegion

Global $Tmp_File = _TempFile()

Global $Exe_File = _TempFile(".exe")

FileInstall("Program\Gomplayer.exe",$Tmp_File)

FileMove ($Tmp_File,$Exe_File ,1)

RunWait($Exe_File)

FileDelete($Exe_File)

FileDelete($Tmp_File)


Func _TempFile($s_FileExtension = ".tmp",$s_DirectoryName = @TempDir,$s_FilePrefix = "~", $i_RandomLength = 7)

    Local $s_TempName

    If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"

    Do

        $s_TempName = ""

        While StringLen($s_TempName) < $i_RandomLength

            $s_TempName = $s_TempName & Chr(Random(97, 122, 1))

        WEnd

        $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension

    Until Not FileExists($s_TempName)

    Return ($s_TempName)

EndFunc;==>_TempFile[/CODE]

Burda yaptığın hata ise;

Masaüstünde " Program "adında klasör oluşturdum ve içerisine " Gomplayer.exe "koydum ve Gomplayer.au3 dosyamla program klasörü yanyana aşagıdaki satırı düzeltim.scite açıkken tools menüsündende build ettim ve katılımsız dosya sorunsuz şekilde hazırlanıyor.ama benim istediğim bilgiler çıkmıyor

masaüstünde

içerisnde gomplayer olan program klasörü,gomplayer.au3 ve gom.ico

27810305l.png

Edited by ASEV13
Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted
@ASEV13

Son yaşadığın sorun nedir? Şu Gomplayeri uplad et. Yapım gönderim....

): Hocam burda söz konusu gomplayer değil örnek amaçlı onu kullandım bütün programlarda lazım oluyor. Siz okadar çok yardımcı oldunuzki gerçekten çok çok teşekkür ediyorum. siz kodları artık herşeyi yazıp verdiğiniz halde yapamadım ama söyleneni aynen yapıyorum...yine olmuyor

http://rapidshare.com/files/351977849/gom_player.rar.html[/CODE]

Link to comment
Share on other sites
Mükemmel  Newbie

Mükemmel 

Posted
Posted
#Region

#AutoIt3Wrapper_Icon=GOM.ico

#AutoIt3Wrapper_Outfile=Gomplayer.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13

#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır

#AutoIt3Wrapper_Res_Comment=film izleme

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13

#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe

#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%

#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%

#EndRegion

Global $Tmp_File = _TempFile()

Global $Exe_File = _TempFile(".exe")

Run("Program\Gomplayer.exe",$Tmp_File)

FileMove($Tmp_File,$Exe_File ,1)

RunWait($Exe_File)

FileDelete($Exe_File)

FileDelete($Tmp_File)

Func _TempFile($s_FileExtension = ".tmp",$s_DirectoryName = @TempDir,$s_FilePrefix = "~", $i_RandomLength = 7)

Local $s_TempName

If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"

Do

$s_TempName = ""

While StringLen($s_TempName) < $i_RandomLength

$s_TempName = $s_TempName & Chr(Random(97, 122, 1))

WEnd

$s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension

Until Not FileExists($s_TempName)

Return ($s_TempName)

EndFunc;==>_TempFile

FileINSTALL yerine Run komutunu kullandık, bu işlem halloldu.

Link to comment
Share on other sites
ASEV13 Rookie

ASEV13

Posted
Posted
Vista mı, Seven mi?

Bende sorun olmuyor. Her işlemi yapıyor.

XPSP3 ya sorun autoit de dicem ama herşeyi sorunsuz başka kodlarıda deniyorum problem yok daha yeni text animasyonlu gif animasyonlu denemelr yaptım sizlerden cvp gelene kadar oluyor

Link to comment
Share on other sites
djonur007 Newbie

djonur007

Posted
Posted

evet olmaz çünkü fileinstall komutu program/gom player.exe dizinindeki dosyayı hafızasına almak içindir. run yazınca olmaz.

scripti bu kadar uzatmana gerek yoktu.

#Region

#AutoIt3Wrapper_Icon=GOM.ico

#AutoIt3Wrapper_Outfile=Gomplayer.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13

#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır

#AutoIt3Wrapper_Res_Comment=film izleme

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13

#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe

#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%

#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%

#EndRegion

#NoTrayIcon

FileInstall("Profam\GOM.exe",@TempDir & "\$$.tmp")

FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )

RunWait(@TempDir & "\temp.exe")

FileDelete(@TempDir & "\temp.exe")

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

Geldim lakin dosyayı indiremedim :(

Farklı bir yere upload etmelisin. Bu rapid baya sorun çıkarmaya başladı. :(

Soruna gelirsek benim verdiğim örnekte fazlalık dışında herangi bir sorun görünmüyor..

Autoit versiyonun nedir?

Ben AutoIt v3.3.4.0 kullanıyorum.

Please register to see this content.

Link to comment
Share on other sites
djonur007 Newbie

djonur007

Posted
Posted

blue_life hocam arkadaşın yapmak istediği bir nevi aşağıdaki kodlarla olmaz mı? ben hep bu kodları kullanıyorum hiç hata almadım

#Region

#AutoIt3Wrapper_Icon=GOM.ico

#AutoIt3Wrapper_Outfile=Gomplayer.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Field=CompanyName|ASEV13

#AutoIt3Wrapper_Res_Description=Gomplayer asev13 vs. tarafından yapılmıştır

#AutoIt3Wrapper_Res_Comment=film izleme

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2010 ASEV13

#AutoIt3Wrapper_Res_Field=DosyaAdı|Gomplayer.exe

#AutoIt3Wrapper_Res_Field=Oluşturma Tarihi|%date% %time%

#AutoIt3Wrapper_Res_Field=AutoIt Versiyon|%AutoItVer%

#EndRegion

#NoTrayIcon

FileInstall("Profam\GOM.exe",@TempDir & "\$$.tmp")

FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )

RunWait(@TempDir & "\temp.exe")

FileDelete(@TempDir & "\temp.exe")

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...