İleri düzey AutoIT örnekleri

blue_life · 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")

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

DarkLenoX · October 16, 2010

#include &lt;GUIConstants.au3&gt;
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   ;==&gt;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

blue_life · 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   ;==&gt;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

DarkLenoX · October 17, 2010

Tamam Worldofroyal.exe bulunamadı diye nasıl hata vermesini sağlıyıcam bide

blue_life · October 17, 2010

If not FileExists("worldofroyal.exe") Then
	MsgBox(16,"","worldofroyal.exe bulunamadı!")
EndIf

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

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

Edited October 17, 2010 by DarkLenoX

blue_life · 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   ;==&gt;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 &amp; "\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

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

blue_life · October 17, 2010

@DarkLenoX

Oto Patch ile neyi kastediyorsun! Manuel patchı tarif et, otoyu anlatmaya çalışım

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

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

DarkLenoX · October 18, 2010

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

blue_life · 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 &amp; "\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 &gt; 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

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

DarkLenoX · October 19, 2010

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

blue_life · 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" &amp; @crlf)

DarkLenoX · 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" &amp; @crlf)

Teşekkürler Çok İşime Yaradı Bu 2 Kod

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

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

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

DarkLenoX · October 19, 2010

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

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

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

Sign In

İleri düzey AutoIT örnekleri

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

sk8er_boi

blue_life

blue_life

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

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members