Cita de: dynyck en 8 Agosto 2009, 23:13 PM
Si no necesitas que el usuario ingrese completamente el nombre, podrías utilizar instr.
Gracias no conocia la funcion ntsr
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: dynyck en 8 Agosto 2009, 23:13 PM
Si no necesitas que el usuario ingrese completamente el nombre, podrías utilizar instr.
for x = 0 to lista.listcount -1
if lista.list(x) = texto.text then
etc...
end if
next x
Cita de: *pockae=rand()%4294967295; en 8 Agosto 2009, 22:30 PM
pungados
No entiendo a que te refieres con más nivel, le dejamos la mejor documentación que puede existir, y tu a pesar de todo, utilizaste la api :S
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim X
Dim p
p = "c:/direccion"
X = ShellExecute(Me.hwnd, "Open", p, &O0, &O0, SW_NORMAL)
form1.visible=false
, sigue trabajando?
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol ' primero especifico el tipo de protocolo
Winsock1.RemoteHost = "xxx.xxx.x.xx" ' le especifico la IP del host
Winsock1.RemotePort = "xxxx" ' le especifico el puerto al que quiero conectarme
'Hasta ahi creo que voy bien, ahora quiero conectarme y verificar la conexión
'Entonces pongo .Connect
Winsock1.Connect
End Sub