September 23rd, 2003, 03:30 AM
|
|
Registered User
|
|
Join Date: May 2003
Posts: 5
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
Please Help - Inet/Form issue
Hi there
Is the following correct for vb. The issue is that when i change the server host, username and password, it keeps on coming up and saying remote host is not found.
When clicking on debug, it points to:
Form1.Inet1.Execute , "PUT """ & strLocal & """ " & strRemote
It doesn't seem to like: Form1.Inet1.RemoteHost = gsServer
Could you do this, like its in the code?
Attach to this post is the vb6.0 project file as listed here.
Here is the full listing of the code:
Code:
Public gsServer As String
Public gsUser As String
Public gsPswd As String
Private Sub Command1_Click()
Form1.Inet1.AccessType = icUseDefault
Form1.Inet1.Protocol = icFTP
Form1.Inet1.RemoteHost = gsServer
Form1.Inet1.RemotePort = "21"
Form1.Inet1.Password = gsPswd
Form1.Inet1.UserName = gsUser
Form1.Inet1.RequestTimeout = "60"
strRemote = "test.html"
strLocal = "test.html"
Form1.Inet1.Execute , "PUT """ & strLocal & """ " & strRemote
MsgBox "ActinicMail has been uploaded", vbOKOnly
Dim ieApp As Object
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = True
ieApp.Navigate Text1 + "ActinicMailTest.pl"
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Text2_Change()
gsServer = Text2
End Sub
Private Sub Text3_Change()
gsUser = Text3
End Sub
Private Sub Text4_Change()
gsPswd = Text4
End Sub
Many thanks for you help
Kind Regards
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
