{Koxp Yapım Dersi}-2

#ınclude "windows.bi"

setconsoletitle "skyhan multi & apr fixer"
color 0,2
print "############ skyhan multiclient v1830 ############"
print ""
sleep(500)
dim mutexname as string * 20
dim m as string * 20
dim affinityaddress as dword
dim exitcode as dword

sub opcodepatch(hprocess as handle, startaddress as dword, opcodes as string)
dim patch as dword
dim patchvalue as dword
for patch = 1 to len(opcodes) step 2
patchvalue = val("&h" + mid(opcodes, patch, 2))
writeprocessmemory(hprocess, startaddress + (patch \ 2), @patchvalue, 1, null)
next
end sub

function ınjectdll(hprocess as handle, dllpath as string) as hmodule
var kernel32 = getmodulehandle("kernel32")
var addr = virtualallocex(hprocess, null, len(dllpath) + 1, mem_commıt, page_readwrıte)
ıf addr = null then return null
writeprocessmemory(hprocess, addr, strptr(dllpath), len(dllpath) + 1, null)
var hthread = createremotethread(hprocess, null, 0, getprocaddress(kernel32, "loadlibrarya"), addr, null, null)
virtualfreeex(hprocess, addr, len(dllpath) + 1, mem_release)
ıf hthread = null then return null
waitforsingleobject(hthread, ınfınıte)
dim hdllmodule as hmodule
getexitcodethread(hthread, @hdllmodule)
ıf hdllmodule = null then return null
closehandle(hthread)
return hdllmodule
end function

var shlwapi = loadlibrary("shlwapi")
dim ısos as function(as dword) as bool = getprocaddress(shlwapi, 437)
#define os_nt 1
ıf ısos = null orelse ısos(os_nt) = false then
print "operating system not supported"
sleep
freelibrary(shlwapi)
end
endif
freelibrary(shlwapi)

color 10,0
input "ko ısim giriniz :",m
print ""

dim pi as process_ınformatıon
dim si as startupınfo
ıf createprocess( null, "knightonline.exe usa_knightonline", null, null, false, null, null, null, @si, @pi ) = false then
sleep
end
endif

var hdllmodule = ınjectdll(pi.hprocess, "skyhan.dll")
ıf hdllmodule = null then
sleep
end
endif



while mutexname <> "knight online client"
readprocessmemory(pi.hprocess, &h00a56f04, @mutexname, 20, null)
getexitcodeprocess(pi.hprocess, @exitcode)
ıf exitcode <> stıll_actıve then end
wend

mutexname = str(pi.dwprocessıd)

writeprocessmemory(pi.hprocess, &h00a57f04, @m, 20, null)
affinityaddress = getprocaddress(getmodulehandle("kernel32.dll"), "setthreadaffinitymask")
opcodepatch (pi.hprocess, affinityaddress, "c20800")
' close handles
closehandle(pi.hprocess)
closehandle(pi.hthread)

color 10,0
print "oyun aciliyor..."
print ""
color 0,2
print "##### skyhan multiclient kullandiginiz ıcin tesekkurler #####"
sleep(10000)