主题：微信企业号和企业微信合并了

1、

Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
msgbox(timestamp)

2、把json的知识学一下

http://baike.baidu.com/link?url=_vjSMY_CmNb-sfb2gm7R1DG0Fz_WNa5bQIAJ8gL3gPzBRl1ODh_w18Emfe5-Es8g_sPmCSVrvyyLMtPfHWTs5a

http://www.foxtable.com/mobilehelp/scr/0140.htm