Foxtable(狐表)用户栏目专家坐堂 → 关于移植C#代码问题。


  共有2159人关注过本帖平板打印复制链接

主题:关于移植C#代码问题。

帅哥哟,离线,有人找我吗?
ycwk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
关于移植C#代码问题。  发帖心情 Post By:2016/2/24 11:08:00 [只看该作者]

最近在研究钉钉的接口,有如下几个问题一直困扰着我,还请老师指教。
1.关于c# 中引用的各命名空间怎么处理?  如  
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;之类的
2.关于类的定义,方法的定义? 是放在全局代码还是内部函数中?      

3.外部的DLL,特别是json的dll,怎么引用?

4.语法上要注意的细节?  

一直移植不成功,还请指教。

我在foxtable 的内部函数中增加了一个post函数
Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")'编码格式   
   
        Dim strURL As String = args(0)
        Dim request As  System.Net.HttpWebRequest         
        request = directcast(System.Net.HttpWebRequest.Create(strURL),system.net.httpwebrequest)
       ' System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)     
         request.Method = "POST"
        request.C
        Dim paraUrlCoded   As String = args(1)
        'Byte[] payload
        Dim payload() As Byte
        payload = System .Text. Encoding.UTF8.GetBytes (paraUrlCoded)
        request.ContentLength = payload. Length
        Dim writer As system.IO.Stream = request. GetRequestStream()    ' by wk 

        writer.Write (payload, 0, payload .Length)
        writer.Close ()
        Dim response As  System.Net.HttpWebResponse 
        'response = (System .Net. HttpWebResponse)request .GetResponse()
         response = DirectCast(request.GetResponse, System.Net.HttpWebResponse)
        'response = System .Net. HttpWebResponse.request .GetResponse()

        Dim s As System.IO.Stream
        s = response.GetResponseStream()
        Dim StrDate As String = ""
        Dim strValue As String  = ""
    
       'Using
       Dim Reader As System.IO.StreamReader = New System.IO.StreamReader(s, encoding) 
       
       'Dim Reader As StreamReader = new StreamReader(s, Encoding .UTF8)
       'End using
  
     

      Do While (StrDate = Reader.ReadLine()) <> ""
        
            'strValue =strValue + StrDate & vbcrlf &
         strValue =strValue + StrDate
             
       Loop

       MessageBox.Show(strvalue)

        Return Nothing


然后在窗口中设计了一个按钮:

Dim access_token As String= "xxxx"
Dim url As String  = "https://oapi.dingtalk.com/message/send?access_token=" & access_token


Dim param As String = "{""access_token"":""xxxxx""}"
'MessageBox.Show(param)

Functions.Execute("Post",url,param)


但是无法运行成功,还望指教。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:dddemo7.rar




 

 回到顶部