Разработка, производство и продажа радиоэлектронной аппаратуры
|
Требуется программист в Зеленограде - обработка данных с датчиков; ColdFire; 40 тыс.
e-mail: jobsmp@pochta.ru
|
спасибо за ответ! Внутри - только что придуманный метод восстановления вчера из ниоткуда
Отправлено
62256 09 февраля 2007 г. 01:30
В ответ на:
Где, покажИте? отправлено
<font color=gray>62256</font> 09 февраля 2007 г. 00:56
Берем, что бог послал. А послал он нам сегодня Visual Basic.
Прикидываем, какой номер поста был начальным в интересующем интервале, и каким закончим. В примере это 18000 и 20000.
В формочке делаем Большую Красную Кнопку:
------------------------------------------------------------------
Private Sub Command1_Click()
For nm = 18000 To 20000
Call DownLoadFile("http://telesys.ru/wwwboards/mcontrol/1584/messages/" + Format(nm) + ".shtml", "c:\ts\" + Format(nm) + ".shtml")
Next
End Sub
----------------------------------------------------------------------
а в модуле - качаем странички:
----------------------------------------------------------------------
Public 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 LongPublic Function DownLoadFile(strURL As String, strFileName As String)
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, strURL, strFileName, 0, 0)
If lngRetVal = 0 Then DownLoadFile = True
End Function
------------------------------------------------------------------
создаем на с: папочку ts, и вуаля: корня нету, но поиском по содержимому в тотал коммандере можно всё найти. И по веткам бегается вполне.
Составить ответ | Вернуться на конференцию
Ответы