易语言代码翻译成火山

小米加鸡蛋

  

<火山程序 类型 = "通常" 版本 = 1 />
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
变量 返回文本 <类型 = 文本型>
变量 http <类型 = WinHttpW>
变量 url <类型 = 文本型>
变量 提交数据 <类型 = 文本型 值 = "Content-Disposition: form-data; name=\"file\"; filename=\"123.exe\"">
变量 文件字节集 <类型 = 字节集类>
变量 最后提交的字节集 <类型 = 字节集类>
变量 协议头 <类型 = 文本型
值 = "Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516\r\nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36">
变量 返回协议头 <类型 = 文本型>
变量 访问 <类型 = 网络访问类>
变量 协议头数组 <类型 = 文本数组类>
变量 返回网页数据 <类型 = 网页访问响应类>
变量 读入文本 <类型 = 文本型>
变量 文件数组 <类型 = 文本数组类>
如果 (来源对象 == 按钮_上传文件)
{
url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=%32%2F%31%32%33%2E%65%78%65"
// url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=2/123.exe"
文件字节集 = 读入文件 ("E:\\000.txt", -1)
调试输出 (文件字节集)
延时 (1000)
文件字节集 = 读入文件 (编辑框2.内容, -1)
调试输出 (文件字节集)
延时 (1000)
添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 (提交数据))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("Content-Type: image\/exe"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 文件字节集)
// 添加字节集 (最后提交的字节集, 文本到字节集 ("[文件]"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))
调试输出 (字节集到文本 (最后提交的字节集))
返回文本 = 编码_Utf8到Unicode (网页_访问_对象 (url, 1, , , , 协议头, 返回协议头, , , 最后提交的字节集, , , , , , , 真, ))
信息框 (返回文本, 0, "提示")
// 添加字节集 (最后提交的字节集, 文本到字节集 (读入文本))
// 子字节集替换 (最后提交的字节集, 到字节集 ("[文件]"), 文件字节集, 寻找字节集 (读入文本, "[文件]", ), 0)
// 字节集替换 (最后提交的字节集, 寻找字节集 (读入文本, "[文件]", ), 取字节集长度 (文件字节集), )
// 协议头数组.加入成员 ("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36")
// 协议头数组.加入成员 ("Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516")
// 返回网页数据 = 访问.网页访问2 (url, 网页访问方式.POST, 最后提交的字节集, 协议头数组, , , , , , , , , 11, , )
// 调试输出 (返回网页数据.取结果文本 ())
// http.Open ("POST", url)
// http.SetUserAgent ("Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36")
// http.SetReferer (url)
// http.SetContentType ("multipart/form-data; boundary=--------------------------761452601140280315160516")
// http.SendBin (最后提交的字节集, , )
// 返回文本 = http.GetResponseTextUtf8ToUnicode ()
// 信息框 (返回文本, 0, "提示")
返回 (0)
}
返回 (0)
}

<火山程序 类型 = "通常" 版本 = 1 /><br /> <br /> 方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件"><br /> 参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象"><br /> 参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0."><br /> {<br />     变量 返回文本 <类型 = 文本型><br />     变量 http <类型 = WinHttpW><br />     变量 url <类型 = 文本型><br />     变量 提交数据 <类型 = 文本型 值 = "Content-Disposition: form-data; name=\"file\"; filename=\"123.exe\""><br />     变量 文件字节集 <类型 = 字节集类><br />     变量 最后提交的字节集 <类型 = 字节集类><br />     变量 协议头 <类型 = 文本型<br />             值 = "Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516\r\nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36"><br />     变量 返回协议头 <类型 = 文本型><br />     变量 访问 <类型 = 网络访问类><br />     变量 协议头数组 <类型 = 文本数组类><br />     变量 返回网页数据 <类型 = 网页访问响应类><br />     变量 读入文本 <类型 = 文本型><br />     变量 文件数组 <类型 = 文本数组类><br />     如果 (来源对象 == 按钮_上传文件)<br />     {<br />         url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=%32%2F%31%32%33%2E%65%78%65"<br />         // url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=2/123.exe"<br />         文件字节集 = 读入文件 ("E:\\000.txt", -1)<br />         调试输出 (文件字节集)<br />         延时 (1000)<br />         文件字节集 = 读入文件 (编辑框2.内容, -1)<br />         调试输出 (文件字节集)<br />         延时 (1000)<br />         添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 (提交数据))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("Content-Type: image\/exe"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 文件字节集)<br />         // 添加字节集 (最后提交的字节集, 文本到字节集 ("[文件]"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))<br />         调试输出 (字节集到文本 (最后提交的字节集))<br /> <br /> <br />         返回文本 = 编码_Utf8到Unicode (网页_访问_对象 (url, 1, , , , 协议头, 返回协议头, , , 最后提交的字节集, , , , , , , 真, ))<br />         信息框 (返回文本, 0, "提示")<br /> <br />         // 添加字节集 (最后提交的字节集, 文本到字节集 (读入文本))<br />         // 子字节集替换 (最后提交的字节集, 到字节集 ("[文件]"), 文件字节集, 寻找字节集 (读入文本, "[文件]", ), 0)<br />         // 字节集替换 (最后提交的字节集, 寻找字节集 (读入文本, "[文件]", ), 取字节集长度 (文件字节集), )<br /> <br />         // 协议头数组.加入成员 ("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36")<br />         // 协议头数组.加入成员 ("Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516")<br />         // 返回网页数据 = 访问.网页访问2 (url, 网页访问方式.POST, 最后提交的字节集, 协议头数组, , , , , , , , , 11, , )<br />         // 调试输出 (返回网页数据.取结果文本 ())<br /> <br /> <br />         // http.Open ("POST", url)<br />         // http.SetUserAgent ("Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36")<br />         // http.SetReferer (url)<br />         // http.SetContentType ("multipart/form-data; boundary=--------------------------761452601140280315160516")<br />         // http.SendBin (最后提交的字节集, , )<br />         // 返回文本 = http.GetResponseTextUtf8ToUnicode ()<br />         // 信息框 (返回文本, 0, "提示")<br /> <br /> <br />         返回 (0)<br />     }<br /> <br />     返回 (0)<br /> }

  

