İleri düzey AutoIT örnekleri

blue_life · October 21, 2010

@casira

Kısca;

If StringInStr("WIN_2003|WIN_XP|WIN_XPe|WIN_2000",@OSVersion) Then
	RunWait(@ScriptDir &amp; "\xp.exe")
ElseIf StringInStr("WIN_2008R2|WIN_7|WIN_2008|WIN_VISTA",@OSVersion) Then
	RunWait(@ScriptDir &amp; "\7vista.exe")
EndIf

Tabi ben diğer sistemleride kattım. Istersen onları silersin...

djonur007 · October 21, 2010

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

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

blue_life · 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 &lt;&gt; "" Then
	For $I = 1 To 99
		If not WinExists($HWND) Then Exit
		WinSetTitle($HWND,"","Notepad - " &amp; $I)
		Sleep(100)
	Next
EndIf

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

Aqil990 · October 21, 2010

@blue_life

usta peki , programin gui sini sheffaf yapa bilirmiyiz

yani mesela 50% lik arkasida gorunsin guide gorunsin?

blue_life · 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 &lt;&gt; "" Then
	WinSetTrans($HWND,"",170)
	For $I = 1 To 99
		If not WinExists($HWND) Then Exit
		WinSetTitle($HWND,"","Notepad - " &amp; _Random(10))
		Sleep(100)
	Next
EndIf

Func _Random($LEN = 9)
	Local $Return
	For $I = 1 To $LEN
		$Return &amp;= Random(0,9,1)
	Next
	Return $Return
EndFunc

@Aqil990

WinSetTrans ile yapabilirsin. Yukarıdaki örnekte verdim. Yardım dosyasında ilgili komuta bak.

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

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

blue_life · 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 &lt;&gt; "" Then
	Global $TITLE = WinGetTitle($HWND)
	WinSetTrans($HWND,"",170)
	For $I = 1 To 99
		If not WinExists($HWND) Then Exit
		WinSetTitle($HWND,"",$TITLE &amp; " " &amp; _Random(10))
		Sleep(100)
	Next
EndIf

Func _Random($LEN = 9)
	Local $Return
	For $I = 1 To $LEN
		$Return &amp;= Random(0,9,1)
	Next
	Return $Return
EndFunc

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

blue_life · 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 &lt;&gt; "" Then
	Global $TITLE = WinGetTitle($HWND)
	WinSetTrans($HWND,"",170)
	For $I = 1 To 99
		If not WinExists($HWND) Then Exit
		WinSetTitle($HWND,"",$TITLE &amp; " " &amp; _Random(10))
		Sleep(100)
	Next
EndIf

Func _Random($LEN = 9)
	Local $Return
	For $I = 1 To $LEN
		$Return &amp;= Random(0,9,1)
	Next
	Return $Return
EndFunc

DarkLenoX · October 22, 2010

başlık yazı derken 2sinedemi knight online client yazıyorum

Aqil990 · October 22, 2010

ikinizede tewekkur ediyorum , cok saolun

blue_life · 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 &lt;&gt; "" Then
	Global $TITLE = WinGetTitle($HWND)
	WinSetTrans($HWND,"",170)
	For $I = 1 To 99
		If not WinExists($HWND) Then Exit
		WinSetTitle($HWND,"",$TITLE &amp; " " &amp; _Random(10))
		Sleep(100)
	Next
EndIf

Func _Random($LEN = 9)
	Local $Return
	For $I = 1 To $LEN
		$Return &amp;= Random(0,9,1)
	Next
	Return $Return
EndFunc

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

blue_life · October 23, 2010

@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 &lt;&gt; 0 And ProcessClose($Process_Pid) Then Return True
	Return False
EndFunc

Edited October 23, 2010 by blue_life

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

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

DarkLenoX · October 23, 2010

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

DarkLenoX · October 23, 2010

ö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

Aqil990 · October 23, 2010

smtp ile mail yolluyorum amma hata veriyorç neden ola bilir? birde su smtp ile mail ile dosyada yollaya bilirmiyiz?

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

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

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

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