Вверх ↑
Главный модератор
Ответов: 2997
Рейтинг: 395
#1: 2017-11-21 21:02:46 ЛС | профиль | цитата
Например так:

Add(EntryPoint,2953706,224,182)
{
Left=20
Top=105
Width=394
Height=900
link(onCreate,18:doCScript,[])
}
Add(Button,11,126,126)
{
Left=5
Top=5
Width=70
Text="Upload"
Point(onClick)
link(onClick,15:doUpload,[])
AddHint(-66,7,38,13,Text)
}
Add(TextBox,12,224,126)
{
Left=5
Top=230
Width=375
Height=635
Anchor=15
Multiline=0
ScrollBars=2
Point(doText)
Point(Text)
Point(Data)
}
Add(TextBox,13,175,70)
{
Left=80
Top=7
Width=300
Text="http://www.hiasm.com"
Anchor=13
Point(doText)
Point(Text)
Point(Data)
}
Add(WebClient,14,273,70)
{
Name="wc"
Encoding=enc
Point(Headers)
}
Add(WCUploadString,15,175,126)
{
WebClient=wc
Method="POST"
link(onUpload,12:doText,[])
link(URI,13:Text,[])
link(Data,16:Text,[(188,114)(230,114)])
}
Add(TextBox,16,224,70)
{
Left=5
Top=37
Width=375
Height=185
Text="HiAsm Studio!"
Anchor=13
Multiline=0
Point(doText)
Point(Text)
Point(Data)
}
Add(UTF8Encoding,17,322,70)
{
Name="enc"
}
Add(CScript,18,280,182)
{
Script="using System;\r\nusing System.Net;\r\n\r\npublic class Script\r\n{\r\n public static void Main(object[] args)\r\n {\r\n WebHeaderCollection headers = args[0] as WebHeaderCollection;\r\n headers.Add("Content-Type","application/x-www-form-urlencoded");\r\n }\r\n}"
Arguments=1
UseClass=0
link(Arg1,14:Headers,[])
}

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0