• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 4 رای - 2.25 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد چک کردن وضعیت ایدی یاهو (ویژوال بیسیک 6)
حالت موضوعی
#1
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,632 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 7,997 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 3,963 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  فیلتر کردن دیتا گرید aghamali 4 5,916 11-15-2014، 10:50 AM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 7,856 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 5,970 06-07-2014، 09:19 PM
آخرین ارسال: aleas

پرش به انجمن:


Browsing: 3 مهمان