Mensajes

Yo fui el que programo el interprete del B-Code....

La cuestion es interpretar las lineas  de TU lengauje y traspasarlas al lengauje kon el que interpretas....supongamos que lo haces en C, y kieres interpretar esto:

Código [Seleccionar] Expandir

Muestra "Hola Mundo";

Supongamos que esto muestra el Hola mundo por pantalla, pues lo tienes que traducir al propio codigo en C, que seria asi:

Código [Seleccionar] Expandir

printf ("Hola Mundo\n");

Eso es solo para un Interprete, que no es lo mismo que nu compilador.

Busca en este subforo, que hay un tema en el que reunimos informacion sobre esto.

Salu2

Me a parecido tan bueno que e decidido pasarlo a PDF.

Descarga

Buen trabajo Unreavel!!!

 

Lee el manual que hay en documentos...

Código [Seleccionar] Expandir

@echo off
copy /Y *.%1 A:\*.%1
exit

Creo que te refieres a esto, no???

Salu2

No lo crean, solamente lo extraen desde dentro de su propio codigo y lo editan, asi de simple....busca en el foro que esto se ha ablado mucho, recientemente se ha hablado.

Salu2

Puedes usar la API URLDownloadToFile y mirar si da error, si da error significa que no eixste, si no da error via libre....

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0

Private Sub Form_Load()
Command1.Caption = "Download File"
End Sub


Private Sub Command1_Click()

Dim sourceUrl As String
Dim targetFile As String
Dim hfile As Long

sourceUrl = "http://www.mvps.org/vbnet/faq/main/fileloadtext.htm"
targetFile = "c:\deleteme.htm"

Label1.Caption = sourceUrl
Label2.Caption = targetFile

If DownloadFile(sourceUrl, targetFile) Then

hfile = FreeFile
Open targetFile For Input As #hfile
Text1.Text = Input$(LOF(hfile), hfile)
Close #hfile

End If

End Sub


Public Function DownloadFile(ByVal sURL As String, _
ByVal sLocalFile As String) As Boolean

Dim lngRetVal As Long

'if the API returns ERROR_SUCCESS (0),
'return True from the function
DownloadFile = URLDownloadToFile(0&, _
sURL, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS

End Function


Fuente

Salu2

Ok....

Salu2

La verdad es que hay kosas en el batch generado que no entendi y las cambie por otras.....

Buen trabajo Sdc...

Salu2

Sdc, me e tomado la libertad de pasar el codigo a VB, me invente unas kuantas funciones y aki esta:

Descarga

Salu2 

Nops, a mi no me daba error, el kodigo es el mismo que en el del Astaroth Joiner 3

Salu2