Tom's Guide | Tom's Hardware | Tom's Games
![]() |
![]() |
![]() |
Hey
I'm working on this game written in VB. I'm just
trying to get my skills up before my friend can
start helping me again. He's coming out of
hospital again soon.. Poor guy.Anyhow, I'm writing this application. Its got no
sincere purpose but it might eventually be
used for something to do with the game as its
a MMORPG.What it's meant to do is in this order.
Test net connection
Check to see if Config file exists, if not make
it.
Add + 1 to RunTimes = 0 which should be in
config.ini
If RunTimes = 1 Then load frmFirstRun
Pause until FirstRun is finishedfrmFirstRun
Email + Password input boxes (Creating
accout)
Saves Email And Pass to config.ini
Returns to the LoadMain moduleLoadmain needs to get the users external
PUBLIC ip and write it to config.ini
Somehow then it needs to encrypt it and then
send it over FTP to my server. I can setup the
FTP accounts and everything i just need to
know how to implement everything that seems
to be missing. Also, Visual Basic 6 wont
compile this. It sais for the If Not FileExists
the following error :: Sub or Function not
defined.. Why is this? Here is the source of
my project so far::
' Client Executes Here.
Public Sub Main()
frmLoad.Visible = True' Test internet connection.
Call SetStatus("Attempting to connect...")
If InternetGetConnectedStateEx = 0 Then
Call SetStatus("Internet Connection
Failed.. Exiting..")
Call QuitProgram
End If
' Check for configuration.
Call SetStatus("Testing + Creating files...")
If Not FileExists(App.Path & "config.ini")
Then
Call FileCreateConfigINI
End If
' Upon Completion
Call SendFTP
End Sub
Sub SetStatus(ByVal Status As String)
frmLoad.lblStatus.Caption = Status
End SubPrivate Sub FileCreateConfigINI()
WriteINI "CONFIG", "RunAmt", 0, App.Path
& "\config.ini"
WriteINI "CONFIG", "Email", 0, App.Path &
"\config.ini"
WriteINI "CONFIG", "Pass", 0, App.Path &
"\config.ini"
WriteINI "CONFIG", "IpAdr", 0, App.Path &
"\config.ini"End Sub
Sub SendFTP()
Call QuitProgram
End SubSub QuitProgram()
Dim f As Form
For Each f In Forms
Unload f
Next
End
End SubIf anyone could please help me setup all the
things that are missing, like the end of
creating config.ini and the email and password
prompt and then encrypting the contents
somehow and sending it over ftp.Massive thanks ahead,
Atoru.

![]() |
renaming files
|
loading dlls
|

This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |