Visual Basic - Foro de mier.............da

Life is soft - evento anual de software empresarial
 
Vista:

Foro de mier.............da

Publicado por Cracker (7 intervenciones) el 27/06/2005 22:06:52
En este foro de mie.d.a. ya m di cuenta que me sacaron, pero a ese est,ú.pi,do de "edu" no se lo han hechado, coman mucha kk los que me sacaron pero dejan a ese otro pende,jo metido en este garbage
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Foro de mier.............da

Publicado por jaja (1 intervención) el 27/06/2005 22:15:13
jaja vete a la conc.ha tu m.are jajaja que va.go de mier.da jajaja
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por Ayudante (349 intervenciones) el 27/06/2005 22:23:55
Cracker eres un hijo pe.rra!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por Cracker (7 intervenciones) el 27/06/2005 22:28:43
Increíble cómo después de muchos años desde que encontré este foro, se ha venido convirtiendo en pura kk, todos hacíamos preguntas y nos ayudábamos DE FORMA INTELIGENTE, no como ahora que con más recursos y preguntas puras cochinadas como por ejemplo "cómo puedo hacer....?", "qué es este error....?", o sea, cuando me inicié con el VB 5 no es que éramos más to,n,tos, es que no teníamos tantos recursos para conectarnos a internet e investigábamos fuertemente, pero ahora cualquier id,io,t,a per,d,edor se mete a programar, prost,itu,ye lo que es una ciencia y un arte para hacer cosas medio,c,res.

PERDEDORES, COMAN KK

Además esos que usan los nicks que yo mismo he creado, son los más despreciables, porque se nota que no tienen iniciativa pero para nada, faltos de creatividad y otras cosas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Foro de mier.............da

Publicado por SuNcO (599 intervenciones) el 27/06/2005 22:32:51
No tienen nada mejor que hacer niños ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por Cracker (7 intervenciones) el 27/06/2005 22:38:43
Podría, pero con preguntas que no valen la pena responder, o bien, cuando uno da una respuesta correcta y otro te insulta, creo que qu
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por edu_40000 (9 intervenciones) el 27/06/2005 23:02:13
De acuerdo cracker si eres taaaaaaaaaaan listo dime komo puedo hacer para k el programa se escriba en el registro de windows y se autoejecute,venga a ver si lo sabes a k nooooooo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por edu (138 intervenciones) el 27/06/2005 23:04:31
ayudante = cracker = edu_40000 = SuNcO = Baso.fia

VA.GOS IGNO.RANTES HAGAN ALGO POR LA VIDA!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por Cracker (7 intervenciones) el 28/06/2005 05:49:58
Eso es fácil, lo hice hace al menos 4 años y lo tengo en una clase dentro de una DLL.

Option Explicit

Public Enum eTipoRegistro
eMaquinaLocal = 0
eUsuarioActual = 1
eRaizClases = 2
eConfiguracionActual = 3
End Enum

Public Enum eTipoDato
eBinario = 0
eString = 1
eEntero = 2
End Enum

Public Function LeerValor(ByVal pvTipoRegistro As eTipoRegistro, _
ByVal pvLlave As String, _
ByVal pvValor As String, _
ByVal pvDefecto As Variant) As Variant
Dim vll_ValRet As Long
Dim vll_DirReg As Long
Dim vll_hKey As Long
Dim vlx_Dato As Variant
Dim vll_TipoDato As Long
Dim vls_DirReg As String
Dim vloWScript As Object

On Error Resume Next

Select Case pvTipoRegistro
Case eTipoRegistro.eMaquinaLocal
vll_DirReg = HKEY_LOCAL_MACHINE
vls_DirReg = "HKEY_LOCAL_MACHINE"
Case eTipoRegistro.eUsuarioActual
vll_DirReg = HKEY_CURRENT_USER
vls_DirReg = "HKEY_CURRENT_USER"
Case eTipoRegistro.eRaizClases
vll_DirReg = HKEY_CLASSES_ROOT
vls_DirReg = "HKEY_CLASSES_ROOT"
Case eTipoRegistro.eConfiguracionActual
vll_DirReg = HKEY_CURRENT_CONFIG
vls_DirReg = "HKEY_CURRENT_CONFIG"
End Select

