Holaaaaaaaaaaaaaa

Le instale el netlimiter2 a mi hermana, pero se avivo y lo desinstalo. me tiene harto :@

La cosa es que,...

Uso este code para "Hacerlo oculto"

Private Sub Form_Load()
SetAttr "C:\Archivos de programa\NetLimiter 2 Pro\NLClient.exe", vbHidden
Unload Me
End Sub

Me gustaria saber como sacar el icono del systray (Al lado del reloj)

Graciaas

Hola gente, despues de dos dias sin internet, hice eso que le dicen "Tener vida", pero ya volvio, asi que no la necesito  

Estaba tan al pedo sin internet que me puse a revisar el apiguide o algo asi, nose un pingo de ingles, pero traduci bastante bien ajsjaksaj xd

Me "Propuse" hacer una joda en vb.. osea, una broma, nada letal, solo que desconfigure, o nose.... bludeces.

Lo unico que llegue a leer en vb para una broma, es esa api de cambiar los clicks de lugar, desconfigurar la fecha año etc... pero nada mas  

Alguien me da el nombre de alguna api, o alguna ideapara hacer un malware no letal?  ? Graciass

P.D: Estoy tratando de distorcionar la pantalla, nose si se pueda, si alguien sabe algo, avise   (Vi un programa que lo hace...)

Holaa otra vez jaja,

tengo una pregunta muuuy estupida,
hace bastante habia hecho un programa con el mouse move, pero borre el proycto cuando tube que formatear, y no me acuerdo como se usa :S

lo que necesito es muy simple, cuando muevo el mouse, que el label1 se setee en "Hola" , por ejemplo...

No me acuerdo como se usa ! :S

Alguien me refresca la memoria? xD

P.D: Estoy buscando... 

Hola foreros!

Tengo unas preguntas :S

Como hago esto:


imagen:
http://img841.imageshack.us/i/dibujojxd.jpg/

Osea, abajo de cada " | " , poner un numero (Se que aparece, pero quiero saber si se puede poner).

Otra:

Como hago para... por ejemplo, pongo el valor minimo en el slider:

100

pero que enrealidad, cuando seleccione 100 , sea OTRO valor. osea, que 100 pase por ejemplo a 50 .
me parece que esto ya no tiene que ver con el slider... mmmm creo que yase como hacerlo, ahora lo pruebo, pero para sacarme las dudas.

Gracias!

P.D: No pido codigos, pido orientaciones ^^





EDIT: O sinop, cuando elija "X" numero dentro del slider ( | ) , que le aparezca una descripcion arriba, envez del numero. y obviamente, abajo (Como ya dije arriba), el numero


EDITO!

Lo unico que necesito ahora, es saber como hacer para que por ejemplo el slider tenga 3 opciones, y que cada una VALGA LO QUE YO QUIERO!

ejemplo

|         |          |
1         5         9

Hola!

Una pregunta, yo voy a creat un txt, pero necesito esto...

cada X cantidad de caracteres un "Salto" de linea... (No me acuerdo si habia un Chr para el salto de linea....salto es

esto) ja ^^

Alguna orientacion? Gracias!

Hola!

estoy usando este codigo :

x = Int(Rnd * 6)

me da decimales entre 0 y 6.

si yo uso por ejemplo

msgbox x, x, x,x

Voy a suponer que voy a obtener 4 numeros entre 0 y 6 distintos.
Pero no! (Muy obvio), ya que X vale un numero entre 0 y 6 , pero YA LO VALE, no cambia!.

Lo que yo necesito es que cambie :S:S:S

Alguien me dice como se hace?

GL!

edit: tendria que crear un bucle para que se repita la funcion y vuelva a dar valor.. alguna idea¿

Hola gente, tengo las b0las llenas, estuve toda la noche tratando de hacer esto...

On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s a"
Exit Sub
error:
MsgBox "error"
 

pero no abre el PUT* tmp.reg


pooorfavor que alguien me diga q esta mal! :S

Como dice el titulo, con este code es imposible escribir en el registro.

Dim Objeto1
Dim rama1 As String, valor As String
rama1 = "HKEY_LOCAL_MACHINE\lbablal"
valor1 = "1"
Set Objeto1 = CreateObject("wscript.shell")
Objeto1.regwrite rama, valor, "REG_DWORD"

El error esta en la ultima palabra, en 


eso, obviamente , es para escrribir un DWORD, y es lo que necesito. sin ese parametro se crea un Alfanumerico, cosa que no me sirve...

Alguna idea :S?

como dice el titulo..

este es el codigo

Dim pfd As String
pfd = Environ("ProgramFiles")
Dim license As String
license = (App.Path & "\serialdsl\license.txt")
MsgBox license
 
Dim Destination As String
 
Destination = (pfd & "\DSL Speed\DSL Speed V4.4\")
MsgBox Destination
 
FileCopy (license), (Destination)

Hola!

uso este codigo, pero compara mal :S

Private Sub Command10_Click()
 
 
 
Open App.Path & "\vactual.txt" For Input As #1
 
Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
 
Loop
 
Open (Environ("SystemDrive") & "\versión.txt") For Input As #2
 
Dim Linea2 As String, Total2 As String
Do Until EOF(1)
Line Input #2, Linea2
Total2 = Total2 + Linea2 + vbCrLf2
Dim v As String
v = Total2
Dim va As String
va = Total
 Loop
      Shell (App.Path & "\Update.exe")
      Sleep 6000
 
           On Error GoTo error
    If (v) = (va) Then
 
       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"
 
Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."
 
End If
 
 
 
  Exit Sub
error:
  MsgBox "Imposible actualizar.Para chequear manualmente visita "
 
 
      End Sub

osea, tira cualquier cosa! :S

Alguien me dice que esta mal?

Ya use varios codigos y en to2 me pasa lo mismo ...