我用循环的方式发送工资条信息，为什么发送第一条后就提示出错
For Each cr As DataRow In dt.datarows
Dim gh = CStr(cr("工號").ToString)
Dim userid = CStr(cr("userid").ToString)
jo("touser") = CStr(userid)
jo("agentid") = "1000009"
jo("msgtype") = "textcard"
jo("textcard") = New JObject
jo("textcard")("title") = "工资条信息"
Dim _strwhere = "月份:" & _month & "工资已发放，请查收！"
'Dim fy As WinForm.TextBox = Cstr(_strwhere)
jo("textcard")("description") = CStr(_strwhere)
Dim yyzy As String = "http://weixin.yselec.hk:99/gzt.htm?yf=" & _month & "&gh=" & gh
jo("textcard")("url") = yyzy
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
Next
此主题相关图片如下：qq截图20230428100540.jpg
加好友 
发短信
Post By：2023/4/28 10:08:00 [只看该作者]
