|
|
Бесплатные курсовые работы
Программа на VB для разработки сайтов. Продолжение Курсовая
Добавим в курсовую работу "горячие клавиши", при нажатии на которые в окно редактирования HTML кода будут записываться макросы. Сделаем обработку нажатия клавиши "PageUP", по которому в окно Text2 будет записываться макрос <img src="" alt="" title="" border=0>
Для этого в код формы Form1 (в Form1.Load) добавим код
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 33 Then 'Код кнопки PageUP
'---- Прочитать макрос ----
ReDim A(0)
Open "gmacros.txt" For Input As #1
Do Until EOF(1)
Line Input #1, A(UBound(A))
ReDim Preserve A(UBound(A) + 1) 'ReDim Preserve увеличивает размер массива, сохраняя при этом его содержимое
gmacros = gmacros + A(UBound(A))
Loop
Close
ReDim Preserve A(UBound(A) - 1)
b = Join(A, Chr(13) + Chr(10)) 'Содержимое файла gmacros.txt
Text2.Text = Text2.Text + b 'Добавить макрос к содержимому окна Text2
End If
End Sub
Полностью процедуру можно посмотреть - gmacros.doc
Полный листинг программы (Visual Basic project) можно скачать - project4.zip
Использование макросов, вставляемых по нажатию клавиш, значительно повыщает качество программного продукта. Можно добавлять следующие заготовки HTML кода:
<table border=0 cellpadding=0 cellspacing=0 width="">
<tr valign=top>
<td background=files/print.jpg width="" height="">
</table>
<H1 align=center>Freeware</H1>
<br>
<p align=justify><font class=txt>
И т.д. Довольно много вариантов для программы - генератора HTML кода.
FTP загрузчик веб страниц
Курсовая работа Напишем Visual Basic программу для загрузки по FTP веб страниц на ваш сайт и встроим его в генератор сайтов.
Создадим форму Form1 и разместим на ней 2 кнопки Command1 и Command2. Command1 "Load Connect" - производит подключение к интернету, соединение с FTP-сервером, выполняет копирование файла на сервер. Кнопка Command2 "Close Connect" - закрывает подключение. Между нажатиями этих кнопок вы можете посмотреть установленные соединения с помощью команды netstat -a
Private Sub Command1_Click()
hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0) 'Подключиться к интернету >>
hSession = InternetConnect(hINetSession, "analytic.vov.ru", "21", "login", "password", INTERNET_SERVICE_FTP, 0, 0) 'Коннект к FTP серверу analytic.vov.ru сайта http://analytic.vov.ru
'login и password должны быть указаны реальные для вашего веб сервера
If FtpPutFile(hSession, "d:\Anekdot.txt", "Anekdot.txt", 2, 0) = False Then 'Копируемый файл d:\Anekdot.txt Файл на FTP сервере - Anekdot.txt (можно так же указать полный путь до папки)
MsgBox "The call to FtpPutFile failed." 'Сообщение, если произошла ошибка
End If
End Sub
Вторая кнопка Command2 "Close Connect"
Private Sub Command2_Click()
'Закрыть сессию
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)
End Sub
Полный листинг программы (Visual Basic project) можно скачать - project5.zip
Программа должна выполнять следующие действия:
- инициализация работы с интернет функциями через InternetOpen
- подключение к FTP серверу через InternetConnect
- выполнение FTP команд
- закрытие хендлов
Функции InternetOpen и InternetConnect объявляются так:
Private Declare Function InternetOpen _
Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, _
ByVal nAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal nFlags As Long) As Long
Private Declare Function InternetConnect _
Lib "wininet.dll" Alias "InternetConnectA" ( _
ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUserName As String, _
ByVal sPassword As String, _
ByVal nService As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Главная страница >>>> Читать далее >>>>
 - перекодировщик символов на VB
Бесплатные курсовые работы
|
|
|