+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس کد چک کردن وضعیت ایدی یاهو (ویژوال بیسیک 6) (/showthread.php?tid=2798)
سورس کد چک کردن وضعیت ایدی یاهو (ویژوال بیسیک 6) - Amin_Mansouri - 09-29-2012
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