*KuZeYLi* Posted February 10, 2010 Share Posted February 10, 2010 bu konu da var mı benim istetiğim anlatım hangi no lu yazı da :S Quote Link to comment Share on other sites More sharing options...
blackman12 Posted February 10, 2010 Share Posted February 10, 2010 Ne dediğini anlasam bi' de! Ayrıca buradan başka konu açmazsın umarum bir daha... Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted February 12, 2010 Share Posted February 12, 2010 yani bir progrsm kurulumu gibi ileri ileri gibi ysni setup gibi bişey leri seçecek ve sonra ileri kuruluma başla gibi bunun gibi ama form lar arası sayfalar arası geçiş olması lazım bunu autoit le nasıl yaparım Quote Link to comment Share on other sites More sharing options...
blackman12 Posted February 12, 2010 Share Posted February 12, 2010 Hiç bir yorum getiremiyorum artık buna! Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted February 12, 2010 Share Posted February 12, 2010 Hiç bir yorum getiremiyorum artık buna! neden ? ben bişey anlayamadım ? Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 13, 2010 Share Posted February 13, 2010 *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 Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted February 13, 2010 Share Posted February 13, 2010 *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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 13, 2010 Share Posted February 13, 2010 @*KuZeYLi* Malesef ne kastettiğini anlamadım Yukarıdaki verdiğim örnek çok basit ve mesaj kutularını daha iyi anlaman için ekledim. Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted February 13, 2010 Share Posted February 13, 2010 @*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 Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 14, 2010 Share Posted February 14, 2010 (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 February 17, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 15, 2010 Share Posted February 15, 2010 @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... Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 16, 2010 Share Posted February 16, 2010 (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 February 17, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 17, 2010 Share Posted February 17, 2010 @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 Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 17, 2010 Share Posted February 17, 2010 (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 February 17, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 17, 2010 Share Posted February 17, 2010 @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... Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 17, 2010 Share Posted February 17, 2010 (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 Edited February 17, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 17, 2010 Share Posted February 17, 2010 @ASEV13 Son yaşadığın sorun nedir? Şu Gomplayeri uplad et. Yapım gönderim.... Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 17, 2010 Share Posted February 17, 2010 @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] Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted February 17, 2010 Share Posted February 17, 2010 #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. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 17, 2010 Share Posted February 17, 2010 yine olmuyor hocam sizin değişiklik yaptığınız komutla Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted February 17, 2010 Share Posted February 17, 2010 Vista mı, Seven mi? Bende sorun olmuyor. Her işlemi yapıyor. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 17, 2010 Share Posted February 17, 2010 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 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted February 17, 2010 Share Posted February 17, 2010 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") Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 17, 2010 Share Posted February 17, 2010 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. Quote Link to comment Share on other sites More sharing options...
djonur007 Posted February 17, 2010 Share Posted February 17, 2010 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") Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.