blue_life Posted October 16, 2010 Share Posted October 16, 2010 @DarkLenoX Tam kaçıyordum, sorunu gördüm Kontrol mekanizması neye göre olacak! Yani deyilim görev yöneticisinde belirlediğin bir program varsa engeller, kapanınca açabilir. Yada bir windows başlığı var ise engeller, yoksa açar vs. vs. Diğer soruna gelirsek, guini hazırlayıp paylaşırsan sana yardımcı olurum. Lakin bu günlük kaçmam lazım... Kolay gelsin... ShellExecute("www.google.com") Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 16, 2010 Share Posted October 16, 2010 Peki Bişey Daha Sorucam Run('worldofroyal.exe') Yapıyorum Eğer Worldofroyal.exe yanında Değilse Programı Kapatamıyorum Hata Vermesini İstiyorum worldofroyal.exe bulunamadı diye onu nasıl yapıcam Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 16, 2010 Share Posted October 16, 2010 #include <GUIConstants.au3> Opt("TrayIconHide", 1) #Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\form1.kxf MsgBox(0, "RoyaL Shield Aktif", "RoyaL Shield Aktif") TestFunc() Func TestFunc() MsgBox(0, "RoyaL Shield Aktif", "Forumumuza Bekleriz www.worldofroyal.com") EndFunc ;==>TestFunc $Form1_1 = GUICreate("RoyaL Shield Launcher", 797, 448, 449, 114) GUISetFont(10, 800, 0, "Comic Sans MS") GUISetBkColor(0x000000) $Button1 = GUICtrlCreateButton("Start", 336, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button2 = GUICtrlCreateButton("Ayarlar", 624, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button3 = GUICtrlCreateButton("Anasayfa", 480, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Label1 = GUICtrlCreateLabel("Bu Program DarkLenox Tarafından Tasarlandı", 480, 416, 292, 23) GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("RoyaL Shield", 320, 16, 444, 81) GUICtrlSetFont(-1, 48, 800, 0, "Dark Crystal") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("www.worldofroyal.com", 344, 104, 432, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("www.worldofroyal.net", 344, 152, 425, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("Satışlarımız", 96, 48, 94, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label6 = GUICtrlCreateLabel("Label6", 88, 120, 45, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label7 = GUICtrlCreateLabel("Server Kurulum 5 TL", 80, 72, 136, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label8 = GUICtrlCreateLabel("Özel Kopanel Tasarım 10 TL", 56, 96, 190, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label9 = GUICtrlCreateLabel("Özel Database Tasarım 10 TL", 48, 120, 194, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label10 = GUICtrlCreateLabel("Vps Satışlarımız Başlamıştır", 40, 208, 220, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label11 = GUICtrlCreateLabel("Server Kurulum Ücretsiz", 72, 280, 159, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label12 = GUICtrlCreateLabel("ÖzeL RoyaL Shield Filesler Ücretsiz", 40, 256, 234, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label13 = GUICtrlCreateLabel("Vps Satışlarımızın Yanında Ücretsiz Yaptıklarımız", 8, 232, 317, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label14 = GUICtrlCreateLabel("Server Sorunlarına Özel Bakım", 48, 304, 198, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label15 = GUICtrlCreateLabel("İletişim", 128, 336, 52, 23) GUICtrlSetColor(-1, 0xFF0000) $Label16 = GUICtrlCreateLabel("Msn: DarkLenox[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com", 56, 360, 193, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label17 = GUICtrlCreateLabel("Cep Tel: 0541 814 01 91", 64, 384, 170, 23) GUICtrlSetColor(-1, 0xFFFF00) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Run("worldofroyal.exe") WinWait(" RoyaL Shield Pass ...", "Cancel") WinActivate(" RoyaL Shield Pass ...", "Cancel") WinWaitActive(" RoyaL Shield Pass ...", "Cancel") ControlSend(" RoyaL Shield Pass ...", "", "Edit1", "23051881") ControlClick(" RoyaL Shield Pass ...", "", "Button1") Exit Case $Button2 Run("Option.exe") Exit Case $Button3 ShellExecute("www.worldofroyal.com") EndSwitch WEnd Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 17, 2010 Share Posted October 17, 2010 Ilgili program çalışmaz ise ContinueLoop ile döngüye yeniden dönebilirsin... Yani; #include <GUIConstants.au3> Opt("TrayIconHide", 1) MsgBox(0, "RoyaL Shield Aktif", "RoyaL Shield Aktif") TestFunc() Func TestFunc() MsgBox(0, "RoyaL Shield Aktif", "Forumumuza Bekleriz www.worldofroyal.com") EndFunc ;==>TestFunc $Form1_1 = GUICreate("RoyaL Shield Launcher", 797, 448, 449, 114) GUISetFont(10, 800, 0, "Comic Sans MS") GUISetBkColor(0x000000) $Button1 = GUICtrlCreateButton("Start", 336, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button2 = GUICtrlCreateButton("Ayarlar", 624, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button3 = GUICtrlCreateButton("Anasayfa", 480, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Label1 = GUICtrlCreateLabel("Bu Program DarkLenox Tarafından Tasarlandı", 480, 416, 292, 23) GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("RoyaL Shield", 320, 16, 444, 81) GUICtrlSetFont(-1, 48, 800, 0, "Dark Crystal") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("www.worldofroyal.com", 344, 104, 432, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("www.worldofroyal.net", 344, 152, 425, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("Satışlarımız", 96, 48, 94, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label6 = GUICtrlCreateLabel("Label6", 88, 120, 45, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label7 = GUICtrlCreateLabel("Server Kurulum 5 TL", 80, 72, 136, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label8 = GUICtrlCreateLabel("Özel Kopanel Tasarım 10 TL", 56, 96, 190, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label9 = GUICtrlCreateLabel("Özel Database Tasarım 10 TL", 48, 120, 194, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label10 = GUICtrlCreateLabel("Vps Satışlarımız Başlamıştır", 40, 208, 220, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label11 = GUICtrlCreateLabel("Server Kurulum Ücretsiz", 72, 280, 159, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label12 = GUICtrlCreateLabel("ÖzeL RoyaL Shield Filesler Ücretsiz", 40, 256, 234, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label13 = GUICtrlCreateLabel("Vps Satışlarımızın Yanında Ücretsiz Yaptıklarımız", 8, 232, 317, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label14 = GUICtrlCreateLabel("Server Sorunlarına Özel Bakım", 48, 304, 198, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label15 = GUICtrlCreateLabel("İletişim", 128, 336, 52, 23) GUICtrlSetColor(-1, 0xFF0000) $Label16 = GUICtrlCreateLabel("Msn: DarkLenoxForumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız.com", 56, 360, 193, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label17 = GUICtrlCreateLabel("Cep Tel: 0541 814 01 91", 64, 384, 170, 23) GUICtrlSetColor(-1, 0xFFFF00) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 If Run("worldofroyal.exe") = 0 Then ContinueLoop WinWait(" RoyaL Shield Pass ...", "Cancel") WinActivate(" RoyaL Shield Pass ...", "Cancel") WinWaitActive(" RoyaL Shield Pass ...", "Cancel") ControlSend(" RoyaL Shield Pass ...", "", "Edit1", "23051881") ControlClick(" RoyaL Shield Pass ...", "", "Button1") Exit Case $Button2 If Run("Option.exe") = 0 Then ContinueLoop Exit Case $Button3 ShellExecute("www.worldofroyal.com") EndSwitch WEnd Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 17, 2010 Share Posted October 17, 2010 Tamam Worldofroyal.exe bulunamadı diye nasıl hata vermesini sağlıyıcam bide Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 17, 2010 Share Posted October 17, 2010 If not FileExists("worldofroyal.exe") Then MsgBox(16,"","worldofroyal.exe bulunamadı!") EndIf Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 17, 2010 Share Posted October 17, 2010 Bu Kodu Yazdım Ama Bulunamadı Diye Hata Vermiyor Yanlış Yeremi Yapıştırdım Acaba Verdiğim Kodlarda Nereye Yapıştırıcağımı Gösterirseniz Sevinirim Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 17, 2010 Share Posted October 17, 2010 (edited) Bu Kodu Yazdım Ama Bulunamadı Diye Hata Vermiyor Yanlış Yeremi Yapıştırdım Acaba Verdiğim Kodlarda Nereye Yapıştırıcağımı Gösterirseniz Sevinirim Edited October 17, 2010 by DarkLenoX Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 17, 2010 Share Posted October 17, 2010 Scriptin yanında worldofroyal.exe varsa tabiki mesaj çıkmaz! Sen bu yarıyı butona basınca mı almak istiyorsun? Opt("TrayIconHide", 1) MsgBox(0, "RoyaL Shield Aktif", "RoyaL Shield Aktif") TestFunc() Func TestFunc() MsgBox(0, "RoyaL Shield Aktif", "Forumumuza Bekleriz www.worldofroyal.com") EndFunc ;==>TestFunc $Form1_1 = GUICreate("RoyaL Shield Launcher", 797, 448, 449, 114) GUISetFont(10, 800, 0, "Comic Sans MS") GUISetBkColor(0x000000) $Button1 = GUICtrlCreateButton("Start", 336, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button2 = GUICtrlCreateButton("Ayarlar", 624, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Button3 = GUICtrlCreateButton("Anasayfa", 480, 360, 137, 41, 0) GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS") $Label1 = GUICtrlCreateLabel("Bu Program DarkLenox Tarafından Tasarlandı", 480, 416, 292, 23) GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("RoyaL Shield", 320, 16, 444, 81) GUICtrlSetFont(-1, 48, 800, 0, "Dark Crystal") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("www.worldofroyal.com", 344, 104, 432, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("www.worldofroyal.net", 344, 152, 425, 49) GUICtrlSetFont(-1, 28, 400, 0, "Dark Crystal") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("Satışlarımız", 96, 48, 94, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label6 = GUICtrlCreateLabel("Label6", 88, 120, 45, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label7 = GUICtrlCreateLabel("Server Kurulum 5 TL", 80, 72, 136, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label8 = GUICtrlCreateLabel("Özel Kopanel Tasarım 10 TL", 56, 96, 190, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label9 = GUICtrlCreateLabel("Özel Database Tasarım 10 TL", 48, 120, 194, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label10 = GUICtrlCreateLabel("Vps Satışlarımız Başlamıştır", 40, 208, 220, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xC0C0C0) $Label11 = GUICtrlCreateLabel("Server Kurulum Ücretsiz", 72, 280, 159, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label12 = GUICtrlCreateLabel("ÖzeL RoyaL Shield Filesler Ücretsiz", 40, 256, 234, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label13 = GUICtrlCreateLabel("Vps Satışlarımızın Yanında Ücretsiz Yaptıklarımız", 8, 232, 317, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label14 = GUICtrlCreateLabel("Server Sorunlarına Özel Bakım", 48, 304, 198, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label15 = GUICtrlCreateLabel("İletişim", 128, 336, 52, 23) GUICtrlSetColor(-1, 0xFF0000) $Label16 = GUICtrlCreateLabel("Msn: DarkLenoxForumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız.com", 56, 360, 193, 23) GUICtrlSetColor(-1, 0xFFFF00) $Label17 = GUICtrlCreateLabel("Cep Tel: 0541 814 01 91", 64, 384, 170, 23) GUICtrlSetColor(-1, 0xFFFF00) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 If not FileExists(@ScriptDir & "\worldofroyal.exe") Then MsgBox(16,"","worldofroyal.exe bulunamadı!") EndIf If Run("worldofroyal.exe") = 0 Then ContinueLoop WinWait(" RoyaL Shield Pass ...", "Cancel") WinActivate(" RoyaL Shield Pass ...", "Cancel") WinWaitActive(" RoyaL Shield Pass ...", "Cancel") ControlSend(" RoyaL Shield Pass ...", "", "Edit1", "23051881") ControlClick(" RoyaL Shield Pass ...", "", "Button1") Exit Case $Button2 If Run("Option.exe") = 0 Then ContinueLoop Exit Case $Button3 ShellExecute("www.worldofroyal.com") EndSwitch WEnd Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 17, 2010 Share Posted October 17, 2010 tamamdır teşekkürler Launcher Nerdeyse Bitti Tek Bi Eksiğim Kaldı Oda Oto Patch Onu Nasıl Yapabiliceğim Hakkında Bi Fikrin Varmı Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 17, 2010 Share Posted October 17, 2010 @DarkLenoX Oto Patch ile neyi kastediyorsun! Manuel patchı tarif et, otoyu anlatmaya çalışım Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 17, 2010 Share Posted October 17, 2010 Tamam Onu Sonrada Yapabiliriz 1 Sorunum Daha Var Bizim Server Filesler Chatlog Diye Tüm Logları Txt Not Defteri Şeklinde Tutuyor Bende Bu Not Defterlerini Otomatik Açan Bi Buton Yapıcam Fakat Chatlog-2008-10 Diye Server Filesler Hep Sonuna Tarih Atıyor Çoğalıyor Bende Şöyle Bişey Düşündüm Chatlog Yazı Kısmını Görürse Açmasını İstiyorum Logların Bulunduğu Klasör Buna Göre Bi Kod Yazabilirmisin Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 17, 2010 Share Posted October 17, 2010 iki soruda benden usta Block input yaparkan istiyorumki, inputbox olsun ekranda ve sadece inputboxa parola yazma imkani olsun tabiiki alinmiyor blockinput onuda donduruyor. ikinci sorum shu FileWrite komutu ile ilgili dosyaya yaziyi yazdiriyorum peki, mesela soyle deyim inputa yazi yaziliyor simdi o yaziyi filein icinden bulub nasil silicem? Usta baya zahmet veriyoruz sana, Cok Cok tewekkur ediyorum. Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 18, 2010 Share Posted October 18, 2010 (edited) Autoitte Swf Nasıl Gömülür Bende 15 Saniyelik Bi Swf Var Başlangıçta Onun Çalışmasını İstiyorum Edited October 18, 2010 by DarkLenoX Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 18, 2010 Share Posted October 18, 2010 @DarkLenoX Anlamakta güçlük çekiyorum. Sade bir şekilde yazabilirmisin. Bilgisayarımda birden fazla sonunda tarih bulunan text dosyaları var. Bir butonla bunları açmak isityorum mu demek istiyorsun? Yada, ilgili dosyanın içeriğine bakıp ... vs gibi bir yazı var ise onları mı açmasını istiyorsun. Sana yardımcı olmam için biraz daha sade bir şekilde anlatmalısın... @Aqil990 BlockInput ile istediğini yapamazsın malesef! Diğer sorun için basit bir örnek verim. Ama ilgili dosya yazı (text) içerikli olacak! Global $File = @ScriptDir & "\Deneme.au3" ;Dosya konumu Global $FileRead = FileRead($File,FileGetSize($File)) ;Dosyayı okuyoruz. Global $SIL = " AutoIt Version: 3.3.6.1" ;Yazımız $FileRead = StringReplace($FileRead,$SIL,"") ;Siliyoruz If @extended > 0 Then If FileDelete($File) = 1 Then ;Dosya silindiyse FileWrite($File,$FileRead) ;Yazıyoruz EndIf Endif @DarkLenoX Gerekli flash paketi yüklenmiş olmalı! Kolay gelsin arkadaşlar... Global $SWF_FILE = "C:\Deneme.swf" Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1") GUICreate("Flash", 820, 600, -1, -1) $GUIActiveX = GUICtrlCreateObj($oRP, 10, 10, 800, 580) With $oRP .bgcolor = "#000000" .Movie = $SWF_FILE .ScaleMode = 2 .Loop = True .wmode = "Opaque" .FlashVars = "" EndWith GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = -3 ExitLoop EndSelect WEnd $oRP = 0 GUIDelete() Exit Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 18, 2010 Share Posted October 18, 2010 kodlar icin tewekkurler. peki boyle bir sey olurmu: while ile hostkeysetden bir kac duymeye basilma bekletiriz basilacagi ana kadar blockinputu 1 yapariz basilinca 0 yapariz mumkunmu? Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 19, 2010 Share Posted October 19, 2010 (edited) Teşekkürlere Blue_Life Baya Yardımcı Oldun Senide Sık Boğaz Ediyorum Ama Daha Yeni Başladım Ufak Tefek Şeyler Yapmaya Çalışıyorum Yanlız Verdiğin Swf İçin Kod Çalışıyor Fakat Etrafındaki Pencereyi Yok Etmenin Yöntemi Varmı Bide Swf Durmadan Çalışıyor Onu İstediğim Sürede Nasıl Durdurucam Yani 15 Saniye Çalışmasını İstiyorum Örnek Bi Sorunum Daha Var GameServer Adlı Bi Exeye Komut Yolluyorum ControlSend ("GameServer Ver - 20041111", "", "Edit1", "This is a test",0) Komut Böyle Yazıyor Fakat Bi Türlü Enterletemedim Send Enter Felan Olmadı Onada Bi El Atarsan Sevinirim Edited October 19, 2010 by DarkLenoX Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 19, 2010 Share Posted October 19, 2010 @Aqil990 BlockInput kullandığında ilgili tuşlar hariç klaveye ve mouse girdileri engellenir. Tabi bu engellemeyi belli bir süre yapabilirsin. Mesela; BlockInput(1) Sleep(3000) ;3 Saniye BlockInput(0) BlockInput ile inputları kitlersen haliyle HotKeySet ile tanımladığın kısayollar çalışmayacaktır. Sen tam olarak ne yapmak istiyorsun? @DarkLenoX Saniyeyi belirlersin, boyut için gui ve Objnin boyutlarıyla oynarsın... ;http://www.autoitscript.com/forum/index.php?showtopic=113401 Global $SWF_FILE = "D:\133XX\Flash\Animasyon\beback[1].swf" _Splash_Flash_Movie($SWF_FILE,15000) ;Swf dosyası, milliseconds (1000 milliseconds = 1 seconds) ;Diğer satırlar MsgBox(64,"","Splash bitti!",5) Exit Func _Splash_Flash_Movie($SWF_FILE,$SLEEP) Local $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1") Local $Blue_GUI = GUICreate("Flash", 800, 600, -1, -1,0x80000000, BitOR(0x00000008, 0x00000080)) $GUIActiveX = GUICtrlCreateObj($oRP, 0, 0, 800, 600) GUICtrlSetState(-1,128) WinSetTrans($Blue_GUI,"",200) With $oRP .bgcolor = "#0000FF" ;Arkaplan rengi .Movie = $SWF_FILE ;File .ScaleMode = 2 .Loop = False .wmode = "Opaque" .FlashVars = "" EndWith GUISetState(@SW_SHOW) Sleep($SLEEP) ; Bekleme $oRP = 0 GUIDelete($Blue_GUI) EndFunc ConrolSend için @crlf Enter görevi görebilir. Yani; ControlSend("GameServer Ver - 20041111", "", "Edit1", "This is a test" & @crlf) Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 19, 2010 Share Posted October 19, 2010 @Aqil990 BlockInput kullandığında ilgili tuşlar hariç klaveye ve mouse girdileri engellenir. Tabi bu engellemeyi belli bir süre yapabilirsin. Mesela; BlockInput(1) Sleep(3000) ;3 Saniye BlockInput(0) BlockInput ile inputları kitlersen haliyle HotKeySet ile tanımladığın kısayollar çalışmayacaktır. Sen tam olarak ne yapmak istiyorsun? @DarkLenoX Saniyeyi belirlersin, boyut için gui ve Objnin boyutlarıyla oynarsın... ;http://www.autoitscript.com/forum/index.php?showtopic=113401 Global $SWF_FILE = "D:\133XX\Flash\Animasyon\beback[1].swf" _Splash_Flash_Movie($SWF_FILE,15000) ;Swf dosyası, milliseconds (1000 milliseconds = 1 seconds) ;Diğer satırlar MsgBox(64,"","Splash bitti!",5) Exit Func _Splash_Flash_Movie($SWF_FILE,$SLEEP) Local $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1") Local $Blue_GUI = GUICreate("Flash", 800, 600, -1, -1,0x80000000, BitOR(0x00000008, 0x00000080)) $GUIActiveX = GUICtrlCreateObj($oRP, 0, 0, 800, 600) GUICtrlSetState(-1,128) WinSetTrans($Blue_GUI,"",200) With $oRP .bgcolor = "#0000FF" ;Arkaplan rengi .Movie = $SWF_FILE ;File .ScaleMode = 2 .Loop = False .wmode = "Opaque" .FlashVars = "" EndWith GUISetState(@SW_SHOW) Sleep($SLEEP) ; Bekleme $oRP = 0 GUIDelete($Blue_GUI) EndFunc ConrolSend için @crlf Enter görevi görebilir. Yani; ControlSend("GameServer Ver - 20041111", "", "Edit1", "This is a test" & @crlf) Teşekkürler Çok İşime Yaradı Bu 2 Kod Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 19, 2010 Share Posted October 19, 2010 Ben boyle bir shey yapmak istiyorum program calishinca PC kilitlensin parola ve ya hotkeyset yetkili sahsin mudahilesila bir turlu acilsin iste sonra umarim anlata bilmisimdir. Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 19, 2010 Share Posted October 19, 2010 Peki Lisanslama Olayı Varmı Bunda Mesela Visual Basicte Bi Kod Var Kendi ftpende bi txt not defterine yönlendiriyorsun 1 yaparsan programı kullanabiliyorlar 0 yapınca bu program kullanıma kapatılmıştır diye yazıyor Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 19, 2010 Share Posted October 19, 2010 @Aqil990 Bu konuda detaylı bilgim yok malesef! Autoit forumunda arama yapabilirsin... @DarkLenoX Sen ilgili linkteki bir dosyayı okutup, içinde 1 yoksa programın kapanmasını mı istiyorsun? O zaman kısaca; If Not StringInStr(BinaryToString(InetRead("ftp://bluelife/deneme.txt",1)),"1") Then MsgBox(16,"","Hata!") Exit EndIf Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 19, 2010 Share Posted October 19, 2010 (edited) kodda bi hata olabilirmi eror veriyor If Not StringInStr(BinaryToString(InetRead("www.worldofroyal.com/lisansme.txt",1)),"1") Then MsgBox(16,"","Hata!") Exit EndIf Edited October 19, 2010 by DarkLenoX Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 20, 2010 Share Posted October 20, 2010 @DarkLenoX Yukarıdaki verdiğim örnekte ilgili dosyanın içindeki yazıda 1 varmı diye bakılıyor. Yani 1 yoksa ordaki hata mesajı çıkıyor. Senin www.worldofroyal.com/lisansme.txt dosyasında 0 yazılı. Ilgili dosyanın içine 1 yazarsan hata vermez... Ben örnek verdim. Senin kullanım amacın doğrultusunda, kendine göre düzenlemelisin... Quote Link to comment Share on other sites More sharing options...
casira Posted October 20, 2010 Share Posted October 20, 2010 Bat dosyası ile sessiz girilen reg kaydını autoit ile sessizce nasıl yapılır. start /wait regedit /s abc.reg bu komutu bat dosyasına girince bat dosyasının yanındaki abc.reg sessizce regedite ekleniyor aynı şekilde scriptin yanındaki abc.reg dosyasını nasıl sessiz regedite ekleyebiliriz. 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.