Mensajes

[Ordenamiento de burbuja]

Ordenamiento de burbuja
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

Usar burbuja para ordenar tres numeros es como matar mosquitos a cañonazos.

lo que yo hago es un textbox que contenga solo las comillas " y luego le pongo el nombre de comillas al textbox, entonces luego por ejemplo seria:

Código [Seleccionar] Expandir


msgbox "comillas.text + "woOoOO" + comillas.text

salu2

Sin animo de ofender, eso seria la manera cutre de lo que yo he dicho.

Código [Seleccionar] Expandir

file.WriteLine ("""IP"" = ""broker.gunbound.net""")

Estas seguro de que eso va a funcionar?? Esas comillas te las va a interpretar como sintaxis para el compilador y no como un string.

La solucion seria sustituir las comillas strings por chr(34) y concatenarlas con "&". La cosa se quedaria del siguiente modo:

Código [Seleccionar] Expandir

file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))

Código [Seleccionar] Expandir

Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Mover()

Dim ruta(3) As String
Dim error As Long
ruta(0) = "\Speed Island files"
ruta(1) = "\models"
ruta(2) = "\data"

For i = 0 To 2
RemoveDirectory ("C:\Archivos de programa\Rockstar Games\GTA San Andreas" & ruta(i))
error = MoveFile(App.Path & ruta(i), "C:\Archivos de programa\Rockstar Games\GTA San Andreas" & ruta(i))
Next i

End Sub


Ahi te he dejado el codigo ya hecho. No lo he testeado pero no tiene porque fallar. Tu solo tienes que copiarlo y pegarlo todo en un modulo. Si ves que te falla y no sabes como solucionarlo vuelves a postear. Espero que te sirva.

En VB .NET tambien puedes hacer programas para ms-dos.

[Descargar Visual Basic / Descargas]

Y por si fuera poco tienes esto que te va a picar. Solo tenias que buscar un poco.

Descargar Visual Basic / Descargas

Descargar Visual Basic
http://foro.elhacker.net/index.php/topic,58439.0.html

En KaZaA no encuentro el visual basic 6, ¿dónde lo puedo descargar??
http://foro.elhacker.net/index.php/topic,10588.0.html

¿De donde puedo bajar el visual basic 6.0?
http://foro.elhacker.net/index.php/topic,10450

¿Donde bajar Visual Basic .NET?
http://foro.elhacker.net/index.php/topic,53533

¿Cuál es el mejor compilador para VB además de el que incluye por defecto el del entorno?
http://foro.elhacker.net/index.php/topic,76284.0.html

Visual Basic 6 Runtime Files
http://visual-basic-6-runtime-files.uptodown.com/

Visual Basic Runtime Files
http://www.programas.us/bajar/339

Descargar archivos DirectX para Visual
http://foro.elhacker.net/index.php/topic,69509.0.html

[Ethereal]

Con un sniffer. Te recomiendo el Ethereal.

Listo para tu codigo:

Código [Seleccionar] Expandir

Text1.Text = Mid(Text1.Text, 4, Len(Text1.Text))



PD: Es curioso la de formas que hay para hacer una misma cosa.

No es necesario que te compliques con las API's ya que VB trae la funcion incorporada:

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.EXEName & ".exe", destino

Con la API CreateService vas a poder crear el servicio. Pero ten en cuenta que el .exe que sea ejecutado como servicio tiene que responder como tal.

De todos modos aqui te dejo un ejemplo para que puedas estudiarlo a fondo.

http://www.freevbcode.com/source/vb6svc.zip