Autoit3 Programlama - Herkes Kendi Botunu Yazsın!

Run("notepad.exe")
;Notepad i çalıştır dedik


WinWaitActive("Adsız - Not Defteri")
;Hafızadan bu başlığı taşıyan programı bulduk

Send("Hey Notepad antikası, ylmz burda hooopp.{ENTER}1 2 3 4 5 6 7 8 9 10{ENTER}")
;İstediklerimizi gönderdik

Sleep(500)
;0,5 sn bekledik

Send("+{UP 2}")
;Shift e basılı 2 kere yukarı tuşuna bas dedik (Böylece seçmiş oldu)

#Include <File.au3>
#Include <Array.au3>

$Debug=0

Func KlasorBosalt($Klasor)
    $TumDosya=_FileListToArray($Klasor,"*",0)
    If $Debug Then MsgBox(0,"",$Klasor)
    If IsArray($TumDosya) Then
        If $Debug Then 
            _ArrayDisplay( $TumDosya,$Klasor)
        EndIf
        For $i = 1 To $TumDosya[0]
            FileDelete($Klasor & "\" & $TumDosya[$i])
            DirRemove($Klasor & "\" & $TumDosya[$i], 1)    
        Next
    EndIf
EndFunc

KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files\Content.IE5")
KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files")
;KlasorBosalt (@HomeDrive & @HomePath & "\Cookies")
KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\History")
KlasorBosalt (@HomeDrive & "\Temp\Temporary Internet Files")
KlasorBosalt (@WindowsDir & "\Temp")
KlasorBosalt (@HomeDrive & @HomePath & "\Recent")
KlasorBosalt (@HomeDrive & @HomePath & "\Application Data\Microsoft\Office\Recent")
KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temp")
MsgBox(0, "Temp Silme Prg", "İşlm Tamamlanmıştır ;)")

#include <inet.au3>
#include <array.au3>

$Cevir = _GoogleTranslate("How Are You?","en","tr")
MsgBox(0, 'Turkce İngilizce  ', "How Are You?" & @CRLF & $Cevir)
$Cevir = _GoogleTranslate("How Are You?","en","fi")
MsgBox(0, 'Turkce İngilizce  ', "How Are You?" & @CRLF & $Cevir)
$Cevir = _GoogleTranslate("How Are You?","en","hr")
MsgBox(0, 'Turkce İngilizce  ', "How Are You?" & @CRLF & $Cevir)
$Cevir = _GoogleTranslate("How Are You?","en","sq")
MsgBox(0, 'Turkce İngilizce  ', "How Are You?" & @CRLF & $Cevir)
$Cevir = _GoogleTranslate("How Are You?","en","sv")
MsgBox(0, 'Turkce İngilizce  ', "How Are You?" & @CRLF & $Cevir)

Func _GoogleTranslate($yazi, $ilk, $son )
    Local $ceviri, $url, $kaynak
    $url = StringFormat("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s", $yazi, $ilk, $son)
    $kaynak = _INetGetSource($url)
    $ceviri = StringRegExp(BinaryToString($kaynak, 4), '"translatedText":"([^"]+)"', 1)
    Return $ceviri[0]
EndFunc

HotKeySet("{ESC}", "iptal")
$dakika = InputBox("Bilgisayar Kapatma", "Bilgisayar Kapatma (:" & @CRLF & @CRLF & @CRLF & " Kapatılacak Zamanı Gir:")
If @error = 1 Then
  Aus()
EndIf
$saniye = $dakika * 60
$saniyeyeni = $saniye
$step = 100 / $saniye
ProgressOn("Kapatma", "Kalan Zaman:", "", -1, -1, 1)
WinMinimizeAll()
For $i = 0 To 100 Step $step
  $saniyeyeni = $saniyeyeni - 1
  Sleep(1000)
  ProgressSet($i, $saniyeyeni & " saniye kaldı" & @CRLF & @CRLF & " (ESC) Tuşu iptal !")
Next
ProgressSet(100, "Kapatılıyor....")
ProgressOff()
Shutdown(9)

Func iptal()
  Exit 0
EndFunc

 

[oyun]
oyun_dosya_yolu=c:\ylmz\game
oyun_dosya_adi=ylmz.exe
 
[cozunurluk]
yukseklik=1024
genislik=768

 
$oyunyolu = IniRead("ayar.ini", "oyun", "oyun_dosya_yolu", "")
$oyun = IniRead("ayar.ini", "oyun", "oyun_dosya_adi", "")
$cozyukseklik = IniRead("ayar.ini", "cozunurluk", "yukseklik", "")
$cozgenislik = IniRead("ayar.ini", "cozunurluk", "genislik", "")
 
MsgBox(0,"Oyun Yolu","Oyun Yolu = " &$oyunyolu)
MsgBox(0,"Oyun","Oyun = " &$oyun)
MsgBox(0,"Çözünürlük","Çözünürlük Yükseklik = " &$cozyukseklik)
MsgBox(0,"Çözünürlük","Çözünürlük Genişlik = " &$cozgenislik)

 
Global Const $SM_VIRTUALWIDTH = 78
Global Const $SM_VIRTUALHEIGHT = 79
$ekrangenislik = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALWIDTH)
$ekrangenislik = $ekrangenislik[0]
$ekranyukseklik = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)
$ekranyukseklik = $ekranyukseklik[0]
 
; Ekran Bilgilerini Aldık!!
; Şimdi INI Yazalım
 
$oyunyolu="c:\ylmzylmz\game"
$oyun="ylmzylmz.exe"
IniWrite("ayar.ini", "oyun", "oyun_dosya_yolu", $oyunyolu)
IniWrite("ayar.ini", "oyun", "oyun_dosya_adi", $oyun)
IniWrite("ayar.ini", "cozunurluk", "yukseklik", $ekranyukseklik)
IniWrite("ayar.ini", "cozunurluk", "genislik", $ekrangenislik)