Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

kann mir vielleicht jemand helfen...
Autor: Xelion
Datum: 03.04.02 18:09
ich habe hier mal den source code gepostet bei dem er mir immer sagt das irgendwelche variblen nicht declariet wurden weiss jemadn vielleicht wie ich das machen muss, damit das funtzt??? hier der code (die stellen die net funtzen hzabe ich makiert): _______________________________________ Public Const MIN_SOCKETS_REQD As Long = 1 Public Const WS_VERSION_REQD As Long = &H101 Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD &H100 And &HFF& Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF& Public Const SOCKET_ERROR As Long = -1 Public Const WSADESCRIPTION_LEN = 257 Public Const WSASYS_STATUS_LEN = 129 Public Const MAX_WSADescription = 256 Public Const MAX_WSASYSStatus = 128 Public Type WSAData wVersion As Integer wHighVersion As Integer szDescription(0 To MAX_WSADescription) As Byte szSystemStatus(0 To MAX_WSASYSStatus) As Byte wMaxSockets As Integer wMaxUDPDG As Integer dwVendorInfo As Long End Type Declare Function WSACleanup Lib "WSOCK32" () As Long Declare Function WSAStartup Lib "WSOCK32" (ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long Declare Function gethostbyaddr Lib "wsock32.dll" (haddr As Long, ByVal hnlen As Long, ByVal addrtype As Long) As Long Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) Public Function GetHostName(ByVal Address As Long) As String Dim lLength As Long, lRet As Long If Not | SocketsInitialize() | Then Exit Function lRet = gethostbyaddr(Address, 3, AF_INET) <-- kann es auch daran liegen, das steht ja inet ich will es aber übers lan haben muss ich da was ändern!!! If lRet <> 0 Then CopyMemory lRet, ByVal lRet, 3 lLength = lstrlenA(lRet) If lLength > 0 Then GetHostName = Space$(lLength) CopyMemory ByVal GetHostName, ByVal lRet, lLength End If Else GetHostName = "" End If | SocketsCleanup | End Function Public Function HiByte(ByVal wParam As Integer) HiByte = wParam &H100 And &HFF& End Function Public Function LoByte(ByVal wParam As Integer) LoByte = wParam And &HFF& End Function ___________________________________________________

Frage zu einem Tipp	67	Xelion	01.04.02 17:37
Übersetzung ....	351	unbekannt	01.04.02 19:09
Re: Übersetzung ....	33	Xelion	01.04.02 19:19
Nein.	291	unbekannt	01.04.02 19:28
Re: Nein.	31	Xelion	01.04.02 19:33
Re: Nein.	306	unbekannt	01.04.02 19:45
Re: Nein.	31	Xelion	01.04.02 19:46
Poste mal, was Du bis jetzt hast. (oT)	282	unbekannt	01.04.02 19:49
Re: Poste mal, was Du bis jetzt hast. (oT)	39	Xelion	01.04.02 19:55
Wo soll der Computername sein? Ich finde da nichts. Niergend...	238	unbekannt	01.04.02 20:28
Re: Wo soll der Computername sein? Ich finde da nichts. Nier...	46	Xelion	01.04.02 20:37
Na dann hast Du die Frage aber falsch formuliert.	255	unbekannt	01.04.02 20:43
Re: Na dann hast Du die Frage aber falsch formuliert.	30	Xelion	01.04.02 21:00
Oh Mann, gestern hatte ich genau das noch unter den Fingern....	254	unbekannt	01.04.02 21:02
Eine DLL ... *grübel* aber in welcher? Fällt mir bestimmt no...	224	unbekannt	01.04.02 21:12
hoff hoff	33	Xelion	01.04.02 21:24
Ist es dir noch mal eingefallen??	30	Xelion	02.04.02 14:42
Re: Ist es dir noch mal eingefallen??	22	Xelion	02.04.02 20:32
Uff, mir fällt's nicht mehr ein	271	unbekannt	02.04.02 20:44
Re: Uff, mir fällt's nicht mehr ein	163	Xelion	02.04.02 20:52
Found aber hallo, klar Winsock.DLL ... näheres gleich.....	298	unbekannt	02.04.02 20:52
*Lol* gefunden bei Allapi-Net ... so long:	413	unbekannt	02.04.02 21:00
Re: *Lol* gefunden bei Allapi-Net ... so long:	24	Xelion	02.04.02 21:06
fehler	31	Xelion	02.04.02 21:18
kann mir vielleicht jemand helfen...	27	Xelion	03.04.02 18:09
Re: kann mir vielleicht jemand helfen...	294	Dieter	03.04.02 18:19
Re: kann mir vielleicht jemand helfen...	25	Xelion	03.04.02 18:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen