Y más o menos que "función" tendría usar una "función" que utilice la "función" "MsgBox"? para simular un MsgBox? como si no exsitiera dicha función y trabajarás solo con API's...
¿rendundante?

¿rendundante?

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Krackwar en 15 Septiembre 2008, 20:03 PMSi tienes toda la razon cobein pero piensa si este codigo que con esfuerzo tradujo kiash lo emvian a virustotal va ser detectado y ya no le sirve a kiash y gracias a que a que fue bueno y lo publico para que los demas lo vieran.
Cita de: cobein en 14 Septiembre 2008, 21:24 PM
cualquier codigo que sea publico tiene la posibilidad o es detectado por los AVs muy rapidamenete
Option Explicit
Dim sRuta As String
Private Sub Cmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd.Picture = LoadPicture(sRuta & "Imagen2.jpg")
End Sub
Private Sub Form_Load()
'La popiedad Style del CommandButton debe ser igual a 1
'definimos la ruta donde se encuentran las imagenes
sRuta = "C:\Documents and Settings\usuario\Escritorio\Imagenes\"
'cargamos la imagen
Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index <> 1 And Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
Private Sub Form_Load()
MsgBox RaizA(14, 2) ' ejemplo1
MsgBox RaizB(27, 3) ' ejemplo2
End Sub
Private Function RaizA(ByVal Radicando As Double, Indice As Double) As Double
RaizA = Radicando ^ (1 / Indice)
End Function
Private Function RaizB(ByVal Radicando As Double, Indice As Double) As Double
RaizB = Exp((1 / Indice) * Log(Radicando)) 'e elevado a la potencia x
End Function
<?php
session_start();//iniciamos la sesion
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
etc, etc, etc.....
Citar
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then