Mensajes

Tengo una pc infectada ya le pase varios programas pero no sale .Es el virus que crea accesos directos en las usb no pude saber ni desde donde se inicia ya cheque en el regedit Run y variablciones y la carpeta de Startup .Tambien e en la usb crea una carpeta inborrable y lo q creo q es el virus un archivo *.fr pesa como 20 megas 


les dejo el link de lo q crea en una usb 
aver si me pueden dar solucion a la desinfecion

abstenerse de darme solucion para mostrar los archivos ocultos

cmd
attrib -s -r -h /d /s

https://mega.nz/#!bIszWRpY!Y4g_6BnGd7RYzTougxRpjN-tj6hRUOx9SeN-ik3ebDk

Tengo una funcion para el calculo de la determinante de 3*3 pero esta ya no me sirve si ingreso matrizes mas grandes  ,si alguien me puede ayudar  con una nueva funcion

Código (vb) [Seleccionar] Expandir


a11 = 1
a12 = 2
a13 = 3
a21 = 1
a22 = 2
a23 = 1
a31 = 2
a32 = 1
a33 = 1

'  |1 2 3|
'A=|1 2 1|
'  |2 1 1|

'|A|=-6

MSGBOX determinante(a11,a12,a13,a21,a22,a23,a31,a32,a33 )



Function determinante(ij11,ij12,ij13,ij21,ij22,ij23, ij31, ij32, ij33)


FC = ij11 * ((ij22 * ij33) - (ij32 * ij23)) +((-1 * ij12) * ((ij21 * ij33) - (ij31 * ij23)) +
(ij13 * ((ij21 * ij32) - (ij31 * ij22))))
determinante = FC
End Function







Encontre este code  para determinantes n*n Pero no lo comprendo


visual basic 2010 este codigo al pareser usa el metodo de cofactor y yo lo quiero en script vbs

si alguien me ayuda estare agradesido

Código (vb) [Seleccionar] Expandir



Function DET(ByVal Aux(,) As Double)

For i As Integer = 1 To n

For j = 1 To n
T(i, j) = Aux(i, j)
Next
Next
deter = 1
For k As Integer = 1 To n
If T(k, k) = 0 Then
j = k If T(k, j)= 0 Then
If j =n Then
deter = 0
End If
j = j+ 1
End If
If T(k, j) <> 0 Then
For i As Integer = k To n
temp = T(i, j)
T(i, j) = T(i, k)
T(i, k) = temp
Next i
deter= -deter
End If
End If
If (k - n) < 0 Then
k1 = k + 1
For i As Integer = k1 To n
For j = k1 To n
T(i, j) = T(i, j) - (T(i,k) * T(k, j) /T(k, k))
Next j
Next i
End If
deter = deter * T(k, k)
Next k
DET = deter
End Function



Alguien sabe como graficar x,y,z   lo q pasa es q tengo un vector  arrogado por la solucion de un sistema de ecuaciones Homogeneo  , bueni en realidad lo arroga una magnitud ....... bueno X   lo q quiero saber es como graficar

(-Cos 45° , Cos 45° , Cos 90°)

Si alguien me puede ayudar se lo agradecería enormemente

Saludos a tod@s

ok facil tengo un programa q abre dos ventanas  y desde el 1er formulario cierro los otros  .luego cierro el programa....

pero se queda corriendo en 2do plano

ase todo lo q qiero pero ese error esta y no se q onda

Tngo un problema con un programa que realize a forma  exponer mi problema simplificare

Tengo un proyecto con 3 form (a,b,c ) en a  2 botones mostrar y terminar .

Al dar clic en mostrar mostrara b y c 

al dar clic en terminar cerrar b y c

Codigo en mostrar es

b.show
c.show

En terminar  codigo

B.hide
C.hide

Set b = nothing
Set c= nothing

Esto ase lo q qiero pero  al cerrar a y echecar en el Admi de Tar  el programa esta abierto en 2do plano

Cual es mi error

Les traigo un efecto sus script. Es un efecto parecidio al que sale en Matrix  cuando Neo esta en frente de la pc y en la pantalla aparece

Neo,levantate .Sigue al conejo blanco

Bueno aqui esta la funcion  y tambien una breve explicacion de cada parte del codigo

Code:

Código (vb) [Seleccionar] Expandir

  'llamamos a la funcion MaqEsc() con el texto incluido casi
'al final esta un numero este indica el tiempo en milisegundos
'en que iran apareciendo las letras

call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
Function MaqEsc(Striing,tt)
For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber
X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar)

If x= " " then 'Si el caracter que estamos analizando
wscript.sleep 00 'es espacio se ignora y "aparece de inmediato"
else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos
End If
Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
Next
wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos
End function


Espero que les guste Adios

Muy buenas a tod@s  veran tengo un pequeño gran proyecto entre manos .Estoy en detalles y uno de esos detalles es que quiero poner un poco de color a la ventana usando el comando color de batch .Al principio para poner titulo a la ventana use

Código (vb) [Seleccionar] Expandir


Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c title .::ELHACKER.NET::."

WScript.echo "Hola Mundo"
wscript.sleep 3000


consola
c:\cscript //nologo  filevb.vbs



Pero no funciona con color :

Código (vb) [Seleccionar] Expandir


Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c color 0a"

WScript.echo "Hola Mundo"
wscript.sleep 3000


Alguien tiene una idea d como solucionar eso

Gracias de antemano

RESUELTO

Soli era cuestion de sacar el msgbox de la fncion q proporcionaste  y llamar a pa funcion

me explico  al principio del code  el programa pedira q si qiere aleatorio o no si marca q si x tomara un valor ( o(.) cada x tomara un valor aleatorio ( (.) y lo escribe en un txt


pej.

el usuario marca si

Código [Seleccionar] Expandir

.writeline "1"&x&"2"&x&"45"&x&"67"....n"

cada x sera distinta :   .

resultado

*.txt

Código [Seleccionar] Expandir

1.2.45;67.74;96;246.35;....n


y si marca q no

Código [Seleccionar] Expandir

1:2:45:67:74:96:246:35:...n



la funcion q propones abrira un mensaje por cada n X

Algien q me ayude

Código [Seleccionar] Expandir

ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")  

si le usuario marca q si quiero q en
genere ( o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)

y si el usuario dice q no x = ":"

Código [Seleccionar] Expandir

.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"




esta funcion regresa (.) o ( si les ayuda
a ayudarme

Código (vb) [Seleccionar] Expandir



Function odc()
Randomize
  ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then
odc = ":"
else
odc = "."
end if
end function