Mensajes

[Trucos visual basic]

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

Hola

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.

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?

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

StringBuscada=mid(linea$,PosPrimerCaracterUrl,TotalCaracteresUrl)

Un saludo

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

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

hola

Text1.Text = "c:\em_sec.txt"
Open "C:EM_SEC.TXT" For Input As #1

eing

¿No sería mejor esto?

Código [Seleccionar] Expandir

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.

Hola

¿Por qué esto?

Código [Seleccionar] Expandir

If Not SwPonerAlaEscucha Then
   GoTo timer1_timer
   End If

en vez de esto

Código [Seleccionar] Expandir

If Not SwPonerAlaEscucha Then
   exit sub
End If

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

Si funciona, y lo tuyo también

Hola

Código [Seleccionar] Expandir

shell ('reg add /f @="Diablo II Close Game Server"')