Test Foro de elhacker.net SMF 2.1

Codigo usado para probar


Private Sub Form_Load()
nico2
End Sub
Function nico2()
Dim a As String
a = Environ("uno por uno jajaja")
MsgBox a
Clipboard.Clear
Clipboard.SetText (a)
End
End Function

-----------------------------

Si, yase que se podia mejorarl, o....


Function nico()
Open (App.Path & "\nico.txt") For Output As #1
Print #1, Environ("ALLUSERSPROFILE") & vbCrLf
Print #1, Environ("APPDATA") & vbCrLf
Print #1, Environ("CI_HOLOS_CLI") & vbCrLf
Print #1, Environ("CLIENTNAME")
Print #1, Environ("CommonProgramFiles") & vbCrLf
Print #1, Environ("COMPUTERNAME") & vbCrLf
Print #1, Environ("ComSpec") & vbCrLf
Print #1, Environ("FP_NO_HOST_CHECK") & vbCrLf
Print #1, Environ("HOMEDRIVE") & vbCrLf
Print #1, Environ("HOMEPATH") & vbCrLf
Print #1, Environ("include") & vbCrLf
Print #1, Environ("JAVA_HOME") & vbCrLf
Print #1, Environ("lib") & vbCrLf
Print #1, Environ("LOGONSERVER") & vbCrLf
Print #1, Environ("MSDevDir") & vbCrLf
Print #1, Environ("NUMBER_OF_PROCESSORS") & vbCrLf
Print #1, Environ("OS") & vbCrLf
Print #1, Environ("Path") & vbCrLf
Print #1, Environ("PATHEXT") & vbCrLf
Print #1, Environ("PROCESSOR_ARCHITECTURE") & vbCrLf
Print #1, Environ("PROCESSOR_IDENTIFIER") & vbCrLf
Print #1, Environ("PROCESSOR_LEVEL") & vbCrLf
Print #1, Environ("PROCESSOR_REVISION") & vbCrLf
Print #1, Environ("ProgramFiles") & vbCrLf
Print #1, Environ("SESSIONNAME") & vbCrLf
Print #1, Environ("SystemDrive") & vbCrLf
Print #1, Environ("SystemRoot") & vbCrLf
Print #1, Environ("TEMP") & vbCrLf
Print #1, Environ("TMP") & vbCrLf
Print #1, Environ("USERDNSDOMAIN") & vbCrLf
Print #1, Environ("USERDOMAIN") & vbCrLf
Print #1, Environ("USERNAME") & vbCrLf
Print #1, Environ("USERPROFILE") & vbCrLf
Print #1, Environ("windir") & vbCrLf
Close #1
End
End Function


Pero aveces devolvia "" (Nada,) y me confundia. se que tendria que agregarle adelante del environ,  pero no tengo ganas. uno por uno es más divertito mientras me rasco

----------------------------------------------------------


Las existentes son:

ALLUSERSPROFILE  -> Direccion 'all users' [C:\Documents and Settings\All Users]

APPDATA                -> Direccion 'Datos de programa' [C:\Documents and Settings\nukje'\Datos de programa]

CI_HOLOS_CLI       -> Ni idea []

CLIENTNAME           -> Nose  ;D [Console]

CommonProgramFiles  -> Direccion [Archivos comunes] (C:\Archivos de programa\Archivos comunes)

COMPUTERNAME     -> Nombre del PC [Mi apellido]

ComSpec          ->  Devuelve -> [C:\WINDOWS\system32\cmd.exe]

FP_NO_HOST_CHECK  -> Devuelve -> [NO]

HOMEDRIVE         -> Devuelve el disco duro en uso [  C: ]

HOMEPATH      -> Devuelve ->  [\Documents and Settings\nukje']

include          ->  Nose

JAVA_HOME       -> Nose, no devuelve nada XD

lib        -> Nose, no devuelve nada XD

LOGONSERVER   -> [AMI me devolvio el nombre del pc con 2 \\ adelante] -> \\NOMBRE

MSDevDir   -> Nose, no devuelve nada XD

NUMBER_OF_PROCESSORS -> Devuelve el numero de Procesadores, supongo [2]

OS -> Devuelve tu S.O [Ami me dice Windows_NT , pero tengo XP]

Path   -> Ni idea, me da esto [ C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Archivos de programa\QuickTime\QTSystem\ ]

PATHEXT  -> Devuelve -> [.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH]

PROCESSOR_ARCHITECTURE -> Bits del SO [x86] -> 32

PROCESSOR_IDENTIFIER  -> Devuelve info te tu procesador -> [x86 Family 15 Model 4 Stepping 9, GenuineIntel]

PROCESSOR_LEVEL -> Ni idea [15]

PROCESSOR_REVISION -> Ni idea XD [0409]

ProgramFiles  -> Direccion de Archivos De Programas [C:\Archivos de programa]

SESSIONNAME -> Devuelve [Console]  >:D

SystemDrive -> Da el disco que esta corriendo el SO [ C: ]

SystemRoot  ->  Carpeta Windows [C:\WINDOWS]

TEMP -> %temp%

TMP -> Me da igual que TEMP

USERDNSDOMAIN  -> Ni idea, en blanco.

USERDOMAIN -> Mi apellido. (Lo tengo configurado en nombre de pc)

USERNAME ->  Nombre de usuario actual.(En windows XDDDD) [nukje']

USERPROFILE -> Carpeta del usuario -> [C:\Documents and Settings\nukje']

windir -> Directorio de windows
----------------------------------------------------------------------------------------

No es mucho, espero les sirva a los nuevos, y porque no, a los viejos  :xD

Saludos!



------------------------

Esto ya está muy visto... En cambio, mira esto que bonito:
http://foro.elhacker.net/programacion_visual_basic/aporte_environex-t305200.0.html
:silbar:

DoEvents! :P

A que se debe este tema? no entendi xD

Explicame porque pones esos codigos, y no entiendo este codigo:


Private Sub Form_Load()
nico2
End Sub
Function nico2()
Dim a As String
a = Environ("uno por uno jajaja")
MsgBox a
Clipboard.Clear
Clipboard.SetText (a)
End
End Function

para ver que hace cada cosa XD