Some problem about my tool

[DeSwa]

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

expandcollapse popup

#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 February 20, 2008 by DeSwa

[OoNicotineoO]

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

[Ond3rkor]

aynen