[APORTE] Códigos útiles para tu AO.

[Argentum Online]

Originalmente publicado por AyudandOh.-

Vi a mucha gente que hacen un post de como poner dados 18, o skills faciles, bueno son codigos faciles que no necesitan ser un experto para hacerlo.


Para enpezar vamos hacer unos codigos principales para tu ao.


1.- Dados 18/18


en SERVER, vamos a (Protocol.bas)


Buscamos el sub:



Private Sub HandleThrowDices(ByVal UserIndex As Integer)


y reemplazamos todo ese sub por este:



Private Sub HandleThrowDices(ByVal UserIndex As Integer)
'************************************************* **
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'
'************************************************* **
'Remove packet ID
Call UserList(UserIndex).incomingData.ReadByte

With UserList(UserIndex).Stats
.UserAtributos(eAtributos.Fuerza) = 18
.UserAtributos(eAtributos.Agilidad) = 18
.UserAtributos(eAtributos.Inteligencia) = 18
.UserAtributos(eAtributos.Carisma) = 18
.UserAtributos(eAtributos.Constitucion) = 18
End With

Call WriteDiceRoll(UserIndex)
End Sub


2.- Para aumentar la exp, en server, en (MODULO_NPCs.bas)


Para la exp, buscamos:



Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))


Y si queres que la exp este por 100 lo reemplazas por:



Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) *100


3.- Para aumentar el oro, en server, (MODULO_NPCs.bas)


Para el oro, Buscamos:



Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD"))


Y si queres que el oro este por 50 reemplazas por:



Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD")) *50


4.- Para que los skills suban rapido. en server, (Modulo_usuarios.bas)


Buscamos el sub:



Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer)


y a todo ese sub lo reemplazas por este:



Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer)

If UserList(UserIndex).flags.Hambre = 0 And UserList(UserIndex).flags.Sed = 0 Then

If UserList(UserIndex).Stats.UserSkills(Skill) = MAXSKILLPOINTS Then Exit Sub

Dim Lvl As Integer
Lvl = UserList(UserIndex).Stats.ELV

If Lvl > UBound(LevelSkill) Then Lvl = UBound(LevelSkill)

If UserList(UserIndex).Stats.UserSkills(Skill) >= LevelSkill(Lvl).LevelValue Then Exit Sub

Dim Aumenta As Integer
Dim Prob As Integer

If Lvl <= 1 Then
Prob = 100
ElseIf Lvl > 1 And Lvl < 1 Then
Prob = 100
ElseIf Lvl >= 1 And Lvl < 1 Then
Prob = 100
ElseIf Lvl >= 1 And Lvl < 1 Then
Prob = 100
Else
Prob = 100
End If

Aumenta = RandomNumber(100, Prob)

If Aumenta = 100 Then
UserList(UserIndex).Stats.UserSkills(Skill) = UserList(UserIndex).Stats.UserSkills(Skill) + 1
Call WriteConsoleMsg(UserIndex, "¡Has mejorado tu skill " & SkillsNames(Skill) & " en un punto!. Ahora tienes " & UserList(UserIndex).Stats.UserSkills(Skill) & " pts.", FontTypeNames.FONTTYPE_INFO)

UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.Exp + 50
If UserList(UserIndex).Stats.Exp > MAXEXP Then _
UserList(UserIndex).Stats.Exp = MAXEXP

Call WriteConsoleMsg(UserIndex, "¡Has ganado 50 puntos de experiencia!", FontTypeNames.FONTTYPE_FIGHT)

Call WriteUpdateExp(UserIndex)
Call CheckUserLevel(UserIndex)
End If
End If

End Sub


5.- Para que mine de a mas.


En server, en (trabajo.bas)


Buscamos:



If UserList(UserIndex).clase = eClass.Miner Then
MiObj.amount = RandomNumber(1, 4) '(NicoNZ) 04/25/2008
Else
MiObj.amount = 1
End If


y lo reemplazas por:


If UserList(UserIndex).clase = eClass.Miner Then
MiObj.amount = RandomNumber(80, 140) '(NicoNZ) 04/25/2008
Else
MiObj.amount = 80
End If


