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:

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:

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:

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
:

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!

Creo qeu al estar programado directamente en asm hace la cosa mas facil ya que no lleva la basura que llevan los exe de vb, delphi o otros.

salu2!

PD: aora voy a sacar la pass que creo que es muuy facil jejejeje despues edito.