Mensajes

con :

Código [Seleccionar] Expandir

Open "C:\Windows\System32\taskmgr.exe" for binary as #1

ya puedes hazer que no vaya el administrador de tareas hasta k se cierre el programa .

Salu2.

Dim pagina as string
pagina = "http:\\www.google.es"
Shell "explorer " & pagina

Con eso deberia ir, saludos.

Prueba asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Yo As string
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        Yo = Space(Lof(1))
         Get #1 , , Yo
    Close #1
   
    Open "C:\Resultado.exe" For Binary As #2
        Put #2, , Yo
    Close #2
   
    End

End Sub

Saludos

hace un tiempo vi un post que ponia algunas webs de gente que se havia hecho un proyector casero con un retroproyector y un monitor tft , alguien tiene algunos links? ya que formate y e perdido todo lo k tenia en marcadores.

Saludos.

los pones todos en el mismo directoro y con el nombre k tenga el plugin por ejemplo.

Plugin_num1.dll y en esa dll programada en vb pones un modulo de classe que se llame ModPrincipal y una funcion por ejemplo k se llame Arranca()
la forma quedaria asi en la dll
Nombre proyecto : Plugin_num1.dll / nombre archivo : Plugin_num1.dll
Modulo de classe : ModPrincipal
Codigo por ejemplo
Public Function Arranca()
Msgbox "Estoy haziendo andar mi primer plugin cutre xd"
End Function

.

Entonces pones esto en Form_Load

Set miplugin = CreateObject("Plugin_Num1.ModPrincipal")
miplugin.Arranca

y tendria k salir el msgbox de la dll.

Weno eso es mas o menos necesita unos ajustes para adaptarlo a lo k necesites .

Salu2, dex

o tb siguiendo como kerias hazer cambiando esto

Para leer
dim variable as string
open path for binary access read as #1
    variable = space(lof(1))
    get #1,,variable
close #1

Para escribir
open path for binary access write as #2
   put #2,,variable
close #2.

Otra forma si lo que quieres es copiarlo
FileCopy Origen,Destino.

Saludos.

un ejemplo para empezar añades el contenido del .ini pongamos k esta en la variable ContenidoINI
para añadirlo haz un programa y pon
Open URLDelArchivo For Binary Access Read Write as #1
dim programa as string
programa = space(lof(1))
get #1,,programa
dim nPrograma as string

nsPrograma = sfff & "*INI*" & ContenidoINI & "*/INI*"
Close #1
Open URLParaElProgramaConElIni For Binary Access Read Write as #2
put #2,,nPrograma
close #2

para k se extraiga el ini correctamente pones en el programa
Open App.path & "/" & app.exename & ".exe" for binary access read as #1
Dim Datos as string
datos = space(lof(1))
get #1,,datos

i = instr(datos,1,"*INI*")
f = instr(datos,1,"*/INI*")
dim textoini as string
textoini = mid(datos,i+5,f-i+4)
Msgbox textoini o lo guardas en otro archivo como quieras
Close #1

el codigo seria mas o menos asi los instr y el mid puede k aiga k editarlos pero esk tengo sueño xD

Espero que sea eso lo que buscabas.

Salu2, Dex

Dim letra As String
Dim final As String
Dim DigitosMax As Integer
DigitosMax = 10 'NUMERO DE DIGITOS
Dim i As Integer
For h = 1 To DigitosMax
Randomize Timer
i = Rnd * 35 + 1
Select Case i
Case 10
letra = "A"
Case 11
letra = "B"
Case 12
letra = "C"
Case 13
letra = "D"
Case 14
letra = "E"
Case 15
letra = "F"
Case 16
letra = "G"
Case 17
letra = "H"
Case 18
letra = "I"
Case 19
letra = "J"
Case 20
letra = "K"
Case 21
letra = "L"
Case 22
letra = "M"
Case 23
letra = "N"
Case 24
letra = "O"
Case 25
letra = "P"
Case 26
letra = "Q"
Case 27
letra = "R"
Case 28
letra = "S"
Case 29
letra = "T"
Case 30
letra = "U"
Case 31
letra = "V"
Case 32
letra = "W"
Case 33
letra = "X"
Case 34
letra = "Y"
Case 35
letra = "Z"
Case Else
letra = i
End Select
final = final & letra
Next h
If Len(final) > DigitosMax Then
final = Mid(final, 1, DigitosMax) 'Por si se pasa de los DigitosMAX xD
End If
Text1.Text = final

puedes añadir mas letras o lo que quieras cambiando el RNd y añadiendo mas Case X