Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于第三方短信平台二次开发的问题


  共有6973人关注过本帖树形打印复制链接

主题：[求助]关于第三方短信平台二次开发的问题
帅哥哟，离线，有人找我吗？
fjt4444
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		[求助]关于第三方短信平台二次开发的问题  发帖心情 Post By：2013/6/25 12:06:00 [显示全部帖子]

我用的第三方平台是“首易公司”的，他有C#的案例和JAVA的案例，也有VB的。以下是一个VB的事例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:vb.zip

经测试，填写正确企业ID和账号密码后能够发送短信。但是我不知道怎么将其应用到FoxTable中。我相信也有很多FoxTable的用户有这方面的需求（而帮助文档对于第三方短信平台的讲解不是很充分）。这是我的窗体设计：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:短信发送问题.zip

我期望做到填写正确服务器和企业ID和账号密码后能够发送短信就行了。求助！谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 13:45:00 [显示全部帖子]

如题。求助！沉了吗？

 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 14:45:00 [显示全部帖子]

如下所示：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:asp.net c#脚本.rar

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:asp.net vb脚本.rar
 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 15:42:00 [显示全部帖子]

那个"system.web.dll"就在“外部引用”那添加吗？我有点迷茫。我没有这个DLL文件的哇

 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 15:55:00 [显示全部帖子]

报错了：
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130625?,5348.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130625?+5342.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130625?;5324.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 16:07:00 [显示全部帖子]

thank you very much

 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 16:52:00 [显示全部帖子]

Dim phone As String = e.Form.Controls("TextBox1").Text
Dim Message As String = e.Form.Controls("TextBox2").Text
Dim externcode As String=e.Form.Controls("TextBox4").Text
Dim ApplicationID As String=e.Form.Controls("TextBox5").Text
Dim Password As String=e.Form.Controls("TextBox6").Text

 

Dim B As String = ApplicationID &","& externcode &","& phone &","& Message &","& Password
Dim tempGet As String = DotNet(B)

 

 

 

我是这样写的。但是提示我DotNet 不能用作表达式。。。求教。狐爸
 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 17:22:00 [显示全部帖子]

发送按钮的代码如下：

 

Dim phone As String = e.Form.Controls("TextBox1").Text
Dim Message As String = e.Form.Controls("TextBox2").Text
Dim externcode As String=e.Form.Controls("TextBox4").Text
Dim ApplicationID As String=e.Form.Controls("TextBox5").Text
Dim Password As String=e.Form.Controls("TextBox6").Text

Dim dn As New DotNet
'Dim B As String = ApplicationID &","& externcode &","& phone &","& Message &","& Password
Dim tempGet As String = dn.GetResponseA(ApplicationID,externcode,phone,Message,Password)

 

 

为什么没有发送成功呢？？？

全局代码中没有password项，我这样修改的： Public Function GetResponseA(ByVal corpID As String, ByVal loginName As String, ByVal send_No As String, ByVal words As String,ByVal passWd As String) As String
   


图片点击可在新窗口打开查看此主题相关图片如下：啊啊啊.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fjt4444
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：906 威望：0 精华：0 注册：2013/3/21 12:44:00 		  发帖心情 Post By：2013/6/25 17:25:00 [显示全部帖子]

我就只修改了这些：Public Function GetResponseA(ByVal corpID As String, ByVal loginName As String, ByVal send_No As String, ByVal words As String,ByVal passWd As String) As String
        '
        ' 创建将 URI 传递给 .Create() 方法的 WebRequest 对象
        ' 并通过调用 .GetResponse() 从服务器获取响应;
        ' 当涉及进展时,我们会仔细研究这样做的原因
        Dim _corpID As String = corpID
        Dim _LoginName As String = loginName
        Dim _send_no As String = send_No
        Dim _words As String = words
        Dim _PassWd As String = passWd
        'U
        Dim _YHURL As String = "http://web.mobset.com/SDK/Sms_Send.asp?CorpID=" & _corpID & "&LoginName=" & _LoginName & "&send_no=" & _PassWd & "&passwd=" & _send_no & "&msg=" & system.web.HttpUtility.UrlEncode(_words, System.Text.Encoding.GetEncoding("GB2312"))

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 7 次数据查询