Ahi vendria a minar de a 80/140 pueden modificarlo a su gusto.


6.- Para que se tale de a mas.


en (trabajo.bas) Buscamos:



If UserList(UserIndex).clase = eClass.Lumberjack Then
MiObj.amount = RandomNumber(1, 4)
Else
MiObj.amount = 1
End If


Y lo reemplazas por:



If UserList(UserIndex).clase = eClass.Lumberjack Then
MiObj.amount = RandomNumber(80, 140)
Else
MiObj.amount = 80
End If


Ahi vendriamos a que se tale de a 80/140 Pueden modificarlo a su gusto.


7.- Para que se pesce de a mas.


En (trabajo.bas) Buscamos:



If UserList(UserIndex).clase = eClass.Fisher Then
MiObj.amount = RandomNumber(1, 4)
Else
MiObj.amount = 1
End If


y lo reemplazas por:



If UserList(UserIndex).clase = eClass.Fisher Then
MiObj.amount = RandomNumber(80, 140)
Else
MiObj.amount = 80
End If


Ahi vendria a pescar de a 80/140 pueden modificarlo a su gusto.


8.- Para poner nivel maximo.


en declaraciones.


Buscamos:




Public Const STAT_MAXELV As Byte = 255


Y si queres que el nivel maximo sea 50 cambiamos por esto:



Public Const STAT_MAXELV As Byte = 50


9.- Para que medite mas rapido


en declaraciones buscamos:


Public Const TIEMPO_INICIOMEDITAR As Integer = 2000


Ahi medita de a 2 segundo.. "2000" son 2 segundo. si queremos que medite cada 1 segundo lo reemplazamos por:



Public Const TIEMPO_INICIOMEDITAR As Integer = 1000


10.- Para que lingotee de a 50. En (Trabajo.bas)


Buscamos el sub:



Private Function MineralesParaLingote(ByVal Lingote As iMinerales) As Integer


Y a todo ese sub lo reemplazamos por:



1. Private Function MineralesParaLingote(ByVal Lingote As iMinerales) As Integer
2. Select Case Lingote
3. Case iMinerales.HierroCrudo
4. MineralesParaLingote = 700
5. Case iMinerales.PlataCruda
6. MineralesParaLingote = 1000
7. Case iMinerales.OroCrudo
8. MineralesParaLingote = 1750
9. Case Else
10. MineralesParaLingote = 10000
11. End Select
12. End Function


Ahi vendria a lingotear de a 50.


11.- Para algunos que desean tener un servidor de mucho oro, a ver si me explico. el server que tenga: oro: 150, bueno, es muy facil conseguir el oro ya que es facil la oro. y aveces siempre ahi alguien que tira mucho oro y lagea. para eso vamos hacer que tire de a 2k de oro, y no de a 10k. claro que si quieren que tire de a 100k de oro tambien se podria hacer. bueno enpezamos:


en cliente, (frmCantidad.frm)


Buscamos:



Private Sub Command2_Click()
If Inventario.SelectedItem = 0 Then Exit Sub

If Inventario.SelectedItem <> FLAGORO Then
Call WriteDrop(Inventario.SelectedItem, Inventario.Amount(Inventario.SelectedItem))
Unload Me
Else
If UserGLD > 10000 Then
Call WriteDrop(Inventario.SelectedItem, 10000)
Unload Me
Else
Call WriteDrop(Inventario.SelectedItem, UserGLD)
Unload Me
End If
End If


frmCantidad.Text1.Text = ""
End Sub


Y lo reemplazamos por este:



Private Sub Command2_Click()
If Inventario.SelectedItem = 0 Then Exit Sub

If Inventario.SelectedItem <> FLAGORO Then
Call WriteDrop(Inventario.SelectedItem, Inventario.Amount(Inventario.SelectedItem))
Unload Me
Else
If UserGLD > 2000 Then
Call WriteDrop(Inventario.SelectedItem, 2000)
Unload Me
Else
Call WriteDrop(Inventario.SelectedItem, UserGLD)
Unload Me
End If
End If


