Mensajes

Usa un programa que se llama Cheat Engine buscalo en google.

Pues sera que tienes un router o algo que este bloqueando ese puerto no se... pero eso ya no creo que sea problema del visual basic.

Esta muy bueno

Amigo no quiero ser grocero pero Que #|@# tiene que ver VB6?

Muchas gracias por contestar tan rapido  .
Me pasa en el P.C donde compilo con VB

Entonces has lo que te dijo Freeze.

mmm eso te pasa en la pc donde compilas con VB o cuando se lo pasas a un amigo o que?

You can try connecting with Winsock if it success then it is working.

EDIT:

Something like this:

Add a Winsock control called WS.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
    If CheckNOIPStatus(WS, "google.com", 80) = True Then
        MsgBox "It's working"
    Else
        MsgBox "U_U"
    End If
End Sub

Private Function CheckNOIPStatus(ByVal Winsock As Winsock, ByVal Host As String, ByVal Port As Integer) As Boolean
    Dim OMFG As Long
   
    Winsock.RemoteHost = Host
    Winsock.RemotePort = Port
   
    Winsock.Connect
    DoEvents
   
    While OMFG < 200000
        OMFG = OMFG + 1
        DoEvents
    Wend
   
    If Winsock.State = sckConnected Then
        CheckNOIPStatus = True
    End If
End Function



I am not sure if that is what you want...

BUSCA                                                                                               BUSCA
        BUSCA                                                                              BUSCA
                BUSCA                                                              BUSCA
                        BUSCA-----------------------------------BUSCA

El que busca encuentra ^^.

pero esa es la idea de recorrer item a item y obtener el contenido del item y ponerlo en una etiketa.. lo pusiste en un msgbox y tuve que darle 177 click  ...

Si no quieres que te vuelva a pasar ve el codigo que vas a ejecutar primero xD.

Hola, coco , no se si ya lo viste pero vi un codigo en C++ para cambiar lo de "lo que estoy escuchando" en visual basic tambien esta por ahi lo vi...

Lo vi, pero en VB6.. no es justamente lo que estoy buscando yo, gracias igual 

Lo que yo busco, por si no entendieron bien el primer post, es obtener los valores de el mensaje personal, y la cancion que escucho actualmente; ya que el objeto messenger (obtenido por api) no tiene esos valores por ningun lado!....
Yo propuse un plug in porque fue lo primero que se me vino a la cabeza.. Mas que nada porque no quiero usar el messenger plus (script); porque con este si puedo acceder a esas variables, pero como comente, no lo quiero usar...

saludos

ojala y te sirva  (editalo agusto tuyo) ES para poner lo que estas escuchando en messenger:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Type COPYDATASTRUCT
  dwData As Long
  cbData As Long
  lpData As Long
End Type

Private Const WM_COPYDATA = &H4A
Public Sub MSNMusic(ByRef r_sArtist As String, ByRef r_sAlbum As String, ByRef r_sTitle As String, Optional ByRef r_sWMContentID As String = vbNullString, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True)
   Dim udtData As COPYDATASTRUCT
   Dim sBuffer As String
   Dim hMSGRUI As Long
   sBuffer = "\0Music\0" & Abs(r_bShow) & "\0" & r_sFormat & "\0" & r_sArtist & "\0" & r_sTitle & "\0" & r_sAlbum & "\0" & r_sWMContentID & "\0" & vbNullChar
   udtData.dwData = &H547
   udtData.lpData = StrPtr(sBuffer)
   udtData.cbData = LenB(sBuffer)
   Do
       hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)
       If (hMSGRUI > 0) Then
           Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
       End If
   Loop Until (hMSGRUI = 0)
End Sub


....... El dijo que no era eso lo que queria.