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


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

主题:[求助]关于第三方短信平台二次开发的问题

帅哥哟,离线,有人找我吗?
fjt4444
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 不能用作表达式。。。求教。狐爸


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/25 17:02:00 [只看该作者]

1、donet是个类,你要调用其中这个类的某个方法或属性。

 

2、你要要用的话,还得实例化他:

 

Dim dn as New donet

某些代码

dn.方法1(参数1,参数2)

某些代码

dn.方法2(参数1,参数2)


 回到顶部
帅哥哟,离线,有人找我吗?
fjt4444
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"))

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/25 17:43:00 [只看该作者]

用Messgebox.show或output.show显示一下合成的字符,看看是否不符合人家的规范。

如果你认为符合,但是还是不行,这个你就得问开发商了。

 

你想人家提问的时候,直接直接用合成好的字符串做例子,方便人家测试。


 回到顶部
帅哥哟,离线,有人找我吗?
wuxianzuoji41
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:884 积分:7061 威望:0 精华:0 注册:2013/3/5 8:42:00
  发帖心情 Post By:2013/6/26 10:00:00 [只看该作者]

第三方短信平台的发送这个引用DLL的方式和狐狸爸爸帮助里的例子直接用URL方式发送有什么区别?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/26 10:15:00 [只看该作者]

这个可以不用短信猫

 回到顶部
帅哥哟,离线,有人找我吗?
wuxianzuoji41
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:884 积分:7061 威望:0 精华:0 注册:2013/3/5 8:42:00
  发帖心情 Post By:2013/6/26 10:27:00 [只看该作者]

例子里URL的方式也不用短信帽,也可以接收和发送,这个是不是比URL方式的稳定呀,,这个比URL方式开发麻烦多了

 回到顶部
总数 18 上一页 1 2