Mensajes

nhaalclkiemr, ves poniendo el código que te detecta el AV y lo vamos analizando, a ver si de alguna forma se puede hacer lo mismo sin ser detectado. Por cierto, me he instalado el nod32 y he realizado un ejecutable metiendo un simple kill en el main y no me lo ha detectado cuando lo he ejecutado. No se si lo tendré mal configurado el AV.
Saludos.

[StrComp (Función)]

Del MSDN:
StrComp (Función)
     

Devuelve un tipo Variant (Integer) que indica el resultado de unacomparación de cadena.

Sintaxis

StrComp(string1, string2[, compare])

La sintaxis de la función StrComp tiene estosargumentos con nombre:

Parte Descripción
string1 Requerido. Cualquierexpresión de cadena válida.
string2 Requerido. Cualquier expresión de cadena válida.
compare Opcional. Especifica el tipo de comparación de cadena. Si elargumento compare esnulo el valor de Option Compare determina el tipo de comparación.


Valores

Los valores de la instrucción compare son los siguientes:

Constante Valor Descripción
vbUseCompareOption -1 Realiza una comparación con los valores de la instrucción Option Compare.
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación textual.
vbDatabaseCompare 2 Sólo para Microsoft Access. Realiza una comparación basada en la información en las bases de datos.


Valores devueltos

La función StrComp devuelve los siguientes valores:

Si La función StrComp devuelve
string1 es menor que string2 -1
string1 es igual a string2 0
string1 es mayor que string2 1
string1 o string2 es Null Null

Espero que esta te sirva....si no te sirve puedes realizar tu una función a tu gusto.
Saludos

[byval]

Nas....pasa el string por valor no por referencia:
If RegSetValueEx(HKEY_LOCAL_MACHINE, "hola", 0&, REG_SZ, byval "Esto es una prueba", Len("Esto es una prueba") + 1 ) =

Por lo demas todo igual.
Saludos.

Mmmmmm.....compañero, estas cosas son excesibamente básica. Es de lo primerito de un lenguaje (después del "hola mundo" claro). Mirate un poquito más el temario y ponle un poco más de empeño que estas cosas son muy faciles....por lo menos por ahora. En cualquier manual basico te enseñan estas cosas.
Saludos.

[TEMA CERRADO]

Jejejejeje, me equivoqué y metí todas las funciones en un mismo command (no lo probé, lo hice sobre la marcha  ). Ya está corregido.
Pues eso: TEMA CERRADO.

[Gracias a C@ss¡@n¡ por el código]

Mmmmm, el no quiere mostrarla. El quiere cambiar individualmente la hora o los minutos del reloj del sistema. Voy a utilizar como base el codigo de nuestro compañero C@ss¡@n¡:

Código [Seleccionar] Expandir

Option Explicit

Private Sub Cambiar_Time(cadena As String)
On Error GoTo nError
    Time = Format(cadena, "hh:mm:ss AmPm")
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_hora(cadena As String)
On Error GoTo nError
    Time = timeserial(cadena,minute(time),second(time))
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_minutos(cadena As String)
On Error GoTo nError
    Time = timeserial(hour(time),cadena,second(time))
    Exit Sub
nError:
  MsgBox "Los minutos introducidos no son validos!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub


Private Sub CmdCambiarTime_Click()
    Cambiar_Time (Text1.Text)
End Sub

Private Sub CmdCambiarHora_Click()
    cambiar_hora(text2.text)
End Sub

Private Sub CmdCambiarMinutos_Click()
    cambiar_minutos(text3.text)
End Sub

Private Sub Form_Load()
    Text1.Text = "11:06:00"   'cambia la hora entera del sistema
    text2.text="12"   'cambia la hora
    text3.text="34"   'cambia los minutos
End Sub

Recuerda que los rangos de las horas van de 0 a 23 y de los minutos de 0 a 59. Si te sales salta el error.
Gracias a C@ss¡@n¡ por el código, y espero que no te hayas molestado que lo reutilizase y completase (ya que su respuesta está muy bien).
Saludos.

naderST tiene razón. Lo malo es que si no he entendido mal necesitarias siempre un conjunto de dos digitos, por lo tanto el codigo habría que variarlo:

Código [Seleccionar] Expandir

Dim Segundos As String
Segundos = Second(Time)
If Len(Segundos) = 1 Then Segundos = "0" & Segundos   'añade un 0 cuando la longitud de los seguntos es un digito

P.D. Pero sigo pensando que la mejor manera es adaptando el primer código que te puse a lo que quieres.

Porque lo de las MACS?????

Saludos...

Lo dice en el primer mensaje:

hola, se que es facil pero no se, como hacer para seleccionar una cadena aleatoria, no se como usar randomize en este caso para despues escribir la cadena, es para cambiar  mi direccion mac utilizando un metodo chapuzero, x ejemplo se tienen

Uiuiuiuiui, clonando macs?  . Esto te da una Mac completa aleatoria:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
    Numero = Hex(Int(Rnd * 256))
    Mac = Numero & Mac
Next
MsgBox Mac
End Sub

Y lo mismo pero separados cada par de dígitos por dos puntos:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
    Numero = Hex(Int(Rnd * 256))
    Mac = Mac & ":" & Numero
Next
Mac = Right(Mac, 17)
MsgBox Mac
End Sub

Puedes enviar el par de dígitos metiendo la función sendkeys dentro del for .... next, sustituyendo la linea Mac = Numero & Mac por sendkeys(numero), si es lo que te interesa claro. Si tienes que enviarla entera, puedes poner el sendkeys(mac) después del next. Si quieres trabajar con los 6 bloques de dos caracteres, utiliza una matriz de 6 elementos y almacenalos ahi.
Saludos.

C@ss¡@n¡ tiene toda la razón....ante todo organización  . Como él dice.....y dije yo anteriormente....para eso se creo el subforo .net no?  . Lo que pasa que no sabía exactamente la política del canal. Aunque sigo diciendo que si se escapa alguna pregunta y le puedo ayudar.....le ayudaré  , diciendole por supuesto que existe otro canal para estos temas. Como decía el chiste: Manolo...organizaciónnnnnnnn....que has apagado la luz 3 veces y en una habitación con 20 tias me has dado 3 veces por culo...jajjajajaja.
Saludos.