Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 06:14

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



File controll problem.

Discussion on File controll problem. within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
Muco53's Avatar
 
elite*gold: 0
Join Date: Aug 2010
Posts: 83
Received Thanks: 20
Cool File controll problem.

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

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
Muco53 is offline  
Old 08/27/2011, 11:52   #2
 
BlackHybrid's Avatar
 
elite*gold: 52
The Black Market: 101/0/0
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
Theres nothing wrong with your script. It should work as you want it.
There are just some small useless things e.g. the Func FormClose().
You can also delete "If $size_inet = 0 Then" because later you use Else ... Run ...

Edit: Is this right FileGetSize(@ScriptDir & "\pc.epk")?
Or should that be FileGetSize(@ScriptDir & "\pack\pc.epk")
BlackHybrid is offline  
Reply


Similar Threads Similar Threads
CrossFire Distributed Farm Controll
01/22/2012 - CrossFire Hacks, Bots, Cheats & Exploits - 18 Replies
Hey Leute, ich habe es mittlerweile geschafft 8 Instanzen von CrossFire mit Hilfe von VMWare auf meinem PC zu starten. Ein Farm Match bis 80 Kills (ca. 1080EXP unter Verwendung von 70% EXP+) dauert nun nur noch knapp 1:30 Minuten. Allerdings dauert es ebenfalls fast genau so lange, auf allen VMs bei den Bots wieder auf Ready zu klicken. Bei großer Last reagiert VMWare zudem teilweise fehlerhaft, weshalb es passieren kann, dass der Bildschirm einfach schwarz wird und man den Bot nicht mehr...
Catalyst Controll Center / ATI Grafikkarte
01/28/2011 - Technical Support - 10 Replies
Ich habe meine Grafikkarte überhitzt oder so^^ ( NVIDIA GEFORCE ...) und habe mir jetzt eine ATI X1950Pro Super geholt. So, nun hatte ich erstmal das Problem das sich der Treiber nicht installieren ließ. Habe bisschen gegoogelt und eine Lösung gefunden. Jetzt lässt sich aber Catalyst Controll Center nicht öffnen/starten. Es reagiert garnicht. Ich habe Vista 32-bit. Bräuchte hilfe.
D2NT Bot Controll
08/20/2009 - Diablo 2 - 3 Replies
Hallo Leute, mich kotzt es seit längerem an das es kein RemoteControl Panel für den D2NT Bot gibt, also habe ich mich dran gemacht um selber einen zu schreiben. Dieses Controll lädt alle 15 Minuten von einem Server die Config runter und schaut welchen Status diese hat. Es gibt bis jetzt 3 Stück: 0 - D2 + D2NT Killen 1 - D2NT Starten 2 - D2NT Restart
Take controll of server
06/15/2006 - World of Warcraft - 0 Replies
I have read about a certain exploit in WoWEmu which can give the player the ability to be a GM/admin. using Wpe Pro, its a leak in the Emu its not hacking the machine itself. Anyone know about this? I have been using wpe for ages and never been disatisfied so far. :) http://www.uw-crew.com/thread.php?threadid=4269 Any idea?
WoW Glider Remote controll tools?
02/14/2006 - World of Warcraft - 1 Replies
I was thinking about writing a program to manage multiple Gilders at once by way of the remote controll interface. ive looked around but i have not been able to find anything on it. i also never fround a program to automaticly convert the screenshot dumps. So the program will do all that. If something like this allready is out there can someone point me to it please, or if anyone is interested in helping out.



All times are GMT +1. The time now is 06:14.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.