Mensajes

hace como medio año puse un código en este foro de la sdk del directX 8 donde trata lo mismo comunicar por sockets via voz... bueno algo asi jajaja enviar sonido del micro por sockets cliente servidor o conferencia busca que se encuentra

Dulces Lunas!¡.

un ppoco tarde pero me caban de soltar xD

Feliz año a todos, recuerden no excederse con el alcohol, permanecer tranquilos en su casita que hoy las calles estan peligrosas esta noche con gente borracha y alocada.

Donde vivo todos son borrachos y locos pero eso a que falten el respeto no ni un jarro!¡.

Dulces Lunas!¡

Bueno, necesito que me digan como hago la coenxion de visual basic ala base de datos .. e buscado tutoriales pero en youtube no se ven bien
gracias

Hay por la que nos a parido si deseas aprende algo mejor lee que ver algo en video es mas que estúpido si es Referido a programación y cosas donde se deba leer ya que programación no es paa flojos es para quienes desean Realmente a programar ¬¬"

P.D.: Mas de uno de este foro a aprendido LEYENDO y USANdo el buscador junto con GOOGLE

Mira pedaso de *****... si pones un link o un ejemplo seria mejor, pero no, como ayudar si eres mexicano vdd? y uno puede aprender leyendo viendo videos etc de muchas formas... enves de estar creyendote  muy frego animal ayuda alos demas

Para que, si ni siquiera has usado google para buscar tu respuesta!¡ Tarado jajajajaja.

Aaaa pobre, herí sus sentimientos pobre sito alguien que le ayude no se le vaya a secar el cerebro!¡.

P.D.: Prefiero venir y JODER a quien haga estas preguntas asi tal cual las ha hecho este tipo que ayudarlo, mejor ayudar a quien se esfuerza que a quien tenga pereza!¡.

Lo puedes meter el server dentro como recurso y después sacarlo de la misma manera ( Hay Apis para hacer esto te pondría un ejemplo pero no cuento con suficiente tiempo por ahora )

Dulces Lunas!¡.

usa una variable fuera del procesó para manejar los index y saber cual usar, aun que yo uso módulos clase para eso xP

Código (vb) [Seleccionar] Expandir



const algunindex = 2 '  // lo puse como constante pero puede se una variable

Public Sub poceso X()
   If not lcase$(txtorden) = "cls" Then
       wsk(algunindex).SendData txtorden
   else
       txtdlv = ""
   end if
end sub



Dulces Lunas!¡.

Bueno, necesito que me digan como hago la coenxion de visual basic ala base de datos .. e buscado tutoriales pero en youtube no se ven bien
gracias

Hay por la que nos a parido si deseas aprende algo mejor lee que ver algo en video es mas que estúpido si es Referido a programación y cosas donde se deba leer ya que programación no es paa flojos es para quienes desean Realmente a programar ¬¬"

P.D.: Mas de uno de este foro a aprendido LEYENDO y USANdo el buscador junto con GOOGLE

Fuentes:

http://allapi.mentalis.org/apilist/CreateProcess.shtml
http://allapi.mentalis.org/apilist/3805D9F5937ACD5D7759F3FF7EEFFAAE.html

Código (vb) [Seleccionar] Expandir



'This program needs a common dialog box, named CDBox
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1
Private Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum
Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type
Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
Private Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Function SuperShell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean
    Dim pclass As Long
    Dim sinfo As STARTUPINFO
    Dim pinfo As PROCESS_INFORMATION
    'Not used, but needed
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    'Set the structure size
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    sinfo.cb = Len(sinfo)
    'Set the flags
    sinfo.dwFlags = STARTF_USESHOWWINDOW
    'Set the window's startup position
    sinfo.wShowWindow = start_size
    'Set the priority class
    pclass = Priority_Class
    'Start the program
    If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _
    0&, WorkDir, sinfo, pinfo) Then
        'Wait
        WaitForSingleObject pinfo.hProcess, dwMilliseconds
        SuperShell = True
    Else
        SuperShell = False
    End If
End Function
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the dialog's title
    CDBox.DialogTitle = "Choose an EXEC-File ..."
    'Error when canceled
    CDBox.CancelError = True
    'Set the dialog's filter
    CDBox.Filter = "EXEC-Files (*.exe)|*.exe|All files (*.*)|*.*"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Execute the program
    SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS
    End
End Sub



Dulces Lunas!¡.

Lo he probado y funciona bien!¡.

Por hay solo de de obtener el handle de una ventana creada con api de igual forma se puede quitar y pasarle un handle 0, aun que aun asi esta bueno

Ducles Lunas!¡.

Solo eso Desearles una feliz Navidad 

P.D.: ya me voy a dormir estoy hasta las chanclas jajaja.

aqui algo mas sencillo

Código [Seleccionar] Expandir



http://foro.elhacker.net/programacion_vb/source_encoder_and_decode_algoritmo_simple-t277003.0.html



Dulces Lunas!¡