• Home
 · 
• Internet/HTML
 · 
• Yahoo Messenger Status Check One Line Code

Yahoo Messenger Status Check One Line Code

Yahoo Messenger Status Check One Line Code

Rate Yahoo Messenger Status Check One Line Code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Author : Dr Morphin
'Email Me : [email protected]
'Just Check from One Link
'===================================
Option Explicit

Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://opi.yahoo.com/online?u=" & Text2.Text & "&m=t")
End Sub

Private Sub Form_Load()
 App.TaskVisible = True
End Sub

Private Sub Image2_Click()
 End
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 3 Then
Text1.Text = "Plz Wait"

End If
If State = 11 Then
Text1.Text = "Try Again"
End If
If Err = 35761 Then
Text1.Text = "Try Again"
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub