CheckQQ是否在线

最新推荐文章于 2022-03-29 14:02:11 发布

ssihc0

最新推荐文章于 2022-03-29 14:02:11 发布

阅读量613

点赞数

文章标签： webbrowser textbox vb.net button class

本文链接：https://blog.csdn.net/ssihc0/article/details/3053964

版权

VB.NET code

  
  
   
   
   
   

   
   Public
   
    
   
   Class
   
    CheckQQ

    
   
   Private
   
    
   
   Sub
   
    Button1_Click(
   
   ByVal
   
    sender 
   
   As
   
    System.Object, 
   
   ByVal
   
    e 
   
   As
   
    System.EventArgs) 
   
   Handles
   
    Button1.Click
        WebBrowser1.Navigate(
   
   "
   
   http://wpa.qq.com/pa?p=11:
   
   "
   
    
   
   +
   
    TextBox1.Text 
   
   +
   
    
   
   "
   
   :11
   
   "
   
   )
    
   
   End Sub
   
   

    
   
   Private
   
    
   
   Sub
   
    WebBrowser1_DocumentCompleted(
   
   ByVal
   
    sender 
   
   As
   
    System.Object, 
   
   ByVal
   
    e 
   
   As
   
    System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 
   
   Handles
   
    WebBrowser1.DocumentCompleted
        
   
   If
   
    WebBrowser1.Url.ToString.LastIndexOf(
   
   "
   
   online.gif
   
   "
   
   ) 
   
   <>
   
    
   
   -
   
   1
   
    
   
   Then
   
   
            MessageBox.Show(TextBox1.Text 
   
   &
   
    
   
   "
   
   号码在线！
   
   "
   
   )
        
   
   Else
   
   
            MessageBox.Show(TextBox1.Text 
   
   &
   
    
   
   "
   
   号码不在线或者隐身！
   
   "
   
   )
        
   
   End
   
    
   
   If
   
   
    
   
   End Sub
   
   

   
   End Class