VB打造个性记事本聊天

有兴趣的进来学习下，十分简单，一学就会。

复制下面代码到记事本：
==============================

ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
  QQ_NUM=InputBox("爱吹冷风"&vbCr&vbCr&"    "&vbCr&vbCr&" ","QQ强行聊天器VBS版","10000")
  if QQ_NUM="" then
  Wscript.quit
  end if
else
  VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0

==============================

再把记事本另存为桌面，“TXT”改为"vbs".再选所有文件，保存就可以了。输入号码就可以聊