Ver si ElHacker.Net está siendo DDoseado. Si lo está, la rabia me inunda.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Randomize en 9 Octubre 2014, 09:42 AM
Confiesa, hombre, confiesa, seguro que en el fondo a tu ex-mujer la querías un poquitin más, por lo menos la querías un poquitín más "perder de vista" (que es lo más normal, no conozco tu caso, si te hablo de mí, hay unas cuantas que quiero perder de vista y he de tragarlas a menudo).
Cita de: Randomize en 9 Octubre 2014, 09:42 AMMi mascota fue excepcional hacía cosas que no le enseñábamos, con eso te lo digo todo. Supongo que como todas las mascotas, pero...
Cita de: Randomize en 9 Octubre 2014, 06:37 AMSolo aquellos que hemos tenido/tenemos mascota hacemos el sentimiento...
CitarThe pin list is for users to put their favorite icons. It is not the place for a program to decide unilaterally, "I am so cool. I am your favorite icon. I just know it. So I'll put myself there because, well, I'm so cool."
ItemPinner(Process.GetCurrentProcess.MainModule.FileName, PinState.PinToTaskBar)
' ItemPinner
' ( By Elektro )
'
' Instructions:
' 1. Add a reference to 'Microsoft Shell Controls And Automation'
'
' Usage Examples:
' ItemPinner("C:\Application.exe", PinState.PinToTaskBar)
''' <summary>
''' Specifies the Pin state for an Item.
''' </summary>
Public Enum PinState As Integer
''' <summary>
''' Pins an Item onto TaskBar.
''' </summary>
PinToTaskBar = 0I
''' <summary>
''' Unpins an Item from TaskBar.
''' </summary>
UnpinFromTaskBar = 1I
''' <summary>
''' Pins an Item onto Start Menu.
''' </summary>
PinToStartMenu = 2I
End Enum
''' <summary>
''' Pins or unpins an item onto TaskBar or StartMenu.
''' A pinned item in the StartMenu can't be unpinned.
''' </summary>
''' <param name="filePath">The file path.</param>
''' <param name="pinState">State of the pin.</param>
Public Shared Sub ItemPinner(ByVal filePath As String, ByVal pinState As PinState)
' Localized verb names to pin an item onto TaskBar.
Dim pinTaskbarVerbs As String() =
{
"pin to taskbar",
"anclar a la barra de tareas"
}
' Localized verb names to unpin an item from TaskBar.
Dim unpinTaskbarVerbs As String() =
{
"unpin from taskbar",
"desanclar de la barra de tareas"
}
' Localized verb names to pin an item onto StartMenu.
Dim pinStartMenuVerbs As String() =
{
"pin to start menu",
"anclar a inicio"
}
' ShellApplication Class Instance.
Dim shell As New Shell
' Gets the item to check for its pin/unpin verb and invoke it later.
Dim link As FolderItem = shell.[NameSpace](Path.GetDirectoryName(filePath)).
ParseName(Path.GetFileName(filePath))
' The item-verb to invoke.
Dim verb As FolderItemVerb = Nothing
Select Case pinState
Case pinState.PinToTaskBar
verb = (From ItemVerb As Object In link.Verbs
Where pinTaskbarVerbs.Contains(DirectCast(ItemVerb, FolderItemVerb).
Name.Replace("&"c, String.Empty).ToLower)
Select DirectCast(ItemVerb, FolderItemVerb)
).FirstOrDefault
Case pinState.UnpinFromTaskBar
verb = (From ItemVerb As Object In link.Verbs
Where unpinTaskbarVerbs.Contains(DirectCast(ItemVerb, FolderItemVerb).
Name.Replace("&"c, String.Empty).ToLower)
Select DirectCast(ItemVerb, FolderItemVerb)
).FirstOrDefault
Case pinState.PinToStartMenu
verb = (From ItemVerb As Object In link.Verbs
Where pinStartMenuVerbs.Contains(DirectCast(ItemVerb, FolderItemVerb).
Name.Replace("&"c, String.Empty).ToLower)
Select DirectCast(ItemVerb, FolderItemVerb)
).FirstOrDefault
Case Else ' Do Nothing.
Exit Select
End Select
If verb IsNot Nothing Then
verb.DoIt() ' Invoke the verb.
End If
End Sub
Option Explicit
Dim objFSO, objShell, fullpath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
fullpath = objShell.ExpandEnvironmentStrings("%UserProfile%\Archivo.txt")
Select Case objFSO.FileExists(fullpath)
Case False ' El archivo no existe.
objFSO.CopyFile "C:\Archivo.txt", fullpath
objShell.Run(fullpath)
Case else ' El archivo existe.
' Do Nothing
End Select
WScript.Quit(0)
Cita de: Randomize en 8 Octubre 2014, 22:56 PM
VirtualBox, no necesitas buscar medicina y hace exactamente lo mismico que la VMware.
Cita de: el-brujo en 8 Octubre 2014, 10:05 AM
También puedes usar http://i.elhacker.net el sevicio de subir imágenes oficial xD