Mensajes

Código [Seleccionar] Expandir

%HOMEPATH%

Explico normal mente el editor de resource esta desactivado en vb6 para activarlo az lo siguiente:

Add-Ins -> Add-Ins Manager...

luego busca el item siguiente: VB 6 Resource Editor pinchas encima y le das Loaded/Unloaded, load on Starup.

luego te saldra un nueva opcion como el icono como el regedit.

una vez dado le das a add Custom Resource... y selecionas el fichero que quieras.

y utilizas esta funciona para sacarlo:

Código [Seleccionar] Expandir

Public Sub CargarRes(NumNAME As Integer, ruta As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(ruta) = "" Then
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub

es bastante fácil

puedes hacerlo con el resource 

Ni idea pero creo que si utilizas la versión 6.0 de los controles se queda seleccionado siempre pero con la 5.0 eso no pasa.

Digo creo porque no estoy seguro 100%.

Salu2

Tienes que ser un poco mas concreto con la pregunta sino no te podemos ayudar, ten en cuanta que listbox y progressbar son controlar bastante extensos:

Unos cuantos ejemplos del uso del listbox:

Código [Seleccionar] Expandir

'Añadir un Item a la lista
Call List1.AddItem("Item 1")

Código [Seleccionar] Expandir

'Eliminar Item de la lista sabiendo su index
Call List1.RemoveItem(0)

Código [Seleccionar] Expandir

'Eliminar Item de la lista sabiendo su Texto
For i = 0 To List1.ListCount - 1
If List1.List(i) = "Item 1" Then
Call List1.RemoveItem(i)
End If
Next i

Unos cuantos ejemplos del uso del progressbar:

Código [Seleccionar] Expandir

Ponemos el progressbar al la mitad.
ProgressBar1.Min = 1
ProgressBar1.Max = 100
ProgressBar1.Value = 50

Salu2, David

creo que eso es una configuracion windows.

Código [Seleccionar] Expandir

Código:
Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

puedes hacerlo con winsock o con el controlar inet que seria mas facil

ya incluso podrias hacer algunas madificaciones de la seguridad poniedolo en md5 seria asi:

Código [Seleccionar] Expandir

<?php
if ($_SERVER['HTTP_USER_AGENT'] == "Serials(By WarGhost)"){
<?php
$Serials = file('serial.txt');
for ($Num = 0; $Num < count($Serials); $Num++){
  if (md5(trim($Serial)) == trim($Serials[$Num])){
     echo "1";
     $SerialUni = trim($Serials[$Num]);
  } 
}
for ($Num = 0; $Num < count($Serials); $Num++){
  $archivo .= "$Serials[$Num]";
     if ($SerialUni != ""){
     $txt = ereg_replace($SerialUni,"",$archivo);
     $Open = fopen ('serial.txt',"w");  
     fwrite ($Open,$txt);  
     fclose ($Open);
     }
}
}
?>

y el los txt:

Código [Seleccionar] Expandir

a367177e1ced211845e6452dd5950b78
5f2884555e3a38b6d3088ad09139c5b5

Salu2

VB 2005 es un .net por lo tanto es el futuro laborar.

P.D:Creo que este tema ya se a tocado mucho.

Salu2, WarGhost