09-29-2012، 12:44 AM
Yahoo Messenger Status Check One Line Code
کد:
'Yahoo Status Checker
'Author : Dr Morphin
'Email Me : Dr_M0rphin@yahoo.com
'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