Jump to content

JeeKi

Yeni Üye
  • Posts

    2
  • Joined

  • Last visited

Posts posted by JeeKi

  1. Elimde kendim editleyerek :
    [codebox]#NoTrayIcon
    #include <nmemory.au3>

    $spider=ProcessExists("Örnek.exe")
    If Not $spider Then
    MsgBox(16,@ScriptName,$spider &" Bulunamadı.",3)
    Exit
    EndIf
    $memory=_MemoryOpen($spider)
    $read=_MemoryRead(0x015F6868,$memory)
    $value=InputBox(@ScriptName,"Para Miktarı:",$read,"",50,50)
    $write=_MemoryWrite(0x015F6868,$memory,$value)
    If $write=1 Then
    MsgBox(64,@ScriptName,"Başarıyla Tamamlanmıştır",3)
    Else
    MsgBox(16,@ScriptName,"Hata Kodu : 06669 "& @error)
    EndIf[/codebox]

    Kod gayet bekledigim gibi calısmaktadır ama sonradan ögrendigim şey İle :

    [codebox]#include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 210, 309, 192, 124)
    $Label1 = GUICtrlCreateLabel("Para Miktarı:", 8, 72, 95, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Label3 = GUICtrlCreateLabel("Kosma Hızı:", 14, 104, 83, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Label2 = GUICtrlCreateLabel("Saldırı Hızı:", 8, 136, 86, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Input3 = GUICtrlCreateInput("", 120, 136, 81, 21)
    $Label4 = GUICtrlCreateLabel("Oto Pot(Gün):", 8, 168, 100, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Input4 = GUICtrlCreateInput("60", 120, 168, 81, 21)
    $Input1 = GUICtrlCreateInput("", 120, 72, 81, 21)
    $Input2 = GUICtrlCreateInput("", 120, 104, 81, 21)
    $Label5 = GUICtrlCreateLabel("Oto HP :", 8, 216, 63, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Label6 = GUICtrlCreateLabel("%10 = 1 %20=2 %30=3 %40=4 ", 8, 248, 189, 17)
    $Label7 = GUICtrlCreateLabel("%50=5", 80, 272, 36, 17)
    $Input5 = GUICtrlCreateInput("", 72, 216, 25, 21)
    $Label8 = GUICtrlCreateLabel("Oto MP :", 112, 216, 64, 24)
    GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS")
    $Input6 = GUICtrlCreateInput("", 176, 216, 25, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd
    [/codebox]

    Böyle Bişey Yaptım Bu Seferde Bu 2sini Birleştiremiyorum :S
    Yani :

    $value=InputBox(@ScriptName,"Para Miktarı:",$read,"",50,50)

    Bu kodda ınputBox olusturuyor ama ben 2.koddaki

    $Input1 = GUICtrlCreateInput("", 120, 72, 81, 21)

    Bunun Olmasını İstiyorum .. Inputbox'a yazılan değilde İnput1 e yazılanın olmasını istiyorum nasıl yapacagım :S
×
×
  • Create New...