frmCantidad.Text1.Text = ""
End Sub


Ahi vendria a tirar de a 2k el oro. y no de a 10k.


12.- Para que el oro valla directo a la bille


en server, (MODULO_NPCs.bas)


Buscamos el sub:



Sub NPCTirarOro(MiNPC As npc, UserIndex As Integer)


y reemplazamos todo ese sub por este:



Sub NPCTirarOro(MiNPC As npc, UserIndex As Integer)




'SI EL NPC TIENE ORO LO TIRAMOS
If MiNPC.GiveGLD = 0 Then
Call WriteConsoleMsg(UserIndex, "No te dio oro el npc.", FontTypeNames.FONTTYPE_INFO)
End If
If MiNPC.GiveGLD > 0 Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
Call WriteConsoleMsg(UserIndex, "El npc te ha dado " & MiNPC.GiveGLD & " monedas de oro", FontTypeNames.FONTTYPE_INFO)
Call WriteUpdateUserStats(UserIndex)
End If

End Sub


Ahora lo ultimo, buscamos:



Call NPCTirarOro(MiNPC)


y lo reemplazamos por:



Call NPCTirarOro(MiNPC, UserIndex)


Listo, ahi vendria a ir el oro directo a la bille cuando matas a un npc.


13.- Por ultimo, Nombres siempre visibles.


en cliente, (TileEngine.bas)


Buscamos:



# If Nombres And Abs(nX - X) < 2 And (Abs(nY - Y)) < 2 Then


y a eso lo reemplazas por:



if nombres then


Creo que era asi, Bueno sin mas nada que se me ocurra. SALUDOS.-

[Argentum Online]

Originalmente publicado por AyudandOh.-

Me tome todo el tiempo para hacerlo y escribir para ustedes, Solo espero que les sirva estos codes,


Aclaro: Funcionan todos en la vercion de alkon 13.0


Bueno, enpezamos.


1.- Nombres Siempre visibles.


En el cliente. Mod_tileEngine. Buscamos:



If Nombres And (esGM(UserCharIndex) Or Abs(MouseTileX - .Pos.X) < 2 And (Abs(MouseTileY - .Pos.Y)) < 2) Then


Y lo reemplazas por:



If nombres then


2.- Oro directo a la bille


En el server, InvNpc. Buscamos el sub:



Public Sub TirarOroNpc(ByVal Cantidad As Long, ByRef Pos As WorldPos)


Y lo reemplazamos por:



'AyudandOh
Public Sub TirarOroNpc(ByVal UserIndex As Integer, ByVal Cantidad As Long, ByRef Pos As WorldPos)


On Error GoTo Errhandler


If Cantidad > 0 Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + Cantidad
Call WriteUpdateGold(UserIndex)
Call WriteConsoleMsg(UserIndex, "Has obtenido " & Cantidad & " monedas de oro.", FontTypeNames.FONTTYPE_INFO) 'Ponele una comilla adelante de esta linea si no queres q salga por consola
End If


Exit Sub


Errhandler:
Call LogError("Error en TirarOro. Error " & Err.Number & " : " & Err.description)
End Sub


Despues buscamos el sub:



Public Sub NPC_TIRAR_ITEMS(ByRef npc As npc, ByVal IsPretoriano As Boolean)


Y reemplazamos todo ese sub por este:



'AyudandOh
Public Sub NPC_TIRAR_ITEMS(ByVal UserIndex As Integer, ByRef npc As npc, ByVal IsPretoriano As Boolean)


On Error Resume Next


With npc

Dim i As Byte
Dim MiObj As Obj
Dim NroDrop As Integer
Dim Random As Integer
Dim ObjIndex As Integer

If IsPretoriano Then
For i = 1 To MAX_INVENTORY_SLOTS
If .Invent.Object(i).ObjIndex > 0 Then
MiObj.Amount = .Invent.Object(i).Amount
MiObj.ObjIndex = .Invent.Object(i).ObjIndex
Call TirarItemAlPiso(.Pos, MiObj)
End If
Next i


