Система Эксперт
Найдем ответ СообЧа!

15.02.05

У меня стоит Windows XP SP2. Недавно я приобрёл цифровую видеокамеру Sony DCR-HC18E. С прилагаемого к камере диска я установил драйвер и программу Picture Package Menu (для обработкиљ фото и видео с данной камеры). Но записать на жёсткий диск видео с камеры не получается. На сколько я понимаю, при подключении камеры к компьютеру (через порт USB) в "Моём компьютере" должен появится ещё один (не)съёмный диск, войдя в который я могу добыть своё видео, но там никакого диска не появляется (хотя, когда я подключаю цифровую ФОТОкамеру, новый диск появляется). При помощи программы Picture Package Menu удаётся записать ролик, но эта программа вместо звука записывает музыку - я все настройки перерыл, но ни где нету функции, чтобы отключить музыку и записать нормальный звук (вернее тот звук, что идёт с камеры). Пробовал переписать видео с помощью программы Adobe Premiere Pro 6.5 и 7.0, но обе версии этой программы в упор "не видят" моей камеры (я там во всяческих настройках копался, даже нашёл у знакомого учебник по этой программе - но всё безрезультатно; там во внутренних настройках есть список камер от разных фирм,
но моей камеры нету). Настройки USB-потока в самой камере не помогают. Может, можно с помощью какой-нибудь программы всё таки скопировать видео с камеры на жёсткий диск?


Ответ:

Извиняюсь, конечно, но с чего ты вообще взял, что тебе с камеры можно будет переписывать видео? У тебя какая камера, то есть, какой носитель? У меня цифровая камера JVC, записывается на кассету стандарта MiniDV, но перегонять можно только картинки.
К сведению: для перегонки видео нужна либо специальная плата, или как минимум видео карта с TB-входом. Берёшь, подключаешь камеру к видео карте, звук подключаешь проводом к звуковой (нужен провод, на одном конце два колокольчика, на другом - стандартный наушниковый джек) и радуешься видео на компьютере.

с13

[Наверх]

Можно ли сделать на Яндексе, что бы все письма,которые попали в папку "Рассылки и Спам" сразу же удалялись?


Ответ:

Для начала напиши сисадминам (ну или службе техподдержки - называй как хочешь) Яндекса и написал бы им интересующий тебя вопрос (в даном случае - рассылка и спам). Ребята там грамотные и (обычно) толково, грамотно и довольно просто всё объясняют.
Так же у них должен быть раздел с часто задаваемыми вопросами от их пользователей - посмотри там, возможно, что что-то там и откапаешь. И, наконец, в любом поисковике набери "антиспам" - тебе выдасться список сайтов, с которых можно скачать антиспамерские программы, которые, в свою очередь, будут удалять весь мусор с твоего ящика, не загружая их в твой почтовик. Как правило многие такие проги не очень "тяжёлые", плюс в настройках ты можешь указать, какой именно спам нужно удылять - ориентируясь по мейлам, IP, ключевым словам и т.д.

Алексей

[Наверх]

Возможно ли средствами Dreamweaver "поставить заслон" SQL инъекциям?
Поделитесь, пожалуйста, опытом, ссылками...


Ответ:

"заслон" SQL инъекциям смогут поставить только прямые руки и чистый ум. Ни одна программа этого не сделает.
Хотя, отсутствие связи сайта и MySQL поставят екоторый заслон :))

Vasyasya

[Наверх]

Где можно найти бесплатный переводчик страниц для Opera?


Ответ:

http://www.translate.ru

Евтушенко Виталий Владимирович

[Наверх]

При запуске аутлука выскакивает его логотип (splash), как сделать чтоб оно не появлялось?


Ответ:

Это можно поправить в реестре (Пуск - Выполнить - regedit - ОК):
HKEY_CURRENT_USER\Identities\{GUID}\Software\Microsoft\Outlook Express\5.0
надо создать новый DWORD-параметр NoSplashи присвоить ему значение 1.

[Наверх]

Дайте, пож-ста, готовый пример VBA кода чтобы присвоить в переменную текущее содержание клипборда. Это ведь вроде через API делается?


Ответ:

