For x = xx1 To xx2
y = y + 1
If y = 10 Then y = 0
Me.txtPole(y).Text = (Sqr(((x * x * x) / 3) * y + 1)) * (x / (y + 1))
Me.txtX.Text = x
Next x
xx1 = xx2
xx2 = xx2 + 100
pro = pro + 1
Me.txtProv.Text = pro
Отправка писем из Vb(не Vba)
Искал по форуму, находил подобные темы но там обсуждался вопрос о отправке в VBA.
Ну собственно вопрос - 1) Как можно отправить письмо из VB(включая не только просто текст но и прикрепление файлов)?
Как я видел из других тем, там проводилась анонимная отправка, в результате чего происходил отказ, так как данный smtp-серевер не поддерживал анонимные отправки, отсюда и второй вопрос - 2) Как сделать отправку, как зарегистрированныем пользователем?(на сервисе через который проводится отправка, естественно будем иметь почтовый ящик, и пароль, собственно используя эти данные и будем отправлять письмо)
Ну и еще - отправка письма должны происходить без участия человека, то есть все что надо сделать пользователю - это только нажать кнопку "отправить" на форме, все остальное делает программа не спрашивая ни о чем пользователя.
Ну собственно вопрос - 1) Как можно отправить письмо из VB(включая не только просто текст но и прикрепление файлов)?
Как я видел из других тем, там проводилась анонимная отправка, в результате чего происходил отказ, так как данный smtp-серевер не поддерживал анонимные отправки, отсюда и второй вопрос - 2) Как сделать отправку, как зарегистрированныем пользователем?(на сервисе через который проводится отправка, естественно будем иметь почтовый ящик, и пароль, собственно используя эти данные и будем отправлять письмо)
Ну и еще - отправка письма должны происходить без участия человека, то есть все что надо сделать пользователю - это только нажать кнопку "отправить" на форме, все остальное делает программа не спрашивая ни о чем пользователя.
Цитата:
Originally posted by Санчез
Искал по форуму, находил подобные темы но там обсуждался вопрос о отправке в VBA.
Ну собственно вопрос - 1) Как можно отправить письмо из VB(включая не только просто текст но и прикрепление файлов)?
Как я видел из других тем, там проводилась анонимная отправка, в результате чего происходил отказ, так как данный smtp-серевер не поддерживал анонимные отправки, отсюда и второй вопрос - 2) Как сделать отправку, как зарегистрированныем пользователем?(на сервисе через который проводится отправка, естественно будем иметь почтовый ящик, и пароль, собственно используя эти данные и будем отправлять письмо)
Ну и еще - отправка письма должны происходить без участия человека, то есть все что надо сделать пользователю - это только нажать кнопку "отправить" на форме, все остальное делает программа не спрашивая ни о чем пользователя.
Искал по форуму, находил подобные темы но там обсуждался вопрос о отправке в VBA.
Ну собственно вопрос - 1) Как можно отправить письмо из VB(включая не только просто текст но и прикрепление файлов)?
Как я видел из других тем, там проводилась анонимная отправка, в результате чего происходил отказ, так как данный smtp-серевер не поддерживал анонимные отправки, отсюда и второй вопрос - 2) Как сделать отправку, как зарегистрированныем пользователем?(на сервисе через который проводится отправка, естественно будем иметь почтовый ящик, и пароль, собственно используя эти данные и будем отправлять письмо)
Ну и еще - отправка письма должны происходить без участия человека, то есть все что надо сделать пользователю - это только нажать кнопку "отправить" на форме, все остальное делает программа не спрашивая ни о чем пользователя.
Это можно сделать легко, я сейчас имеено этим занимаюсь подожди дня 2 и я тебе вышлю прогу...
Почему ананонимные, есть библиотеки для отправки и приема почты которые поддеривают полный спектр возможностей почт. протокола.
На счет VBA тоже не очень понятно, ты имешь ввиду что не хочешь посылать почту через Outlook? потому что никто тебе не мешает из VB подключать и работать с outlook'ом со всеми его возможностями, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
На счет VBA тоже не очень понятно, ты имешь ввиду что не хочешь посылать почту через Outlook? потому что никто тебе не мешает из VB подключать и работать с outlook'ом со всеми его возможностями, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
Цитата:
Originally posted by SergeySV
Почему ананонимные, есть библиотеки для отправки и приема почты которые поддеривают полный спектр возможностей почт. протокола.
На счет VBA тоже не очень понятно, ты имешь ввиду что не хочешь посылать почту через Outlook? потому что никто тебе не мешает из VB подключать и работать с outlook'ом со всеми его возможностями, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
Почему ананонимные, есть библиотеки для отправки и приема почты которые поддеривают полный спектр возможностей почт. протокола.
На счет VBA тоже не очень понятно, ты имешь ввиду что не хочешь посылать почту через Outlook? потому что никто тебе не мешает из VB подключать и работать с outlook'ом со всеми его возможностями, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
Не кипятись, он имел ввиду как я понял следующее, в VBA есть тупые гирессылки типа mailto и все такое!!!
А я пишу прогу сам, которая сама конектится к серверу и отправляет не ананимно, а только для авторизированных пользователей, так как сейчас с этим строго стало, а то спама в рунете тьма, но и это можно обойти...
Как сделаю выложу на сервер....
Цитата:
Originally posted by vladsoft
Не кипятись, он имел ввиду как я понял следующее, в VBA есть тупые гирессылки типа mailto и все такое!!!
Не кипятись, он имел ввиду как я понял следующее, в VBA есть тупые гирессылки типа mailto и все такое!!!
Цитата:
Originally posted by SergeySV
, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
, или ты имеешь ввиду вспомог. методы типа MailSend - ну это действительно фигня.
говоря про VBA, я имел ввиду то, что в этом разделе форума часто выкладывают примеры программ в VBA, собственно такие примеры я и нашел, но мне не нужно VBA, и использование outlook'a, так как программа не должна зависеть от почтовых клиентов установленных на компьютере, а должны сама отправлять письма.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске включается англ язык, и неполучается переключать языки(то есть работает только англ язык, на русский не хочет переключаться), и при выводе нажатых клавиш пишет их в верхнем регистре.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске включается англ язык, и неполучается переключать языки(то есть работает только англ язык, на русский не хочет переключаться), и при выводе нажатых клавиш пишет их в верхнем регистре.
Цитата:
Originally posted by Санчез
говоря про VBA, я имел ввиду то, что в этом разделе форума часто выкладывают примеры программ в VBA, собственно такие примеры я и нашел, но мне не нужно VBA, и использование outlook'a, так как программа не должна зависеть от почтовых клиентов установленных на компьютере, а должны сама отправлять письма.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске автоматически включается caps look и англ язык, и не переключаются языки(то есть работает только англ язык, на русский не хочет переключаться)
говоря про VBA, я имел ввиду то, что в этом разделе форума часто выкладывают примеры программ в VBA, собственно такие примеры я и нашел, но мне не нужно VBA, и использование outlook'a, так как программа не должна зависеть от почтовых клиентов установленных на компьютере, а должны сама отправлять письма.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске автоматически включается caps look и англ язык, и не переключаются языки(то есть работает только англ язык, на русский не хочет переключаться)
Держи лекарство ...
Если тебе нужна прога где я использовал все что ты сейчас скачаешь, то да
Цитата:
Originally posted by Санчез
говоря про VBA, я имел ввиду то, что в этом разделе форума часто выкладывают примеры программ в VBA, собственно такие примеры я и нашел, но мне не нужно VBA, и использование outlook'a, так как программа не должна зависеть от почтовых клиентов установленных на компьютере, а должны сама отправлять письма.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске автоматически включается caps look и англ язык, и не переключаются языки(то есть работает только англ язык, на русский не хочет переключаться)
говоря про VBA, я имел ввиду то, что в этом разделе форума часто выкладывают примеры программ в VBA, собственно такие примеры я и нашел, но мне не нужно VBA, и использование outlook'a, так как программа не должна зависеть от почтовых клиентов установленных на компьютере, а должны сама отправлять письма.
Жду пока выложишь... НО может просто выложишь кусок кода с подсоедениение библиотек(каких там надо) да отправкой письма, остальное думаю смогу сделать сам...
И еще, вот прога по хуку мыши и клавиатуры, но почему-то при ее запуске автоматически включается caps look и англ язык, и не переключаются языки(то есть работает только англ язык, на русский не хочет переключаться)
Держи лекарство ...
Если тебе нужна прога где я использовал все что ты сейчас скачаешь, то дай знать...
млять:) скока раз уже писал, так и продолжают цитировать :))) щас гляну что ты там выложил...
и еще :) как определить куда установлена винда?
и еще :) как определить куда установлена винда?
Цитата:
Originally posted by Санчез
млять:) скока раз уже писал, так и продолжают цитировать :))) щас гляну что ты там выложил...
и еще :) как определить куда установлена винда?
млять:) скока раз уже писал, так и продолжают цитировать :))) щас гляну что ты там выложил...
и еще :) как определить куда установлена винда?
есть спец. api функции для этого дела посмотри в apiviewer-e
Цитата:
Originally posted by vladsoft
есть спец. api функции для этого дела посмотри в apiviewer-e
есть спец. api функции для этого дела посмотри в apiviewer-e
то что есть api функция я знаю, собственно я и хотел узнать как она называется
идем дальше... как этот JMailX.dll прицепить к проекту(как я понял его надо цеплять)? В системе я его зарегистрировал уже.
Цитата:
Originally posted by Санчез
то что есть api функция я знаю, собственно я и хотел узнать как она называется
идем дальше... как этот JMailX.dll прицепить к проекту(как я понял его надо цеплять)? В системе я его зарегистрировал уже.
то что есть api функция я знаю, собственно я и хотел узнать как она называется
идем дальше... как этот JMailX.dll прицепить к проекту(как я понял его надо цеплять)? В системе я его зарегистрировал уже.
Цеплять его нужно через project->reference
а про api я посмотрю, если найду то скину...
Цитата:
Originally posted by vladsoft
Цеплять его нужно через project->reference
а про api я посмотрю, если найду то скину...
Цеплять его нужно через project->reference
а про api я посмотрю, если найду то скину...
хм... у меня русская версия, и где этот референсе
окошко где располагаются формы, модули и тд имеющиеся в проекте?(там жму правый клик, добавить, добавить файл, выбираю длл, говорит не могу подсоеденить...)
Цитата:
Originally posted by Санчез
хм... у меня русская версия, и где этот референсе
окошко где располагаются формы, модули и тд имеющиеся в проекте?(там жму правый клик, добавить, добавить файл, выбираю длл, говорит не могу подсоеденить...)
хм... у меня русская версия, и где этот референсе
окошко где располагаются формы, модули и тд имеющиеся в проекте?(там жму правый клик, добавить, добавить файл, выбираю длл, говорит не могу подсоеденить...)
Вкладка меню проект -> внешние модули или референс...
млять) чувствую себя идиотом, хотя не первый год изучаю ВБ :))) короче как напишишь там свою программы выложи тут, со всем посоедененным, а то я уже где тока не лазил(наверное там где нужно, там и не лазил:) )так и не нашел где эту длл'ку цеплять.
отпала необходимость использования отсылки письма, но все же когда закончишь свою программу выложи ее тут, если не в напряг, может чего интересное в ней есть.
Цитата:
Originally posted by Санчез
отпала необходимость использования отсылки письма, но все же когда закончишь свою программу выложи ее тут, если не в напряг, может чего интересное в ней есть.
отпала необходимость использования отсылки письма, но все же когда закончишь свою программу выложи ее тут, если не в напряг, может чего интересное в ней есть.
держи!!!
Цитата:
Originally posted by vladsoft
держи!!!
держи!!!
А зачем ты везде пишешь ME.* ? ты же работаешь с данной формой что предполагает, что элементы располагаются на этой форем, так зачем говорить еще раз раз что они находятся на форме?
Она у тебя работает? У меня вылетает ошибка в отправке, при попытке создания нового объекта :
Set obj = New JMailX.JsmtpX
Говорит не могу создать. JMailX.dll подсоденил через reference, нешел ее все таки :), в системе зарегистрировал.
И еще - при удалении сделай хоть диалог, а то как только я запустил, первое что я сделал, удалил пару ящиков из списка :)
Она у тебя работает? У меня вылетает ошибка в отправке, при попытке создания нового объекта :
Set obj = New JMailX.JsmtpX
Говорит не могу создать. JMailX.dll подсоденил через reference, нешел ее все таки :), в системе зарегистрировал.
И еще - при удалении сделай хоть диалог, а то как только я запустил, первое что я сделал, удалил пару ящиков из списка :)
Цитата:
Originally posted by Санчез
А зачем ты везде пишешь ME.* ? ты же работаешь с данной формой что предполагает, что элементы располагаются на этой форем, так зачем говорить еще раз раз что они находятся на форме?
Она у тебя работает? У меня вылетает ошибка в отправке, при попытке создания нового объекта :
Set obj = New JMailX.JsmtpX
Говорит не могу создать. JMailX.dll подсоденил через reference, нешел ее все таки :), в системе зарегистрировал.
И еще - при удалении сделай хоть диалог, а то как только я запустил, первое что я сделал, удалил пару ящиков из списка :)
А зачем ты везде пишешь ME.* ? ты же работаешь с данной формой что предполагает, что элементы располагаются на этой форем, так зачем говорить еще раз раз что они находятся на форме?
Она у тебя работает? У меня вылетает ошибка в отправке, при попытке создания нового объекта :
Set obj = New JMailX.JsmtpX
Говорит не могу создать. JMailX.dll подсоденил через reference, нешел ее все таки :), в системе зарегистрировал.
И еще - при удалении сделай хоть диалог, а то как только я запустил, первое что я сделал, удалил пару ящиков из списка :)
Ага , посмотрю если что исправлю, а me я пишу потому что мне влом писать название элемента управления....
Цитата:
Originally posted by vladsoft
...а me я пишу потому что мне влом писать название элемента управления....
...а me я пишу потому что мне влом писать название элемента управления....
Так если ты работаешь с объектами на форме, и код находится в этой же форме, можно опускать название формы, и просто писать ListSEnt.RemoveItem (ListSEnt.ListIndex), вместо Me.ListSEnt.RemoveItem (Me.ListSEnt.ListIndex).
Цитата:
Originally posted by Санчез
Так если ты работаешь с объектами на форме, и код находится в этой же форме, можно опускать название формы, и просто писать ListSEnt.RemoveItem (ListSEnt.ListIndex), вместо Me.ListSEnt.RemoveItem (Me.ListSEnt.ListIndex).
Так если ты работаешь с объектами на форме, и код находится в этой же форме, можно опускать название формы, и просто писать ListSEnt.RemoveItem (ListSEnt.ListIndex), вместо Me.ListSEnt.RemoveItem (Me.ListSEnt.ListIndex).
Он имел ввиду, что написав Me., вылезает автоподстановка и не надо писать имя элемента до конца
А вообще видел статейки по VB на счет изысканий в способах задания ссылки на элемент и как это отражается на скорость, и вроде было мнение, что с ссылкой через Me код работает быстрее
Цитата:
Originally posted by SergeySV
А вообще видел статейки по VB на счет изысканий в способах задания ссылки на элемент и как это отражается на скорость, и вроде было мнение, что с ссылкой через Me код работает быстрее
А вообще видел статейки по VB на счет изысканий в способах задания ссылки на элемент и как это отражается на скорость, и вроде было мнение, что с ссылкой через Me код работает быстрее
Надо затестить, какой-нибудь цикл на минут 10 запустить и сравнить... завтра попробую...
Цитата:
Originally posted by Санчез
Надо затестить, какой-нибудь цикл на минут 10 запустить и сравнить... завтра попробую...
Надо затестить, какой-нибудь цикл на минут 10 запустить и сравнить... завтра попробую...
Ну как тест!!!!
Цитата:
...и вроде было мнение...
Наверное это всетаки просто мнение :) Результаты что с me. что без me. одинаковые. Делал вот так вот:
Код:
Всего 10 полей(txtPole()), таймер стоит на 1 мсек(сколько успеет столько и сделает), тестил на 5 мин, и если в таком цикле при постоянной записи в 10 полей выигрыш во времени незаметен, скорее всего разницы нет как использовать, разве что с me. удобней писать :)
Для замеров тестов обычно используют API функцию - timeGetTime - она возвращает время в миллисек. (от начала запуска компа)
Вот такой тестовый пример накатал:
Вот такой тестовый пример накатал:
Получается что цикл без me. работает быстрей :) на 20 000 циклов выигрыш идет примерно на 5-10мсек (КАК МНОГО :)))) Да мы же не ядерные расчеты делаем - мы можем и лишнии 10 мсек подождать :)))
ps. выложи иходник, хочу посмотреть как эта функция используется.
ps. выложи иходник, хочу посмотреть как эта функция используется.
Цитата:
Originally posted by Санчез
Получается что цикл без me. работает быстрей :) на 20 000 циклов выигрыш идет примерно на 5-10мсек (КАК МНОГО :)))) Да мы же не ядерные расчеты делаем - мы можем и лишнии 10 мсек подождать :)))
ps. выложи иходник, хочу посмотреть как эта функция используется.
Получается что цикл без me. работает быстрей :) на 20 000 циклов выигрыш идет примерно на 5-10мсек (КАК МНОГО :)))) Да мы же не ядерные расчеты делаем - мы можем и лишнии 10 мсек подождать :)))
ps. выложи иходник, хочу посмотреть как эта функция используется.
Ну да, выйгрыш мизерный :) можно сказать что в пределах погрешности даже, потому как временной выйгрыш в процессе замеров колеблется в обе стороны...
Цитата:
Originally posted by SergeySV
Ну да, выйгрыш мизерный :) можно сказать что в пределах погрешности даже, потому как временной выйгрыш в процессе замеров колеблется в обе стороны...
Ну да, выйгрыш мизерный :) можно сказать что в пределах погрешности даже, потому как временной выйгрыш в процессе замеров колеблется в обе стороны...
Модно!!!
Цитата:
Originally posted by vladsoft
Модно!!!
Модно!!!
Насчет me, лучше все таки его использовать так как бывают конкретные глюки, особенно они проявлялись на первых версиях xp, сам так и мог понять в чем причина, но без me приложение глючило...
Да вот, бородатые дядьки тоже советуют писать через Me, сылаясь на быстроту и надежность - поверим что-ли :)
Цитата:
Originally posted by SergeySV
Да вот, бородатые дядьки тоже советуют писать через Me, сылаясь на быстроту и надежность - поверим что-ли :)
Да вот, бородатые дядьки тоже советуют писать через Me, сылаясь на быстроту и надежность - поверим что-ли :)
У каждого свой, неповторимый стиль программирования :) Кому как удобней - тот так и пишет :)
ps. Поверим, и останемся при своих мнениях(при наших результатах тестов :) )
Цитата:
Originally posted by Санчез
У каждого свой, неповторимый стиль программирования :) Кому как удобней - тот так и пишет :)
ps. Поверим, и останемся при своих мнениях(при наших результатах тестов :) )
У каждого свой, неповторимый стиль программирования :) Кому как удобней - тот так и пишет :)
ps. Поверим, и останемся при своих мнениях(при наших результатах тестов :) )
Мудро!!!
Для тупого, напишите, пожалуйста, как сделать то же самое, только в VBA?
- Почему блондинки ссорятся, садясь на мотоцикл?
- Потому, что каждая хочет сидеть у окна.
- Как определить, что факс отправила блондинка?
- На нем будет почтовая марка.
- Что ответит блондинка, если спpосить, pаботает ли мигалка?
- Работает. Hе pаботает. Работает. Hе pаботает...
- Как заставить блондинку смеяться в понедельник утpом?
- Рассказать ей анекдот в пятницу вечеpом.
- Что можно увидеть в глазах блондинки?
- Заднюю стенку чеpепа.
- Как блондинка будет убивать pыбу?
- Утопит.
- Зачем блондинка пеpелезает чеpез стеклянную стену?
- Посмотpеть, что за ней.
- Что говоpит болондинка, когда pодит?
- Гм, вы увеpены, что он мой?
- Почему блондинки не едят бананы?
- Hе могут найти "молнию".
- Почему блондинки не едят соленые огуpцы?
- Голова в банку не пpолезает.
- Почему блондинки не пьют pаствоpимый кофе в пакетиках?
- Hе могут понять, как в такой пакетик влезает две чашки воды.
- Почему блондинка спрыгнула с балкона?
- Проверяла прокладки с крылышками...
- Почему блондинкам не дают обеденного пеpеpыва?
- Слишком долго учить их заново.
http://kudapoyti.com.ua
- Потому, что каждая хочет сидеть у окна.
- Как определить, что факс отправила блондинка?
- На нем будет почтовая марка.
- Что ответит блондинка, если спpосить, pаботает ли мигалка?
- Работает. Hе pаботает. Работает. Hе pаботает...
- Как заставить блондинку смеяться в понедельник утpом?
- Рассказать ей анекдот в пятницу вечеpом.
- Что можно увидеть в глазах блондинки?
- Заднюю стенку чеpепа.
- Как блондинка будет убивать pыбу?
- Утопит.
- Зачем блондинка пеpелезает чеpез стеклянную стену?
- Посмотpеть, что за ней.
- Что говоpит болондинка, когда pодит?
- Гм, вы увеpены, что он мой?
- Почему блондинки не едят бананы?
- Hе могут найти "молнию".
- Почему блондинки не едят соленые огуpцы?
- Голова в банку не пpолезает.
- Почему блондинки не пьют pаствоpимый кофе в пакетиках?
- Hе могут понять, как в такой пакетик влезает две чашки воды.
- Почему блондинка спрыгнула с балкона?
- Проверяла прокладки с крылышками...
- Почему блондинкам не дают обеденного пеpеpыва?
- Слишком долго учить их заново.
http://kudapoyti.com.ua