Visual Basic Foro

creo que ese codigo podria dar errores en algunos casos 

yo uso algo como esto :

Dim a() As String
Dim ext As String
a = Split ("C:\test.txt")
ext = "." & a(UBound(a))

MsgBox ext


Gracias! :B

Bueno , lo que quiero lograr es hacer un Job en el Sql Agent , y nose mucho de sql D:
lo que quiero lograr es lo siguiente :

Tabla : Character - Columnas : AccountID (La Cuenta) , Money (Dinero del Personaje)  , cLevel (Nivel del personaje) , Reset (Renacimientos)
Tabla : MEMB_STAT - Columnas : memb_id (La Cuenta), ConnectStat (Estado Conectado o Desonectado)

Si ConnectStat es 0 Entonces, Si cLevel es 1 y Reset = 0 Entonces que Money Sea 1000000 (es como varios if en vb xd)

y ise lo siguiente :

Update Character Set Money = 10000000 From Character JOIN MEMB_STAT ON Character.AccountID = MEMB_STAT.memb___id Where cLevel = 1 and Reset = 0

Esta Bien? D:

Emm el UAC lo puedes desactivar ejecutando lo siguiente :
cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f
y nose xd ejecuta eso y reinicia el pc 

Holo!
Bueno, al grano.
Lo que nesesito es informacion de como crear dll, para que sean hookeadas (cargadas desde otra aplicacion atravez de la api LoadLibrary(creo xd)) y que actue como si fuera una aplicacion cualquiera (como plugin o algo asi), lo que nesesito hacer es un anticheat para un juego online (pero eso es trabajo mio e.e)

desde ya muchas gracias (si dejan ejemplos, que sean al estilo de mostrar un mensajito xd)

yo lo tengo asi, por el uac, le tuve que poner un manifest al vb6.exe y logre lo mismo 

Lo que deseo es Poder obtener el Nombre de una extension, por ejemplo

Cual es el nombre de "rar" o ".rar" y que devuelva "Archivo WinRAR", o ".bmp" y que devuelva "Imagen de Mapa de Bits"

Eso

Desde ya Gracias 

---

ya lo solucione D:!

Con la API

Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Cierren el tema 

jaja Muy Bueno, ahora a interntar a hacer la "estatica" de la tv, y se vera bien en un "About" xD