Autoit süslü (şekilli) yazı yazmak

1280x960 çözünürlükte chrome tarayıcısını kullanıp calıstırdığınızda sorun yaşamaycaksınız. bu sciptin dört yazım şekli fonksiyonu var. scripti başlattıktan sonra adsız not defteri açılır. dikdörtgen şeklinde kücültüp sağ üst köşeye aldığınızda (herzaman üstte görünecektir) crtl 1 tuşlarına bastığınızda birinci yazım şeklini aktif etmişsiniz demektir. daha sonra not defterine yazıp esc tuşuna bastığınızda yazdıklarınız otomatik mynet sekmesine aktarılır. "н,к,м,η,я,т,·" tırnak icerisindeki metni (tırnak isaretleri olmadan) text.txt içerisine kaydedin ve autoit dosyası ve bu metin belgesi aynı klasör içerisinde olmalıdır. önemli not ise smeet ayrı bir sekmede çalışıyor olması gerekir. ctr1 crtl2 crtl3 ctrl4 yazım şeklini aktif edebileceğiniz kısayol geçişleridir.

if ProcessExists("notepad.exe") then
WinSetOnTop("Adsız - Not Defteri","",1)
Else
run("notepad.exe")
EndIf
Sleep(200)
WinSetOnTop("Adsız - Not Defteri","",1)

#include
$a=FileReadLine("text.txt",1)
$a=StringSplit($a,",")
$z=""
$h=$a[1]
$k=$a[2]
$m=$a[3]
$n=$a[4]
$r=$a[5]
$t=$a[6]
$0=$a[7]
$z=""
global $key=""
; Press Esc to terminate script, Pause/Break to "pause"

HotKeySet("{ESC}", "a")
HotKeySet("^1", "fa" )
HotKeySet("^2", "fb" )
HotKeySet("^3", "fc" )
HotKeySet("^4", "fd" )

While 1
Sleep(50)
WEnd

Func a()
if $key="ss" then ss()
if $key="tt" then tt()
if $key="hh" then hh()
if $key="kk" then kk()

EndFunc

Func fa()
$key="ss"
ToolTip("suslu")

EndFunc
Func fb()
$key="tt"
ToolTip("ters")

EndFunc

Func fc()
$key="hh"
ToolTip("haxor")

EndFunc

Func fd()
$key="kk"
ToolTip("karısık")

EndFunc

Func ss() ; suslu

$z=""
send("^a")
Sleep(200)
send("^x")
$z=ClipGet()

Sleep(100)
$z=StringReplace($z,"h",$h)
$z=StringReplace($z,"k",$k)
$z=StringReplace($z,"m",$m)
$z=StringReplace($z,"n",$n) ;
$z=StringReplace($z,"r",$r)
$z=StringReplace($z,"t",$t)
$z=StringReplace($z,".",$0)
;ClipPut($z)
;Exit
WinActivate("Mynet","")

Sleep(100)
MouseMove(101, 898,0)
MouseClick("left")
MouseClick("left")
Sleep(50)
; $z=StringReverse($z)

if stringlen($z) >1 then
send($z)
Else
$z=ClipGet()
Sleep(100)
$z=StringReplace($z,"h",$h)
$z=StringReplace($z,"k",$k)
$z=StringReplace($z,"m",$m)
$z=StringReplace($z,"n",$n) ;
$z=StringReplace($z,"r",$r)
$z=StringReplace($z,"t",$t)
$z=StringReplace($z,".",$0)
WinActivate("Mynet","")
EndIf

Sleep(100)
send(@CRLF)
Sleep(100)
send(@CRLF)

WinActivate("Adsız - Not Defteri","")

EndFunc ;==>Terminate

Func tt() ;ters

$z=""
send("^a")
Sleep(200)
send("^x")
$z=ClipGet()
Sleep(100)
$z=StringReplace($z,"h",$h)
$z=StringReplace($z,"k",$k)
$z=StringReplace($z,"m",$m)
$z=StringReplace($z,"n",$n)
$z=StringReplace($z,"r",$r)
$z=StringReplace($z,"t",$t)
$z=StringReplace($z,".",$0)
WinActivate("Mynet","")
Sleep(200)
MouseMove(101, 898,0)
MouseClick("left")
MouseClick("left")
$z=StringReverse($z)

send($z)
Sleep(100)
send(@CRLF)
Sleep(100)
send(@CRLF)
ClipPut("")

WinActivate("Adsız - Not Defteri","")

EndFunc ;==>Terminate

Func hh() ;haxor

$z=""
send("^a")
Sleep(200)
send("^x")
$z=ClipGet()
Sleep(100)
$z=StringUpper($z)

$z=StringReplace($z,"A","a")
$z=StringReplace($z,"E","e")
$z=StringReplace($z,"O","o")
$z=StringReplace($z,"I","ı")
$z=StringReplace($z,"İ","i")
$z=StringReplace($z,"U","u")
$z=StringReplace($z,"Ü","ü")
$z=StringReplace($z,"Ö","ö")
$z=StringReplace($z,".",$0)
WinActivate("Mynet","")
Sleep(100)
MouseMove(101, 898,0)
MouseClick("left")
MouseClick("left")

send($z&@CRLF)
send(@CRLF)

ClipPut("")
WinActivate("Adsız - Not Defteri","")

EndFunc

Func kk() ; karısık

$z=""
send("^a")
Sleep(200)
send("^x")
$z=ClipGet()
Sleep(100)
$z=StringReplace($z,"h",$h)
$z=StringReplace($z,"k",$k)
$z=StringReplace($z,"m",$m)
$z=StringReplace($z,"n",$n)
$z=StringReplace($z,"r",$r)
$z=StringReplace($z,"t",$t)
$z=StringReplace($z,".",$0)
WinActivate("Mynet","")
Sleep(100)
MouseMove(101, 898,0)
MouseClick("left")
MouseClick("left")
; $z=StringReverse($z)

$z=StringSplit($z," ")
;_ArrayDisplay($z)
$mm=UBound($z)-1
ConsoleWrite($m)

for $tc=$z[0] to 1 step -1

send($z[$tc] & " ")
Next
send(@CRLF)
send(@CRLF)
ClipPut("")
WinActivate("Adsız - Not Defteri","")

EndFunc ;==>Terminate

 

Kategoriler: 

Etiketler: 

Yeni yorum ekle

Filtered HTML

  • Web sayfası ve e-posta adresleri otomatik olarak bağlantıya çevrilir.
  • İzin verilen HTML etiketleri: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Satır ve paragraflar otomatik olarak bölünür.

Plain text

  • Hiç bir HTML etiketine izin verilmez
  • Web sayfası ve e-posta adresleri otomatik olarak bağlantıya çevrilir.
  • Satır ve paragraflar otomatik olarak bölünür.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Resimli CAPTCHA
Resimde görünen karakterleri girin.