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.
Cita de: Novlucker en 22 Julio 2013, 16:17 PM
no hay manera sin APIS
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Dim [RegEx] As New System.Text.RegularExpressions.Regex( _
<a><![CDATA[<div class=\"lo que sea\">(.*)<\/div>]]></a>.Value))Cita de: <housedir> en 22 Julio 2013, 07:30 AMesto es algo que me parece muy simple pero que vb.net como que lo hace dificil o complicado
Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
Dim [RegEx] As New System.Text.RegularExpressions.Regex("<inicio>(.*)\[fin\]")
MsgBox([RegEx].Match(str).Groups(1).ToString)
' Result: "bienvenidos" Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
Dim delimiter1 As String = "<inicio>", delimiter2 As String = "[fin]"
MsgBox(Split(Split(str, delimiter1)(1), delimiter2)(0)) ''' <summary>
''' Modify the User permissions of a registry key.
''' </summary>
Public Shared Sub Set_UserAccess_Key(ByVal RegKey As String, ByVal RegUserAccess As RegistryRights, ByVal AccessType As AccessControlType, Optional ByVal UserName As String = Nothing)
Dim user As String = UserName
Dim RootKey As RegistryKey = Get_Root_Key(RegKey)
Dim KeyPath As String = Get_Key_Path(RegKey)
If UserName Is Nothing Then user = Environment.UserDomainName & "\" & Environment.UserName
Dim RS As New RegistrySecurity()
Dim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
RS.AddAccessRule(New RegistryAccessRule(user, RegUserAccess, InheritanceFlags.None, PropagationFlags.None, AccessType))
RK.SetAccessControl(RS)
RK = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegUserAccess)
RK.SetAccessControl(RS)
End SubDim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
CitarDespues de mucho tocar y aun no se muy bien por que funciona,
Cita de: engelx en 20 Julio 2013, 06:04 AMpor otro lado hay paginas como freelancer
choice /B /C:1234 /N /S Mensajeif errorlevel 1 goto 1
if errorlevel 2 goto 2
if errorlevel 3 goto 3
if errorlevel 4 goto 4
if errorlevel 5 goto 5
if errorlevel 6 goto 6
if errorlevel 7 goto 7
if errorlevel 8 goto 8
if errorlevel 9 goto 9
if errorlevel 0 goto 0
if errorlevel a goto a
if errorlevel b goto b
if errorlevel c goto c
if errorlevel d goto d
if errorlevel e goto e
if errorlevel f goto f
if errorlevel g goto g
if errorlevel h goto h
if errorlevel i goto i
if errorlevel z goto z
if errorlevel x goto x
goto listaGOTO :%ERORLEVEL%Cita de: Novlucker en 20 Julio 2013, 23:45 PM¿Por qué no usas la que figura en la descarga de ese mismo post?
.