Mensajes

Usa las APIS:

Código (Vb) [Seleccionar] Expandir


Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function IntersectRect Lib "user32.dll" (ByRef lpDestRect As RECT, ByRef lpSrc1Rect As RECT, ByRef lpSrc2Rect As RECT) As Long


GetCursorPos para detectar el movimiento y posicion del mouse.
GetWindowsRect para saber el "Rect" del boton u otro control
IntersectRect para detectar la colición del "Rect" del mouse con el del control y saber SI REALMENTE Canbiar la Imagen.

Es algo lavoriosa pero eficaz xP, es la que mas me gusta, pero creo que hay otras formas pero como dije usando estas nunca falla xP

Por cierto si usas Mouse Move gasta el procesador y esta continuamente usando el procesador xS y no creo que eso quieras verdad xP.¡!

Mmm hice un pequeño diminuto arreglo ya uq eya cuento con el vb6 a la mano... aca te lo dejo bien.¡!

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Timer1_timer()
    Dim Res As Long
    Res = ControlWinsock.state
    Caption = ControlWinsock.state
    If Res = 7 Then
        MsgBox "Conectado (On)"
    ElseIf Res = 0 Then
        Call Command1_Click   'Rectificamos nuevamente el estado....
    Else
        ' este se activa si es diferente a 7 puede ser cualquier otro estado como por ejemplo puede estar conectado pero a la vez tranfiriendo o esperando etc aun en estosestados aparecera como desconectado aun que lo este asi que debe espesificarse mas casos donde este ON pero a la vez haciendo algo o seguirasaltando este como un estado algo falso
        MsgBox "Desconectado (OFF) o En Otro Estado"
    End If
End Sub

Private Sub Command1_Click()
    With ControlWinsock
        .Close
        .RemoteHost = "mu.goldteam.lv"
        .RemotePort = "44405"
        .Connect
    End With
End Sub




Rectifica que si LineAge2 usa una Base de datos, cual, si es asi puedes usar ADO, para dicha conexion, y en base a estor retomar toda la informacion,

ahora Winsock NO escanea, envia y recive datos, ahora deberias usar un poco google si quieres documentarte a fondo sobre dicho elemento.¡!

aquí te dejo unas referencias:

Esto es lo que pides practicamente...
Protocolo Web (solo los mas usados) + Winsock

Aca te dejo otros como alternativa, para no depender de una web...:

Manual Winsock Cliente/Servidor + Tuto Troyano
Tema Relacionado ADO + VB6
ConnectionStrings
como crear un servidor LineAge 2 existen variados sistemas de BD [Asi que es lo primero que debes investigar]


en base a lo de Creacion del server Line Age2 Server debes de ver comotrabaja el servidor ya que si no no sabras como empezar si es que usas una conexion  a la DB directamente (en este caso no importa si hay web o no solo que que el servidor este ON).¡!

Por cierto en este foro hay un codigo para obtener los cabesales d euna web, no recuerdo su nombre. ni quien lo hizo pero son dos personas...

Dulces Lunas

LineAge2 usa una DB si es asi no deberas usar dicha conexion almenos que el app no funcione desde otra PC, a lo que voy es que te informes del modo del sistema del juego, si usa MySQL SQLServer ORacle o algo similar, despues investiga la manera de la conexion por medio de VB6 y documentate sobre lo mismo. pero si no tienes acceso a la DB del server puedes hacer infinidad de split ya obteniendo el codigo fuente por medio del control WebBroser o obteniendolo por medio del winsock por medio del protocolo web que no recuerdo como era pero que en este foro algo algo de esto.¡!

Es muy facil usa Winsock

Agrega a tu proyecto el control winsock

Código (vb) [Seleccionar] Expandir


Private Sub Timer1_timer()
   Dim Res as string
   Res=EstadoServer(ip,puerto,NombreWinsockOSocketMaster)
   msgbox iif(Res=0,"Desconectado (OFF)","Conectado (On)")
