Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Trouble with vb6

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Mon Nov 12, 2007 9:00 pm    Post subject: Trouble with vb6 Reply with quote
All right, I'm trying to make a private trainer for my site and what not, what I'm trying to do is 2 things.

1. Have a login "password protect" form on the trainer i got that but i do not know the code to put in so when the correct password is entered and the ok button is pushed to send the user to the trainer. So i guess I'm asking for a " link to " code

~note~ Right now when ever i click on ok (( with the right pass )) it will just go away and nothing will happen.

2. I am also trying to make it so instead of having the hassle of having all the buttons below the game to simply make another form and having the user open that form by using the menu bar. I have the menu bar all set up but how do i get it so that when ever someone clicks on "open cheat menu" it will open that other form. So i guess I'm asking for another link code :/

If any one could tell me this (( and it to work )) +Rep for them lol

~~~Heres the Login forms code if needed.~~~

Code:
Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    If txtPassword = "something" Then
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Password incorrect! Try again.", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

_________________


Last edited by kamakzy56 on Mon Nov 12, 2007 9:51 pm; edited 1 time in total
Back to top
View user's profile Send private message
Flyte
Peanuts!!!!
Reputation: 6

Joined: 19 Apr 2006
Posts: 1887
Location: Canada
PostPosted: Mon Nov 12, 2007 9:14 pm    Post subject: Reply with quote
You will have no luck what-so-ever trying to make a VB application secure.
Back to top
View user's profile Send private message
Chabitsku
Advanced Cheater
Reputation: -1

Joined: 09 Nov 2007
Posts: 61
PostPosted: Mon Nov 12, 2007 9:18 pm    Post subject: Reply with quote
O had the same Problem
Back to top
View user's profile Send private message AIM Address Yahoo Messenger
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Mon Nov 12, 2007 9:24 pm    Post subject: Reply with quote
Flyte wrote:
You will have no luck what-so-ever trying to make a VB application secure.

-_- I'm not asking if i can make it "secure" and i have no need for spam -_-;;;
_________________
Back to top
View user's profile Send private message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597
PostPosted: Mon Nov 12, 2007 9:36 pm    Post subject: Reply with quote
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile
_________________
Back to top
View user's profile Send private message
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Mon Nov 12, 2007 9:49 pm    Post subject: Reply with quote
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?
_________________
Back to top
View user's profile Send private message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597
PostPosted: Mon Nov 12, 2007 9:55 pm    Post subject: Reply with quote
kamakzy56 wrote:
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?


O_O i trough you means, that if you click a button, and the password is ok, then the trainer download.

My bad.. so, you means, that you click a button, another form just come??? wow, that is so basic..

Quote:
private sub command1_click()
me.hide
form*.show
end sub


I read "send the user the trainer" really, my bad.
_________________
Back to top
View user's profile Send private message
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Mon Nov 12, 2007 10:20 pm    Post subject: Reply with quote
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?


O_O i trough you means, that if you click a button, and the password is ok, then the trainer download.

My bad.. so, you means, that you click a button, another form just come??? wow, that is so basic..

Quote:
private sub command1_click()
me.hide
form*.show
end sub


I read "send the user the trainer" really, my bad.


well I'm a dumbass -.- thank ya +rep for you even though it did turn out to be so basic lol.

Edit: i fugured it out from there exept when i go to click on one of my command buttons in the other form (( form2 is the cheats form1 is the game )) it gives me a debug error >-< what am i doing wrong this time
_________________
Back to top
View user's profile Send private message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597
PostPosted: Mon Nov 12, 2007 10:35 pm    Post subject: Reply with quote
kamakzy56 wrote:
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?


O_O i trough you means, that if you click a button, and the password is ok, then the trainer download.

My bad.. so, you means, that you click a button, another form just come??? wow, that is so basic..

Quote:
private sub command1_click()
me.hide
form*.show
end sub


I read "send the user the trainer" really, my bad.


well I'm a dumbass -.- thank ya +rep for you even though it did turn out to be so basic lol, is the same code used for the menu commands as well?


Yeps.. ^^

Also, to the close forms moments, at the event "Query Unload", i recommends this..

Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        End
    End If
End Sub


So, when the form2 closes by the vbFormControlMenu ( [X] ) then it will close the whole program, as default, when you close it without that code, the forms that stay "Hide" will stay running. So to avoid that.

Also, use this to don't allow the program to be run twice.

Code:
Dim Programs As Integer
Program = App.PrevInstance
If Program <> 0 Then
MsgBox "Program Already Running"
End
End If


Hopes that helps to improve you program.

Quote:
Edit: i fugured it out from there exept when i go to click on one of my command buttons in the other form (( form2 is the cheats form1 is the game )) it gives me a debug error >-< what am i doing wrong this time


I don't know, i really don't understand it pretty well..

But, check the forms names. Also, the code may help since i really don't understand, i appreciated a picture or code.
_________________
Back to top
View user's profile Send private message
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Tue Nov 13, 2007 5:55 am    Post subject: Reply with quote
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?


O_O i trough you means, that if you click a button, and the password is ok, then the trainer download.

My bad.. so, you means, that you click a button, another form just come??? wow, that is so basic..

Quote:
private sub command1_click()
me.hide
form*.show
end sub


