JeeKi Posted May 28, 2012 Share Posted May 28, 2012 (edited) 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 Edited May 28, 2012 by JeeKi Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 28, 2012 Share Posted May 28, 2012 [codebox]#NoTrayIcon #include <nmemory.au3> $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) $button = GUICtrlCreateButton("ayarla",10,10,100) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit case $button $spider=ProcessExists("Örnek.exe") if Not $spider Then MsgBox(16,@ScriptName,$spider &" Bulunamadı.",3) Exit EndIf $memory=_MemoryOpen($spider) $read=_MemoryRead(0x015F6868,$memory) $value=GUICtrlRead($Input1) $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 EndSwitch WEnd[/codebox] yalnız nmemory.au3 ünü alırım haa Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.