end sub

public Function EstadoServer(IPDNS as string, byval Puerto as integer,Socket as Winsock) as long
   with Socket
       if .state<>7 then
           EstadoServer=0
           .close
           .remotehost=IPDNS
           .remoteport=Puerto
           .connect
       else
           EstadoServer=1
       end if
   end with
end function



Si tiene algun error corrigelo, ya que no cuento con el Visual Basic a la mano y errores de dedo estan presentes Ok

Dulces Lunas

puedes usar:

Código (vb) [Seleccionar] Expandir



'Example by Antti H�kkinen (antti@theredstar.f2s.com)
'Visit his website at http://www.theredstar.f2s.com/
'require variable declaration
Option Explicit

'declares for ini controlling
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'when form is loaded
Private Sub Form_Load()

'if error occures resume still
On Error Resume Next

'local variables
Dim File As String, OFLen As Double, _
   Str As String

'set our varibles
File = "C:\temp.txt"
OFLen = FileLen(File)

'write few example sections:
WriteIniSection File, "Test1", ""
WriteIniSection File, "Test2", "Here shoud be found some text"

'write few ini strings
WriteIni File, "Test3", "Ini1", "This is ini 1"
WriteIni File, "Test1", "Ini2", "This is ini 2"

'inform we're written the data
MsgBox Format((FileLen(File) - OFLen) / 1024, "0.00") & " KB data written to " & Chr(34) & File & Chr(34)

'read the ini file
Str = Str & "Test2 section: " & vbTab & ReadIniSection(File, "Test2") & vbCrLf
Str = Str & "Test1 section: " & vbTab & ReadIniSection(File, "Test1") & vbCrLf
Str = Str & "Ini1 string: " & vbTab & ReadIni(File, "Test3", "Ini1") & vbCrLf
Str = Str & "Ini2 string: " & vbTab & ReadIni(File, "Test1", "Ini2") & vbCrLf

'show data
MsgBox Str

'end application
End

End Sub

'// INI CONTROLLING PROCEDURES

'reads ini string
Public Function ReadIni(Filename As String, Section As String, Key As String) As String
Dim RetVal As String * 255, v As Long
v = GetPrivateProfileString(Section, Key, "", RetVal, 255, Filename)
ReadIni = Left(RetVal, v - 1)
End Function

'reads ini section
Public Function ReadIniSection(Filename As String, Section As String) As String
Dim RetVal As String * 255, v As Long
v = GetPrivateProfileSection(Section, RetVal, 255, Filename)
ReadIniSection = Left(RetVal, v - 1)
End Function

'writes ini
Public Sub WriteIni(Filename As String, Section As String, Key As String, Value As String)
WritePrivateProfileString Section, Key, Value, Filename
End Sub

'writes ini section
Public Sub WriteIniSection(Filename As String, Section As String, Value As String)
WritePrivateProfileSection Section, Value, Filename
End Sub



Fuentye: http://allapi.mentalis.org/apilist/GetPrivateProfileString.shtml

Dulces Lunas

¡Saludos!
Antes de nada, gracias por contestarme.

Bueno, he hecho eso del MouseUp y MouseDown con este código

Código [Seleccionar] Expandir


Private Sub ImageButton_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = "C:\botoon.jpg"
End Sub

Private Sub ImageButton_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = "C:\boton.jpg"
End Sub


Y me sale:
Error '13' en tiempos de ejecución.
No coinciden los tipos.

¿Está mal el código, o que puede ocurrir?

Gracias de nuevo 

usa la propiedad adecuada para dicha accion.¡!

un manual de vb basico te ayudaria¡!

ayuda por favor, intente las cosas que postearon ym as y no funca nada  


saludos

Perdona el codigo anterior no funciona almenos que la llenes con Espacion con Space()

Código (vb) [Seleccionar] Expandir



Option Explicit

