VBNet - Форум - Автозагрузка и скриншот! помогите есть2 вопроса!!!

Вопрос: Автозагрузка и скриншот! помогите есть2 вопроса!!! Добавлено: 04.03.08 19:53

Автор вопроса: Andre

Здравствуйте! У меня есть к вам два вопроса. Я пишу троя на VB
1). Мене надо поставить программу в автозагрузку,из той папки откуда я её запустил.
2). Например у меня есть файл скриншота. Мне надо удалённо передать его по средствам Mswinsck на удалённый компьютер.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: GeniX ICQ: 418811267 Вопросов: 40 Ответов: 243	Web-сайт: porrygatter.zx6.ru Профиль \| \| #1	Добавлено: 04.03.08 20:43
	В Автозагрухку добавляется через реестр (API). А передавать, незнаю можно или нет, сам не пробовал. Но я думаю, что можно открывать в Text и передавать. А потом обратно. Ответить

Номер ответа: 2 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #2	Добавлено: 04.03.08 21:17
	Почему флеймовые темы закрывают через 5 минут после начала а темы где пишут ТРОЯНЫ!!! никто не закрывает? Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #3	Добавлено: 04.03.08 21:34
	АА! ЭТО СПАРТААА!! точнее троя... Steel Brand, а что тут вообще разве закрывают темы? Ответить

Номер ответа: 4 Автор ответа: GeniX ICQ: 418811267 Вопросов: 40 Ответов: 243	Web-сайт: porrygatter.zx6.ru Профиль \| \| #4	Добавлено: 04.03.08 21:52
	А что плохого в троянах? Ответить

Номер ответа: 5 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #5	Добавлено: 04.03.08 22:20
	Трой Темной стороны Силы есть продукт. Оттого джедая каждого борьба с ними быть должна целью. Ответить

Номер ответа: 6 Автор ответа: GeniX ICQ: 418811267 Вопросов: 40 Ответов: 243	Web-сайт: porrygatter.zx6.ru Профиль \| \| #6	Добавлено: 04.03.08 22:53
	А я не просто джедай. Я эльф-джедай-рокер! Ответить

