Sign in to follow this  
Followers 0
DeSwa

Some problem about my tool

3 posts in this topic

#1 ·  Posted (edited)

i working tools about auto party former in Silkroad Online.

i want know how it click Confirm when dialog opened.

ScreenShot : http://img169.imageshack.us/img169/8500/sdasdasdud9.png

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\pckullanicisi\desktop


Func SilkroadAcik()
    $Label9 = GUICtrlCreateLabel("Silkroad Client Aktif", 111, 143, 159, 17)
    GUICtrlSetColor(-1, 0x00FF00)
EndFunc

Func SilkroadKapali()
    $Label9 = GUICtrlCreateLabel($penceredurum, 111, 143, 159, 17)
GUICtrlSetColor(-1, 0xFF0000)
    EndFunc
    

    
$Form1_1 = GUICreate("Silkroad Tools - Party Formlayıcı", 547, 233, 194, 115, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_SETFOREGROUND))
$AnaTablo = GUICtrlCreateTab(8, 8, 537, 217, BitOR($TCS_VERTICAL,$TCS_RAGGEDRIGHT,$TCS_TOOLTIPS), $WS_EX_STATICEDGE)
$Ayarlar = GUICtrlCreateTabItem("Ayarlar")
$CIKIS = GUICtrlCreateButton("Programı Kapat", 155, 174, 83, 25, 0, $WS_EX_STATICEDGE)
$Label3 = GUICtrlCreateLabel("Programi Baslatmadan Kendinize uyan ayarları yapin.", 43, 22, 251, 17)
$Group1 = GUICtrlCreateGroup("Program Ayarları", 35, 54, 473, 113)
$Label4 = GUICtrlCreateLabel("Party Match de görünecek Mesaj :", 51, 78, 167, 17)
$Label5 = GUICtrlCreateLabel("Kac saniyede bir tekrarlansin :", 51, 102, 145, 17)
$Mesajltp = GUICtrlCreateInput("Auto Party Former - LTP", 219, 70, 193, 21)
Func PartyKurulum()
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("SRO_Client","")
If Not WinActive("SRO_Client","") Then WinActivate("SRO_Client","")
WinWaitActive("SRO_Client","")
Send("e")
MouseMove(603,588)
MouseDown("left")
MouseUp("left")
MouseMove(570,498)
MouseDown("left")
MouseUp("left")
Sleep(3000)
MouseMove(477,532)
MouseDown("left")
MouseUp("left")
Send("e") 
Sleep(5000)
While 25
    $search = PixelSearch(441,499,505,512,16777215,5)
    If Not @error Then
MouseClick("left", 505, 512, 2)
    EndIf
    Sleep(25)
Wend
EndFunc


$Input2 = GUICtrlCreateInput("10000", 219, 102, 113, 21)
$Label6 = GUICtrlCreateLabel("Milisaniye", 339, 102, 49, 17)
$Label8 = GUICtrlCreateLabel("Durum :", 55, 143, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)

If ProcessExists("sro_client.exe") Then
    SilkroadAcik()
ElseIf WinActivate("sro_client.exe") Then
    SilkroadKapali()
    EndIf


GUICtrlCreateGroup("", -99, -99, 1, 1)
$baslatbutton = GUICtrlCreateCheckbox("Baslat", 51, 173, 97, 25, $BS_PUSHLIKE,$WS_EX_STATICEDGE)
$Label7 = GUICtrlCreateLabel("www.silkroadtools.cjb.net", 291, 182, 149, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Hakkinda = GUICtrlCreateTabItem("Hakkinda")
$prgcikis = GUICtrlCreateButton("Programi Kapat", 115, 190, 91, 25, 0)
$websitesi = GUICtrlCreateButton("Web Sitesi", 219, 190, 107, 25, 0)
$Pic1 = GUICtrlCreatePic("scriptrun.ocx", 35, 22, 500, 114, BitOR($SS_NOTIFY,$WS_GROUP))
$Label1 = GUICtrlCreateLabel("Yapimci : DeSwa", 43, 142, 85, 17)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label2 = GUICtrlCreateLabel("Telif Hakki : http://silkroad.site.cx", 43, 158, 164, 17)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        Case $prgcikis
        GUIDelete()
        
    Case $baslatbutton
        PartyKurulum()
                    
    Case $websitesi 
        ShellExecute("about.bat", "", "", "open", @SW_MINIMIZE)
    Case $CIKIS 
        GUIDelete()
    EndSwitch
WEnd

i tried this code but cant click the confirm button.

While 25
    $search = PixelSearch(441,499,505,512,16777215,5)
    If Not @error Then
MouseClick("left", 505, 512, 2)
    EndIf
    Sleep(25)
Wend
Edited by DeSwa

Share this post


Link to post
Share on other sites



vay deswa seni burdada gördüm ya daha ölsem gam yemem ^_^

Share this post


Link to post
Share on other sites
aynen ^_^

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0