I have hack but i dont understand module maker

i didnt quite understand it but um heres my code ,,, the addresses are like 2 weeks old but ummm when i go to look for the new addresses its all offsets,,, how to use it... so um can u explain that to me? and tell me what to do with the code i have for the module...
i just want to be able to make a hack that wont get detected the day after i download it... Im a noob learnin to hack... thx for help

i use ZeaS module gen. it was work good.

i use it. i give have ZeaS module gen for VB.NET also. it workes good good

1st go in your VB6 or .NET and add Module.

Module is for made hacks functions & then they made UR hack work.

Don't learn Vb6, it gets detected so fast. Learn Vb08 or Vb05 (vb.net)
Ill tell you anyways...
You first fill in each box with random letters and numbers. Lets say you fill "WriteAlong" box with 342423jhfuefe, you then replace "WriteAlong" with the stuff you put in the module maker. Then when your making a hack lets say crosshairs you type:

Call WriteAlong("WarRock", &Haddress, 1)
But you change that to:
Call 342423jhfuefe("WarRock", &Haddress, 1)
Or whatever you put for writealong.

What is the difference between these two little tuts?

I used Zeas undetected module maker to get a UM so here how it works:
in module maker it says WriteALong = DRSZMEAET
so in you hack u do this:

Call DRSZMEAET("warrock",&Haddy, &Haddy)
this is wrong:
Call WriteALong("warrock",&Haddy, &Haddy)

Yeh, dont use vb6 like everyone says.. thats just the prblm.. btw bye all i g2g to airsoft..

so after i get this:
[CODE]Private Declare Function JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function TMBYUESBJZFBDNGCTSTUJYYSLTYWTLHWWDDSQEEKBJIRHBJNBX UUDGBFJQFE Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function LAGSEMHQKFBNNWLYVKTERMWEFMCAECYRXCQSSJENLCKRJJSREY JRHFVUQLTJ Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function FHUBDSBRGNIXHLZGWEGBVIDRHDILKZJZETBBMQJIIGDNRUJVZL TNLNIWJAKH Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
Public Declare Function QAWGKHKPUGLGSYBIBPMKBEBTXBKUNHZQPKQZCNPIROUGMQFEJB PEFGKEIVAG Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF As Long
SZRBZFYOMTQDIAWNERIZHAQBGWCERJNDLOQDUQISGUMNAGZKMQ SXEGEWRBDF As Single
CLHAGVXZDZYONTMVGBEFEIIWUXPLJUKTGTCGLNBBMHDUNPLONE GUZIEYULSZ As Integer

