Computing.Net > Forums > Programming > VB6 FTP Send + IP Receiver.

Computer Problems? Computing.Net has over 1,000,000 posts about all things technology related! Over 90% answered within 24 hours! Click here to start participating now! Also, be sure to check out the New User Guide.

VB6 FTP Send + IP Receiver.

Reply to Message Icon

Name: Ruisu
Date: July 10, 2009 at 05:14:16 Pacific
OS: Windows XP Pro -32
CPU/Ram: 4400GHz, 6GB
Product: Gigabyte / Nvdaacpi
Subcategory: General
Comment:

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 finished

frmFirstRun
Email + Password input boxes (Creating
accout)
Saves Email And Pass to config.ini
Returns to the LoadMain module

Loadmain 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 Sub

Private 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 Sub

Sub QuitProgram()
Dim f As Form
For Each f In Forms
Unload f
Next
End
End Sub

If 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.



Sponsored Link
Ads by Google
Reply to Message Icon

Related Posts

See More


renaming files loading dlls



Post Locked

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


Go to Programming Forum Home


Sponsored links

Ads by Google


Results for: VB6 FTP Send + IP Receiver.

VB6 FTP Access connection string www.computing.net/answers/programming/vb6-ftp-access-connection-string/13697.html

sending and receiving sms www.computing.net/answers/programming/sending-and-receiving-sms/13396.html

VB6 FTP hangs - Multithread needed? www.computing.net/answers/programming/vb6-ftp-hangs-multithread-needed/13766.html