Вот. Это полный исходник. Выдирать не охота из него, звиняй.. :)
Это код с bbs.vbstreets.ru (он подсвечивает код на bbcode в форумах phpbb).

Option Explicit 'Для использования - создать новый проект VB или VBA ' - поместить в код формы ниже лежащий текст программы ' - скопировать любой код и запустить программу (открыть форму) 'В буфере обмена будет размеченный код, готовый для вставки в ваше сообщение на форуме 'Предлагаю поучаствовать в дальнейшем развитии этого проекта Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal dwBytes As Long) As Long Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long) Private Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal HKL As String, ByVal Flags As Long) As Long Private Const KL_NAMELENGTH = 9 Private Const GHND = &H42 Private Const CF_TEXT = 1 Public Sub Form_Load() 'Процедура форматирования кода Dim aStr(0 To 199) As String 'массив искомых слов Dim mStrIn As String 'входящая строка Dim mStrInLen As Long 'длина входящей строки Dim mStrOut As String 'выходящая строка Dim mStrSub As String 'выделенная подстрока Dim mChr As String 'выделенный символ Dim mNum As Long 'текущая позиция Dim mNumOld As Long 'предыдущая позиция Dim bOk As Boolean 'признак обнаружения подстроки Dim i As Byte 'счётчик Dim arr1 As Variant Dim arr2 As Variant 'массив ключевых слов arr1 = Array("#If", "#End", "#ElseIf", "#Else", "#Const", "Xor", "Write", _ "WithEvents", "With", "Width", "While", "Wend", "Variant", _ "Until", "Unknown", "Unlock", "Unload", "UBound", "TypeOf", _ "Type", "True", "To", "Then", "Text", "Tab", "Sub", "String$", _ "String", "StrComp", "Stop", "Step", "Static", "Spc", "Single", _ "Shared", "Sgn", "Set", "Select", "Seek", "Scale", "RSet", _ "RGB", "Return", "Resume", "Rem", "ReDim", "Read", "Randomize", _ "Random", "RaiseEvent", "Put", "Public", "PSet", "Property", _ "Private", "Print", "Preserve", "ParamArray", "Output", "Or", _ "Optional", "Option", "Open", "On", "Object", "Null", "Nothing", _ "Not", "Next", "New", "Name", "Module", "Mod", "MidB$", "MidB", _ "Mid$", "Mid", "Me", "LSet", "Loop", "Long", "Lock", "Local", _ "Load", "LINEINPUT", "Line", "Like", "Lib", "Let", "LenB", "Len", _ "Left", "LBound", "Is", "Integer", "Int", "InStrB", "InStr", _ "InputB$", "InputB", "Input$", "Input", "In", "Implements", _ "Imp", "If", "GoTo", "GoSub", "Go", "Global", "Get", "Function", _ "Friend", "FreeFile", "Format$", "Format", "For", "Fix", "False", _ "F", "Explicit", "Exit", "Event", "Error$", "Error", "Erase", _ "Eqv", "Enum", "EndIf", "End", "Empty", "ElseIf", "Else", "Each", _ "Double", "DoEvents", "Do", "Dir$", "Dir", "Dim", "DefVar", "DefStr", _ "DefSng", "DefObj", "DefLng", "DefInt", "DefDbl", "DefDec", "DefDate", _ "DefCur", "DefByte", "DefBool", "Declare", "Decimal", "Debug", "Date$", _ "Date", "Database", "Currency", "CVErr", "CVDate", "CVar", "CurDir$", _ "CurDir", "CStr", "CSng", "Const", "Compare", "Close", "CLng", "Circle", _ "CInt", "ChDir", "CDecl", "CDbl", "CDec", "CDate", "CCur", "CByte") 'ограничение на размер массива, определяемого таким способом arr2 = Array("CBool", "Case", "Call", "ByVal", "Byte", "ByRef", "Boolean", _ "Binary", "BF", "Base", "B", "Assert", "As", "Array", "Append", "Any", _ "And", "Alias", "AddressOf", "Access", "Abs") For i = 0 To 178 aStr(i) = arr1(i) Next For i = 0 To 20 aStr(179 + i) = arr2(i) Next mStrIn = ClipBoard_GetData & vbCr 'получили строку из буфера mNumOld = 0 mStrInLen = Len(mStrIn) For mNum = 1 To mStrInLen 'перечисляем все символы входящей строки mChr = Mid$(mStrIn, mNum, 1) 'выделяем символ If mChr = " " Or mChr = vbCr Or mChr = vbLf Or mChr = "(" Or mChr = ")" _ Or mChr = "," Or mNum = Len(mStrIn) Then If mChr = " " Then mChr = "&" & "160;" 'обнаружен разделитель слов mStrSub = Mid$(mStrIn, mNumOld + 1, mNum - mNumOld - 1) 'выделяем подстроку bOk = False For i = 0 To 199 'поиск подстроки If mStrSub = aStr(i) Then bOk = True Exit For End If Next If bOk = True Then 'подстрока найдена mStrOut = mStrOut & "[" & "color=blue" & "]" & mStrSub & _ "[" & "/color" & "]" & mChr Else mStrOut = mStrOut & mStrSub & mChr End If mNumOld = mNum End If If mChr = Chr$(39) Then 'обнаружен коментарий mNum = InStr(mNum, mStrIn, vbCrLf) If mNum = 0 Then mNum = Len(mStrIn) mStrSub = Mid$(mStrIn, mNumOld + 1, mNum - mNumOld - 1) 'выделяем подстроку mStrOut = mStrOut & "[" & "color=green" & "]" & mStrSub & _ "[" & "/color" & "]" mNumOld = mNum - 1 End If If mChr = vbLf And Right$(mStrOut, 2) = vbCrLf Then mStrOut = Left$(mStrOut, Len(mStrOut) - 2) mStrOut = mStrOut & vbCrLf End If Next mStrOut = mStrOut & vbCrLf 'ссылка на эту процедуру mStrOut = mStrOut & "[" & "url=http://" mStrOut = mStrOut & "bbs.vbstreets.ru/viewtopic.php?t=9979" & "]" mStrOut = mStrOut & "Как отформатирован этот код?" & "[" & "/url" & "]" ClipBoard_SetData (mStrOut) 'вернули строку в буфер MsgBox "Код скопирован в буфер" End Sub 'vba не имеет класса Сlipboard 'ниже приведены функции найденные на 'http://am.rusimport.ru/MsAccess/topic.aspx?ID=229 'и модифицированные мной Private Function ClipBoard_GetData() As String Dim hClipMemory As Long Dim lpClipMemory As Long Dim MyString As String Dim lLength As Long Dim RetVal As Long If OpenClipboard(0&) = 0 Then MsgBox "Невозможно открыть буфер обмена, " & "Может быть он занят другим приложением" Exit Function End If ' получить указатель на блок памяти, с текстом буфера обмена hClipMemory = GetClipboardData(CF_TEXT) If IsNull(hClipMemory) Then MsgBox "Невозможно выделить память" GoTo OutOfHere End If ' фиксируем блок памяти, чтобы получить указатель на строку lpClipMemory = GlobalLock(hClipMemory) lLength = lstrlen(lpClipMemory) If Not IsNull(lpClipMemory) Then MyString = Space$(lLength) CopyMemory ByVal MyString, ByVal lpClipMemory, lLength RetVal = GlobalUnlock(hClipMemory) Else MsgBox "невозможно фиксировать блок памяти" End If OutOfHere: RetVal = CloseClipboard() ClipBoard_GetData = MyString End Function Private Sub ClipBoard_SetData(MyString As String) Dim hGlobalMemory As Long Dim lpGlobalMemory As Long Dim lLength As Long Dim hClipMemory As Long Dim x As Long 'Выделяем блок памяти lLength = Len(MyString) hGlobalMemory = GlobalAlloc(GHND, lLength + 1) 'Фиксируем блок памяти, чтобы получить указатель lpGlobalMemory = GlobalLock(hGlobalMemory) 'Копируем строку в этот блок памяти lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString) 'Снимаем фиксацию блока памяти If GlobalUnlock(hGlobalMemory) <> 0 Then MsgBox "Невозможно снять фиксацию блока память. Копирование прервано." GoTo OutOfHere2 End If 'Открываем буфер обмена для копирования If OpenClipboard(0&) = 0 Then MsgBox "Невозможно открыть буфер обмена. Копирование прервано." Exit Sub End If 'Очистка буфера обмена x = EmptyClipboard() 'переключаемся на русскую раскладку чтобы не иметь 'проблем с русским текстом в буфере '(некорректно понимается кодовая страница) Dim sOldLang As String sOldLang = switchLang("00000419") 'Копируем данные в буфер обмена hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory) OutOfHere2: If CloseClipboard() = 0 Then MsgBox "Невозможно закрыть буфер обмена." End If 'возвращаем раскладку на место If Len(sOldLang) > 0 Then sOldLang = switchLang(sOldLang) End Sub Private Function getCurrLang() As String Dim layoutname As String * KL_NAMELENGTH Dim z As Long z = GetKeyboardLayoutName(layoutname) If z = 0 Then getCurrLang = "" Else getCurrLang = StrZ(layoutname) End If End Function 'Переключает на указанную sNewLang раскладку - возвращает старую раскладку Private Function switchLang(sNewLang As String) As String '"00000419" - русская '"00000409" - латинская switchLang = getCurrLang If StrComp(switchLang, sNewLang) <> 0 Then LoadKeyboardLayout sNewLang, 1 End If End Function Private Function StrZ(par As String) As String Dim nSize As Long, i As Long nSize = Len(par) i = InStr(1, par, Chr$(0)) - 1 If i > nSize Then i = nSize If i < 0 Then i = nSize StrZ = Mid$(par, 1, i) End Function

