Mensajes

Hola,con el inet lo podes hacer..con el metodo Execute y el PUT...le tenes que pasarle el usuario ,la contraseña y el servidor..con apis me inmagino que se puede tambien...busca en internet que hay varios ejemplos..

saludos.

el programa ese es un webbrowser..y no anda nada...puro grafico pero no anda...

mamita querida, esto es una recopilacion de codigos de todos lados...aparte hay codigo de tantos autores que ya me perdi, pero los controles ni nombre tienen..

es el servidor pago donde tengo mi pagina y foro (o lo que hay de ella  ) , pero no es el caso..hasta lo he subido en geocities que es uno de los mas malos y funciona bien...

["Clear]

pues claro..el Instr se le tiene qeu pasar a una variable o lo tenes que comparar con un if o con un msgbox lo podes mostrar..no lo podes poner asi nomas...el Instr devuelve un integer ..si es 0 no encontro la palabra y si es desigual a 0 te devuelve la posicion en la que la cadena que buscaste se encuentra..mira:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim a As String

Private Sub Command1_Click()
MsgBox InStr(a, "clear")
End Sub

Private Sub Form_Load()
a = "dgh ttdx tnh ck bd tbs xjthm cn clear rgtfc txvhtxv"
End Sub

ahi te devuelve 33 qeu es la posicion de la palabra "Clear" que buscas...en vez de un msgbox podes poner una variable y hacer un if asi:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim a As String
Dim i As Integer

Private Sub Command1_Click()
i = InStr(a, "clear")
If i = 0 Then
    MsgBox "no se encontro la palabra"
Else
    MsgBox "se encontro la palabra en la posicion " & i
End If
End Sub

Private Sub Form_Load()
a = "dgh ttdx tnh ck bd tbs xjthm cn clear rgtfc txvhtxv"
End Sub

saludos.

mira yo lo probe y tenes razon..muestra todo junto...pero lo subi a otro servidor y me funciona bien..

Hola,yo recien probe y me lo abre perfecto con los espacios y todo...puse:

Hola
que tal

muy bien
me alegro
jajajaja

y me salio exactamente lo mismo en el textbox...no use el Inet ..sino api's..

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256

Public Function CodigoWeb(Pagina As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
If hSession Then hInternet = InternetOpenUrl(hSession, Pagina, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
If hInternet Then
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If
iResult = InternetCloseHandle(hInternet)
CodigoWeb = sData
End Function

Private Sub Form_Load()
Text1.Text = CodigoWeb("http://www.tuservidor.com.ar/tuarchivo.txt")
End Sub


saludos.

[WestOn]

Hola WestOn todas esas dudas Instr ,Ubound estan en un manual de visual basic...esa pagina es de visual basic .NET...digamos que es lo mismo..pero algunas funciones cambian y por eso es mejor mirar algo de visual basic 6...

saludos.

aprende primero sobre lo que es una clase y despues te va a quedar mas claro...

Hola, es facil mira, suponete que tenes algunos labels creados ya y algunos pictures..

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim i As Integer
For i = 0 To Label1.Count - 1
    Set Label1(i).Container = Picture1(i)
Next i
End Sub

saludos.