子程序名	返回值类型	公开	备 注
服务器_上传图片	文本型
参数名	类 型	参考	可空	数组	备 注
url	文本型
本地文件路径	文本型
服务器文件名	文本型
文件	字节集

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交数据	字节集
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型
ADD_协议头	类_POST数据类
局_方式	整数型

本地文件路径 ＝ 编辑框1.内容
服务器文件名 ＝ 文件_取文件名 (编辑框1.内容, 真)
局_网址 ＝ “http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=” ＋ 编码_URL编码 (“2/” ＋ 服务器文件名, , )
局_方式 ＝ 1
局_提交数据 ＝ 到字节集 (“----------------------------761452601140280315160516” ＋ #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Disposition: form-data; name=” ＋ #引号 ＋ “file” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ 服务器文件名 ＋ #引号 ＋ “” ＋ #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Type: image/” ＋ 文本_取右边 (服务器文件名, “.”) ＋ #换行符 ＋ “” ＋ #换行符 )
如果真 (文件 ≠ {  } 且 本地文件路径 ＝ “”)
局_提交数据 ＝ 局_提交数据 ＋ 文件 ＋ 到字节集 ( #换行符 )
如果真 (本地文件路径 ≠ “” 且 文件 ＝ {  })
局_提交数据 ＝ 局_提交数据 ＋ 读入文件 (本地文件路径) ＋ 到字节集 ( #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“----------------------------761452601140280315160516”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )
ADD_协议头.添加 (“Content-Type”, “multipart/form-data; boundary=--------------------------761452601140280315160516”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , 局_提交数据, , , , , , , , , )
局_返回 ＝ 到文本 (编码_Utf8到Ansi (局_结果))
返回 (局_返回)

.版本 2<br /> <br /> .子程序 服务器_上传图片, 文本型, 公开<br /> .参数 url, 文本型, 可空<br /> .参数 本地文件路径, 文本型, 可空<br /> .参数 服务器文件名, 文本型, 可空<br /> .参数 文件, 字节集, 可空<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_提交数据, 字节集<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_方式, 整数型<br /> <br /> 本地文件路径 ＝ 编辑框1.内容<br /> 服务器文件名 ＝ 文件_取文件名 (编辑框1.内容, 真)<br /> 局_网址 ＝ “http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=” ＋ 编码_URL编码 (“2/” ＋ 服务器文件名, , )<br /> 局_方式 ＝ 1<br /> 局_提交数据 ＝ 到字节集 (“----------------------------761452601140280315160516” ＋ #换行符)<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Disposition: form-data; name=” ＋ #引号 ＋ “file” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ 服务器文件名 ＋ #引号 ＋ “” ＋ #换行符)<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Type: image/” ＋ 文本_取右边 (服务器文件名, “.”) ＋ #换行符 ＋ “” ＋ #换行符)<br /> .如果真 (文件 ≠ {  } 且 本地文件路径 ＝ “”)<br />     局_提交数据 ＝ 局_提交数据 ＋ 文件 ＋ 到字节集 (#换行符)<br /> .如果真结束<br /> .如果真 (本地文件路径 ≠ “” 且 文件 ＝ {  })<br />     局_提交数据 ＝ 局_提交数据 ＋ 读入文件 (本地文件路径) ＋ 到字节集 (#换行符)<br /> .如果真结束<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“----------------------------761452601140280315160516”)<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )<br /> ADD_协议头.添加 (“Content-Type”, “multipart/form-data; boundary=--------------------------761452601140280315160516”, )<br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , 局_提交数据, , , , , , , , , )<br /> <br /> 局_返回 ＝ 到文本 (编码_Utf8到Ansi (局_结果))<br /> 返回 (局_返回)

易语言翻译成火山

w5717

https://wwtt.lanzn.com/iSPlm27di3pe   模块用到仰望的火山模块，你也可以用精易的

小米加鸡蛋

  

<火山程序 类型 = "通常" 版本 = 1 />
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
变量 返回文本 <类型 = 文本型>
变量 http <类型 = WinHttpW>
变量 url <类型 = 文本型>
变量 提交数据 <类型 = 文本型 值 = "Content-Disposition: form-data; name=\"file\"; filename=\"123.exe\"">
变量 文件字节集 <类型 = 字节集类>
变量 最后提交的字节集 <类型 = 字节集类>
变量 协议头 <类型 = 文本型
值 = "Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516\r\nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36">
变量 返回协议头 <类型 = 文本型>
变量 访问 <类型 = 网络访问类>
变量 协议头数组 <类型 = 文本数组类>
变量 返回网页数据 <类型 = 网页访问响应类>
变量 读入文本 <类型 = 文本型>
变量 文件数组 <类型 = 文本数组类>
如果 (来源对象 == 按钮_上传文件)
{
url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=%32%2F%31%32%33%2E%65%78%65"
// url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=2/123.exe"
文件字节集 = 读入文件 ("E:\\000.txt", -1)
调试输出 (文件字节集)
延时 (1000)
文件字节集 = 读入文件 (编辑框2.内容, -1)
调试输出 (文件字节集)
延时 (1000)
添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 (提交数据))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("Content-Type: image\/exe"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 文件字节集)
// 添加字节集 (最后提交的字节集, 文本到字节集 ("[文件]"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))
添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))
调试输出 (字节集到文本 (最后提交的字节集))
返回文本 = 编码_Utf8到Unicode (网页_访问_对象 (url, 1, , , , 协议头, 返回协议头, , , 最后提交的字节集, , , , , , , 真, ))
信息框 (返回文本, 0, "提示")
}
返回 (0)
}