If .GiveGLD > 0 Then _
Call TirarOroNpc(UserIndex, .GiveGLD, .Pos)

Exit Sub
End If

Random = RandomNumber(1, 100)

If Random <= 90 Then
NroDrop = 1

If Random <= 10 Then
NroDrop = NroDrop + 1

For i = 1 To 3


If RandomNumber(1, 100) <= 10 Then
NroDrop = NroDrop + 1
Else
Exit For
End If
Next i

End If



ObjIndex = .Drop(NroDrop).ObjIndex
If ObjIndex > 0 Then

If ObjIndex = iORO Then
Call TirarOroNpc(UserIndex, .Drop(NroDrop).Amount, npc.Pos)
Else
MiObj.Amount = .Drop(NroDrop).Amount
MiObj.ObjIndex = .Drop(NroDrop).ObjIndex

Call TirarItemAlPiso(.Pos, MiObj)
End If
End If


End If


End With


End Sub


Y por ultimo buscamos:



Call NPC_TIRAR_ITEMS(MiNPC, IsPretoriano)


Y lo reemplazamos por:



Call NPC_TIRAR_ITEMS(UserIndex, MiNPC, IsPretoriano)


3.- Dados 18/18


En server, Protocol.bas, Buscamos el sub:



Private Sub HandleThrowDices(ByVal UserIndex As Integer)


Y a todo ese sub lo reemplazamos por:



'AyudandOh.-
Private Sub HandleThrowDices(ByVal UserIndex As Integer)


Call UserList(UserIndex).incomingData.ReadByte

With UserList(UserIndex).Stats
.UserAtributos(eAtributos.Fuerza) = 18
.UserAtributos(eAtributos.Agilidad) = 18
.UserAtributos(eAtributos.Inteligencia) = 18
.UserAtributos(eAtributos.Carisma) = 18
.UserAtributos(eAtributos.Constitucion) = 18
End With

Call WriteDiceRoll(UserIndex)
End Sub


4.- Minar de a mas.


En server, Trabajo.bas, Buscamos:



If UserList(UserIndex).clase = eClass.Worker Then
CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))

MiObj.Amount = RandomNumber(1, CantidadItems)
Else
MiObj.Amount = 1


Y lo reemplazamos por:



If UserList(UserIndex).clase = eClass.Worker Then
CantidadItems = 0 + MaximoInt(20, CInt((.Stats.ELV - 4) / 5))

MiObj.Amount = RandomNumber(50, CantidadItems)
Else
MiObj.Amount = 0


Ahi vendria a minar de a 20/50


5.- Para talar de a mas


En server, Trabajo.bas, Buscamos:



If UserList(UserIndex).clase = eClass.Worker Then
With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(1, CantidadItems)
Else
MiObj.Amount = 1


Y lo reemplazamos por:



If UserList(UserIndex).clase = eClass.Worker Then
With UserList(UserIndex)
CantidadItems = 0 + MaximoInt(20, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(50, CantidadItems)
Else
MiObj.Amount = 0


Hay vendria a talar de a 20/50


6.- Para lingotear de a mas, Buscamos:



With UserList(UserIndex)
CantidadItems = MaximoInt(1, CInt((.Stats.ELV - 4) / 5))


Y lo reemplazamos por:



With UserList(UserIndex)
CantidadItems = MaximoInt(50, CInt((.Stats.ELV - 4) / 5))


Hay vendria a lingotear de a 50


7.- Para Pescar de a mas buscamos:



With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(1, CantidadItems)
Else
MiObj.Amount = 1


Y lo reemplazamos por:



With UserList(UserIndex)
CantidadItems = 0 + MaximoInt(50, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(50, CantidadItems)
Else
MiObj.Amount = 0


Hay se pescaria de a 50/50


8.- Tirar oro cada 1k



If UserGLD > 10000 Then
Call WriteDrop(Inventario.SelectedItem, 10000)
Unload Me
Else
Call WriteDrop(Inventario.SelectedItem, UserGLD)
Unload Me


Y lo reemplazamos por:



If UserGLD > 1000 Then
Call WriteDrop(Inventario.SelectedItem, 1000)
Unload Me
Else
Call WriteDrop(Inventario.SelectedItem, UserGLD)
Unload Me


Hay vendria a tirar de a 1k de oro, no de a 10k, Puede llegar hacer
Util para aquellos que tiene su servidor con mucho oro.


9.- Subir la experiencia


En server, NPCs, Buscamos:



.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))


