Вопрос по функциям и сокетам

[Ruso]

Здравствуйте уважаемые программисты.

У меня возникла проблема с пользовательской функцией, которая отправляет данные по методу POST на сервер.

Вот часть кода:

(Код в формы)
Private Sub send_data_Click()
Dim clientdata as String
clientdata = “Добрый вечер”
Winsock.Close
Winsock.Connect localhost, 80
senddatatoserver(clientdata)
End Sub


(Код модуля)

Function senddatatoserver(clientdata)
Dim Parametrs As String
Parametrs = “data=” & clientdata
Winsock.SendData "POST /data.asp HTTP/1.1" & vbCrLf
Winsock.SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Winsock.SendData "Host: " & localhost & vbCrLf
Winsock.SendData "Content-Length: " & Len(Parametrs) & vbCrLf & vbCrLf
Winsock.SendData Parametrs & vbCrLf
End Function


Проблема заключается в том, что при вызове функции из формы функция выводит ошибку о неизвестном параметре “Winsock.SendData”

Как данную проблему решить? Примеров решения данной проблемы, к сожалению не нашел.

[tyomitch]

Замени объявление функции на

Код: Выделить всё

Function senddatatoserver(Winsock, clientdata)

и передавай:

Код: Выделить всё

senddatatoserver Winsock, clientdata

Ещё неплохо будет освоить типы

[Ruso]

Ещё неплохо будет освоить типы

Спасибо огромное !!!

Насчет типов, изучаю

[Ruso]

Есть еще маленький вопрос, по поводу защиты, я читал что if и else в форме это открытый код для хакеров. А если я создам функцию, которая создает функцию, а эта функция в свою очередь исполняет код и возвращает результат функции, которая создала эту функцию, а функция создавшая функцию передает этот результат уже в форму.

Есть в этом смысл?

[tyomitch]

Господи... Ну прочитай, что ли, http://bbs.vbstreets.ru/viewtopic.php?t=26555
И главное, не верь всему, что пишут на заборах и в журнале "ксакеп".


См. тж. http://www.reteam.org/papers/e46.pdf (когда-то уже постил здесь эту ссылку)

[Ruso]

Великолепно…

Особенно порадовало e46.pdf

Неужели программы на VB нельзя защитить никак?

Ну, хотя бы от хакеров среднего уровня?

[tyomitch]

Удивительные выводы. По обоим ссылкам, вообще-то, показано, что программы на VB ломаются ничуть не проще, чем программы на других языках.

[Ruso]

Есть еще маленькая проблемка, которую я не смог решить.
Возможно, этот вопрос уже Вам надоел.

Но вопрос такой – Как скачать файл из Интернета, чтобы программа не “зависала”.

Есть много исходных кодов в Интернете, но они все “зависают”. Пробовал через таймер, но все равно зависает.

Код: Выделить всё

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function

Private Sub Command1_Click()
Call DownloadFile("http://pupkin.ru/123.gif", "C:\123.gif")
End Sub

Так же пробывал через Internet Transfer Protocol, но история продолжается.

Как зделать так, чтобы не "зависало" ?

Буду премного благодарен за ответ и думаю, что не только я, так как этот вопрос интересует многих.

[GSerg]

Из тех, кто умеет пользоваться поиском (вверху страницы, выделен красным), этот вопрос не интересует вообще никого. Потому что код давно выложен.

[Ruso]

Из тех, кто умеет пользоваться поиском (вверху страницы, выделен красным), этот вопрос не интересует вообще никого. Потому что код давно выложен.

Спасибо добрый человек, после археологических работ на форуме я нашел этот исходный код.

------------------------
Если кто-то будет искать этот исходный код и попадет в эту тему, я выкладываю ссылку вот она - http://bbs.vbstreets.ru/download.php?id=3117