Парочка вопросов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
XPraptor
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 115
Зарегистрирован: 02.12.2003 (Вт) 18:13
Откуда: Minsk

Сообщение XPraptor » 16.08.2004 (Пн) 15:02

Совсем не нужно открывать внешние проги чтобы сохранять в Файл из эксплорера. В меню Projects->Components... отмечаешь Microsoft Internet Controls и добавляешь к себе на форму WebBrowser и именно в него загружаешь все страницы и сохраняешь из него. Хэлпа по работе элемента WebBrowser много по поиску найдешь. :)
Если руки кривые, то не надо ругать разработчиков.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Re: Парочка вопросов

Сообщение tyomitch » 16.08.2004 (Пн) 16:22

Sync писал(а):подскажите с помощью каких функций можно проделывать так с программами. обращаться к ним.

FindWindowEx, SendMessage

Sync писал(а):2... как можно вставить в код программы файл в виде музыки или текста. Где можно почитать об этом

Ctrl-D

Sur
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 91
Зарегистрирован: 14.07.2003 (Пн) 20:54
Откуда: C2H5OH

Сообщение Sur » 16.08.2004 (Пн) 22:09

найдено в инете:
на форму кнопку, в IE - страницу, - html в файле с:\CurrPageSource.htm

Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE

Private Sub Command1_Click()
Dim pHwnd As Long
Dim wHwnd As Long
Dim rHwnd As Long
Dim cHwnd As Long
Dim txtBuff As String ' receives the copied text from the target window
Dim txtLength As Long ' length of the window text
Dim retVal As Long

pHwnd = FindWindowEx(0, 0, "IEFrame", vbNullString)
wHwnd = FindWindowEx(pHwnd, 0, "WorkerW", vbNullString)
rHwnd = FindWindowEx(wHwnd, 0, "ReBarWindow32", vbNullString)
cHwnd = FindWindowEx(rHwnd, 0, "ComboBoxEx32", vbNullString)

txtLength = SendMessage(cHwnd, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1
txtBuff = Space(txtLength)
retVal = SendMessage(cHwnd, WM_GETTEXT, ByVal txtLength, ByVal txtBuff)

' Remove the terminating null and extra space from the buffer.
txtBuff = Left(txtBuff, retVal)
DoEvents

'Source will be saved as a text file in the c:\ directory
retVal = URLDownloadToFile(0, txtBuff, "C:\CurrPageSource.htm", 0, 0)

End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList