Ответьте, пожалуйста, на пару вопросов по VB!
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Ответьте, пожалуйста, на пару вопросов по VB! - 2005-07-21 23:19:38
|
|
|
voody
Сообщений: 958
Оценки: 0
Присоединился: 2005-02-06 22:28:30
|
Ответьте, пожалуйста, кому не трудно, на пару вопросов по VB, уж очень нужно (вопросы расположены, начиная с самого важного для меня):
1) Как по сети послать файл (я не имею ввиду, про эл. почту)? Или, более точный вопрос: как преобразовать файл в строку, и как его потом обратно записать в файл из строки, указав имя и расширение (я пробовал просто читать и писать в другой файл с помощью FileSystemоЬjесt''а - и если этот файл не был с расширением *.TXT - то ничего не работало)?
2) Как в windоws''ах семейства NT можно вытащить логины, пароли и телефоны подключений к интернету (про PWL, пожалуйста, не надо, я это и сам знаю, вот только в NT этих PWL''ов нет!!!)? И как потом все это расшифровать, если оно зашифровано (что скорее всего так)?
3) Как соединить с помощью контрола Winsock двух человек, а правильнее, как им друг друга найти, если они оба в одно время находяться в интернете. Или, каким другим способом это можно осуществить, если Winsock этого сделать не может?
4) Как изменить надпись на кнопке ПУСК при помощи (если есть более простые варианты - еще лучше) API функций Findwindоw, Showwindоw, FindwindоwEx? Я знаю, что чтобы, например, спрятать панель задач - достаточно написать небольшой код:
<BR>———————————————————<BR>Private Declare Function Showwindоw& Lib "user32" _<BR>(ByVal hWnd&, ByVal Visible&)<BR>Private Declare Function Findwindоw Lib "user32" _ Alias "FindwindоwA" (ByVal windоw As String, _<BR>ByVal NullString As String) As Long<BR><BR>Private Sub Form_Load()<BR>Call Showwindоw(Findwindоw( _<BR>"Shell_TrayWnd", vbNullString), 0)<BR>End Sub<BR>———————————————————-<BR>
А с ПУСКОМ что?
5) Можно ли с помощью контрола Winsock соединять несколько человек (чтобы сервер дальше подключал клиентов, если к нему уже кто-то подключен)? Если это возможно - то как работать с каждым клиентом отдельно (допустим, как сервер будет слать информацию какому-нибудь определенному клиенту с помощью SendData)?
ЗАРАНЕЕ ВСЕМ СПАСИБО ЗА ПОМОЩЬ!
|
|
|
|
|
Ответьте, пожалуйста, на пару вопросов по VB! - 2005-07-22 14:16:56
|
|
|
skr1pac4
Сообщений: 7
Оценки: 0
Присоединился: 2005-07-22 13:03:01
|
На все тови вопросы не отвечу но исходники я думаю ты наедешь сам в поисковике открой иньский номер ][ там есть линк на поисковик исходников
а вот с 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
С надпесью на кнопке пуск можешь не париться писать в VB API функции считаю гиблым делом берись за Delphi или VC++ там подобный код реализуется более удобным способом.
обязательно пиши если найдешь способ для dialup троя в VB
web-servis@yandex.ru
|
|
|
|
|
|