Y lo reemplazamos por:



.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) * 100


Hay vendria a tener la exp por 100,


10.- Subir el oro


En server, NPCs, Buscamos:



.GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD"))


Y lo reemplazamos por:



.GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD")) * 100


Hay tendriamos 100 de oro.


11.- Cambiar de color el nick del gm DIOS, en server, Declaraciones, Buscamos:



Dios = &H8


y lo reemplazamos por:



Dios = &H10


Ahi el gm dios vendria a tener el nick blanco. pueden ponerle el color
que ustedes quieran.


12.- Para que medite mas rapido.


Buscamos:



Public Const TIEMPO_INICIOMEDITAR As Integer = 2000


Y lo reemplazamos por:



Public Const TIEMPO_INICIOMEDITAR As Integer = 1000


1000 es 1 segundo, y 2000 son 2 segundos. Ahora
vendria a meditar cada 1 segundo.


13.- Poner Nivel MAXIMO


Buscamos:



Public Const STAT_MAXELV As Byte = 255


Y lo reemplazamos por:



Public Const STAT_MAXELV As Byte = 50


Hay vendria hacer nivel maximo 50. Pueden ponerle el lvl max
que ustedes quieran.


14.- Sacar NOTICIAS.


Bueno, en client, vamos a FrmConnect. Hacemos lo siguiente


Borramos: Webnoticias


Buscamos:



webNoticias.Navigate ("http://ao.alkon.com.ar/noticiascliente/noticias.php")


Y lo borramos


Buscamos:



Private Sub webNoticias_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
If StatusCode = 500 Then webNoticias.Visible = False
End Sub


Y lo borramos






Listo, Me canse jaja, despues veo si pongo algunas otra cosas.


Saludos.- AyudandOh.-


-2- .

[Argentum Online]

Originalmente publicado por AyudandOh.-

Vamos a seguir con los "CODIGOS UTILES"...




Bueno, les dejo algunos codes mas para la vercion 13.0 de alkon. "Vamos a robarle el credito a C4b3z0n" :$


1.-Para subir skills faciles en la vercion 13.0, Buscamos el sub:



Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)


y lo reemplazamos por:



Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)
'Modificado por c4b3z0n; sube skill en uso.
With UserList(UserIndex)
With .Stats
If .UserSkills(Skill) = MAXSKILLPOINTS Then Exit Sub

Dim Lvl As Integer
Lvl = .ELV

If Lvl > UBound(LevelSkill) Then Lvl = UBound(LevelSkill)

If .UserSkills(Skill) >= LevelSkill(Lvl).LevelValue Then Exit Sub


.UserSkills(Skill) = .UserSkills(Skill) + 1


Call WriteConsoleMsg(UserIndex, "¡Has mejorado tu skill " & SkillsNames(Skill) & " en un punto! Ahora tienes " & .UserSkills(Skill) & " pts.", FontTypeNames.FONTTYPE_INFO)
.Exp = .Exp + 50
If .Exp > MAXEXP Then .Exp = MAXEXP

Call WriteConsoleMsg(UserIndex, "¡Has ganado 50 puntos de experiencia!", FontTypeNames.FONTTYPE_FIGHT)

Call WriteUpdateExp(UserIndex)
Call CheckUserLevel(UserIndex)
End With
End With


End Sub


Bueno, ahora vamos con mis codes :P.


2.-Para limpiar el mundo automaticamente.


En server, General.bas


Buscamos el sub:



Sub EnviarSpawnList(ByVal UserIndex As Integer)


Y arriva pones:



