Серый форум — OFF: Проверка состояния портов удаленного компьютера

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (alexii) — Wed, 19 Sep 2012 05:46:29 +0000

1. Один вопрос — одна тема.
2. См. Правила форума, п.2.9.

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (BlackRay) — Wed, 19 Sep 2012 05:40:12 +0000

извините за тупой вопрос, но все же. где скачать визуал С? поисковик выдает только С++ и С#

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (BlackRay) — Wed, 19 Sep 2012 04:31:13 +0000

спасибо большое. даже не ожидал что так быстро помогут )

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (smaharbA) — Tue, 18 Sep 2012 14:22:18 +0000

В дистрибутивы Windows входит Support Tools, где есть portqry.exe

MsgBox WshShell.Run("portqry.exe -n pop.mail.ru -e 110 -q", 0, True)

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (Александр_) — Tue, 18 Sep 2012 12:20:31 +0000

BlackRay пишет:

можно. просто у меня пока плохо получается писать скриптовые оболочки для екзешников

В приложении исполняемый файл вот с таким исходным кодом(Visual C):

#define WIN32_LEAN_AND_MEAN
#include 
#include 
#include 
#pragma comment(lib, "Ws2_32.lib")

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
	WSADATA wsaData;
	sockaddr_in service;
	SOCKET Socket;
	DWORD ip[5] = {0};
	if(WSAStartup(MAKEWORD(2, 2), &wsaData))
	{
		WSACleanup();
		return -2;
	}
	Socket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
	sscanf(lpCmdLine, "%u.%u.%u.%u:%u", ip, ip+1, ip+2, ip+3, ip+4);
	service.sin_family = AF_INET;
	service.sin_addr.S_un.S_un_b.s_b1 = (BYTE)ip[0];
	service.sin_addr.S_un.S_un_b.s_b2 = (BYTE)ip[1];
	service.sin_addr.S_un.S_un_b.s_b3 = (BYTE)ip[2];
	service.sin_addr.S_un.S_un_b.s_b4 = (BYTE)ip[3];
	service.sin_port = htons((WORD)ip[4]);
	if(connect(Socket, (SOCKADDR *)&service, sizeof(service))==SOCKET_ERROR)
	{
		WSACleanup();
		int err = WSAGetLastError();
		if(!err)
			return -1;
		return err;
	}
	closesocket(Socket);
	WSACleanup();
	return 0;
}

Пример использования скриптом:

Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.Run("temp.exe 85.254.12.12:25565", 0, 1)

Должен возвращать -1 если порт закрыт и 0 если открыт. любое другое значение говорит о том, что проверка не удалась.

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (BlackRay) — Tue, 18 Sep 2012 11:06:58 +0000

можно. просто у меня пока плохо получается писать скриптовые оболочки для екзешников

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (Александр_) — Tue, 18 Sep 2012 09:50:54 +0000

А нельзя использовать что-нибудь с возможностью вызова WinAPI, например AHK или сторонний экзешник?

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (BlackRay) — Tue, 18 Sep 2012 06:49:58 +0000

не знаю. вот по этому и создал тему. вдруг помогут

Re: OFF: Проверка состояния портов удаленного компьютера

null@example.com (alexii) — Tue, 18 Sep 2012 05:55:58 +0000

telnet.exe устанавливает код возврата для команды?

OFF: Проверка состояния портов удаленного компьютера

null@example.com (BlackRay) — Tue, 18 Sep 2012 04:57:45 +0000

задача состоит в том что бы автоматизировать проспотр порта на удаленном компьютере. пробовал следующий код:

Set WshShell = CreateObject("WScript.Shell")
Set ECode = WshShell.exec("telnet.exe 85.254.12.12 25565")
WScript.Sleep 2000
MsgBox ECode.ExitCode

но у меня не получается записать в переменную ExitCode выполнения программы.

сразу говорю что это не для взлома сервера, а для доброго дела