últimos mensajes de: soplo - Página 9

Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

23 Abril 2024, 10:40 am

Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 52

81	Programación / Programación Visual Basic / Rutinas Interesantes	en: 10 Septiembre 2006, 21:22 pm
Hola Voy a ir poniendo aquí rutinas que son interesantes por distintas razones. Los que sepais de rutinas interesantes que agregar aquí mandarme un MP con el enlace puesto que este hilo estará bloqueado para impedir que se llene de basura. Son bienvenidas rutinas sobre los siguientes temas: a) temas de acceso a bases de datos b) temas de comunicaciones (email, irc, web, ftp, sockets en general, ..., etc). c) temas de control de la máquina y obtención de recursos (acceso y control de servicios, acceso y control de programas, instaladores, etc) d) temas de control de dispositivos (informes, acceso a la impresora, .., etc) e) Temas de acceso a las APIS f) temas de acceso al registro y archivos INI g) temas de creación y acceso a Logs Aquí solo rutinas interesantes. Como ejemplo este enlace de trucos visual basic Trucos visual basic http://www.elhacker.net/trucosvisual.htm Un saludo

82	Programación / Programación Visual Basic / Re: Cambiar la posición de un msgbox	en: 8 Septiembre 2006, 21:43 pm
Hola Citar PD. La idea es no utilizar formularios Un msgbox es una clase de un formulario modal y centrado. Si quieres hacerte uno a medida solo tienes que hacerte una clase a tu medida con las propiedades que te plazcan y situado donde quieras.

83	Programación / Programación Visual Basic / Re: ayuda con programa	en: 3 Septiembre 2006, 01:04 am
No entiendo lo que dices, pero si utilizas transacciones y al cerrar el programa haces un rollback la información no se almacena en tabla ¿es eso?

84	Programación / Programación Visual Basic / Re: Encontrar texto	en: 3 Septiembre 2006, 01:02 am
Hola Existe una función que busca una string contenida en otra y devuelve su posición instr(PosInicio,StringDondeSeBusca,StringABuscar) El tipo de comparación puede ser binario o textual y si no se especifica se utiliza el que venga en option compare Código: Dim S1 as string, S2 as string, PosIni as integer, PosEncontrado as integer S1="abcdefghijklm" S2="cde" PosIni=1 PosEncontrado=instr(PosIni,S1,S2) ' valor 3 PosIni=2 PosEncontrado=instr(PosIni,S1,S2) ' valor 0 no encontrado Así que solo tienes que ir leyendo línea a línea buscando "<font color=#008000>" y cuando lo encuentres buscas "</font><nobr>" de la misma manera. Una vez establecidas ambas posiciones solo tienes que extraer con mid la string que se encuentre entre una y otra. Para ello averiguas cuantos caracteres hay en medio Código: PosUltimoCaracterUrl=PosStrFinal-1 PosPrimerCaracterUrl=PosStrInicial+len(PosStrInicial)+1 TotalCaracteresUrl=PosUltimoCaracterUrl-PosPrimerCaracterUrl TotalCaracteresUrl=TotalCaracteresUrl+2 (contar los dos extremos) y ahora extraer el string adecuado Código: StringBuscada=mid(linea$,PosPrimerCaracterUrl,TotalCaracteresUrl) Un saludo

85	Programación / Programación Visual Basic / Re: Hola	en: 31 Agosto 2006, 21:32 pm
Hola WarGhost Eso no es la ip pública. De hecho la ip pública no reside en tu ordenador, reside en tu router y para conocerla puedes ir a alguna página que te lo diga (p. ej. www.showmyip.com) o utilizar algún proxy que te permita saber la variable ip-client. Lo que tu crees que es ip pública es la puerta de enlace que es la ip de tu router. Un saludo

86	Programación / Programación Visual Basic / Re: Hola	en: 31 Agosto 2006, 16:11 pm
Hola Winsock.localip te da la ip local. Lo que tu quieres no es la ip local, es la ip pública y esa no la puedes obtener fácilmente. Es fácil desde fuera, pero no lo es desde dentro. No veo como puedes hacer eso a menos que la conexión entrante de alguna forma deje esa información en algún sitio que puedas leer. Un saludo

87	Programación / Programación Visual Basic / Re: Hola necesito ayuda con este codigo	en: 30 Agosto 2006, 19:19 pm
hola Citar Text1.Text = "c:\em_sec.txt" Open "C:EM_SEC.TXT" For Input As #1 eing ¿No sería mejor esto? Código: Text1.Text = "c:\em_sec.txt" Open TEXT1 For Input As #1 Respecto a lo que estas metiendo en text1 en ese bucle pues espero que tu lo entiendas porque yo no.

88	Programación / Programación Visual Basic / Re: Hola	en: 29 Agosto 2006, 20:16 pm
Hola ¿Por qué esto? Código: If Not SwPonerAlaEscucha Then GoTo timer1_timer End If en vez de esto Código: If Not SwPonerAlaEscucha Then exit sub End If Citar no ahi alguna forma de que muestre la winsock.localip sin tener que hacer alguna opcion con el mouse sobre la label? Pues pon winsock.localip en otro sitio en vez de en label2.mousemove. Yo lo pondría dentro de la rutina de poner a la escucha. Esto es allí donde pones winsock.listen pones label2=winsock.localip Un saludo

89	Programación / Programación Visual Basic / Re: Hola	en: 28 Agosto 2006, 20:20 pm
Si funciona, y lo tuyo también

90	Programación / Programación Visual Basic / Re: Hola	en: 28 Agosto 2006, 20:09 pm
Hola Código: shell ('reg add /f @="Diablo II Close Game Server"')

Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 52

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines