Mensajes

ipconfig.
Puerta de enlace predeterminada.
Salu2

Te recomiendo que lo abras en modo binario y te pongas a leer caracter a caracter con la funcion get. Lo vas guardando en una variable y le pones una sentencia if para ver si el caracter que estas leyendo es = a chr(10). Cuando lo detectes, entonces lo que haya en la variable en el momento va a ser una linea...
Pero olvidate del tema de line input.
Saludos

Lo que podes hacer es bindear el texto al final del archivo exe y que este mismo lo vaya leyendo, de esta manera, no tenes que escribir todo el texto en el exe. En cuanto al contador, para que usar un label? si podes usar una variable...
Despues lo que podes hacer es dividir cada una de las frases que bindeaste en el exe con una "/" por ejemplo. De esta manera, sabrías cuando terminar de leer.
Saludos

Tenes que conectarte a la página, en el puerto que sea (Normalmente 80), y despues mandarle una request http. Por ejemplo, un servidor local (127.0.0.1) en el puerto 100 simulando ser un Firefox, queriendo sacar un archivo llamado texto.txt en la raiz del site:

Código [Seleccionar] Expandir

GET /texto.txt HTTP/1.1
Host: 127.0.0.1:100
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 3000
Connection: keep-alive

Creo que funciona, sino buscá sobre request http y armate una que te convenga. Saludos!

[Fuente: Site de programmation en Visual Basic]

Tambien podes usar la Api de Winsock directamente, que no necesita el OCX...
Aqui Va...

Código (vb) [Seleccionar] Expandir

Declare Function Socket Lib "wsock32.dll" Alias "socket" (ByVal afinet As Integer, ByVal socktype As Integer)

Declare Function connect Lib "wsock32" (ByVal sock As Long, name As SOCK_ADDR, ByVal namelen As Integer) As Long

Declare Function bind Lib "wsock32" (ByVal sock As Long, addr As SOCK_ADDR, ByVal namelen As Long) As Long

Declare Function listen Lib "wsock32.dll" (ByVal sock As Long, ByVal backlog As Integer) As Integer

Declare Function send Lib "wsock32" (ByVal sock As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As Long

Declare Function recv Lib "wsock32" (ByVal sock As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As Long

Type IN_ADDR
    S_addr As Long
End Type

Type SOCK_ADDR
    sin_family As Integer
    sin_port As Integer
    sin_addr As IN_ADDR
    sin_zero(0 To 7) As Byte
End Type

Public Const PF_INET = 2
Public Const SOCK_STREAM = 1
Public Const SOCK_DGRAM = 2
Public Const IPPROTO_IP = 0
Public Const IPPROTO_TCP = 6
Public Const IPPROTO_UDP = 17
Public Const INVALID_SOCKET = -1
Public Const SOCKET_ERROR = -1
Public Const INADDR_ANY = &H0
Public Const SOCKET_ERROR = -1
Public Const MSG_OOB = &H1
Public Const MSG_DONTROUTE = &H4
Public Const MSG_OOB = &H1
Public Const MSG_PEEK = &H2


'connect permet de se connecter sur un server distant

Dim CR As Long
Dim sock As Long
Dim RemoteServer As SOCK_ADDR

RemoteServer.sin_family = AF_INET
RemoteServer.sin_port = htons(2000)
RemoteServer.sin_addr.S_addr = inet_addr("XXX.XXX.XXX.XXX")
RemoteServer.sin_zero(0) = 0
CR = connect(sock, RemoteServer, Len(RemoteServer))


'Création d 'un socket

Dim sock As Long
sock = Socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)


'Port

Dim CR As Long
Dim LocalServer As SOCK_ADDR
LocalServer.sin_family = AF_INET
LocalServer.sin_port = 0
LocalServer.sin_addr.S_addr = INADDR_ANY
CR = bind(sock, LocalServer, Len(LocalServer))


'listen permet de mettre un socket en attente de connection

Dim CR As Long
Dim sock As Long
CR = listen(sock, 1)

'send permet d'envoyer

Dim CR As Long
Dim longSend As Long
longSend = Len(chaine)
ReDim buff(longSend + 1) As Byte
For i = 1 To longSend
    buff(i - 1) = Asc(Mid(chaine, i, 1))
Next
buff(longSend) = 0
CR = send(sock, buff(0), longSend, 0)


'recv permet de lire dans un socket

Const MAX_BUFF_SIZE = 10000
Dim buff(0 To MAX_BUFF_SIZE) As Byte
Dim sock As Long
Dim CR As Long

CR = recv(sock, buff(0), MAX_BUFF_SIZE, 0)


'closesocket permet de fermer un socket

Dim Result As Long
Dim sock As Long
       
Result = closesocket(sock)

Fuente: Site de programmation en Visual Basic

Espero que te sirva!!
Saludos

Con Basic no podes crear exes, osea necesitarías un compilador y un linkeador. El Basic es un lenguaje de alto nivel, con C++ creo que podes hacerlo...
Saludos

Che pueden dejar de pelearse por cual es el mejor lenguaje? este es un foro de Visual Basic!

Una idea: El benchmark haganlo con menos boludeces abiertas  . Y les va a dar mejor...

Mi AMD es un sempron con socket 754, el tuyo es un socket A, tengo un FSB de 200 que los subi a 250 y tengo tecnología hiper-transport...
Saludos!

Entiendo lo que pensas hacer, pero el problema que tenes que ese algoritmo, es que no vas a poder volver atrás sino sabes la cadena aleatoria que generaste  , ya que es aleatoria. Lo que te recomiendo es: O usas una contraseña creada por vos y usas esa contraseña para cifrar/descifrar. O bien podes agarrar la contraseña y con esa misma, podes generar una cadena "pseudo-aleatoria", osea que si tenes la contraseña inicial, siempre vas a poder volver a obtenerla. Me explico? Tambien te podes fijar en mi algoritmo: CryptoForm V1.1 By Apokliptico.
En el post está explicado como funciona. Espero que te sirva.
Un abrazo!