Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

неполучается перевести .vbs в исполняемый код

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Прочее] >> неполучается перевести .vbs в исполняемый код

Имя

Сообщение

<< Старые топики Новые топики >>

неполучается перевести .vbs в исполняемый код - 2008-08-17 10:25:33.383333

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

F12::
 ;работаем со скрытыми окнами
 DetectHiddenWindows, On
 ;делаем снимок экрана
 Send, {PRINTSCREEN} ; снимок всего экрана (PrtSc)
 ;Send, !{PRINTSCREEN} ; снимок активного окна (Alt + PrtSc)
 ;создаём пустой файл
 FileAppend,, C:\PrScr.bmp
 ;открываем пустой файл в скрытом окне Paint
 Run, mspaint C:\PrScr.bmp,, Hide
 ;ждём запуска Paint
 WinWait, PrScr.bmp - Paint
 ;команда меню "Правка" - "Вставить"
 PostMessage, 0x111, 57637, 0, , PrScr.bmp - Paint
 ;команда меню "Файл" - "Сохранить"
 PostMessage, 0x111, 57603, 0, , PrScr.bmp - Paint
 ;команда меню "Файл" - "Выход"
 PostMessage, 0x111, 57665, 0, , PrScr.bmp - Paint
 ;ждём завершения работы Paint
 WinWaitClose, PrScr.bmp - Paint

вот код и описание, но просто вставить его в блокнот нельзя…непоможете его переделать чтоб моно было тупо к блокнот :? несколько строк переписал но дальше дела не пошли:(

выходят ошибкий типа недопустимый символ, или ожидание функций и т.д и т.п…..

Post #: 1

RE: неполучается перевести .vbs в исполняемый код - 2008-08-18 00:23:02.863333

Pashkela

Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000

гы, а кто тебе сказал, что это вообще VBS???

Post #: 2

RE: неполучается перевести .vbs в исполняемый код - 2008-08-24 22:56:48.020000

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

да я точно наю :) а по твоему эт чо :? кажется для проги какой то код ( мну в блокнот надо( может есть чё нить похожее :?)))

Post #: 3

RE: неполучается перевести .vbs в исполняемый код - 2008-08-25 02:02:30.386666

FlipLab Software

Сообщений: 179
Оценки: 0
Присоединился: 2007-02-08 01:50:01.693333

Блин в VBS не силён,но в Delphi помогу.А чё ты тупо не можешь копировать в буфер,ловить окно блокнота и туда вставлять.Помоему я тут вообще сложностей не вижу

Post #: 4

RE: неполучается перевести .vbs в исполняемый код - 2008-08-25 12:04:32.313333

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

тупа в блокноте ошибке лезут

---------------------------
 Сервер сценариев Windows
 ---------------------------
 Сценарий:	C:\Documents and Settings\Ф А Н Д У С\Рабочий стол\1.vbs
 Строка:	2
 Символ:	1
 Ошибка:	Предполагается наличие инструкции
 Код:	800A0400
 Источник: 	Ошибка компиляции Microsoft VBScript
 
 ---------------------------
 ОК   
 ---------------------------

Post #: 5

RE: неполучается перевести .vbs в исполняемый код - 2008-08-25 12:20:11.570000

Мистер Бин

Сообщений: 145
Оценки: 0
Присоединился: 2008-05-23 20:11:03.203333

Фандус, так это не VBS вовсе, откуда ты взял этот код?

Позднее.
А, нашел :

quote:

AutoHotkey - это свободная утилита под Windows с открытыми исходными кодами и скриптовый язык с огромными возможностями, в принципе даже не требующий установки. Официальный сайт программы (англ.) - http://www.autohotkey.com.

Еще позднее:
А вот и сам оригинал: http://forum…-coding.info/viewtopic.php?id=23

Еще еще позднее:
Форум режет слово "Скрипт" в ссылке - вот как она выглядит:

Post #: 6

RE: неполучается перевести .vbs в исполняемый код - 2008-08-25 14:57:09.006666

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

