Bu Scripti Nasıl Yapabilirim

x_files_x · May 8, 2010

Selam öncelikle lutfen vericegim örnegi yalnıs anlamayın hocam

ben bi script yapmayı düsünüyom ama bilmiyom nasıl yapıcam.şöyle olucak

bir pencere olucak.orda herhangi bi yazı yazıcagımız bir boşluk. yanındaki tuşa bastıgımızda yazı sürekli tekrarlanarak gönderilecek.bi nevi flood oluyo ama vallahi o amacla kullanılmıcak.sadece pencerelere komtular nasıl yerlstirilecek onu merak ediyom.isterseniz başkada olur.lutfen cevap yuazarsanız sevinirim.flood yapmak istesem nette zaten cok program var.ben sadece nasıl yapıldıgını gormek istiyorum

blue_life · May 8, 2010

@x_files_x

İyide yazı hangi programa gönderilecek! Bunun için pencerenin başlığı, yazısı gibi bilgilerninde girilmesi gerekiyor...

Koda form ile guini tasarlıyabilirsin... Scite -> Tools -> Koda Form

x_files_x · May 8, 2010

evet onu düsündüm...başlıkta msn olsun.kodayla yapılacagını biliyom hocam.işte kodları nasıl oraya yerlstricem butonları nasıl yapıcam bilmiyom benim tek bildigim komutları yazmak.onu exeye cevirmek.pencereli seyler yapamıyom.onu ogrensem yeter.

x_files_x · May 8, 2010

Opt("WinTitleMatchMode", 2)

$sure = 0

do

WinWaitActive("iletilcek pence ismi")

Send("TNCTR{ENTER}")

$sure = $sure + 1

until $sure = 20

hocam şöyle bisi denedim oldu.ama bunu pencereli nasıl yapıcam yapamadım.çok basit bisi oldu

Edit:Hatalı imla

blue_life · May 8, 2010

@x_files_x

Ben bir kaç basit örnek verim sen kurcala!

Ben msn 8.5 kullanıyorum...

Global $Text = "Selam Dünyalı" & @crlf

Global $Class = "IMWindowClass"

Global $Get_Title = "Untitled - "

Global $Get_Text = ""

Global $ControlID = "DirectUIHWND1"

Global $Sleep = 500;0,5 saniye demek, 1000 yaparsan bir saniye oluyor


Global $Hwnd

While 1;Başlığı veyahut classı bekleyelim

    $Hwnd = WinGetHandle($Get_Title,$Get_Text)

    If $Hwnd = "" Then

        $Hwnd = WinGetHandle("[CLASS:" & $Class & "]",$Get_Text)

        If $Hwnd <> "" Then ExitLoop

    Else

        ExitLoop

    EndIf

    Sleep(250)

WEnd


;Yazıyıda böyle yazıyoruz

While 1

    If Not WinActive(HWnd($Hwnd),$Get_Text) Then WinActivate(HWnd($Hwnd),$Get_Text)

    ControlSend(HWnd($Hwnd), $Get_Text, $ControlID, $Text)

    Sleep($Sleep)

WEnd[/CODE]

Buda notepad için olsun

[CODE]If not ProcessExists("Notepad.exe") Then Run("Notepad.exe")

Global $Text = "Selam Dünyalı" & @crlf
Global $Class = "Notepad"
Global $Get_Title = "Untitled - "
Global $Get_Text = ""
Global $ControlID = "Edit1"
Global $Sleep = 500;0,5 saniye demek, 1000 yaparsan bir saniye oluyor

Global $Hwnd
While 1;Başlığı veyahut classı bekleyelim
    $Hwnd = WinGetHandle($Get_Title,$Get_Text)
    If $Hwnd = "" Then
        $Hwnd = WinGetHandle("[CLASS:" & $Class & "]",$Get_Text)
        If $Hwnd <> "" Then ExitLoop
    Else
        ExitLoop
    EndIf
    Sleep(250)
WEnd

;Yazıyıda böyle yazıyoruz
While 1
    If Not WinActive(HWnd($Hwnd),$Get_Text) Then WinActivate(HWnd($Hwnd),$Get_Text)
    ControlSend(HWnd($Hwnd), $Get_Text, $ControlID, $Text)
    Sleep($Sleep)
WEnd[/CODE]

Kaçmam gerekiyor... Kolay gelsin....

x_files_x · May 8, 2010

Çok tsk ederim Blue_Life hocam peki;

ben bu yaptıgımız olayı.menulu sekilde nasıl yapabilirim.koda ile bir gorunum eklemek icin.

blue_life · May 8, 2010