<火山程序 类型 = "通常" 版本 = 1 /><br /> <br /> 方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件"><br /> 参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象"><br /> 参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0."><br /> {<br />     变量 返回文本 <类型 = 文本型><br />     变量 http <类型 = WinHttpW><br />     变量 url <类型 = 文本型><br />     变量 提交数据 <类型 = 文本型 值 = "Content-Disposition: form-data; name=\"file\"; filename=\"123.exe\""><br />     变量 文件字节集 <类型 = 字节集类><br />     变量 最后提交的字节集 <类型 = 字节集类><br />     变量 协议头 <类型 = 文本型<br />             值 = "Content-Type: multipart/form-data; boundary=--------------------------761452601140280315160516\r\nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36"><br />     变量 返回协议头 <类型 = 文本型><br />     变量 访问 <类型 = 网络访问类><br />     变量 协议头数组 <类型 = 文本数组类><br />     变量 返回网页数据 <类型 = 网页访问响应类><br />     变量 读入文本 <类型 = 文本型><br />     变量 文件数组 <类型 = 文本数组类><br />     如果 (来源对象 == 按钮_上传文件)<br />     {<br />         url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=%32%2F%31%32%33%2E%65%78%65"<br />         // url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=2/123.exe"<br />         文件字节集 = 读入文件 ("E:\\000.txt", -1)<br />         调试输出 (文件字节集)<br />         延时 (1000)<br />         文件字节集 = 读入文件 (编辑框2.内容, -1)<br />         调试输出 (文件字节集)<br />         延时 (1000)<br />         添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 (提交数据))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("Content-Type: image\/exe"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 文件字节集)<br />         // 添加字节集 (最后提交的字节集, 文本到字节集 ("[文件]"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("\r\n"))<br />         添加字节集 (最后提交的字节集, 到字节集 ("----------------------------761452601140280315160516"))<br />         调试输出 (字节集到文本 (最后提交的字节集))<br /> <br /> <br />         返回文本 = 编码_Utf8到Unicode (网页_访问_对象 (url, 1, , , , 协议头, 返回协议头, , , 最后提交的字节集, , , , , , , 真, ))<br />         信息框 (返回文本, 0, "提示")<br /> <br /> <br /> <br /> <br />     }<br /> <br />     返回 (0)<br /> }

丸子头NBS

易语言和火山是两种不同的语言，有学火山的空，不如把PY好好的学学

小米加鸡蛋

w5717 发表于 2024-8-13 23:31
https://wwtt.lanzn.com/iSPlm27di3pe   模块用到仰望的火山模块，你也可以用精易的

模块打包个呗

w5717

小米加鸡蛋 发表于 2024-8-14 00:29
模块打包个呗

帮你写出来了，就不会自己改一个网页访问？

小米加鸡蛋

w5717 发表于 2024-8-14 08:23
帮你写出来了，就不会自己改一个网页访问？

我昨天倒是试过了,也用 文本到多字节  最后是不成功,

w5717

小米加鸡蛋 发表于 2024-8-14 08:34
我昨天倒是试过了,也用 文本到多字节  最后是不成功,

上传exe成功，其他的没试