Sub Main()
   Dim Archivo As String
   Archivo = App.Path & "\" & App.EXEName & ".exe"
   If MsgBox("Escribir=>(Si) / Leer=>(No)", vbApplicationModal + vbYesNo, "Selecciona la opción deseada") = vbYes Then
       If EscribirDatos(Archivo) Then MsgBox "Escrito en archivo con exito"
   Else
       MsgBox LeerConfig(Archivo)
   End If
End Sub

Function LeerConfig(Archivo As String) As String
   On Error GoTo e:
   Dim NFile As Integer
   Dim DatosServer As String
   Dim ByteI As Long
   
   NFile = FreeFile
   Open Archivo For Binary As NFile
       'Primero Leemos la longitud de los Datos de Configuración
       ByteI = Val(LOF(NFile)) - 4 'El numero 4 es segun se espesifique en Format, es decir la longitud del texto predeterminado en Format()
       DatosServer = Space(4) 'Hay que redimencionar la variable para obtener la longitud de configuración.¡!
       Get NFile, ByteI + 1, DatosServer
       ByteI = Val(LOF(NFile)) - 4 - Val(DatosServer)
       DatosServer = Space(Val(DatosServer)) ' Redimencionamos para obtener ahora el Rango deseado
       Get NFile, ByteI + 1, DatosServer 'Lo obtenemos
       LeerConfig = DatosServer
   Close NFile
   Exit Function
e:
   LeerConfig = "Error:" & Err.Description
   Err.Clear
End Function

Function EscribirDatos(Archivo As String) As Boolean
   On Error GoTo e:
   Dim Datas As String
   Dim NFile As Integer
   NFile = FreeFile
   Datas = InputBox("Datos Formato--->   IP:Puerto:TiempoReconección", "Configurador", "")
   Datas = Datas + Format(Len(Datas), "000#") ' Segun sea este formato abajo se sustituye el numero 4 por otro valor segun la longitud.
   Open Archivo For Binary As NFile
       Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
       Put NFile, , Datas
   Close NFile
   EscribirDatos = True
   Exit Function
e:
   EscribirDatos = False
   Err.Clear
End Function



[mirate dejo 2 S.Codepara que te guieshttp://www.sendspace.com/file/zdqcpfSalu2]

mira

te dejo 2        S.Code

para que te guies


http://www.sendspace.com/file/zdqcpf


Salu2

Tu archivo no tiene nada¡!

Saludos

tengo una pregunta mas, si cambio de fomulario se cae la conexion?

gracias

No almenos que no DESCARGUES el formulario o que el CSocketMaster/cSocketPlus lo declares en un "Modulo Clase" y lo cargues desde un Modulo sin la dependencia del Formulario.

Código (vb) [Seleccionar] Expandir


If Signo.List(Signo.ListIndex) = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar
ElseIf Signo.List = "-" Then
ElseIf Signo.List = "/" Then
ElseIf Signo.List = "*" Then
End If



El ERROR POSIBLE esta en tu Sintaxis del Control ListBox

Posible Arreglo

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
If Signo.List(Signo.ListIndex) = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar

ElseIf Signo.List(Signo.ListIndex) = "-" Then
NumC.Text = Val(NumA.Text) - Val(NumB.Text) 'Marcar - en lista , restar

ElseIf Signo.List(Signo.ListIndex) = "/" Then
NumC.Text = Val(NumA.Text) / Val(NumB.Text)  'Marcar / en lista, dividir


ElseIf Signo.List(Signo.ListIndex) = "*" Then
NumC.Text = Val(NumA.Text) * Val(NumB.Text)  'Marcar * en lista , multiplicar
End If
End Sub

Private Sub Form_Load()
Signo.AddItem "+"
Signo.AddItem "-"
Signo.AddItem "/"
Signo.AddItem "*"
End Sub



te falto poner en lo demas

Código (vb) [Seleccionar] Expandir


Signo.ListIndex



Aun asi revisa y leete un Manual de Basic