blue_life Posted October 21, 2010 Share Posted October 21, 2010 @casira Kısca; If StringInStr("WIN_2003|WIN_XP|WIN_XPe|WIN_2000",@OSVersion) Then RunWait(@ScriptDir & "\xp.exe") ElseIf StringInStr("WIN_2008R2|WIN_7|WIN_2008|WIN_VISTA",@OSVersion) Then RunWait(@ScriptDir & "\7vista.exe") EndIf Tabi ben diğer sistemleride kattım. Istersen onları silersin... Quote Link to comment Share on other sites More sharing options...
djonur007 Posted October 21, 2010 Share Posted October 21, 2010 (edited) Bir konuda yardım isteyeceğim.Örnek olarak işletim sistemimiz xp ise scriptin yanındaki xp.exe;Eğer Win 7 veya vista ise 7vista.exe dosyasını çalıştırmam gerek.Bunu nasıl yapabilirim. Buyrun; if @OSVersion=="WIN_7" Or @OSVersion=="WIN_VISTA" Then MsgBox(0,"","Sisteminiz Windows 7/Vista") ElseIf @OSVersion=="WIN_XP" Then MsgBox(0,"","Sisteminiz Windows XP") EndIf @blue_life hocam 1 dakika ile öndesin Edited October 21, 2010 by djonur007 Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 21, 2010 Share Posted October 21, 2010 bu arada teşekkürler blue_life baya yardımcı oldun sendede güzel sabır varmış başkası olsaydı herhalde cevap yazmazdı Şimdi bi exe gördüm exenin alt kısımda isim yazan bölümü yani titlesi durmadan sayılarla değişiyor 1231415151 1231415152461 1414523534 14151515 Yapan Kişiye Sordum Autoitle Titlesini Ele Geçirdim Diyor Sizce nasıl Yapmış Olabilir Şimdi bi exe gördüm exenin alt kısımda isim yazan bölümü yani titlesi durmadan sayılarla değişiyor 1231415151 1231415152461 1414523534 14151515 Yapan Kişiye Sordum Autoitle Titlesini Ele Geçirdim Diyor Sizce nasıl Yapmış Olabilir sk8er_boi - > Flood yapmaya devam etme. Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 21, 2010 Share Posted October 21, 2010 @DarkLenoX Bir penceredeki yazılara başlıklara autoit ile müdehale edebilirsin. Başlık için WinSetTitle, penceredeki herangi bir eleman için ControlSetText kullanılabilir. Bak ben notepadin başlığını değiştiren bir örnek verim... Run("Notepad.exe") Sleep(500) ;Biraz bekleyelim Global $HWND = WinGetHandle("[CLASS:Notepad]", "") If $HWND <> "" Then For $I = 1 To 99 If not WinExists($HWND) Then Exit WinSetTitle($HWND,"","Notepad - " & $I) Sleep(100) Next EndIf Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 21, 2010 Share Posted October 21, 2010 bu tietlenin tamamını ele geçirmiyor sonuna rakam ekliyor ve rakamlar devamlı oynuyor ben tietlenin tamamını istiyorum rica etsem bidaha bakarmısın Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 21, 2010 Share Posted October 21, 2010 @blue_life usta peki , programin gui sini sheffaf yapa bilirmiyiz yani mesela 50% lik arkasida gorunsin guide gorunsin? Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 21, 2010 Share Posted October 21, 2010 @DarkLenoX Aşağıdaki gibi bir şeymi istiyorsun? Run("Notepad.exe") Sleep(500) ;Biraz bekleyelim Global $HWND = WinGetHandle("[CLASS:Notepad]", "") If $HWND <> "" Then WinSetTrans($HWND,"",170) For $I = 1 To 99 If not WinExists($HWND) Then Exit WinSetTitle($HWND,"","Notepad - " & _Random(10)) Sleep(100) Next EndIf Func _Random($LEN = 9) Local $Return For $I = 1 To $LEN $Return &= Random(0,9,1) Next Return $Return EndFunc @Aqil990 WinSetTrans ile yapabilirsin. Yukarıdaki örnekte verdim. Yardım dosyasında ilgili komuta bak. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted October 21, 2010 Share Posted October 21, 2010 darklenox; $orjinal_baslik = WinGetTitle ( "pencere adı","") while 1 $sayi_getir = random(0,100000,1) winsettitle("pencere adı","",$orjinal_baslik & " " & $sayi_getir) sleep(250) wend aqil1990; winsettrans($gui,"",170) burada $gui değişkeni guicreateten dönen değerdir. eğer ben uğraşamam onla diyosan direkt saydam yapacağın pencerenin adını yaz tırnak içinde oraya winsettrans("pencere adı","",170) düzenleme: blue_life cevap vermiş meğersem. Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 22, 2010 Share Posted October 22, 2010 blue life sizinki süper olmuş ama tüm titleyi ele geçirmiyor knight online clientin sonuna sayı ekliyor sayı hızlandırma şeklinide yavaşlatabiliyorum ne kadar sürüceğinide komple titleyi ele geçirsek tamamdır Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 22, 2010 Share Posted October 22, 2010 @DarkLenoX Title yerine Au3info programından class ismini bulup kullan... Bak ben aşağıdaki örnekte class ismini blup ilgili pencerenin kimliğini (WinGetHandle ile) aldım diyelim. Kısaca pencerenin ismi değişse bile pencerenin windowstaki kimlik numarasını aynı kalacaktır. Böylece pencerenin isim değişikliği senin bağlamayacaktır. Biraz kurcalarsan çözeceğini düşünüyorum... Run("Notepad.exe") Sleep(500) ;Biraz bekleyelim Global $HWND = WinGetHandle("[CLASS:Notepad]", "") If $HWND <> "" Then Global $TITLE = WinGetTitle($HWND) WinSetTrans($HWND,"",170) For $I = 1 To 99 If not WinExists($HWND) Then Exit WinSetTitle($HWND,"",$TITLE & " " & _Random(10)) Sleep(100) Next EndIf Func _Random($LEN = 9) Local $Return For $I = 1 To $LEN $Return &= Random(0,9,1) Next Return $Return EndFunc Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 22, 2010 Share Posted October 22, 2010 baktım yapamadım mesela blackmanın paylaştığında titleyi komple ele geçiriyor ama rakamlar oynamıor sabit bi rakamda kalıyor onun gibi bişey yapabilirmisin Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 22, 2010 Share Posted October 22, 2010 @DarkLenoX Başlık ve yazıyı yazarsan rahatlıkla yapman lazım... Global $HWND = WinGetHandle("Başlık", "Yazı") If $HWND <> "" Then Global $TITLE = WinGetTitle($HWND) WinSetTrans($HWND,"",170) For $I = 1 To 99 If not WinExists($HWND) Then Exit WinSetTitle($HWND,"",$TITLE & " " & _Random(10)) Sleep(100) Next EndIf Func _Random($LEN = 9) Local $Return For $I = 1 To $LEN $Return &= Random(0,9,1) Next Return $Return EndFunc Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 22, 2010 Share Posted October 22, 2010 başlık yazı derken 2sinedemi knight online client yazıyorum Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 22, 2010 Share Posted October 22, 2010 ikinizede tewekkur ediyorum , cok saolun Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 22, 2010 Share Posted October 22, 2010 @DarkLenoX Ilgili başlık bilgisini au3 info dan alabilirsin. Yazı kısmını boş bırak... Global $HWND = WinGetHandle("Başlık") If $HWND <> "" Then Global $TITLE = WinGetTitle($HWND) WinSetTrans($HWND,"",170) For $I = 1 To 99 If not WinExists($HWND) Then Exit WinSetTitle($HWND,"",$TITLE & " " & _Random(10)) Sleep(100) Next EndIf Func _Random($LEN = 9) Local $Return For $I = 1 To $LEN $Return &= Random(0,9,1) Next Return $Return EndFunc Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 22, 2010 Share Posted October 22, 2010 tamamdır teşekkürler mesela yazdığım programı sistem görevi olarak çalıştırmam mümkünmü programı kapattınmı bilgisayarlarıda kapansın gibi bişey veya görev yöneticisinden engellemeyi yani görev yöneticisinden sonlandıramassınlar programı mümkünmü Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 23, 2010 Share Posted October 23, 2010 (edited) @DarkLenoX Basit bir kodla görev yöneticisini engelleyebilirsin. Yani açılınca kapatabilirsin. Mesela; $Form1 = GUICreate("Taskmgr Block", 200,100) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch _BL_ProcessClose("taskmgr.exe");Block Task Manager WEnd Func _BL_ProcessClose($Process_Name) Local $Process_Pid = ProcessExists($Process_Name) If $Process_Pid <> 0 And ProcessClose($Process_Pid) Then Return True Return False EndFunc Edited October 23, 2010 by blue_life Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 23, 2010 Share Posted October 23, 2010 Görev Yöneticisini Kapatmayı Değil Programı Görev Yöneticisinden Sonlandırmaya Kalkınca hata versin bu program sonlandıralamaz diye veya sistem görevi olarak çalışsın görev yöneticisinden sonlandırınca bilgisayar kapansın Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 23, 2010 Share Posted October 23, 2010 @DarkLenoX Bu konularda fazla bilgim yok malesef Genelde bu tip işlemler ile virüs vs. çalışması yapanlar ilgilenir. Yoksa sen böyle bir çalışma mı yapıyorsun? Eğer öyle bir niyetin varsa, bu konularda ben yokum. Masum bir çalışma yapıyorsan, basit yoldan istediğini yapabilirsin. Görev yöneticisindeki bazı işlemler, windows görev yöneticisinden kapatmıyor. O zaman sende dosya ismininde bunlardan birisni kullanabilirsin. Örnek olarak compile ettiğin dosyanın ismini smss.exe olarak değiştir ve windows görev yöneticisinden kapatmayı dene! Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 23, 2010 Share Posted October 23, 2010 (edited) Hayır Antihile Sistemi Yapıyorum Pvp Serverler İçin öyle yapamam çünkü exeyi çalıştırıyorlar exeye otomatik şifreyi giriyor asmden şifre gömdüm onun için autoit scriptine ihtiyacım gizli biçimde çalıştırsaydım gerekmezdi bile oyundayken bu programı sonlandıramasınlar istiyorum çünkü sonlandırılarsa hile açabilirler ctrl alt deleteyi engellemeyi düşündüm fakat bu seferde azcık programlama dili olanlar hemen bi script yazabilirler bu programı sonlandır diye onun için görev yöneticisinden kapatılmayı engellemem veya sistem dosyası biçiminde çalışmasını sağlamam lazım bide bana özelden msn verebilirmisin bi kaç soru sormak isterim Edited October 23, 2010 by DarkLenoX Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 23, 2010 Share Posted October 23, 2010 (edited) öyle yapamam çünkü exeyi çalıştırıyorlar exeye otomatik şifreyi giriyor asmden şifre gömdüm onun için autoit scriptine ihtiyacım gizli biçimde çalıştırsaydım gerekmezdi bile oyundayken bu programı sonlandıramasınlar istiyorum çünkü sonlandırılarsa hile açabilirler ctrl alt deleteyi engellemeyi düşündüm fakat bu seferde azcık programlama dili olanlar hemen bi script yazabilirler bu programı sonlandır diye onun için görev yöneticisinden kapatılmayı engellemem veya sistem dosyası biçiminde çalışmasını sağlamam lazım bide bana özelden msn verebilirmisin bi kaç soru sormak isterim DİKKAT: Flood Yapmak YASAKTIR, Ard Arda İleti Göndermek Yerine Butonunu Kullanarak İlk İletinizi Düzenleyiniz. Edited October 23, 2010 by Nash Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 23, 2010 Share Posted October 23, 2010 smtp ile mail yolluyorum amma hata veriyorç neden ola bilir? birde su smtp ile mail ile dosyada yollaya bilirmiyiz? Quote Link to comment Share on other sites More sharing options...
djonur007 Posted October 23, 2010 Share Posted October 23, 2010 smtp ile mail yolluyorum amma hata veriyorç neden ola bilir? birde su smtp ile mail ile dosyada yollaya bilirmiyiz? Autoplay media studio ile karıştırdın mı banamı öyle geliyor? Kodları alabilir miyim? Quote Link to comment Share on other sites More sharing options...
Aqil990 Posted October 23, 2010 Share Posted October 23, 2010 Autoplay media studiodan anlamam Kodlar helpdeki gibi calishtiriyorum (tabii ki editleyerek) amma yollamiyor ahta veriyor. kodlar shu: #include <INet.au3> $s_SmtpServer = "mysmtpserver.com.au" $s_FromName = "My Name" $s_FromAddress = "From eMail Address" $s_ToAddress = "To eMail Address" $s_Subject = "My Test UDF" Dim $as_Body[2] $as_Body[0] = "Testing the new email udf" $as_Body[1] = "Second Line" $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Mail sent") Else MsgBox(0, "Error!", "Mail failed with error code " & $err) EndIf Quote Link to comment Share on other sites More sharing options...
DarkLenoX Posted October 25, 2010 Share Posted October 25, 2010 Peki Şeyi Nasıl Yapıcaz Mesela ben bi program daha yazıcam diğer exeyi kontrol edicek diğer exede bunu kontrol edicek birbirlerini kontrol etmesini nasıl sağlıyabilirim birisi kapandınmıda oyunun exesini sonlandırıcak 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.