спасиба доктор Бин, но я так и не понил моно ли воще перевести для блокнота это всё :? я хочу его соединить с другим кодом а так они друг с другом не контачать :(((((

Post #: 7

RE: неполучается перевести .vbs в исполняемый код - 2008-08-28 10:56:20.033333

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

так понятно) кто нидь может написать код делающий скрин всего экрана и сохраняющего его в файл с форматом .bmp ???

Post #: 8

RE: неполучается перевести .vbs в исполняемый код - 2008-09-06 17:41:30.793333

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

ну 4то не кто не может мне помочъ ????

Post #: 9

RE: неполучается перевести .vbs в исполняемый код - 2008-09-11 13:02:29.666666

redsh

Сообщений: 338
Оценки: 0
Присоединился: 2007-06-17 22:35:25.540000

quote:

ORIGINAL: Derek_RED

так понятно) кто нидь может написать код делающий скрин всего экрана и сохраняющего его в файл с форматом .bmp ???

void CaptureScreen(LPSTR szFileName, BOOL bWindow)
 {
 	HWND hWindow = bWindow ? GetForegroundWindow() : GetDesktopWindow();
 	RECT rc;
 	GetWindowRect(hWindow, &rc);
 	DWORD dwWidth = rc.right - rc.left;
 	DWORD dwHeight = rc.bottom - rc.top;
 	HDC hDC = GetWindowDC(hWindow);
 	HDC hCompDC = CreateCompatibleDC(hDC);
 	HBITMAP hBitmap = CreateCompatibleBitmap(hDC, dwWidth, dwHeight);	
 	SelectObject(hCompDC, hBitmap);
 	BitBlt(hCompDC, 0, 0, dwWidth, dwHeight, hDC, 0, 0, SRCCOPY);
 	BITMAP Bitmap;
 	GetObject(hBitmap, sizeof(Bitmap), &Bitmap);
 	DWORD dwBitsPerPixel = Bitmap.bmPlanes * Bitmap.bmBitsPixel;
 	PBITMAPINFO pBmpHdr;
 	if(dwBitsPerPixel &gt;= 24)
 		pBmpHdr = (PBITMAPINFO)LocalAlloc(0, sizeof(BITMAPINFOHEADER));
 	else
 		pBmpHdr = (PBITMAPINFO)LocalAlloc(0, sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD) * (1 &lt;&lt; dwBitsPerPixel));
 	pBmpHdr-&gt;bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
 	pBmpHdr-&gt;bmiHeader.biWidth = Bitmap.bmWidth;
 	pBmpHdr-&gt;bmiHeader.biHeight = Bitmap.bmHeight;
 	pBmpHdr-&gt;bmiHeader.biPlanes = Bitmap.bmPlanes;
 	pBmpHdr-&gt;bmiHeader.biBitCount = Bitmap.bmBitsPixel;
 	if(dwBitsPerPixel &gt;= 24) 
 		pBmpHdr-&gt;bmiHeader.biClrUsed = 0;
 	else
 		pBmpHdr-&gt;bmiHeader.biClrUsed = 1 &lt;&lt; dwBitsPerPixel;
 	pBmpHdr-&gt;bmiHeader.biCompression = BI_RGB;
 	pBmpHdr-&gt;bmiHeader.biSizeImage = (Bitmap.bmWidth + 7) / 8 *
 		Bitmap.bmHeight * dwBitsPerPixel;
 	pBmpHdr-&gt;bmiHeader.biClrImportant = 0;
 	BITMAPFILEHEADER FileHdr;
 	ZeroMemory(&FileHdr, sizeof(FileHdr));
 	FileHdr.bfType = 0x4D42;
 	FileHdr.bfSize = sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER) + 
 		pBmpHdr-&gt;bmiHeader.biClrUsed * sizeof(RGBQUAD) + pBmpHdr-&gt;bmiHeader.biSizeImage;
 	FileHdr.bfOffBits = sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER) + 
 		pBmpHdr-&gt;bmiHeader.biClrUsed * sizeof(RGBQUAD);
 	LPVOID pBits = (LPVOID)LocalAlloc(0, pBmpHdr-&gt;bmiHeader.biClrUsed * 
 		sizeof(RGBQUAD) + pBmpHdr-&gt;bmiHeader.biSizeImage);
 	BITMAPINFOHEADER TempHdr;
 	memcpy(&TempHdr, pBmpHdr, sizeof(BITMAPINFOHEADER));
 	GetDIBits(hCompDC, hBitmap, 0, pBmpHdr-&gt;bmiHeader.biHeight, pBits, pBmpHdr, DIB_RGB_COLORS);
 	memcpy(pBmpHdr, &TempHdr, sizeof(BITMAPINFOHEADER));
 	HANDLE hFile = CreateFile(szFileName, GENERIC_WRITE, 0, NULL,
 		CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
 	if(hFile != INVALID_HANDLE_VALUE) {
 		DWORD cb;
 		WriteFile(hFile, &FileHdr, sizeof(FileHdr), &cb, NULL);
 		WriteFile(hFile, pBmpHdr, sizeof(BITMAPINFOHEADER) + 
 			pBmpHdr-&gt;bmiHeader.biClrUsed * sizeof(RGBQUAD), &cb, NULL);
 		WriteFile(hFile, pBits, pBmpHdr-&gt;bmiHeader.biSizeImage, &cb, NULL);
 	}
 	CloseHandle(hFile);
 	LocalFree(pBits);
 	LocalFree(pBmpHdr);
 	DeleteObject(hBitmap);
 	DeleteDC(hCompDC);
 	ReleaseDC(hWindow, hDC);
 }

Post #: 10

RE: неполучается перевести .vbs в исполняемый код - 2008-09-15 22:47:18.233333

Derek_RED

Сообщений: 235
Оценки: 0
Присоединился: 2008-03-16 16:29:54.476666

а на каком это языке ?

Post #: 11

RE: неполучается перевести .vbs в исполняемый код - 2008-10-12 00:18:13.190000

ХAКЕР

Сообщений: 325
Оценки: 0
Присоединился: 2008-08-19 23:59:23.406666

Подскажите скрипт, написанный на vbs, которые бы осуществлял поиск всех файлов (или расширения) в указанном каталоге, в том числе искал файлы и подкаталогах, и копирова все найденный файлы в уазанную папку.
Например имеется каталог D:\Games, в нём 3 подкаталога, и нужно чтоб ВСЕ файлы из дириктории D:\Games и всех подкаталогов были скопитрованны в указанную мне й папку, например D:\FFF

Post #: 12

Страниц: [1]

Все форумы >> [Прочее] >> неполучается перевести .vbs в исполняемый код

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.