VBNet - Форум - Пример на тему "Передача файлов через Winsock"

Вопрос: Пример на тему "Передача файлов через Winsock" Добавлено: 07.11.03 13:26

Автор вопроса: xaker^2

Пример на тему передачи файлов через Winsock(winsock1-w):
Разместите на форме progressbar c иминем pp1, кнопку command1
Возможно будет выдавать ошибки - писал по памяти попрубуйте разобраться сами. Если будет не хватать каких то sub\function то напишите в форум и я их допишу!!!
P.S. Писал в блокноте по памяти
'Client:
sub command1_click()
getfile "c:\1.txt","c:\1.txt"
end sub
public lop as string
Public Function va(s As String, par As Integer)
If par = 0 Or par = 1 Then Exit Function
r = Len(s)
z$ = r
For i = 1 To par - Len(z$)
z$ = "0" + z$
Next i
va = z$
End Function
sub getfile(path as string,path2 as string)
lop=path2
w.senddata "sav" & va(path, 3) & path & "000010"
end sub
sub w_dataarrival(..)
w.GetData X$, , 3
Select Case X$
case "msg"
w.GetData z$, , 3
w.GetData a$, , z$
MsgBox a$, vbInformation + vbOKOnly, "Îòâåò:"
case "sav"
w.GetData vbn$, , 5
w.GetData vbn$, , vbn$
Save( Val(vbn$))
end select
end sub
Sub Save( ii As Long)
On Error Resume Next
Open lop For Binary As #1
w.GetData fgg$, , 2
Dim hjk As Long
Dim pp As Long
w.GetData fgg$, , fgg$
pp = Val(fgg$)
Pp1.Max = pp
w.GetData fgg$, , 2
Dim op As Long
op = ii * 350 + 350
Pp1.Value = op
If op > pp Then op = pp - 3: al = 1
For ll = ii * 350 To op
w.GetData fgg$, , fgg$
hjk = Val(fgg$)
Put #1, ll, hjk
w.GetData fgg$, , 2
Next ll
w.senddata "sav" & va(lop, 3) & lop & va(Str$(ii + 1), 5) & Str$(ii + 1)
If al = 1 Then Pp1 = 0
Close
End Sub
'Server:
dim mlk as new filesystemobject
dim filer as file
sub w_dataarrival(..)
w.GetData X$, , 3
Select Case X$
case "sav"
w.GetData dfgr$, , 3
w.GetData dfgr$, , dfgr$
w.GetData ghg$, , 5
w.GetData ghg$, , ghg$
Save dfgr$, Val(ghg$)
end select
end sub
Sub Save(s As String, ll As Long)
On Error Resume Next
Set filer = mlk.GetFile(s)
jjj = filer.Size
If ll * 350 > jjj Then
ikj$ = "Закчка на ваш комп завершена!"
w.SendData "msg" & va(ikj$, 3) & ikj$
Exit Sub
End If
w.SendData "sav" & va(Str$(ll), 5) & Str$(ll)
w.SendData va(filer.Size, 2) & filer.Size
Open s For Binary As #1
Dim g As Long
Dim hjk As Long
If filer.Size < ll * 350 + 350 Then
kkk = filer.Size
ui = kkk - ll * 350
Else
ui = 350
End If
For aaa = ll * 350 To ll * 350 + ui
Get #1, aaa, g
k$ = Trim$(Str$(g))
w.SendData va(k$, 2) & k$
Next aaa
Close
End Sub

Ответить

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

Номер ответа: 1
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #1

Добавлено: 07.11.03 17:01

Stranno, no vsjo eto che-to ne pashet

Ответить

Номер ответа: 2
Автор ответа:

xaker^2

Вопросов: 6
Ответов: 80

Профиль | | #2

Добавлено: 07.11.03 17:08

где имменно? ты вообще знаешь что такое winsock?

Ответить

Номер ответа: 3
Автор ответа:

MACROS

Вопросов: 24
Ответов: 21

Профиль | | #3

Добавлено: 07.11.03 18:27

1) у тебя переменные не правильно определены, VB их не понимает

2) Отсутствует функция va

3) ... ну проверь сам на Бейсике, и если возможно, то напиши комментарии.

А вообще спасибо за статейку, особенно если бы она работала

Не поленись и переделай её в VB, и там ее протести.

А еще ... напиши полный код обоих приложений (клиента и сервера) от начала до конца, и включи туда все и как прога коонектится (я то знаю, но вдруг у тебя там что-то другое, из-за чего у тебя работает а у меня нет)

Ответить

Номер ответа: 4
Автор ответа:

xaker^4

Вопросов: 4
Ответов: 7

Профиль | | #4

Добавлено: 07.11.03 19:25

Вот собрал типа всё на вебэ и с коннектом:

http://g--k.newmail.ru файл C-SFiles.zip

в текст1 - айпи

верхняя кнопка - коннект

нижння -скачать

1-файл источник

2-файл приёмщик

Ответить

Номер ответа: 5 Автор ответа: StrikeR ICQ: 151819 Вопросов: 32 Ответов: 110	Web-сайт: www.highlight.ee Профиль \| \| #5	Добавлено: 07.11.03 22:48
	2 xaker^4: Ty prosto geni thx) ty ochen pomog, teper zdite krutogo trojana Ответить

Номер ответа: 6
Автор ответа:

xaker^4

Вопросов: 4
Ответов: 7

Профиль | | #6

Добавлено: 07.11.03 22:58

А чего его ждать? Вот мой потдерживает:

-клав шпион

-снимок экрана

-полная работа с файлами ипапками

-полная работа с реестром

-ввод символов

-запуск приложений и веб-страниц

-сервер авт высылает о себе инфу(ай-пи и время и имя)

-полная работа с окнами и процессами

-откр\закр сиди

-жужание влоппом и моргание сиди

-заставка Вирус

-блокировка меню пуск и таск манажёра

-выключение, перезагрузгу и логофф

-запрет на выкл компа

-дёрганье курсора

-показ картинки в центре поверх всех окон

-полную инфу о windows, usere,i password win9x

и ещё чтот-то

Ответить

Номер ответа: 7
Автор ответа:

rtm

ICQ: 193396468

Вопросов: 1
Ответов: 4

Профиль | | #7

Добавлено: 17.11.03 04:45

xaker^2

....и сколько же весит твой чудо троянь?

Ответить

Номер ответа: 8
Автор ответа:

AASoft

Вопросов: 86
Ответов: 920

Профиль | | #8

Добавлено: 17.11.03 06:46

2 Haker^4:

-клав шпион

-снимок экрана

-полная работа с файлами ипапками

-полная работа с реестром

-ввод символов

-запуск приложений и веб-страниц

-сервер авт высылает о себе инфу(ай-пи и время и имя)

-полная работа с окнами и процессами

-откр\закр сиди

-жужание влоппом и моргание сиди

-заставка Вирус

-блокировка меню пуск и таск манажёра

-выключение, перезагрузгу и логофф

-запрет на выкл компа

-дёрганье курсора

-показ картинки в центре поверх всех окон

-полную инфу о windows, usere,i password win9x

и ещё чтот-то

a dat` ne mog by???

Ответить

Номер ответа: 9 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #9	Добавлено: 17.11.03 23:51
	Поделитесь клав. шпионом, пожайлуста Ответить

Номер ответа: 10
Автор ответа:

Vilya

ICQ: 232995216

Вопросов: 12
Ответов: 63

Web-сайт: нету
Профиль | | #10

Добавлено: 14.03.04 22:34

Скинь пожалуйсто на Vit-sh@yandex.ru

Ответить

Страница: 1 |