'WriteMemory
Public Function DYRXAURLZGOMHHXLVCPAHGQNZULDLVENRIPVHBXTHXZYUKVRBL HRZICHLAUY (ByVal UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE As Integer, ByVal OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC As Long, ByVal WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC As Integer)
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
TMBYUESBJZFBDNGCTSTUJYYSLTYWTLHWWDDSQEEKBJIRHBJNBX UUDGBFJQFE(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE, OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC, WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'ReadFloat
Public Function DPKNOUWFLMXYYEPUWCUOYATQAGGEQUONZBDSUODPVUMRLRAUGZ YOLEPKWGHO (ByVal UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE As Single)
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
Return JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF
End Function

'WriteFloat
Public Function FXMRQSGLSTSJXISPYELPMCGVIPCNPYSZMMPYZDQDXDRFIAPXEA KKYIWZUGXX (ByVal UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE As Integer, ByVal OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC As Single)
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
LAGSEMHQKFBNNWLYVKTERMWEFMCAECYRXCQSSJENLCKRJJSREY JRHFVUQLTJ(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE, OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC, 4, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'ReadLong
Public Function PJDQWIFVJABUCBIYAPHVKKYQWQQTIIQQHRCBPAJMCRHNVJABEN YHTKWBXQMR (ByVal UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE As Integer)
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
Return JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF
End Function

'ReadFloatPointer
Public Function HXHLGQUKKGXGNJNUBHHFRYVCRJUXTAGLIQPCRGIOMJJNWRIEHO NEXJQRELBW (ByVal GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW As Integer, ByVal ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB As Short)
Dim LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU As Long
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU = JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF + ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB
FHUBDSBRGNIXHLZGWEGBVIDRHDILKZJZETBBMQJIIGDNRUJVZL TNLNIWJAKH(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU, SZRBZFYOMTQDIAWNERIZHAQBGWCERJNDLOQDUQISGUMNAGZKMQ SXEGEWRBDF, 4, Nothing)
Return SZRBZFYOMTQDIAWNERIZHAQBGWCERJNDLOQDUQISGUMNAGZKMQ SXEGEWRBDF
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'ReadLongPointer
Public Function IOABTPZEVMHSDHFEDHMUJSYFSVOYYZQMQJDAESPKBGWGOYOHMC EBJEETPQOL (ByVal GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW As Integer, ByVal ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB As Short, ByVal WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC As Integer)
Dim LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU As Long
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU = JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF + ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU, CLHAGVXZDZYONTMVGBEFEIIWUXPLJUKTGTCGLNBBMHDUNPLONE GUZIEYULSZ, WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC, Nothing)
Return CLHAGVXZDZYONTMVGBEFEIIWUXPLJUKTGTCGLNBBMHDUNPLONE GUZIEYULSZ
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'WriteFloatPointer
Public Function KXCFWNIKCTCDCLIZEJDVXULKAELHXCUYEUPFJIBYCPBULHCKKD QXWJKJNQEU (ByVal GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW As Integer, ByVal ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB As Short, ByVal OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC As Single)
Dim LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU As Long
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU = JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF + ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB
LAGSEMHQKFBNNWLYVKTERMWEFMCAECYRXCQSSJENLCKRJJSREY JRHFVUQLTJ(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU, OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC, 4, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'WriteLongPointer
Public Function UITECDHUTAKOHEYIGTZBVCDFOFZNQNRPZZCJZFUHIDRCXQOOKQ ETRLLLPATO (ByVal GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW As Integer, ByVal ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB As Short, ByVal OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC As Long, ByVal WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC As Integer)
dim as long
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
NABMUKVPCTGJDXGDYMQUWILMOHTKIFLETGQWKLWXBICYXAMXHN MLGFPMZQWI(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, GKXOLRAXOZIHSWCFNGWKPAOLMMYFRZMSXBCNVRMWRTNJPWYBSH MHXJTIMVZW, JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF, 4, Nothing)
LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU = JGKPIODQQNSRMNPPDJYHFAIHZSRFSEKXWBBIWVVDOSNBUAXIFP ZAJNXGCKQF + ZYBJVZPMPGETCEHBOYWUWOLYHFCIDRDOZAPOXWMYCLPJRDHEVI BEBHNXTQNB
TMBYUESBJZFBDNGCTSTUJYYSLTYWTLHWWDDSQEEKBJIRHBJNBX UUDGBFJQFE(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, LKNCRMCWYARBXYSOTKOQZSTBEBHZZEORPJCUFWXRXFXYSCMOYK SUVJIREFGU, OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC, WZHPFBBNXTZWNCMWLVAFRSWQYLLYZOPBDWPKEUTNMFXCDNNXST YKCHTFKLKC, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function

'NOP
Public Function MWXZMLWJUGHZSMDEILZLCQBSJYDRCFIKAYPJBKUJSVTCZXWRNR UQUJFAWVHT (ByVal UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE As Integer, ByVal OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC As Integer)
Dim SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ As Process() = Process.GetProcessesByName("WarRock")
If SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ.Length = 0 Then
End
End If
Dim BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZEIRRHRFUBKYW EXAIHPCVRA As IntPtr = JBLYOOTRSSWQYUQTRIXOLQGWWSKQAAKFBYQOAHLCWWSJVTYKBK GYIFBCGGQK(&H1F0FFF, 0, SFQRTFINLNLEWTVIQSJRBKSLJWITJNOVGRBWQERTYQHFZOYIQV MZFPAZMFEZ(0).Id)
TMBYUESBJZFBDNGCTSTUJYYSLTYWTLHWWDDSQEEKBJIRHBJNBX UUDGBFJQFE(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA, UZMVPDMOFGUAXBRRITEPMWGIPQTOVMBPHSQGMSADWZFUOXTRPF VRDGYOAGGE, OFADOKGPBNCKRQFZJNQMQSNWRHAZBJMWOJBPGZGYTEXQWHLVLS GMHOLQUUXC, 1, Nothing)
XMRMAAVATZPVIQWMZWLAUQDHCIGQBPJVOLCZBIPFHVTGKIXBHB AHBHQOBAMC(BYWDLWDMHTJQSFCGRATKCKBFQAUTHTRAVEPRPZE IRRHRFUBKYWEXAIHPCVRA)
End Function
Then what?

i dont understand you

can some one give me a undected noudle maker
ohh and i dont understand too