Hello all,
i make a patcher my server.I added website the cheat pack,if the player added the cheat pack his client , patcher says it " YOU HAVE CHEAT " if player havent cheat pack patcher start clients exe.i write a project but it not control the file
patch1.ini:
i make a patcher my server.I added website the cheat pack,if the player added the cheat pack his client , patcher says it " YOU HAVE CHEAT " if player havent cheat pack patcher start clients exe.i write a project but it not control the file
Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=E:\metin2.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
; COPYRIGHT 2010 BY EmX
;
; So verlockend es auch ist, den Source als euren auszugeben möchte ich euch drum bitten
; mein Copyright bestehen zu lassen und den Patcher nicht als euren auszugeben.
;
; COPYRIGHT 2010 BY EmX
#RequireAdmin
#notrayicon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <Inet.au3>
#Region ### START Koda GUI section ### Form=c:\users\progamer\desktop\form1.kxf
$Form1_1 = GUICreate("Hack Shield by Metin2Core", 342, 72, 192, 124)
$Pic1 = GUICtrlCreatePic("Hier ein Url zu einem Bild", 0, 0, 339, 69, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Packınızda hile var mı diye kontol ediliyor.Lütfen bekleyiniz", 40, 22, 342, 55)
GUICtrlSetColor(6, 0xFFFFFF)
$pro = GUICtrlCreateProgress(0, 55, 342, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
GUICtrlSetData($pro,GUICtrlRead($pro)+1)
If GUICtrlRead($pro) = 100 Then
FormClose()
EndIf
WEnd
Func FormClose()
_tune()
EndFunc
Func _tune()
Global Const $url = IniRead(@ScriptDir & "\patch1.ini", "patch", "url", "none")
$size_inet = InetGetSize("http://" & $url & "/pack/PC.epk")
$size_local = FileGetSize(@ScriptDir & "\pc.epk")
If $size_inet = 0 Then
Run("metin2core.bin")
Exit
EndIf
If $size_inet = $size_local Then
ProgressOff()
MsgBox(48, "Hile Bulundu!", "Ip adresiniz kaydedildi,hile dosyasını değişmesseniz tüm hesaplar banlanacak")
Exit
Else
Run(@ScriptDir & "\metin2core.bin")
Exit
EndIf
EndFunc
patch1.ini:
Quote:
[patch]
url=leanes2.com/patch2