@x_files_x

Sen koda ile tasarımını yapıp elde ettiğin kodları paylaş, eksik kalan yerleri ben tamamlarım...

x_files_x · May 9, 2010

Hocam basit bişi yaptım.siz zaten anlarsınız.şimdiden cok tsk ederim.kodların nasıl yerlestigini sizin yaptıgınızdan sonra ögrenirsem daha da gelişmis yaparım inşALLAH

buyrun kod:

-----------------------------------

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 327, 121, 227, 178)

$Input1 = GUICtrlCreateInput("Pencere Başlıgından bir kısım", 8, 16, 313, 21)

$Input2 = GUICtrlCreateInput("Yollanıcak Mesaj", 8, 56, 313, 21)

$Input3 = GUICtrlCreateInput("Mesaj Sayısı", 128, 88, 57, 21)

$Button1 = GUICtrlCreateButton("Başlat", 8, 88, 75, 25, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Durdur", 248, 88, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

--------------------

blue_life · May 9, 2010

@x_files_x

Koda ile basit bir gui yaptım. Sen konumlarını düzenlersin artık!

Neyse kolay gelsin...

Bu arada pencere bilgilerini Scite -> Tools -> Au3Info programından alabilirisn...

;Writet to BlueLife

;~ #NoTrayIcon

;~ If not ProcessExists("Notepad.exe") Then Run("Notepad.exe")


Global $Text

Global $Class

Global $Get_Title

Global $Get_Text

Global $ControlID

Global $Sleep

Global $Text_Number



Global $Paused = False

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("{ESC}", "Terminate")


Global $Form1 = GUICreate("Yazı gönderici!", 639, 266, 192, 124)

Global $Group1 = GUICtrlCreateGroup("Pencere seçenekleri", 16, 16, 601, 81)

Global $Label1 = GUICtrlCreateLabel("Pencere başlığı", 32, 40, 100, 17)

Global $Input1 = GUICtrlCreateInput("Untitled - ", 32, 56, 121, 21)


Global $Label2 = GUICtrlCreateLabel("Pencere içindeki herangi bir yazı", 184, 40, 100, 17)

Global $Input2 = GUICtrlCreateInput("", 176, 56, 121, 21)


Global $Label3 = GUICtrlCreateLabel("ControlID", 320, 40, 100, 17)

Global $Input3 = GUICtrlCreateInput("Edit1", 320, 56, 121, 21)


Global $Label7 = GUICtrlCreateLabel("Class", 464, 32, 100, 17)

Global $Input7 = GUICtrlCreateInput("Notepad", 464, 56, 121, 21)


GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Group2 = GUICtrlCreateGroup("Yazı gönderme seçenekleri", 16, 112, 441, 89)

Global $Label4 = GUICtrlCreateLabel("Gönderilecek yazı", 32, 136, 100, 17)

Global $Input4 = GUICtrlCreateInput("Selam Dünyalı", 32, 152, 121, 21)

Global $Label5 = GUICtrlCreateLabel("Kaç adet", 184, 136, 100, 17)

Global $Input5 = GUICtrlCreateInput("5", 184, 152, 121, 21,0x2000)

Global $Label6 = GUICtrlCreateLabel("Bekleme", 328, 136, 100, 17)

Global $Input6 = GUICtrlCreateInput("500", 320, 152, 121, 21,0x2000)



GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Button1 = GUICtrlCreateButton("Gönder", 16, 216, 611, 25)

GUISetState(@SW_SHOW)

_WHILE_1()


Func _WHILE_1()

    While 1

        $nMsg = GUIGetMsg()

        Switch $nMsg

            Case -3

                Exit

            Case $Button1

                GUISetState(@SW_MINIMIZE)

                Global $Get_Title = GUICtrlRead($Input1)

                Global $Get_Text = GUICtrlRead($Input2)

                Global $ControlID = GUICtrlRead($Input3)

                Global $Class = GUICtrlRead($Input7)


                Global $Text = GUICtrlRead($Input4) & @crlf

                Global $Text_Number = GUICtrlRead($Input5)

                Global $Sleep = GUICtrlRead($Input6);0,5 saniye demek, 1000 yaparsan bir saniye oluyor

                _BL_ControlSend($Get_Title,$Get_Text,$ControlID,$Text,$Text_Number,$Sleep ,$Class)

                GUISetState(@SW_RESTORE)

                WinFlash($Form1)

        EndSwitch

    WEnd

EndFunc



Func _BL_ControlSend($Get_Title,$Get_Text,$ControlID,$Text,$Text_Number = 25,$Sleep = 500,$Class = "")

    Local $Hwnd,$Get_Class = False

    If $Class <> "" Then

        $Class ="[CLASS:" & $Class & "]"

        $Get_Class = True

    Else

        MsgBox(64,"Hata!","Yazı göndermek istediğiniz pencerenin adını veyahut class bilgisini girmelisiniz.")

        Return SetError(1)

    EndIf

    While 1;Başlığı veyahut classı bekleyelim

        $Hwnd = WinGetHandle($Get_Title,$Get_Text)

        If $Hwnd = "" Then

            If $Get_Class Then

                $Hwnd = WinGetHandle("[CLASS:" & $Class & "]",$Get_Text)

                If $Hwnd <> "" Then ExitLoop

            EndIf

        Else

            ExitLoop

        EndIf

        Sleep(250)

    WEnd

    $Text_Number = Number($Text_Number)

    If Not StringIsDigit($Text_Number) Or $Text_Number < 1 Then $Text_Number = 1

    Local $1 = 1

    While 1

        If WinExists(HWnd($Hwnd)) Then

            If Not WinActive(HWnd($Hwnd),$Get_Text) Then WinActivate(HWnd($Hwnd),$Get_Text)

            ControlSend(HWnd($Hwnd), $Get_Text, $ControlID, $Text)

            Sleep($Sleep)

            If $Text_Number <= $1 Then Return

            $1 += 1

        Else

            Return SetError(2)

        EndIf

    WEnd


EndFunc


Func TogglePause()

    HotKeySet("{PAUSE}")

    $Paused = NOT $Paused

    Sleep(250)

    HotKeySet("{PAUSE}", "TogglePause")

    While $Paused

        sleep(100)

        ToolTip('Yazı gönderme durduruldu!"',@DesktopWidth - 150,20)

    WEnd

    ToolTip("")

EndFunc


Func Terminate()

    Exit

EndFunc[/CODE]

***sk8er_boi*** · May 9, 2010

DİKKAT: Konu Başlığını forum Kurallarına gore yeniden düzenleyiniz. Aksi halde cope tasınacaktır.

Forum Kuralları - [ Madde 10-16 ]

Konu düzenlenene kadar yazılan tüm iletiler silinecektir.

x_files_x · May 9, 2010

Allah razı olsun Blue_Life hocam.ben iyice inceleyicem bu kodları.çok tşk ederim

isaavcı · June 9, 2010

hocam bir kaç sorum var

=================

1-

For $I = 1 To 5

_MY_Function()

Sleep(3000 * 10);Buradaki 10 değeri dakikadır

Func _MY_Function()

;Yapmak isteidin işlemler buraya

Run("1.exe")

EndFunc

==Run("2.exe") dedimmi bir birlerini beklemiyorlar aynı anda çalışıyorlar

======================================================

2-

If not ProcessExists("Notepad.exe") Then Run("Notepad.exe")

Global $Text = "Selam Dünyalı" & @crlf

Global $Text = "peynirmisin" & @crlf

Global $Text = "keşmisin" & @crlf

Global $Text = "dolumusun" & @crlf

Global $Text = "boşmusun" & @crlf

Global $Text = "kurumusun" & @crlf

Global $Text = "yaşmısın" & @crlf

Global $Class = "Notepad"

Global $Get_Title = "Untitled - "

Global $Get_Text = ""

Global $ControlID = "Edit1"

Global $Sleep = 500;0,5 saniye demek, 1000 yaparsan bir saniye oluyor

Global $Hwnd

While 1;Başlığı veyahut classı bekleyelim

$Hwnd = WinGetHandle($Get_Title,$Get_Text)

If $Hwnd = "" Then

$Hwnd = WinGetHandle("[CLASS:" & $Class & "]",$Get_Text)

If $Hwnd <> "" Then ExitLoop

Else

ExitLoop

EndIf

Sleep(250)

WEnd

;Yazıyıda böyle yazıyoruz

While 1

If Not WinActive(HWnd($Hwnd),$Get_Text) Then WinActivate(HWnd($Hwnd),$Get_Text)

ControlSend(HWnd($Hwnd), $Get_Text, $ControlID, $Text)

Sleep($Sleep)

WEnd

her bir kelimeyi ayrı ayrı nasıl yazdırırız

=================================

notepata gönder örneği için

hocam buradaki amaç nedir nereye ne gönderiyor öğrenebilirmiyim

çünkü gönder butonu var ama bir şey göndermiyor

Sign In

Bu Scripti Nasıl Yapabilirim

Recommended Posts

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

Archived

Recently Browsing 0 members