I read "send the user the trainer" really, my bad.


well I'm a dumbass -.- thank ya +rep for you even though it did turn out to be so basic lol, is the same code used for the menu commands as well?


Yeps.. ^^

Also, to the close forms moments, at the event "Query Unload", i recommends this..

Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        End
    End If
End Sub


So, when the form2 closes by the vbFormControlMenu ( [X] ) then it will close the whole program, as default, when you close it without that code, the forms that stay "Hide" will stay running. So to avoid that.

Also, use this to don't allow the program to be run twice.

Code:
Dim Programs As Integer
Program = App.PrevInstance
If Program <> 0 Then
MsgBox "Program Already Running"
End
End If


Hopes that helps to improve you program.

Quote:
Edit: i fugured it out from there exept when i go to click on one of my command buttons in the other form (( form2 is the cheats form1 is the game )) it gives me a debug error >-< what am i doing wrong this time


I don't know, i really don't understand it pretty well..

But, check the forms names. Also, the code may help since i really don't understand, i appreciated a picture or code.

There ya go

_________________
Back to top
View user's profile Send private message
coder sal
Master Cheater
Reputation: 0

Joined: 11 May 2007
Posts: 304
PostPosted: Tue Nov 13, 2007 8:38 am    Post subject: Reply with quote
Alright theres 2 ways to do the "link to" code. One is form2.show the other way is form2.visible=true, also you didn't have to use that code you could make it yourself its:
Code:
if text1.text="password" then form2.show
else msgbox "error"
Back to top
View user's profile Send private message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597
PostPosted: Tue Nov 13, 2007 8:41 am    Post subject: Reply with quote
kamakzy56 wrote:
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
kamakzy56 wrote:
XxOsirisxX wrote:
you could upload that trainer into a.. hmm, iono, sendspace.com.. or something like that..

then add this..

Code:
Private Declare Function URLDownloadToFile "urlmon" Alias "URLDownloadToFileA" (Byval Caller as Long, Byval xURL as String, Byval xFileName as String, Byval Reserved as Long, Byval lpfnCB as Long) as Long


Code:
Private Function Download (byval URL as String, Byval FileName as String) as Boolean
Download = URLDownloadToFile(0,URL,FileName,0,0)
End Function


In a command button.

Code:
Private Sub command1_Click()
Download "http://www.YouFileToDownload.com", "C:\Where ever you wants to make it.RAR"
End Sub


This is to download in silence, so, there will not appear any msg of download, it will just download to w.e you said at, as the extention you says.

Hopes this helps Smile


o,O wha? what does any of that have to do with link codes from form to form?

Ex. If i click on a command button labeled "Ok" and then it sends me to a different topic or form inside my trainer in vb6.

What code would i use for that?


O_O i trough you means, that if you click a button, and the password is ok, then the trainer download.

My bad.. so, you means, that you click a button, another form just come??? wow, that is so basic..

Quote:
private sub command1_click()
me.hide
form*.show
end sub


I read "send the user the trainer" really, my bad.


well I'm a dumbass -.- thank ya +rep for you even though it did turn out to be so basic lol, is the same code used for the menu commands as well?


Yeps.. ^^

Also, to the close forms moments, at the event "Query Unload", i recommends this..

Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        End
    End If
End Sub


So, when the form2 closes by the vbFormControlMenu ( [X] ) then it will close the whole program, as default, when you close it without that code, the forms that stay "Hide" will stay running. So to avoid that.

Also, use this to don't allow the program to be run twice.

Code:
Dim Programs As Integer
Program = App.PrevInstance
If Program <> 0 Then
MsgBox "Program Already Running"
End
End If


Hopes that helps to improve you program.

Quote:
Edit: i fugured it out from there exept when i go to click on one of my command buttons in the other form (( form2 is the cheats form1 is the game )) it gives me a debug error >-< what am i doing wrong this time


I don't know, i really don't understand it pretty well..

But, check the forms names. Also, the code may help since i really don't understand, i appreciated a picture or code.

There ya go


You have to put a ShockwaveFlash1 on the form2, else, it will not works. If you wants to call from form2 to 1, then...

Form1.ShocwaveFlash1.SetVariable
_________________
Back to top
View user's profile Send private message
atom0s
Moderator
Reputation: 205

Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
PostPosted: Tue Nov 13, 2007 8:41 am    Post subject: Reply with quote
kamakzy56 wrote:
There ya go


You are getting that error because one of the objects you are using in that statement do not exist.

Make sure you are telling which form the object(s) are on when trying to use things over other forms.

Such as, your command button code there is on form1, but the SWF object is on form2. You need to tell it:

Code:
Call Form2.ShockwaveFlash1.SetVariable("Gold",Text2.Text)


Some thing goes for the Text2 object.
_________________
- Retired.
Back to top
View user's profile Send private message Visit poster's website
kamakzy56
Advanced Cheater
Reputation: 0

Joined: 03 Oct 2007
Posts: 67
Location: Texas
PostPosted: Fri Nov 16, 2007 4:51 pm    Post subject: Reply with quote
woo thank you every one who helped o,O

XxOsirisxX i already gave you a +rep so ima give the other guy one (( Wiccaan )) :]
_________________
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites