Mensajes

non lo que quiero yo es mira:

Puse Un webbrowser y le puse el link de una radio mira:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.potenciaweb.net/radiotour/playerRadioMorris.php"
End Sub


Lo que quiero yo es que al apretar un boton, no se escuche la radio, me entienden??

Si saben como hacer para que no se escuche mas la radio se los agradeceria...

Gracias de Antemano

Hola, Alguien se le ocurre una manera de Silenciar un Webbrowser?

Puse este Codigo pero no anda 

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
WebBrowser1.Silent = True
End Sub

Private Sub Command2_Click()
WebBrowser1.Silent = False
End Sub

Desde ya muchas gracias

smokes como t puedo agradecer? GRACIAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Me ayudaste 2 veces en un post,, GROSO!!

[AbajoT]

Me surgio un problema :S

Yo puse asi miren (en el evento change de txtlog, qe es un label)

Código (vb) [Seleccionar] Expandir

If txtlog.Caption = "Abajo" Then
AbajoT.Enabled = True
End if

Lo que AbajoT hace es:

Código (vb) [Seleccionar] Expandir

Private Sub AbajoT_Timer()
SendKeys ("{DOWN}")
End Sub

Pero si dice caption de txtlog = Abajo , no pasa nada :S [Alguna solucion?]

jaja x poco creaba una dll o.O

GRACiAS!!!!! me sirvio de mucho

y la sintaxis como sería ?

Así?

Private Sub Label1_Change(.caption= Izquierda)
   '######Codigo a ejecutar#######
End Sub

no tngo la menor idea yo :S

porque yo quiero q si el caption del label 1 diga Izquierda, se ejute la accion q yo quiero, no q se ejecute si el caption cambia, entienden?

Hola, Gracias x responder, pero no se como se usa el Evento Change() porfavor me explican? o algun manual o algo.

Gracias 

Como Verán, lo que quiero hacer es que si en txtlog(label) el caption dice "Arriba" x ejemplo se presione VbKeyUp

Me dan Alguna idea o corregirme este código? (Se me Ocurrio a mi de esa Manera, pero no anda :S)

Código:

Código (vb) [Seleccionar] Expandir

Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 

 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
   
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub

Private Sub AbajoT_Timer()
Call Pulsar_Tecla(vbKeyDown)
End Sub

Private Sub ArribaT_Timer()
Call Pulsar_Tecla(vbKeyUp)
End Sub

Private Sub bntListen_Click()
On Error GoTo errorSub

    With Winsock1
        .Close
        .LocalPort = txtPort
        .Listen
    End With

Exit Sub
errorSub:
MsgBox "Error : " & Err.Description, vbCritical
End Sub

Private Sub bntSend_Click()
On Error GoTo errorSub

    Winsock1.SendData txtSend
   
    txtlog = txtlog & "Servidor : " & txtSend & vbCrLf
    txtSend = ""

Exit Sub
errorSub:
MsgBox "Error : " & Err.Description

Winsock1_Close
End Sub


Private Sub DerechaT_Timer()
Call Pulsar_Tecla(vbKeyRight)
End Sub

Private Sub Form_Load()

Call bntListen_Click

AbajoT.Enabled = False
ArribaT.Enabled = False
DerechaT.Enabled = False
IzquierdaT.Enabled = False

If txtlog.Caption = "Abajo" Then
AbajoT.Enabled = True
ArribaT.Enabled = False
DerechaT.Enabled = False
IzquierdaT.Enabled = False
End If

If txtlog.Caption = "Arriba" Then
AbajoT.Enabled = False
ArribaT.Enabled = True
DerechaT.Enabled = False
IzquierdaT.Enabled = False
End If

If txtlog.Caption = "Derecha" Then
AbajoT.Enabled = False
ArribaT.Enabled = False
DerechaT.Enabled = True
IzquierdaT.Enabled = False
End If

If txtlog.Caption = "Izquierda" Then
AbajoT.Enabled = False
ArribaT.Enabled = False
DerechaT.Enabled = False
IzquierdaT.Enabled = True
End If

End Sub

Private Sub IzquierdaT_Timer()
Call Pulsar_Tecla(vbKeyLeft)
End Sub

Private Sub Winsock1_Close()
    ' Finaliza la conexión
    Winsock1.Close

    txtlog = txtlog & "*** Desconectado" & vbCrLf

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   
    If Winsock1.State <> sckClosed Then
        Winsock1.Close ' close
    End If

    Winsock1.Accept requestID
   
    txtlog = "Cliente conectado. IP : " & _
              Winsock1.RemoteHostIP & vbCrLf
             


End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Winsock1.GetData dat, vbString
    txtlog = dat & vbCrLf




End Sub

' cuando se produce un error lo envía
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Winsock1_Error(ByVal Number As Integer, _
                           Description As String, _
                           ByVal Scode As Long, _
                           ByVal Source As String, _
                           ByVal HelpFile As String, _
                           ByVal HelpContext As Long, _
                           CancelDisplay As Boolean)

    txtlog = txtlog & "*** Error : " & Description & vbCrLf

    Winsock1_Close

End Sub

Gracias de Antemano

[CLIENTE:]

Tengo un problema, yo estaba haciendo un programita que le envie a mi NOTBUK que teclas estoy apretando (Arriba,Abajo,Derecha,Izquierda) probé poniendo la IP de mi notbuk y no funciona. Después puse la ip de mi pc fija y tampoco anda y más tarde puse 127.0.0.1 y tampoco :S.

Les dejo los Codigos del cliente y Servidor:

CLIENTE:

Código (vb) [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vbkey As Long) As Integer

Private Sub Form_Load()
With Winsock1
        .Close
        .RemoteHost = "127.0.0.1" ' También probe poniendo "localhost"
        .RemotePort = "1660"
        .Connect
    End With
   
    Winsock1.SendData Label1
   
End Sub

Private Sub Timer1_timer()



Dim i As Integer
'
For i = 8 To 222

x = GetAsyncKeyState(i)

If x = -32767 Then

Select Case i
Case vbKeyLeft: Label1.Caption = "Izquierda"
Case vbKeyUp: Label1.Caption = "Arriba "
Case vbKeyDown: Label1.Caption = "Abajo"
Case vbKeyRight: Label1.Caption = "Derecha"
End Select

End If
Next
End Sub


SERVIDOR:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
With Winsock1
        .Close
        .LocalPort = "1660"
        .Listen
    End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Winsock1.GetData dat, vbString
    Label1 = dat & vbCrLf

End Sub

Espero que me puedan ayudar.