vb 编写的qq查询交谈工具源码

vb 编写的qq查询交谈工具源码
2009年12月21日
  Option Explicit
  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
  Private Const SW_SHOW = 5
  Dim qq As Long, qqzai As String, qqli As String
  Private Sub Command1_Click()
  qq = Val(Text1.Text) '从文本框中获取要查询的号码
  If Len(Text1) ShellExecute Me.hwnd, "open", UrL, "", App.Path, SW_SHOW
  End Sub
  Private Sub Form_Load()
  Me.Show
  Label1.FontItalic = True
  Image1.Visible = False
  Image2.Visible = False
  Text1.SetFocus
  Text1.SelLength = Len(Text1.Text) '将文本框的内容全部选择
  Web.Visible = False
  End Sub
  Private Sub Image3_Click()
  End Sub
  Private Sub Text1_Click()
  Text1.Text = ""
  Image1.Visible = False '重新查询时QQ状态图标隐藏
  Image2.Visible = False
  Form1.Caption = "QQ查询状态"
  End Sub
  Private Sub Web_TitleChange(ByVal Text As String)
  qqzai = "http://wpslogo.qq.com/qq_online.gif" 'QQ在线状态的地址
  qqli = "http://wpslogo.qq.com/qq_offline.gif" 'QQ离线状态的地址
  If Web.LocationURL = qqzai Then
  '如果地址返回的是QQ在线状态的地址,那么执行下面的语句
  'LocationURL返回WebBrowser当前正在显示的资源的URL ,
  '也就是已经工作完成后的URL
  Image1.Visible = True '显示QQ在线状态亮图标
  Image2.Visible = False
  Form1.Caption = "QQ查询状态〉〉〉该QQ目前在线"
  ElseIf Web.LocationURL = qqli Then
  '如果返回的是QQ离线状态的地址,那么QQ离线的图标被显示出来
  Image2.Visible = True
  Image1.Visible = False
  Form1.Caption = "QQ查询状态〉〉〉该QQ目前不在线"
  End If
  End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值