Hola a todos, aqui estoy de nuevo, bueno, mi duda es esta.
Lo que me gustaria saber es como podria copiar lo que hay en un txt que tengo subido a mi servidor, en un textbox, pero no todo, por ejemplo, en el txt del servidor pone.
Hola
que tal
muy bien
me alegro
jajajaja
Como podria hacer para que el programa, solo copie por ejemplo, muy bien y me alegro, sin copiar, hola, que tal, (el espacio) y jajajaja, no se si me e explicado.
la verda no te explicas bien ... :huh: :huh: :huh:
suponiendo que tu servidor es tu web host osea :
http://www.mipagina.com/texto.txt
si estoy en lo cierto lo puedes hacer por separado osea poniendo dos txt...
http://www.mipagina.com/texto1.txt
http://www.mipagina.com/texto2.txt
y en cada uno vaya por separado... otra forma seria es de leer linea por linea ese texto y solo tomas a partir de la linea 4
Dim reg(6) As String
Open Archivo.Caption For Input As #1
Line Input #1, reg(0)
Line Input #1, reg(1)
Line Input #1, reg(2)
Line Input #1, reg(3)
Line Input #1, reg(4)
Line Input #1, reg(5)
Text1 = reg(3) & vbctlf & reg(4) & vbctlf & reg(5) & vbctlf
Close #1
y si es el servidor de tu troyano pues usa dos texbox y llamas por separado ..
salu2.
Y cual seria para que lo lea cada txt por separado, es decir, lo que pone en el servidor en un txt lo ponga en el textbox.
Lo mejor es utilizar el Inet, Proyecto>Componentes>Microsoft Internet Transfer Control
Una vez añadido con su nombre predeterminado haz lo siguiete.
Dim sContenido As String
Private Sub Form_Load()
sContenido = Inet1.OpenURL("Aquilawebconeltxt")
Text1.Text = sContenido
End Sub
De nuevo muchisimas gracias a todos, saludos.
Disculpad, aqui estoy de nuevo, miren, e subido el archivo al servidor, el txt, pero cuando en el txt hay espacio, en el textbox no sale asi, por ejemplo.
hola
que tal
sale en el textbox
hola| |que tal
Eso es porque la propiedad Multiline del Textbox esta False, ponla en True
Esta puesta en true, y nada, es lo primero que hice.
Nadie sabe como podria solucionarlo?
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..
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.
Nada, no funciona, aqui tienen una url para que prueben
http://usuarios.lycos.es/hackdevil123/prueba.txt
prueba con esto .. pero lo delas apis ta bueno ... sin dependencias del inet
Text1.Text = Inet1.OpenURL("http://www.mipagina.com/info.txt", icString)
y te mostrara tal como esta tu texto.
mira yo lo probe y tenes razon..muestra todo junto...pero lo subi a otro servidor y me funciona bien.. :xD
byway, no me reconoce lo de icstring
y seba, ¿a que servidor lo as subido?
El problema está en el modo en que esta subiendo los datos al servidor :rolleyes:, si se fijan, hasta bajando el archivo los datos aparecen "mal", no es tema de VB, son los mismos datos los que aparecen sin saltos de línea :P
Supongo que debe de ser porque esta generando el txt con un php en el servidor :P
Saludos
Asi los e subido
18 Octubre 2008
Username:EAV-05995106
Password:48wtbajb8f
Username:EAV-05995098
Password:sufsu7mtn4
Username:EAV-05994586
Password:kd7pn7dpx8
Username:EAV-05995149
Password:5xbvfdhppn
Que es lo que esta mal?? y como lo tendria que poner?
es el servidor pago donde tengo mi pagina y foro (o lo que hay de ella :xD) , pero no es el caso..hasta lo he subido en geocities que es uno de los mas malos y funciona bien...
Registrate en otro hosting, te recomiendo www.funpic.de
el salto de linea no lo reconoce y lo muestra seguido...
ni idea cual sera el error...
si sigue asi mejor bajar el archivo como temporalñ y de alli lo lees y le das que lo lea del archivo bajado y poniendole salto de linea ...
no se me ocurre otra idea jejeje...
para seba como puedo reemplazar al inet con apis .. para cuando me descarga un archivo ... en el evento Inet1_StateChanged ... que me permite obtener el tamaño y vizualizar el proceso de descarga en un progressbar..
De todas formas, poco a poco ire cambiando de servidor, bueno, aqui os dejo el programa, que gracias a ustedes, e conseguido crear, de nuevo muchisimas gracias, son los mejores.
(http://img529.imageshack.us/img529/3421/dibujolc0.jpg)
Les explico, el programa se conecta a 2 servidores mios, en cada uno hay 4 txt, que ire actualizando cada dia, en ellos pondre claves para el nod32, para aquellos cansados del nodlogin, sospechen de el, o lo que sea, por ahora esto are, tambien usare este metodo para mi buscador de programas jeje, asi cuando un link deje de funcionar, solo tengo que modificar un txt, para que se actualicen a todos los que lo usen, los que no sepan que es el buscador de programas, es un programa que empece creando en batch y acabe en vb actualmente la version esta en la 3, y sacare dentro de un tiempo la 3.1 (lleva su tiempo hacer cada form, buscar las url, serials, etc), cuando lo tenga lo posteare, de nuevo gracias y espero que les guste, de nuevo gracias.
Os pongo distintos servers para descargar, el del 4shared, es el mio, por lo que no tendran problemas, por lo menos con el.
http://rapidshare.com/files/155261101/Buscador_de_serials_Nod32.zip.html
http://www.4shared.com/file/67440149/2051463d/Buscador_de_Nod32.html
http://www.megaupload.com/?d=UV7JLWZI
Se me olvido decir, que os e incluido en los agradecimientos, bueno sois los unicos, como no, de nuevo merecidamente, en el antibat tambien, de nuevo gracias, y saludos.
Sigo probando, pero nada, el programa sigue sin mostrar los espacios, no se os ocurre nada??
Ya esta solucionado, como me dijo mi amigo zoro2000zeta, era por que al subir un txt a un servidor, no es lo mismo que un txt de pc, es decir que el programa no lo leia igual, ya que si copiabas ese supuesto | negro que te salia, era un salto de linea, y lo que e hecho, es que cuando quiera un salto de linea, solo tenga que poner un = y el programa reemplazaba los = por saltos de linea, aqui os dejo el nuevo link, el otro programa ya no da serials, gracias, y saludos.
http://rapidshare.com/files/155350764/Buscador_de_serials_Nod32.zip.html
http://www.megaupload.com/?d=47GT1IKU
http://www.4shared.com/file/67481329/8c3bfb1/Buscador_de_serials_Nod32.html