Mensajes

y el link se te olvido?

perdonnnn pense que lo habia dejadooo:

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/30-dll-activex-para-exportar-a-jpg.htm#modulo

salu2!

Pues guardala como bpm y luego la pasas a jpg desde vb, aqui te dejo un link de un modulo que hace eso:

salu2!

Bueno esto puede servir para esquivar algunos av, no es un codigo tan avanzado como los de Karcrack ni tan dificil peeeeero funciona perfectamente

Vamos a hacer un simple MessageBox, Código:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

Private Const MB_ICONEXCLAMATION = &H30&

Private Sub Form_Load()
    Dim id As Long
    Dim direccion As Long
   
    id = LoadLibrary("user32") 'Cargamos la libreria
    direccion = GetProcAddress(id, "MessageBoxA") 'obtenemos la direccion em memoria
   
    CallWindowProc direccion, Me.hWnd, "cuerpo", "Titulo", MB_ICONEXCLAMATION ' llamamos a la funcion
   
    FreeLibrary id ' liberamos la dll
End Sub


Bueno el code esta explicado pero si tienen alguna duda solo pregunten, si quisieramos  utilizar una api con mas parametros tendriamos que usar un array .

salu2! y espero que les sea de ayuda!

envez de poner .bpm pon .jpg XDD

salu2!

Um.... no me imaginaba que fuera por eso.. jeje eske es la primera vez que uso estas api  jejej

muchas gracias de nuevo LeandroA.

salu2!

Ahi en ningun momento e pasas un parametro a la funcion, para  usar la funcion seria asi:

Código (vb) [Seleccionar] Expandir

call ExitWindowsEx(1,0)


eso apagaria el equipo.

salu2!

PD: no vas a encontrar ningun tutorial que te explique todas las api, tienes que buscar la informacion sobre como se usa en la msdn, api guide... Que api usar en cada momento? pues busca , pregunta, lee y con el tiempo iras aprendiendo mas y mas.

salu2!

Holas a todos... estoy intentando hacer un servidor usando las api de winsock, pero me falla la api Bind.... nose que estoy haciendo mal ya que lo e revisado unas 10 o 12 veces y nose que podra estar sucediendo, haber si usatedes lo saben, codigo:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function WSAStartup Lib "WSOCK32" (ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long
Private Declare Function socket Lib "wsock32.dll" (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long
Private Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long) As Integer
Private Declare Function Bind Lib "wsock32.dll" Alias "bind" (ByVal s As Long, ByRef name As sockaddr, ByVal namelen As Long) As Long

Private Const MAX_WSADescription = 256
Private Const MAX_WSASYSStatus = 128
Private Const WS_VERSION_REQD As Long = &H101
Private Const AF_INET As Long = 2
Private Const SOCK_STREAM As Long = 1
Private Const IPPROTO_TCP As Long = 6
Private Const INADDR_ANY As Long = &H0

Private Type sockaddr
    sin_family As Integer
    sin_port As Integer
    sin_addr As Long
    sin_zero As String * 8
End Type

Private Type WSAData
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To MAX_WSADescription) As Byte
    szSystemStatus(0 To MAX_WSASYSStatus) As Byte
    wMaxSockets As Integer
    wMaxUDPDG As Integer
    dwVendorInfo As Long
End Type

Public Function Dsocket() As Boolean
    Dim IniciarSocket As Integer
    Dim WSAS As WSAData
    Dim sock As Integer
    Dim sa As sockaddr
   
    IniciarSocket = WSAStartup(WS_VERSION_REQD, WSAS)
    sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
   
    sa.sin_family = AF_INET
    sa.sin_addr = INADDR_ANY
    sa.sin_port = htons(22233)
   
    If (Bind(sock, sa, LenB(sa)) = -1) Then
        MsgBox "error": Exit Function
    End If
   
   
    Exit Function
error:
    Exit Function
End Function


Private Sub form_load()
     Dsocket
End Sub


salu2! y esperando respuesta.

no sale en la api guide  de todas maneras ya encontre la declaracion
:

Código (vb) [Seleccionar] Expandir

Private Declare Function bind Lib "wsock32.dll" (ByVal s As Long, addr As SOCKADDR, _
ByVal namelen As Long) As Long

salu2! y gracias.

Alguien save la declaracion de la Api Bind? la e buscado y no la he encontrado 

salu2!

mira:

http://foro.elhacker.net/net/diferencias_visual_basicnet_con_respecto_visual_basic_6-t116785.0.html;msg569525

En ese post responden a tu duda de diferencias entra vb6 y vb.NEt

Respecto a tutoriales, hay miles en la web... XD puedes mirar el tutorial de:

www.recursosvisualbasic.com.ar

que ademas es una web con miles de codigos de ejemplo en vb6...

salu2!