razkul Posted December 26, 2009 Share Posted December 26, 2009 Autoit ile programı katılımsız yaparken nasıl bir animasyon gosterebiliriz yani yuklendıgını gosterebilirz. bu animasyonu autoit.exe içine koyacak sekilde yani kurulum sırasında yuklendıgını gostersin.ben autoit ile kurulumu parametre ile yaptırıyorum o yuzden kurulum ekranı kayboluyor Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 26, 2009 Share Posted December 26, 2009 http://www.tnctr.com/index.php?showtopic=70540[/CODE]Resim yerine gif kullanmak isterseniz de _Ani.au3 adlı bir ekstra kaynağı kullanabilirsiniz. GuiCTRLCreateGif komutuyla gif eklemeyi sağlıyor. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 27, 2009 Share Posted December 27, 2009 Klasik bir rutini sürekli yaptırmak ve durdurup tekrar başlatmak: ;örnek1HotKeySet("p","dur")dim $deger,$Paused$deger = 0dur()Func calis() do Send("1") until $deger = 0EndFuncfunc dur() if $deger = 1 Then $deger = 0 do Sleep(100) until $deger = 1 Else $deger = 1 calis() EndIfEndFunc;örnek 2#include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>dim $deger$Form1 = GUICreate("(B2F) Auto Res", 203, 193, 199, 124)$Slot1 = GUICtrlCreateInput("Slot1", 40, 80, 121, 21,$ES_NUMBER)$Button1 = GUICtrlCreateButton("Başlat", 16, 120, 75, 25)$Button2 = GUICtrlCreateButton("Durdur", 112, 120, 75, 25)$Label1 = GUICtrlCreateLabel("Skill Slot numarasını Giriniz", 32, 48, 128, 17)GUISetState(@SW_SHOW)While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 $deger = 1 case $Button2 $deger = 0 EndSwitch if $deger = 1 Then Send(GUICtrlRead($Slot1)) ElseIf $deger = 0 Then Sleep(100) EndIfWEnd[/CODE] Quote Link to comment Share on other sites More sharing options...
HknBskc Posted January 6, 2010 Share Posted January 6, 2010 Dim Komut As New AutoItX3Lib.AutoItX3 Private Sub From_Load() Timer1.Interval = 100 Form1.BorderStyle = 4 End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Komut.Send ("Z") Komut.Send ("1") End Sub diye kod buldum intten 1 timer 2 Command ekle dedi yaptım ayalrdım timerden interval 100 yao diyodu yaptım denedim z1 z1 z1 sürekli yazıyor tamam iyi güzel tek Command ile nasıl hem başla hem dur yabilirim bide kısayol nasık eklerim kısayolla dur başka yapmak istiyorum Quote Link to comment Share on other sites More sharing options...
capon Posted January 6, 2010 Share Posted January 6, 2010 cok yararlı bilgiler oldu herkesin emegine saglık.. Quote Link to comment Share on other sites More sharing options...
HknBskc Posted January 6, 2010 Share Posted January 6, 2010 kimse bilmiyormu ya Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 6, 2010 Share Posted January 6, 2010 HknBskc, sorunun hemen üstündeki benm mesajıma bir bakarmısın? Yada oradaki scripti bir autoitine yapıştırıp çalıştırırmısn ne işe yarıyormş? Quote Link to comment Share on other sites More sharing options...
HknBskc Posted January 7, 2010 Share Posted January 7, 2010 bu kodlar vb autoit karışımı bişe bende hazır buldum dendim çalışıyor başlat diyince z1 yapıyor sürekli z1z1z1z1z1 diyincede duruyor sadece autoit kullanarak başlat butonu olcak tıklayınca başlıcak tekrar tıklayınca durcak text alanında ne yazıyorsa sürekli onu tekrarlıcak bide her zaman en üstte kalma olayı checkbox mı ne var o seçiylen sürekli üstte kalcak değiken kalmıcak böyle bişe nasıl olur yapıbilcek varmı ben yapmaya çalışıyorum ama beceremedim Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 7, 2010 Share Posted January 7, 2010 Sen gözünün önündekini görmüyrsun boşver program yazmayı falan: ;örnek1HotKeySet("p","dur")dim $deger,$Paused$deger = 0dur()Func calis() do Send("1") until $deger = 0EndFuncfunc dur() if $deger = 1 Then $deger = 0 do Sleep(100) until $deger = 1 Else $deger = 1 calis() EndIfEndFunc;örnek 2#include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>dim $deger$Form1 = GUICreate("(B2F) Auto Res", 203, 193, 199, 124)$Slot1 = GUICtrlCreateInput("Slot1", 40, 80, 121, 21,$ES_NUMBER)$Button1 = GUICtrlCreateButton("Başlat", 16, 120, 75, 25)$Button2 = GUICtrlCreateButton("Durdur", 112, 120, 75, 25)$Label1 = GUICtrlCreateLabel("Skill Slot numarasını Giriniz", 32, 48, 128, 17)GUISetState(@SW_SHOW)While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 $deger = 1 case $Button2 $deger = 0 EndSwitch if $deger = 1 Then Send(GUICtrlRead($Slot1)) ElseIf $deger = 0 Then Sleep(100) EndIfWEnd[/CODE] Quote Link to comment Share on other sites More sharing options...
gangster94 Posted January 8, 2010 Share Posted January 8, 2010 (edited) bende auto it ile record yaptım next vb. klavye ile bastırdım ama yapılan şeyler gözüküyor yani transparan değil geçen gün cevabını buldum ama işe yaramadı 1 yapmıştım transparant değerini kodu neereye koyucam bilmiyorum alta koydum olmadı üste koydum olmadı acaba transpanarlık kodu için verilen kodu düzenlemekmi lazım ınstall cretor vermiş niçin verilmiş oda bilmiyorum bide kurulum bittikten sonra hareketli gif resmi nasıl göstertirim Edited January 8, 2010 by gangster94 Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 8, 2010 Share Posted January 8, 2010 Gif kullanmak için: http://www.autoitscript.com/forum/index.php?showtopic=95260[/CODE]buradaki udf yi kullanmalısın.Guictrlcreategif komutu ile gif oluşturulabiliyor.Ama diğer konuyu anlamamışsan daha fazla yardımcı olamıcam...Konunun komplesini oku blue_life birine cevap vermişti.Ama ben artık forumda cevabı olan sorulara cevap vermmeye dikkat ediyorum. Quote Link to comment Share on other sites More sharing options...
gangster94 Posted January 9, 2010 Share Posted January 9, 2010 sağol ama tek sorum ordaki koduda mı düzenliycek şeffaf yapıolacak Quote Link to comment Share on other sites More sharing options...
cobalt_60 Posted January 13, 2010 Share Posted January 13, 2010 (edited) Blackman kardeş su gif kullanmayada bi örnek versen mümkünmü ? Teşekkürler Hiçbir frumda örnek verilmemiş aramadığım yer kalmadı Edited January 13, 2010 by cobalt_60 Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 13, 2010 Share Posted January 13, 2010 Ani ve Gif Örnek: //Forum düzenini bozduğu için örnek kaldırıldı. Quote Link to comment Share on other sites More sharing options...
cobalt_60 Posted January 14, 2010 Share Posted January 14, 2010 (edited) Blackman bu kadar hızlı cevabın için teşekkürler. Benim kendi gifimi oynatmam için nereyi editlemeliyim mahsatım kendi yaptıgım katılımsızlarıma bunu ekleyim başlangıç veya sonunda imzamı koymak sitenin birindeki katılımsızlarda gördüm çok hoş olmuş. Edited January 14, 2010 by cobalt_60 Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 14, 2010 Share Posted January 14, 2010 GUICtrlCreateGifEx yada GUICtrlCreateGif ile oluşturabilirsin. GUICtrlCreateGif ($gui, $gif, genislik, yukseklik, x, y, -1, -1, 1, 1) Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted January 16, 2010 Share Posted January 16, 2010 benn şöyle bişey yapmak istiyorum bi program yüklennecek gibi bu program bilgisayarı ölçeçek ve bennim istetiğim özellikleri karşılıyyorsa uyygun veya değil diyecek bir nevi sisem annalizi yapacak böyle bişey mümkün mü ? Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 16, 2010 Share Posted January 16, 2010 Mümkün tabiki.Ama unutmayın ki bu konunun adı "ileri düzey autoit örnekleri" bunu yazmayı bizden beklemeyin.Siz elinizde bir şey varsa ve çözemediğiniz bir problem olursa sorarsınız.Söylediğim yanlış anlaşılmasın şahsınıza değil genele söylüyorum. Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted January 16, 2010 Share Posted January 16, 2010 Hayır tabiyki yanlış anlamam ben yapılabilir mi diye sordum yazım yanlışı varsa ozur dilerim klavye sakat ta biraz ilginiz için teşekkürler autoit forumunda örneklerde arasam bulabilirmiyim işime yarar bişeyler Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 16, 2010 Share Posted January 16, 2010 Tabiki bunun üzerine hazır udf bile var buyur bak çok yardımcı olacak çok kolay şekilde hazırlayabileceksin programı: CompInfo.au3 http://rapidshare.com/files/336247600/CompInfo.au3[/CODE]Buda bir örnek: CompInfoExamples.au3[CODE]http://rapidshare.com/files/336247601/CompInfoExamples.au3[/CODE] Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 16, 2010 Share Posted January 16, 2010 @*KuZeYLi* Tabiki istediğini kolay bir şekilde yapabilirsin. Ama sen tam olarak hangi özellikleri öğrenmek istiyorsun. Sadece CPU ve Ram miktarını mı? Basit bir şey... Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")Global $Total_MEM = MemGetStats()$Total_MEM = $Total_MEM[1]MsgBox(64,"","CPU = " & $CPU_GHZ & @crlf & "Total Memory = " & $Total_MEM)[/CODE] Mesela toplam ram miktarı 512 MB den küçük ise şöyle yaparsın; [CODE]Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")Global $Total_MEM = MemGetStats()$Total_MEM = $Total_MEM[1]If $Total_MEM < 512 Then MsgBox(64,"","Ram 512 MB den küçük")Else MsgBox(64,"","Ram 512 MB den büyük")Endif[/CODE] Diyelim CPU 1000 Mhz den küçük ise de, [CODE]Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")Global $Total_MEM = MemGetStats()$Total_MEM = $Total_MEM[1]If $CPU_GHZ < 100 Then MsgBox(64,"","CPU 1000 Mhz den küçük")Else MsgBox(64,"","CPU 1000 Mhz den büyük")Endif[/CODE] Tabi bunlar sadece örnek. Yapmak istediğin çalışmayı önce kafanda canlandırıp, kendine göre düzenlemelisin. Kolay gelsin.... Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted January 16, 2010 Share Posted January 16, 2010 (edited) Kafamda Şöyle bişey yapmayı hayel ettim program sistem analizi yapacak örneğin ram 256 mb işlemci 1.6 nın altında ise ise yetersiz sistem diye uyarı verecek ram 512 mb işlemci 2.6 ise normal diyecek ram 1gb ise işlemci 3.20 ise uygun diyecek gibi bi de uygun mesale uygun derse yeşil renk düşük kırmızı abi. İşlemci ghz sine bakacak mhz de olur. Uyarıyı not gibi label e yazacak dialog da alt ta yazacak... blackman12 & blue_life abilerime ilgilerinizden dolayı teşekürler udf ve kodu deneyemedim telefondan girdim internete de. Edited January 16, 2010 by *KuZeYLi* Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted January 28, 2010 Share Posted January 28, 2010 (edited) Opt("TrayIconHide", 1) #include <IE.au3> $oIE = _IECreate ("192.168.1.1") WinWait("192.168.1.1 öğesine bağlan","P&arolamı anımsa") WinWaitActive("192.168.1.1 öğesine bağlan","P&arolamı anımsa") Send("admin{TAB}pass{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKS PACE}{BACKSPACE}14531453{TAB}{TAB}{ENTER}") Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTE R}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}") modeme arayüzüne şifreyi girdip girebiliyorum ama ordan sonra yazdığım ve denediğim kodlar işe yaramıyoraşagıdaki ekrana kadar geliyorum işaretli komutlardan sonrası işlem yaptıramıyorum Edited January 28, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
*KuZeYLi* Posted February 10, 2010 Share Posted February 10, 2010 merhaba arkadaşlar ben autoit te for lar arası nasıl geçebilirim mesale program kurarken filan ileri ileri diyoruz ya onun gibi Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted February 10, 2010 Share Posted February 10, 2010 Anlatımın olduğu bölümdesin, farkındamısın bilmem. 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.