主题：怎么插入旺旺的对话框啊

CellButtonClick 事件

If e.Col.name="旺旺" Then

    e.cancel=True

    Dim Proc As New Process '定义一个新的Process

    Proc.File = "http://www.taobao.com/webww/ww.php?ver=3&touid=%E5%B0%8F2&siteid=cntaobao&status=1&charset=utf-8" '邮件地址前要加上"mailto:"

    Proc.Start()

End If

旺旺URL生成可以看这里,淘宝提供了自动生成 http://www.taobao.com/wangwang/2010_fp/world.php

汇总一下

msn

msnim:chat?contact=你的用户名

qq

tencent://message/?uin=你的QQ号码

旺旺

http://www.taobao.com/webww/ww.php?ver=3&siteid=cntaobao&status=1&touid=旺旺号

或者 wangwang:SendIM?旺旺号

skepy

callto://Skype账号

使用

Dim proc As new Process
proc.File = "http://www.taobao.com/webww/ww.php?ver=3&siteid=cntaobao&status=1&touid=旺旺号"
proc.start