VNP Community

Tags
This content has not been tagged yet
> Làm 1 chương trình Check Online  
 Reply to this topicStart new topic
TrungDung
post Apr 15 2006, 11:09 PM
Post #1


No Predestinedation
Group Icon

Group: Admin
Posts: 413
Cash: 13,372k
Age: 24
Joined: 27-October 05
From: Hà Nội
Member No.: 8,880
Yahoo! Status:



Trước tiên các bạn tạo ra 1 Form Stadard.EXE với VB6.
Sau đó tạo 1 Command và 1 Text box như hình dưới:


Với Check Online các bạn cần Add thêm 1 điều khiển mới đó là Inet Các bạn ấn Ctrl + T để Add thêm điều khiển và tìm đến Microsoft Internet Transfer Controls 6.0 đánh dấu vào như hình dưới:

Sau đó tạo ra 1 Inet trong Form:


Tiếp theo các bạn tìm đến điều khiển Image và tạo ra 2 Image sau đó Brower đến 2 Image tôi gửi kèm theo.1 cái thể hiện online 1 cái thể hiện offline:


Chú ý Image 1 sẽ là biểu tượng Online Image 2 là biểu tượng offline.Sau đó cho 2 cái đè lên nhau như hình dưới:

Như vậy Form thiết kế đã xong.

This post has been edited by TrungDung: Apr 15 2006, 11:13 PM
Attached File(s)
Attached File  Image.zip ( 2.59K ) Number of downloads: 77
 
Go to the top of the page
 
+Quote Post
Game Online
TrungDung
post Apr 15 2006, 11:29 PM
Post #2


No Predestinedation
Group Icon

Group: Admin
Posts: 413
Cash: 13,372k
Age: 24
Joined: 27-October 05
From: Hà Nội
Member No.: 8,880
Yahoo! Status:



Tiếp theo là Code
Các bạn trước tiên viết Code cho Form.Chỉ chuột vào Form và Click Dúp các bạn sẽ thấy hiện lên bảng mã:
Private Sub Form_Load()

End Sub

Copy đoạn mã này vào:

MsgBox "Chuong Trinh Check Online - vnpower.org"
Image1.Visible = False
Image2.Visible = False

Tiếp theo viết Code cho Command Check các bạn Click dúp vào Command Check sẽ thấy:
Private Sub Command1_Click()

End Sub

Copy đoạn mã này vào :

Dim StatVar As String
If Inet1.StillExecuting Then Exit Sub
DoEvents
StatVar = Inet1.OpenURL("http://opi.yahoo.com/online?u=" & Text1 & "&m=j")
DoEvents
If InStr(StatVar, "NOT ONLINE") Then
Image1.Visible = False
Image2.Visible = True
ElseIf InStr(StatVar, "ONLINE") Then
Image1.Visible = True
Image2.Visible = False
Else
Me.Caption = "Xem Lai Yahoo ID!!!"
Image1.Visible = False
Image2.Visible = False
End If
Sau đó các bạn chỉ việc tạo chương trình.
Nhớ là phải kèm theo File MsNet.ocx



Tôi có gửi kèm chương trình hoàn chỉnh các bạn có thể xem.

Tiếp theo tôi sẽ giải tích Code.
Attached File(s)
Attached File  Check_Online.zip ( 12.99K ) Number of downloads: 83
 
Go to the top of the page
 
+Quote Post
TrungDung
post Apr 15 2006, 11:38 PM
Post #3


No Predestinedation
Group Icon

Group: Admin
Posts: 413
Cash: 13,372k
Age: 24
Joined: 27-October 05
From: Hà Nội
Member No.: 8,880
Yahoo! Status:



Private Sub Form_Load()
MsgBox "Chuong Trinh Check Online - vnpower.org" :Sau khi các bạn mở chương trình thì trước khi chương trình hiện lên sẽ hiện 1 bảng thông báo.
Image1.Visible = False
Image2.Visible = False
End Sub
Lệnh cho các Image1 và 2 ko hiển thị khi chương trình hoạt động.
------------------------

