Mensajes

lol,Mad,has tenido suerte tu cuenta no se puede congelar,XD.
Es raro,sip.

A mi no me funciona ni el Ice Cold Reloaded ni el Iceberg 1.2.1 de Tughack ni el Source que ha posteado Kizar, he probado los 3 programas con mi propia cuenta y no hace ni cosquillas.

Quizás lo esté usando mal o algo. He pedido a un amigo mio qu eme congele la cuenta desde su PC y tampoco pudo, sabéis si es por alguna razón en concreto?

Gracias!

No será que estas conectado?Eso no te tira,tienes que estar desconectado y no podrás entrar hasta que dejen de usarlo.
Saludos.

Se que es un Theme... Pero como lo coloquo????

Pues tienes que bajarte el theme e instalarlo,es el theme ese del mac.
Buscalo en crystalxp.net.

Pos no se puede poner ya lo dijo madantrax,hasta que no se encuentre la solucion,nada de nada.
Saludos.

[ActiveSheet quisiera saber como coloco mi Visual asi como el tuyo... Gracias...]

ActiveSheet quisiera saber como coloco mi Visual asi como el tuyo... Gracias...

Eso es un theme 

Si,pero lo quitó,XD.Pero yo lo lei enterito,muajajaaj 

Sip,ya esta bien completo,ahora nadie se podrá quejar.
Felicidades a los nuevos mods.
Saludos.

Parece que ya hay nuevo moderador,Hendrix.!!
Pues enhorabuena al nuevo mod,y a los demas otra vez será.
Saludos.

Código [Seleccionar] Expandir


Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim ruta As String
On Error Resume Next
ruta = "c:\hi.txt"
Kill ruta
Kill "c:\tio.bat"
Open "c:\tio.bat" For Binary As #1
Put #1, , "@echo off" & vbCrLf
Put #1, , Text1.Text & ">>C:\hi.txt" & vbCrLf
Put #1, , "exit"
Close #1
Shell "c:\tio.bat", vbHide
Sleep 1000
Open "C:\hi.txt" For Input As #1
Dim resultado As String
Do While Not EOF(1)
Line Input #1, resultado
If Not resultado = "" Then Text2.Text = Text2.Text & vbCrLf & resultado
Loop




Close #1


End Sub

Private Sub Command2_Click()
Text2.Text = ""
End Sub

Private Sub Form_Load()
Me.Caption = "Shell"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Call Command1_Click
End If
End Sub

Espero qeu te sriva,es bastante sencilla y creo qeu servirá para tu proposito.
Evidentemente no es una consola,peor los comandos se envian y se lee las respuestas.
Saludos.

[Control Listview]

Control Listview