$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 :
Inputbox'un Yerine Input Olmasını İstiyorum
in AutoIT
Posted · Edited by JeeKi
[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