by Dr Morphin (8 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 14th October 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Yahoo Messenger Status Check One Line Code
'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