vll_ValRet = RegOpenKeyEx(vll_DirReg, pvLlave, 0, KEY_ALL_ACCESS, vll_hKey)

If vll_ValRet = 0 Then
Set vloWScript = CreateObject("WScript.Shell")
vlx_Dato = vloWScript.RegRead(vls_DirReg & "\" & pvLlave & "\" & pvValor)
If Err.Number <> 0 Then
vlx_Dato = pvDefecto
End If
If StrComp(vlx_Dato, vls_DirReg & "\" & pvLlave & "\" & pvValor, vbTextCompare) = 0 Then
vlx_Dato = pvDefecto
End If
Set vloWScript = Nothing
Else
vlx_Dato = pvDefecto
End If

LeerValor = vlx_Dato
End Function

Public Function GuardarLlave(ByVal pvTipoRegistro As eTipoRegistro, _
ByVal pvLlave As String) As Long
Dim vll_ValRet As Long
Dim vll_DirReg As Long
Dim vll_hKey As Long
Dim vll_Bandera As Long
Dim vle_Atributos As SECURITY_ATTRIBUTES
Dim vls_DirReg As String

Select Case pvTipoRegistro
Case eTipoRegistro.eMaquinaLocal
vll_DirReg = HKEY_LOCAL_MACHINE
vls_DirReg = "HKEY_LOCAL_MACHINE"
Case eTipoRegistro.eUsuarioActual
vll_DirReg = HKEY_CURRENT_USER
vls_DirReg = "HKEY_CURRENT_USER"
Case eTipoRegistro.eRaizClases
vll_DirReg = HKEY_CLASSES_ROOT
vls_DirReg = "HKEY_CLASSES_ROOT"
Case eTipoRegistro.eConfiguracionActual
vll_DirReg = HKEY_CURRENT_CONFIG
vls_DirReg = "HKEY_CURRENT_CONFIG"
End Select

vle_Atributos.nLength = Len(vle_Atributos)
vle_Atributos.bInheritHandle = 1
vle_Atributos.lpSecurityDescriptor = 0

vll_ValRet = RegCreateKeyEx(vll_DirReg, pvLlave, 0, "", 0, KEY_ALL_ACCESS, vle_Atributos, vll_hKey, vll_Bandera)

If vll_ValRet = 0 Then vll_ValRet = RegCloseKey(vll_hKey)

GuardarLlave = vll_ValRet
End Function

Public Function GuardarValor(ByVal pvTipoRegistro As eTipoRegistro, _
ByVal pvLlave As String, _
ByVal pvValor As String, _
ByVal pvDato As Variant, _
ByVal pvTipoDato As eTipoDato) As Long
Dim vll_ValRet As Long
Dim vll_DirReg As Long
Dim vll_hKey As Long
Dim vls_Dato As String
Dim vll_Dato As Long
Dim vls_DirReg As String
Dim vls_TipoDato As String
Dim vloWScript As Object

Select Case pvTipoDato
Case eTipoDato.eBinario
vls_TipoDato = "REG_BINARY"
Case eTipoDato.eEntero
vls_TipoDato = "REG_DWORD"
Case eTipoDato.eString
vls_TipoDato = "REG_SZ"
End Select

Select Case pvTipoRegistro
Case eTipoRegistro.eMaquinaLocal
vll_DirReg = HKEY_LOCAL_MACHINE
vls_DirReg = "HKEY_LOCAL_MACHINE"
Case eTipoRegistro.eUsuarioActual
vll_DirReg = HKEY_CURRENT_USER
vls_DirReg = "HKEY_CURRENT_USER"
Case eTipoRegistro.eRaizClases
vll_DirReg = HKEY_CLASSES_ROOT
vls_DirReg = "HKEY_CLASSES_ROOT"
Case eTipoRegistro.eConfiguracionActual
vll_DirReg = HKEY_CURRENT_CONFIG
vls_DirReg = "HKEY_CURRENT_CONFIG"
End Select

If Left(pvLlave, 1) = "\" Then pvLlave = Right(pvLlave, Len(pvLlave) - 1)
vll_ValRet = RegOpenKeyEx(vll_DirReg, pvLlave, 0, KEY_ALL_ACCESS, vll_hKey)

If vll_ValRet = 0 Then
If Not IsEmpty(pvDato) Then
Set vloWScript = CreateObject("WScript.Shell")
vloWScript.RegWrite vls_DirReg & "\" & pvLlave & "\" & pvValor, pvDato, vls_TipoDato
Set vloWScript = Nothing
End If

vll_ValRet = RegCloseKey(vll_hKey)
End If

GuardarValor = vll_ValRet
End Function

Public Function BorrarValor(ByVal pvTipoRegistro As eTipoRegistro, _
ByVal pvLlave As String, _
ByVal pvValor As String) As Long
Dim vll_ValRet As Long
Dim vll_DirReg As Long
Dim vll_hKey As Long
Dim vls_DirReg As String

Select Case pvTipoRegistro
Case eTipoRegistro.eMaquinaLocal
vll_DirReg = HKEY_LOCAL_MACHINE
vls_DirReg = "HKEY_LOCAL_MACHINE"
Case eTipoRegistro.eUsuarioActual
vll_DirReg = HKEY_CURRENT_USER
vls_DirReg = "HKEY_CURRENT_USER"
Case eTipoRegistro.eRaizClases
vll_DirReg = HKEY_CLASSES_ROOT
vls_DirReg = "HKEY_CLASSES_ROOT"
Case eTipoRegistro.eConfiguracionActual
vll_DirReg = HKEY_CURRENT_CONFIG
vls_DirReg = "HKEY_CURRENT_CONFIG"
End Select

vll_ValRet = RegOpenKeyEx(vll_DirReg, pvLlave, 0, KEY_ALL_ACCESS, vll_hKey)

If vll_ValRet = 0 Then
vll_ValRet = RegDeleteValue(vll_hKey, pvValor)

vll_ValRet = RegCloseKey(vll_hKey)
End If

BorrarValor = vll_ValRet
End Function

Public Function BorrarLlave(ByVal pvTipoRegistro As eTipoRegistro, _
ByVal pvLlave As String) As Long
Dim vll_ValRet As Long
Dim vll_DirReg As Long
Dim vll_hKey As Long
Dim vls_DirReg As String

Select Case pvTipoRegistro
Case eTipoRegistro.eMaquinaLocal
vll_DirReg = HKEY_LOCAL_MACHINE
vls_DirReg = "HKEY_LOCAL_MACHINE"
Case eTipoRegistro.eUsuarioActual
vll_DirReg = HKEY_CURRENT_USER
vls_DirReg = "HKEY_CURRENT_USER"
Case eTipoRegistro.eRaizClases
vll_DirReg = HKEY_CLASSES_ROOT
vls_DirReg = "HKEY_CLASSES_ROOT"
Case eTipoRegistro.eConfiguracionActual
vll_DirReg = HKEY_CURRENT_CONFIG
vls_DirReg = "HKEY_CURRENT_CONFIG"
End Select

vll_ValRet = RegDeleteKey(vll_DirReg, pvLlave)

BorrarLlave = vll_ValRet
End Function

Y si vienes tan retador como quieres aparentar, te darás cuenta de la existencia del uso de APIs de Windows.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Eso fue lo que pidieron

Publicado por Cracker (7 intervenciones) el 28/06/2005 05:54:08
Un detalle que no puede obviarse, debes ejecutar las instrucciones que te dí como usuario con permisos para escritura del registro, donde espero que entiendas, existen APIs y otros objetos.

Vaya clase de programador de virus saliste ser , si ni siquiera sabes escribir el registro de Güindous, intenta aprender algo bueno, aprende del Pingüino (LINUX is the light)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por edu_4000 (1 intervención) el 28/06/2005 17:06:26
Tio k sepas k tu codigo nu rula aunque era de esperar weno solo keria k lo supieses sabes pork no va pork no esta en ingles los codigos k me pusiste, o sera pork te inventaste todos los codigos?¿
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Foro de mier.............da

Publicado por Otto (3 intervenciones) el 28/06/2005 23:59:42
Sr. Cracker, Si sabe tanto por que no crea su propia página Web con foro y deja de limosnear en esta. Por otra parte, su manera de expresarse no es de una persona estructurada como dice serlo.

Y como es de esperarse, me imagino que también me insultará a mi, pero bueno, espero que reflexione y no desperdicie su tiempo e intelecto escribiendo insultos.

Saludos y espero que pueda sanar todos sus rencores.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar