Skip to content
MPGHThe Dark Arts
/
RegisterLog in
Forum
Community
What's NewLatest posts across the boardTrendingHottest threads right nowSubscribedThreads you follow
Discussion
GeneralIntroductionsEntertainmentDebate FortFlaming & Rage
Board
News & AnnouncementsMPGH TimesSuggestions & HelpGiveaways
More Sections
Art & Graphic DesignProgrammingHackingCryptocurrency
Hacks & Cheats
Games
ValorantCS2 / CS:GOCall of Duty / WarzoneFortniteApex LegendsEscape From Tarkov
+14 moreLeague of LegendsGTA VMinecraftRustROTMGBattlefieldTroveBattleOnCombat ArmsCrossFireBlackshotRuneScapeDayZDead by Daylight
Resources
Game Hacking TutorialsReverse EngineeringGeneral Game HackingAnti-CheatConsole Game Hacking
Tools
Game Hacking ToolsTrainers & CheatsHack/Release NewsNew
Submit a release →Share your cheat, tool, or config with the community.
AINEW
AI Tools
General & DiscussionPrompt EngineeringLLM JailbreaksHotAI Agents & AutomationLocal / Open Models
AI × Gaming
AI Aimbots & VisionML Anti-CheatGame Bots & Automation
Create
AI Coding / Vibe CodingAI Art & MediaAI Voice & TTS
The AI frontier →Where game hacking meets modern machine learning. Jump in.
Marketplace
Buy & Sell
SellingBuyingTradingUser Services
Trust & Safety
Middleman LoungeMarketplace TalkVouch Copy Profiles
Money
Cryptocurrency TalkCurrency ExchangeWork & Job Offers
Start selling →List accounts, services, and goods. Use the middleman to trade safe.
MPGH The Dark Arts

A community for offensive security research, reverse engineering, and AI.

Community

ForumMarketplaceSearch

Account

RegisterLog in

Legal

Privacy PolicyForum RulesHelp & FAQ
© 2026 MPGH · All rights reserved.Built by the community, for the community. For educational purposes onlyContent is shared for security research and education — we don't condone illegal use. You're responsible for complying with applicable laws. Use at your own risk.
Home › Forum › Programming › Visual Basic Programming › vb6 question

vb6 question

Posts 1–8 of 8 · Page 1 of 1
FE
ferrar1000
vb6 question
how i can set value of "WriteALong" tith a TextBox?

i try with: WriteALong("WarRock", &HXXXXXX, Text1)

but don't work

plz help me i making a trainer for WarRock

EDIT: i heve other question: how i can close a program with a button?
#1 · edited 19y ago · 19y ago
ZeaS
ZeaS
for value boxes... are here turial, too -.- USE SEARCH FUNCTION

Code:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
'Defines the keys to activate the change under this If statement.
    Dim SJ As Long
    Dim SJ1 As Long
    Dim SJ2 As Single
    'Defines the variables to be set and what type of value type they are.
    'Make sure the last variable is set to a single.
    Call ReadALong("WarRock", &Hadress, SJ)
    'Reads a long value type from the address adress and sets the outcome
    'of that to the variable SJ
    SJ1 = SJ + &H180
    'Sets SJ1 to the variable set earlier (SJ) + the pointer 180.
    SJ2 = Text1.Text
    'SJ2 is set to what number is in the text box.
    Call WriteAFloat("WarRock", SJ1, SJ2)
    'Writes a FLOAT at the point SJ1 (address + pointer) and sets it to
    'what is in the text box.
    
End If
'Ends the If statement for the hotkeys.
put this in timer (interval = 100) NEXT TIME USE SEARCH FUNTION

for close trainer with button, don`t know really

if you wan`t close form1, then do this (put into button)
Code:
form1.enabled = false
form1.visible = false
it close, but look task manager... exe already here...^^
#2 · 19y ago
FE
ferrar1000
Quote Originally Posted by ZeaS View Post
for close trainer with button, don`t know really

if you wan`t close form1, then do this (put into button)
Code:
form1.enabled = false
form1.visible = false
it close, but look task manager... exe already here...^^
yes, but i want close the program, no hide
#3 · edited 19y ago · 19y ago
smartie
smartie
Here's some other closing thing...
Off course there are more CloseReason's


Code:
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        If e.CloseReason = CloseReason.WindowsShutDown Then
            e.Cancel = True
        End If
    End Sub
#4 · 19y ago
ZeaS
ZeaS
Quote Originally Posted by smartie View Post
Here's some other closing thing...
Off course there are more CloseReason's


Code:
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        If e.CloseReason = CloseReason.WindowsShutDown Then
            e.Cancel = True
        End If
    End Sub
the code don`t work for me :P
#5 · 19y ago
shanky1
shanky1
yaw
you can end the program with a button by just entering this:

Private Sub CommandX_Click()
End
End Sub

Easy Eh ?
#6 · 19y ago
ZeaS
ZeaS
Quote Originally Posted by shanky1 View Post
you can end the program with a button by just entering this:

Private Sub CommandX_Click()
End
End Sub

Easy Eh ?
omfg yeah, i think so,too, so easy omg
#7 · 19y ago
Darky
Darky
Quote Originally Posted by ferrar1000 View Post
how i can set value of "WriteALong" tith a TextBox?

i try with: WriteALong("WarRock", &HXXXXXX, Text1)

but don't work

plz help me i making a trainer for WarRock

EDIT: i heve other question: how i can close a program with a button?
I have an answer to first question.

I think you forgot Call.

The code should look like this:
Call WriteALong("WarRock", &H7F2B34, 1120403456) - EXAMPLE FOR WORKING STAMINA!
#8 · 19y ago
Posts 1–8 of 8 · Page 1 of 1

Post a Reply

Similar Threads

  • PLZ ANSWER MY VB6 QUESTION!I WANNA START MAKIN HAX!By mpghhackersrock123 in Visual Basic Programming
    4Last post 18y ago
  • question about vb6 and memoryBy quebech4ck in Visual Basic Programming
    6Last post 18y ago
  • VB6 Hacks, Question...By gbitz in WarRock - International Hacks
    11Last post 18y ago
  • Photoshop QuestionBy arunforce in Art & Graphic Design
    6Last post 20y ago
  • questionBy wardo1926 in WarRock - International Hacks
    0Last post 20y ago

Tags for this Thread

None