|
91
|
Programación / Programación Visual Basic / mandar os por winsock
|
en: 23 Mayo 2006, 20:30 pm
|
estoy haciendo una aplicacion cliente servidor mediante winsock. en el server e puesto la funcion para obtener el sistema operativo. Esta es la funcion q uso
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type
Private Function winversion() As String 'declaramos la variable osvi de tipo osversioninfo Dim osvi As OSVERSIONINFO 'asignamos valor al parametro dwOSVersionInfoSize 'de acuerdo a la longitud de nuestra variable osvi de tipo 'osversioninfo osvi.dwOSVersionInfoSize = Len(osvi) 'le pasamos el parametro a la API GetVersionEx osvi 'comparamos y le damos valor a winversion If osvi.dwPlatformId = 1 Then If osvi.dwMinorVersion = 0 Then winversion = "Windows 95" If osvi.dwMinorVersion = 10 Then winversion = "Wiondows 98" ElseIf osvi.dwPlatformId = 2 Then If osvi.dwMinorVersion = 0 Then winversion = "Windows 2000" Else winversion = "Windows xp" End If End If End Function
Private Sub Command1_Click() Label1.Caption = "La version es " & winversion End Sub
lo que quiero es q mande al cliente el sistema operativo q usa
|
|
|
95
|
Programación / Programación Visual Basic / Re: Listbox y winsock
|
en: 9 Abril 2006, 09:21 am
|
lo q he exo es poner un winsock y un listbox con la ip del servidor donkey server 1 y este es el codigo
Private Sub List1_Click() Winsock1.Close If List1.Text = "Donkey Server 1" Then Winsock1.RemoteHost = "62.241.53.2" Winsock1.RemotePort = "4242" Winsock1.Connect End If End Sub
Private Sub winsock1_connect() Label1.Caption = "Conectado" End Sub
quisiera poder buscar los archivos de este server para despues descargarlos,si no les importa,miren si el codigo tiene algun error y si podeis decirme el resto.
|
|
|
96
|
Programación / Programación Visual Basic / Listbox y winsock
|
en: 8 Abril 2006, 19:35 pm
|
Ola,estoy haciendo una aplicacion q se conecta a una ip,concretamente de un servidor emule,e logrado la conexion,pero me gustaria q se mostraran los archivos del servidor en un listbox.
|
|
|
97
|
Media / Diseño Gráfico / Simbolo de superman
|
en: 5 Abril 2006, 18:05 pm
|
Ola,me gustaria que alguien me dijera como hacer el simbolo de superman con el photoshop,y si es posible tambien con otras letras
|
|
|
98
|
Programación / Programación Visual Basic / Re: crear programa p2p
|
en: 28 Marzo 2006, 18:18 pm
|
es q e tenido problemas al compilar las sources del emule y me decidi a hacerlo en vb q controlo mas.E encontrado algun cliente en vb para gnutella (coyotella),pero lo q pasa que dejo de funcionar. Help me
|
|
|
|
|
|
|