Private Sub Command1_Click()
Dim StatVar As String ~~> Khai báo StatVar theo dạng chuỗi.
If Inet1.StillExecuting Then Exit Sub ~~> nếu Inet1 đang thi hành lệnh nào đó thì nó sẽ phải ngừng hoạt động ngay.
DoEvents
StatVar = Inet1.OpenURL("http://opi.yahoo.com/online?u=" & Text1 & "&m=j") ~~> Inet1 sẽ truy cập tới Server yahoo để tìm hiểu hiện trạng ID mà ta đang Check.
DoEvents
If InStr(StatVar, "NOT ONLINE") Then
Image1.Visible = False
Image2.Visible = True ~~> Nếu nhận được thông tin từ Server ID Off thì Image1 là biểu tượng online sẽ ko hiển thị và biếu tượng Image2 Off sẽ hiển thị.
ElseIf InStr(StatVar, "ONLINE") Then
Image1.Visible = True
Image2.Visible = False ~~> Như trên nhưng ngược lại.
Else ~~> Trừ khi
Me.Caption = "Xem Lai Yahoo ID!!!" Title TrungDung Check Online sẽ đổi thành "Xem Lai Yahoo ID" nếu như ID ko hợp lệ.
Image1.Visible = False
Image2.Visible = False ~~> 2 Image sẽ ko hiển thị.
End If
End Sub

This post has been edited by TrungDung: Apr 15 2006, 11:39 PM
Go to the top of the page
 
+Quote Post
Mr_Moe
post Apr 24 2006, 02:24 PM
Post #4


Junior Member
Group Icon

Group: Member
Posts: 19
Cash: 0k
Age: N/A
Joined: 7-April 06
Member No.: 11,400
Yahoo! Status: N/A
Khi người đó online mà đặt chế độ Ẩn thì chương trình này ko Check được ..................nó toàn báo Offline thôi 2.gif Mong anh TrungDung check lại thử !
Go to the top of the page
 
+Quote Post
-Angel-43v3r-
post Apr 30 2006, 07:28 PM
Post #5


Wife of ATHK | Forever
Group Icon

Group: Member
Posts: 126
Cash: 0k
Age: N/A
Joined: 29-March 06
Member No.: 11,131
Yahoo! Status: N/A
QUOTE (Mr_Moe @ Apr 24 2006, 02:24 PM)
Khi người đó online mà đặt chế độ Ẩn thì chương trình này ko Check được ..................nó toàn báo Offline thôi  2.gif Mong anh TrungDung check lại thử !
*


Là do chương trình này hoạt động trên web của yahoo.
Link: http://opi.yahoo.com/online?u=tênnick
Nếu để status ẩn thì trang web này cũng báo là ẩn.
Tóm lại trang web này báo theo status của người dùng ==> chương trình này cũng thế.
Go to the top of the page
 
+Quote Post
NoobYahoo
post Apr 30 2006, 07:50 PM
Post #6


Yahoo! Baby
Group Icon

Group: Member
Posts: 78
Cash: 0k
Age: N/A
Joined: 3-April 06
From: --♡->
Member No.: 11,307
Yahoo! Status:



Nếu muốn kiểm tra online toàn diện 100% chính xác, bạn cần Login 1 ID, và gửi 1 packet đến nick cần kiểm tra (packet peer to peer)
Ở đây mình sẽ viết packet, chứ không viết login!!! vì cách login thì trong mấy bài viết của bác TD giới thiệu rất kỹ rồi (trong các bài về boot)

Ở đây không gửi packet boot, mà ngược lại là gửi packet peer to peer (P2P) để kiểm tra online !!!!

QUOTE
Public Function CheckOnline(WhoFrom As String, WhoTo As String) As String
    Dim Pck As String
    Pck = "4À€" & WhoFrom & "À€1À€" & WhoFrom & "À€4À€" & WhoFrom & "À€12À€MTY3NzgzMDMzNg==À€61À€0À€2À€À€5À€" & WhoTo & "À€13À€7À€49À€PEERTOPEERÀ€"
   CheckOnline = Header("4F", Pck) 'Thêm Header vào packet để hoàn chỉnh Format của một YMSG packet
End Function


để gửi packet dùng winsock:

Winsock1.SendData CheckOnline("nickmuoncheck")

Sau khi gửi packet, sẽ có một packet được trả về máy của bạn bởi yahoo, cần kiểm tra packet này để biết nick có tồn tại, online, offline

QUOTE
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data as String
   Winsock1.GetData Data
   If Mid(Data, 12, 1) = "O" Then 'Check Online Offline
      If InStr(1, Data, "ÿÿÿÿ") And LCase(Split(Data, "À€")(1)) <> LCase(YMSG.ID) Then 'YMSG.ID là ID nick bot của bạn
         MsgBox "The user " & Split(Data, "À€")(1) & " is ONLINE"
      Else
         MsgBox "The user " & Split(Data, "À€")(3) & " is OFFLINE"
      End If
   End If
End Sub


This post has been edited by NoobYahoo: Apr 30 2006, 07:53 PM
Go to the top of the page
 
+Quote Post
_Gh0st_
post Aug 20 2008, 11:40 AM
Post #7


Yahoo! Playa
Group Icon