Щелканов Александр

[Наверх]

Недавно я поменял операционную систему с WinXP на WinXP с интегрированным SP2. В Internet Explorere на панели "Ссылки" у меня находится несколько папок с ссылками. Но если в старом IE нажатие на любую из этих ссылок приводило к открытию страницы в новом окне, то в новом браузере страница открывается в текущем окне. Подскажите, как сделать, чтобы в IE + SP2 ссылки открывали страницу в новом окне.
Ответить: mailto:expert@soobcha.org?subject=Rass_VBV2MTPDS
[Наверх]

1. Вмоей сети витая пара от провйдера заходит на внешний шлюз который под Linux Red Hat 6.0 . Системник - пенек 166. Достаточно такой производительности шлюза если заним ПК ссайтом (пенек 500) и два десятка пользователей на ПК с частотами 700-900.
2. Как на шлюзе под Linux Red Hat 6.0 отключить лишние сервисы.
3. Какие сервисы должны загружаться для нормальной работы и предотвращения проникновения.
Ответить: mailto:expert@soobcha.org?subject=Rass_VBX30DL69
[Наверх]

У меня такая проблема: я пользуюсь проигрывателем Windows Media Player 10. Он меня абсолютно устраивает во всех отношениях. Но сегодня я скачал из интернета музыкальный файл, проигрыватель добавил его в свою библиотеку, а затем я решил воспользоваться встроенным в проигрыватель редактором тегов. Он оказался недоступен. После этого я попытался удалить файл из библиотеки, но он остался на своем месте. Яљудалил файл с жесткого диска, но из библиотеки он не исчез. Надо заметить, что проблема распространяется только на этот файл. Проблем это особых не доставляет, но вид и настроение портит:)
Ответить: mailto:expert@soobcha.org?subject=Rass_VBU3HHJDB
[Наверх]

Недавно отформатировал диск, переустановил систему (Windows XP) и, у меня перестали открываться некоторые .ехе файлы например такие, как Webmoney Keeper, Deamont, некоторые электронные книги. До переустановки все было хорошо. Я уже несколько раз диск форматировал и систему переустанавливал, но все бесполезно.
Ответить: mailto:expert@soobcha.org?subject=Rass_VBQ3XI7PS
[Наверх]

Как очистить память от ненужных загруженнных программ?
Где прочитать о порядке загрузки файлов WINME?
Имеется ли менеджер загрузок для WINME
Ответить: mailto:expert@soobcha.org?subject=Rass_VBN3LBSCY
[Наверх]