últimos mensajes de: dexer

Mostrar Mensajes
Páginas: [1]

1	Programación / Programación Visual Basic / Re: Para que no aparezca al pulsar Ctr+Alt+Supr	en: 19 Marzo 2006, 15:50 pm
con : Código: 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.

2	Programación / Programación Visual Basic / Re: Como abrir un una web desde vb	en: 3 Febrero 2006, 03:36 am
Dim pagina as string pagina = "http:\\www.google.es" Shell "explorer " & pagina Con eso deberia ir, saludos.

Programación / Programación Visual Basic / Re: Problema al escribir en forma binaria

en: 14 Enero 2006, 12:05 pm

Prueba asi:

Código:

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

4	Informática / Electrónica / Proyector	en: 8 Diciembre 2005, 18:40 pm
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.

5	Programación / Programación Visual Basic / Re: Plug-in's	en: 2 Diciembre 2005, 22:06 pm
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

6	Programación / Programación Visual Basic / Re: [HELP]leer y escribir imagenes	en: 2 Diciembre 2005, 21:59 pm
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.

7	Programación / Programación Visual Basic / Re: Archivos .ini dentro de .exe	en: 25 Noviembre 2005, 05:21 am
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

8	Programación / Programación Visual Basic / Re: Generar Codigos Alfanumericos	en: 12 Octubre 2005, 15:17 pm
Citar 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

Páginas: [1]