Номер ответа: 7 Автор ответа: Pro100Vlad Вопросов: 4 Ответов: 11	Профиль \| \| #7	Добавлено: 04.03.08 23:13
	Использование компонента Winsock Компонент WinSock позволяет соединиться с удаленной машиной и обменяться с ней данными, используя UDP (User Datagram Protocol) или TCP (Transmission Control Protocol). Оба протокола могут быть использованы при создании клиент-серверных приложений. Также, как и Timer control, WinSock control является невидимым во время выполнения программы. Как им пользоваться? - cоздать приложение-клиент, которое будет собирать информацию перед отсылкой ее на центральный сервер; - cоздать приложение-сервер, которое будет выполнять роль сборщика и хранителя информации от различных клиентских приложений; - создать "chat"-приложение. Выбор протокола Когда планируется использование а WinSock, необходимо решить какой протокол будет использоваться - TCP или UDP. Основное отличие между ними заключается в способе организации связи: Соединение основанное на TCP протоколе, похоже на телефонное - пользователь сначала должен установить соединение, прежде чем что-либо передавать. Соединение основанное на UDP протоколе, похоже на передачу голосом, сообщение передается от одного компьютера к другому, но не ясно, слышат ли они друг друга. Вдобавок, максимальный размер предаваемых данных устанавливается сетью. Возможности приложения которое Вы создаете будет зависеть от протокола, который Вы изберете. Вот несколько вопросов которые могут помочь Вам выбрать подходящий протокол: Будет ли приложение требовать уведомления от сервера или клиента, когда данные передаются или получаются? Если будет, то TCP протокол требует установленного соединения между передатчиком и приемником данных. Будут ли передаваемые данные достаточно тяжелыми (например изображения или звуковые файлы)? Если соединение было установлено, TCP протокол будет его поддерживать и гарантируется целостность передаваемых данных. Такое соединение, из-за потребности в большем количестве вычислительных ресурсов, может сделать его более медленным. Будут ли данные передаваться порциями или за одну сессию? Например, если Вы создаете приложение, которое сообщает каким-то компьютерам, о том, что какие-то задачи уже выполнены, то UDP протокол более подходящий. UDP протокол также блучше подходит для передачи небольшого количества данных. Установка протокола Чтобы установить протокол, который будет использовать ваше приложение Вы должны в дизайн-тайме в окне свойств выбрать свойство Protocol и установить его sckTCPProtocol или sckUDPProtocol. Это можно также сделать программно: Winsock1.Protocol = sckTCPProtocol Определение имени компьютера. Чтобы установить связь с удаленным компьютером, Вы должны знать либо его IP-адресс, либо его имя. Основы TCP соединения Когда создается приложение, которое использует TCP протокол первое, что Вы должны решить, это чем будет ваше приложение клиентом или сервером. Если Вы создаете приложение-сервер, значит ваше приложение будет слушать указанный порт. Когда приложение-клиент подаст запрос на соедиение, приложение-сервер может принять запрос и таким образом установить соедиенеие. Если соединение установлено, приложение-клиент и приложение сервер могут свободно обмениваться данными. Следующие шаги позволят Вам создать элементарное приложение-сервер: Для создания TCP сервера Создайте новый Standard EXE проект. Замените имя формы по умолчанию на frmServer. В свойстве формы caption наберите "TCP Server" В меню Project\Components добавьте Microsoft Winsock Conrol 6.0 Перетащите иконку компонента Winsock с панели инструментов и разместите ее на форме; измените имя компонента на tcpServer. Добавьте на форму два Текстбокс элемента. В свойстве Name первого текстового поля наберите txtSendData, а второго txtOutput. Добавьте в форму следующий код: Private Sub Form_Load() 'Задать номер порта по которому будет осуществляться 'обмен данными, присвоив значение свойству LocalPort 'Вызвать метод Listen. tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show 'Показать форму клиента End Sub Private Sub tcpServer_ConnectionRequest (ByVal requestID As Long) ' Проверяется свойство State, было ли завершено ' предыдущее соединение. Если не завершено, ' то перед установлением нового соединения, ' старое закрывается принудительно. If tcpServer.State <> sckClosed Then tcpServer.Close ' Принятие запроса Accept с параметром requestID ' на установление соедиения. tcpServer.Accept requestID End Sub Private Sub txtSendData_Change() ' Текстовое поле txtSendData ' содержит данные для передачи. Все символы, ' которые будут вводиться в это текстовое поле, будут единой ' строкой посылаться приложению-клиенту, используя метод SendData. tcpServer.SendData txtSendData.Text End Sub Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long) ' Декларируется переменная-буфер для получаемых данных. ' Вызывается метод GetData и свойству Text ' текстового поля txtOutput, присваивается значение переменной- ' буфера. Dim strData As String tcpServer.GetData strData txtOutput.Text = strData End Sub Описанные выше действия, выполненные Вами, приведут к созданию простого приложения-сервера. Но для того чтобы полностью выполнить задачу, необходимо создать еще и приложение-клиент. Для создания TCP приложения-клиента Добавьте новую форму в проект и назовите ее frmClient. И змените свойство формы caption на "TCP Client". Перетащите и разместите компонент Winsock на форму и измените его свойство name на "tcpClient". Добавьте два Текстбокс-контрола на форму frmClient. Имя первого установите txtSend, а второго txtOutput. Перетащите на форму CommandButton и установите его свойство name в "cmdConnect". Измените свойство caption этой кнопки на "Connect". Добавьте следующий код в форму. Важно!!! Будьте внимательны при установке свойства RemoteHost. Оно должно соответствовать либо IP-адресу вашего компьютера, либо его "Дружественному имени" (см. Пуск\Настройка\Панель управления\Сеть) выберите вкладку "Идентификация". Текст из поля "Имя компьютера" и будет так называемым дружественным именем, которым можно заменять IP-адрес. Сам же IP-адрес, можно посмотреть, если выбрать закладку "Конфигурация" в списке выбрать TCP/IP, нажать кнопку "Свойства" и выбрать закладку IP-адрес. Private Sub Form_Load() ' Имя Winsock-компонента tcpClient. ' Указывая имя удаленного компьютера можно ' указывать IP-адрес (например: "121.111.1.1" или ' дружественное имя, как в нижеприведенном коде. tcpClient.RemoteHost = "RemoteComputerName" 'или "121.111.1.1" tcpClient.RemotePort = 1001 End Sub Private Sub cmdConnect_Click() ' Вызвать метод Connect для создания соединения tcpClient.Connect End Sub Private Sub txtSend_Change() tcpClient.SendData txtSend.Text End Sub Private Sub tcpClient_DataArrival (ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub Сохраните проект в отдельной директории. Код приведенный выше - это простейшее клиент-серверное приложение. Чтобы попробовать, как это все работает на одной машине в связке, имитирующей межмашинное соединение, значение свойства RemoteHost приложения-клиента должно соответствовать дружественному имени или IP-адресу вашего компьютера. Запустите проект и нажмите кнопку "Connect". После этого наберите текст внутри текстового поля txtSendData на каждой форме и убедитесь, что тот же самый текст появится в текстовом поле txtOutput другой формы. Если Вы хотите, попробовать, как приложения будут осуществлять связь между двумя компьютерами, то Вам прийдется произвести следующие действия: Удалить из кода формы приложения-сервера строку frmClient.Show. В окне Project Explorer щелкнуть правой кнопкой мыши на форме frmClient.frm и в появившемся меню выбрать Remove frmClient.frm после чего сохранить проект под именем Server1. Открыть первый вариант проекта и таким же образом удалить из проекта уже форму frmServer.frm. Создать exe модуль для frmClient-а и переписать его на удаленный компьютер и запустить его там. Примечание: если на удаленном компьютере не установлен VB будьте готовы к тому, что вам потребуется переписать на него из WINDOWS\SYSTEM\mswinsck.ocx и зарегистрировать его при помощи команды WINDOWS\SYSTEM\regsvr32.exe mswinsck.ocx Если приложение будет требовать какие-то дополнительные dll модули перепишите их со своей машины на удаленную. На своей машине, откройте проект Server и запустите его. На клиентской машине нажмите кнопку Connect и наберите текст внутри текстового поля txtSendData на каждой форме и убедитесь, что тот же самый текст появится в текстовом поле txtOutput в приложении, запущенном на другом компьютере. Обработка более чем одного запроса на установление соединения Приложение-сервер, которое мы создавали сначала может обработать только один запрос на соединение. Тем не менее, существует возможность обработать несколько запросов на соединение, используя тот же самый управляющий элемент как один из массива управляющих элементов. В этом случае, необязательно закрывать соединение - просто создайте новый вариант управляющего элемента (использовав его свойство Index) и вызовите метод Accept для этого нового варианта управляющего элемента. В приведенном ниже тексте программы, свойству Index, размещенного на форме Winsock-компонента sckServer, присваивается значение 0, таким образом, управляющий элемент становится частью массива управляющих элементов. В разделе Declarations описана локальная переменная intMax. Когда для формы происходит событие Load, переменной intMax присваивается значение 0 и свойству LocalPort первого элемента массива управляющих элементов присваивается значение 1001. Только после того, как вызывается метод Listen этого управляющего элемента, он начинает слушать указанный порт. Когда поступает новый запрос на соединение, осуществляется проверка значения Index и равно ли оно 0 (значение элемента, который слушает порт). Таким образом, элемент который слушает порт, будет приращивать переменную intMax и использовать значение этой переменной для создания нового элемента массива. Этот новый элемент будет использоваться для обработки запроса на соединение. Private intMax As Long Private Sub Form_Load() intMax = 0 sckServer(0).LocalPort = 1001 sckServer(0).Listen End Sub Private Sub sckServer_ConnectionRequest (Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckServer(intMax) sckServer(intMax).LocalPort = 0 sckServer(intMax).Accept requestID Load txtData(intMax) End If End Sub Основы UDP Создавать приложения, использующие UDP протокол проще, чем создавать приложения, использующие TCP протокол. Дело в том, что UDP не требует уже установленного соединения, как необходимого условия для передачи данных. В приложениях использующих TCP соединение, один Winsock элемент должен обязательно "слушать" порт, в ожидании пока какое-нибудь другое приложение не станет инициатором соединения, использовав метод Connect. UDP протокол не требует обязательно установленного соединения для передачи данных. Для передачи данных между двумя приложениями, необходимо выполнить три следующих пункта с обеих соединяющихся сторон: присвоить свойству RemoteHost дружественное имя или IP-адрес компьютера с которым предстоит соединение; установить свойство RemotePort для LocalPort property of the second control. Вызвать метод Bind указав какой локальный порт будет использоваться (метод Bind подробнее будет обсужден ниже). Т.к. оба компьютера полагаются равными в установлении соединения, мы можем назвать это соединение peer-to-peer. Чтобы продемонстрировать это соединение мы создадим так называемое приложение-chat позволяющее двум людям общаться в реальном режиме времени. Для создания UDP соединения Создайте Standard EXE проект. Измените свойство name формы на frmPeerA. Измените свойство caption формы на "Peer A" Перетащите с панели инструментов иконку Winsock компонента и разместите его на форме. Присвойте свойству name значение udpPeerA. Измените свойство Protocol на UDPProtocol. Добавьте два текстовых поля на форму. Имя первой должно быть txtSend а второй txtOutput. Добавьте приведенный ниже код на форму. Private Sub Form_Load() ' Имя Winsock элемента udpPeerA With udpPeerA ' Важно: правильно укажите значение RemoteHost ' компьютера, с которым предстоит соединение. .RemoteHost= "PeerB" .RemotePort = 1001 ' Имя порта для соединения. .Bind 1002 ' Привязка к локальному порту. End With frmPeerB.Show ' Показать вторую форму. End Sub Private Sub txtSend_Change() ' Послать текст, как только он будет набран. udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub Чтобы создать второе UDP приложение Добавить стандартную форму в проект. Изменить имя формы на frmPeerB. Изменить свойство caption формы на "Peer B". Перетащить и разместить иконку Winsock компонента на форму. Изменить имя Winsock на udpPeerB. Изменить свойство Protocol на UDPProtocol. Добавить два текстовых поля на форму. Имя первого должно быть txtSend, а второго txtOutput. Добавьте следующий код в форму. Private Sub Form_Load() ' Имя Winsock элемента udpPeerB. With udpPeerB ' Будьте внимательны указывая имя или IP-адрес ' компьютера с которым предстоит соединение. .RemoteHost= "PeerA" .RemotePort = 1002 ' Номер порта для соединения. .Bind 1001 ' Привязка к локальному порту. End With End Sub Private Sub txtSend_Change() ' Пересылать текст, как только он будет набран в текстовом поле. udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub Чтобы попробовать приложение запустите проект, и наберите в текстовом поле txtSend каждой формы какой-то текст. Этот текст появится в текстовых полях txtOutput другой формы. О методе Bind Как показано в приведенном выше примере, Вы должны вызывать метод Bind, когда создается UDP приложение. Метод Bind резервирует локальный порт для использования его элементом Winsock. Например, когда Вы привязываете свой элемент Winsock к порту 1001, то ни одно другое приложение не может использовать этот порт для прослушивания. Это может быть полезным, когда Вы хотите воспрепятствовать какому-либо другому приложению использовать этот порт. Метод Bind имеет еще один необязательный аргумент. Если на вашем компьютере установлено более одного сетевого адаптера, аргумент LocalIP позволит Вам точно указать адаптер, который необходимо использовать. Если Вы не укажите этот аргумент, то Winsock компонент будет использовать тот сетевой адаптер, который расположен первым в списке, который можно посмотреть в Пуск\Настройка\Панель управления\Система\Сетевые платы. Когда используется UDP протокол, Вы можете изменять свойства RemoteHost и RemotePort пока сохраняется привязка к тому же самому LocalPort. Если бы Вы использовали TCP протокол, то прежде чем сменить свойства RemoteHost и RemotePort, необходимо сначала закрыть соединение. Автор: Oleg Palayda -------------------------------------------------------------------------------- Наверх \| На главную страницу 10. Как заставить Winsock работать с несколькими соединениями? Контрол Winsock позволяет создавать только одно соединение между двумя компьютерами. Однако, можно создать несколько соединений (несколько компьютеров к одному) путём создания нескольких экземпляров Winsock-а во время работы. Добавьте контрол Winsock в Вашу форму и установите его индекс в 0, затем добавьте следующий код в программу сервера, к которому Вы собираетесь создавать несколько соединений: Option Explicit Public NumSockets As Integer '//Public Variable to track number of Connections Private Sub Form_Load() Caption = Winsock1(0).LocalHostName & Winsock1(0).LocalIP Winsock1(0).LocalPort = 1066 Print "Listening to " + Str(Winsock1(0).LocalPort) Winsock1(0).Listen End Sub Private Sub Winsock1_Close(Index As Integer) Print "Connection Closed :" & Winsock1(Index).RemoteHostIP Winsock1(Index).Close End Sub Private Sub Winsock1_ConnectionRequest(Index As Integer,ByVal requestID As Long) Print "Connection Request from : " & Winsock1(Index).RemoteHostIP NumSockets = NumSockets + 1 '//Увеличиваем количество Сокетов на один. Load Winsock1(NumSockets) '//Загружаем новый объект Winsock Winsock1(NumSockets).Accept requestID '//Ждём нового соединения End Sub Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim vtData As String Winsock1(Index).GetData vtData, vbString Print vtData End Sub Теперь Мы можем продолжать ожидать соединения. Ответить

Номер ответа: 8 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #8	Добавлено: 05.03.08 09:47
	А нельзя было просто дать ссылку на эту статью? GENI, я круче, я эльф-джедай-металлист Ответить

Страница: 1 |