'AyudandOh.-
Sub LimpiarMundoEntero()


Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor> Limpiando Mundo.", FontTypeNames.FONTTYPE_SERVER))
Dim MapaActual As Long
Dim Y As Long
Dim X As Long


For MapaActual = 1 To NumMaps
For Y = YMinMapSize To YMaxMapSize
For X = XMinMapSize To XMaxMapSize
If MapData(MapaActual, X, Y).ObjInfo.ObjIndex > 0 And MapData(MapaActual, X, Y).Blocked = 0 Then
If ItemNoEsDeMapa(MapData(MapaActual, X, Y).ObjInfo.ObjIndex) Then Call EraseObj(10000, MapaActual, X, Y)
End If
Next X
Next Y
Next MapaActual


LimpiezaTimerMinutos = TimerCleanWorld


Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor> Limpieza del mundo realizada.", FontTypeNames.FONTTYPE_SERVER))
End Sub


Despues creamos un TIMER en FRMMAIN. Intervalo: 6000 y de nombre: LimpiezaTimer y de codigos le ponemos:



'AyudandOh.-
Private Sub LimpiezaTimer_Timer()
lblLimpieza = "Limpieza del mundo en: " & LimpiezaTimerMinutos & " minutos."


If Not LimpiezaTimerMinutos = 0 Then
LimpiezaTimerMinutos = LimpiezaTimerMinutos - 1
Else
lblLimpieza = "Limpieza del mundo en: ¡Limpiando Mundo!"
Call LimpiarMundoEntero
End If


If LimpiezaTimerMinutos = 5 Then
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor > Atencion, 5 minutos para limpieza del mundo. Tomar items del piso.", FontTypeNames.FONTTYPE_SERVER))
End If
End Sub


Y despues creamos un LABEL en el FRMMAIN. con el nombre: lblLimpieza


Lo ultimo, en declaraciones buscamos:



Option Explicit


Y abajo ponemos:



Public HayGlobal As Boolean
Public LimpiezaTimerMinutos As Byte
Public Const TimerCleanWorld As Byte = 30
Public CuentaRegresivaTimer As Byte


Y listo, donde dice:



Public Const TimerCleanWorld As Byte = 30


Son cada 30 min que se limpia el mundo, podes cambiar el tiempo por que que vos quieras. ACLARO, NO PASARSE DE LOS 255.


Saludos. 100% FUNCIONAL.




Esto no borra lo que esta bloq, ni los portales, Saludos.


3.-Bueno, este code es una boludes, pero por hay a alguien le gusta.


Para que no se te balla lo newbie al nivel 13.


Buscamos en declaraciones:



Public Const LimiteNewbie As Byte = 12


Y lo reemplazamos por:



Public Const LimiteNewbie As Byte = 25


Hay se vendria a salir lo newbie al nivel 25.


4.-CUANdo entras al ao se te aparece una cartel de tutorial, bueno
No nos sirve de mucho para los que hacemos los mod alkon
para sacarlo hacemos lo siguiente:


En cliente, buscamos:



Me.Picture = LoadPicture(DirGraficos & "VentanaTutorial.jpg")


y lo borramos.


5.-Ahora para sacar las presentaciones cuando entramos al ao.


buscamos en cliente;



Private Sub Timer1_Timer()
Static ticks As Long


Dim PresPath As String


ticks = ticks + 1


If ticks = 1 Then
PresPath = DirGraficos & "HostingAlkon.jpg"
Me.Picture = LoadPicture(PresPath)
puedo = True


ElseIf ticks = 2 Then
PresPath = DirGraficos & "Presentacion" & RandomNumber(5, 8) & ".jpg"
Me.Picture = LoadPicture(PresPath)

Else
Unload Me
End If


End Sub


Y lo reemplazamos por:



Private Sub Timer1_Timer()
Static ticks As Long


Dim PresPath As String


ticks = ticks + 1



Unload Me


End Sub


Ultimamente no ando mucho en el visual basic mirando los codigos. hoy entre y vi eso, despues si se me ocurre algo mas lo posteo.


Saludos.- AyudandOh.-



-3- .