Group: Trader
Posts: 265
Cash: 265k
Age: 22
Joined: 11-June 08
Member No.: 110,413
Yahoo! Status: N/A
Nhớ là phải kèm theo File MsNet.ocx
cho mình hỏi cái file đấy gắn nó vào đâu và 2 cái imager có fai viết code cho nó ko và muốn chèn ảnh vào form thì làm thế nào mình mới học về cái này mong các bro chỉ dạy 4.gif
Go to the top of the page
 
+Quote Post
Yeu3mdaikho
post Aug 20 2008, 08:16 PM
Post #8


--*Crack*Team*--
Group Icon

Group: Moderator
Posts: 723
Cash: 583k
Age: 18
Joined: 30-March 07
From: --*Thiên đường*--
Member No.: 23,139
Yahoo! Status:



Post #2 link Attach die rồi anh TD ơi !
Go to the top of the page
 
+Quote Post
WOLFBOY
post Aug 20 2008, 08:42 PM
Post #9


The L0n3ly \\//\\//OLF
Group Icon

Group: Admin
Posts: 2,560
Cash: 1,673k
Age: 20
Joined: 27-February 07
From: 1 Nơi Xa Lắm
Member No.: 22,139
Yahoo! Status:



QUOTE
Nhớ là phải kèm theo File MsNet.ocx
cho mình hỏi cái file đấy gắn nó vào đâu và 2 cái imager có fai viết code cho nó ko và muốn chèn ảnh vào form thì làm thế nào mình mới học về cái này mong các bro chỉ dạy 4.gif

Ở trên hướng dẫn chi tiết đến vậy rồi mà bạn! có hình ảnh và lời hướng dẫn bạn chỉ cần đọc và xem kỹ 1 chút là làm đc thôi!

Còn file MsNET.ocx thì bạn có thể search trên mạng hoặc vào Topic All Missing Files trong 4rum tìm là có thể thấy! Chỉ cần cho nó vào cùng thư mục với chương trình thôi!
Go to the top of the page
 
+Quote Post
_Gh0st_
post Aug 21 2008, 03:11 AM
Post #10


Yahoo! Playa
Group Icon

Group: Trader
Posts: 265
Cash: 265k
Age: 22
Joined: 11-June 08
Member No.: 110,413
Yahoo! Status: N/A
gắn nó vào ah sao không thấy nó chạy gì vậy ta
Go to the top of the page
 
+Quote Post
TrungDung
post Aug 27 2008, 07:48 PM
Post #11


No Predestinedation
Group Icon

Group: Admin
Posts: 413
Cash: 13,372k
Age: 24
Joined: 27-October 05
From: Hà Nội
Member No.: 8,880
Yahoo! Status:



Vấn đề là phải thay đổi server login cho Bot kiểm tra và thay đổi packet check.
TD sẽ hướng dẫn cho các bạn trong tuần tới.
Go to the top of the page
 
+Quote Post
Liêm.TV
post Oct 6 2008, 02:13 PM
Post #12


Yahoo! Playa
Group Icon

Group: Trader
Posts: 103
Cash: 104k
Age: N/A
Joined: 30-April 08
Member No.: 106,581
Yahoo! Status: N/A
khi cài xong em bật lên nó bị lỗi anh ơi

Go to the top of the page
 
+Quote Post
TrungDung
post Oct 7 2008, 09:07 AM
Post #13


No Predestinedation
Group Icon

Group: Admin
Posts: 413
Cash: 13,372k
Age: 24
Joined: 27-October 05
From: Hà Nội
Member No.: 8,880
Yahoo! Status:



Chương trình này cũ rồi.
TD sẽ hướng dẫn các bạn sử dụng nick bot để check online với tỉ lệ chính xác là 100%.
Go to the top of the page
 
+Quote Post
 
BBCode:
HTML:
  Digg this topic · Save to del.icio.us · Slashdot It · Post to Technorati · Post to Furl · Submit to Reddit · Share on Facebook · Fark It · Googlize This Post · Add to ma.gnolia · Tag to Wink · Add to MyWeb · Add to Netscape
 Reply to this topicStart new topic
1 User(s) are reading this topic [1 Guests and 0 Anonymous Users]
0 Members:

 


Collapse

> Links to this thread

Page             Date Hits
đoạn m check status yahoo - Tm với Google 3rd December 2008 - 10:06 PM   1

RSS Lo-Fi Version Time is now: 5th December 2008 - 09:36 AM
VNPower
Powered By IP.Board 2.3.6 © 2008  IPS, Inc.
VNP © 2008 :: Founded by PETER :: Developed by VNP's members.