Menú

Mostrar Mensajes

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ú

Mensajes - BlackZeroX

#1751
.
Usa el buscador...

Código (Vb) [Seleccionar]



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
   Set xml = CreateObject("Microsoft.XMLHTTP")
   Set adoStream = CreateObject("Adodb.Stream")
   Call xml.Open("GET", strDowload, 0)
   Call xml.Send
   adoStream.Type = 1
   Call adoStream.Open
   Call adoStream.write(xml.responseBody)
   Call adoStream.SaveToFile(SaveOn, 2)
   Call adoStream.Close
   DescargarArchivo = 1
Exit Function
1:
End Function



Dulces Lunas!¡.
#1752
saca  i++ de este trozo de codigo:

Código (cpp) [Seleccionar]

      if(cadena[i]>=97 && cadena[i]<=122)    // a=65  y   z=122  ( en codigo Ascii)
       {                                   
        cadena[i]=cadena[i]-32;                 
        i++;
       }


Código (cpp) [Seleccionar]

      if(cadena[i]>=97 && cadena[i]<=122)
        cadena[i]=cadena[i]-32;                 
      i++;


Código (cpp) [Seleccionar]


#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
    char cadena[]="InfrAngeluX-Soft\t->\t2010";
    unsigned int i = 0;
    int DifaA= (int)'a' - (int)'A';
    while(cadena[i] != '\0')
    {
      if( (int)cadena[i] >= (int)'a' && (int)cadena[i] <= (int)'z')
          cadena[i] -= DifaA;
      i++;
    }
    cout << cadena << endl;
    getwchar();
    return 1;
}



Sangriento Infierno Lunar!¡.
#1753
Cita de: A2Corp en 27 Noviembre 2010, 06:37 AM
revivo tu tema pq me resulta muy interesante y quiero preguntarte algunas cosas.
si el servidor esta detras de un router no hay problema para conectarme?


Debes saber si dicho router tiene firewall y si el puerto esta redirigido a la PC deseada... en conexión NORMAL, en la inversa da por igual, solo que no tenga firewall por Software...

Igual esto no va con el tema.
#1754
@Dessa si quieres medir la velocidad del codigo que deje debes eligir si deseas el String o el array de bytes...
Por eso le puse Opción 1 y Opción 2.., yo eligiria el Array de bytes por cuestiones de memoria...

Código (vb) [Seleccionar]

               Get Int_FF%, 1, ArrByt_vData                ' // Opcion 1
               Get Int_FF%, 1, ArrStr_vData$               ' // Opcion 2

#1755
Debes empezar a manejar un chat simple pero en lugar de ser un chat orientado a las personas, debera ser un chat entre programas mas que nada.

3 ejemplos:
http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples

1 ejemplo mas:
http://infrangelux.sytes.net/FileX/?file=chat.zip&dir=

Dulces Lunas!¡.
#1756
.
Yo no sabia programar cuando empese, ahora si que no sean Culeros, con sus comentarios. vamos si ven este tipo de cosas  (por lo menos yo ya aprendi esto) es solo soltarle un sacarmos de N tipo o darle la pauta de que siga investigando ( No respondiendo ) aun que usurpadores de Codigos como Sharki o ahora conocido como SharK0 ni me acerco a sus Post.

Dulces Lunas!¡.
#1757
.
Excelente, se lo mostrare a mis instructores.

Dulces Lunas!¡.
#1758
Cita de: NightMore en 25 Noviembre 2010, 18:18 PM
¬¬.No enpieso a programar recien.se muchas cosas solo esto es una duda.Su pongo que vos tampoco sabes tanto porque tenes 41 post.para los que saben mucho de programacion contestan casi todos los post eso quiere decir que sabe mucho ^^ no soy professional..pero algo se

Los Post no implican lo que sabes. apoco a la respuesta de Mr. Frogs, igual aquí mas manuales pegados en las ligas principales!¡.

Esta seía la forma en la que lo haria:

Código (Vb) [Seleccionar]


Dim Int_FF%
Dim ArrByt_vData()                      As Byte             ' // Opcion 1
Dim ArrStr_vData$                                           ' // Opcion 2
Const StrC_Dir$ = "C:\Archivot.txt"
    If Dir(StrC_Dir, vbArchive) <> "" Then                  ' // Existe el archivo?.
        Int_FF% = FreeFile                                  ' // Obtenemos un nuevo registro libre para su lectura.
        Open StrC_Dir For Binary As Int_FF%                 ' // Me gusta mas la forma Binaria xd por que asi puedo controlar a mi gusto el archivo.
            If LOF(Int_FF) > 0 Then
                ReDim ArrByt_vData(0 To LOF(Int_FF%) - 1)   ' // Opcion 1
                ArrStr_vData$ = Space(LOF(Int_FF%))         ' // Opcion 2
                Get Int_FF%, 1, ArrByt_vData                ' // Opcion 1
                Get Int_FF%, 1, ArrStr_vData$               ' // Opcion 2
            End If
        Close Int_FF%                                       ' // Cerrar Registro
    End If



Dulces Lunas!¡.
#1759
Programación C/C++ / Como Linkear? ... QT
25 Noviembre 2010, 08:11 AM
.
Bueno le he estado buscando como salvaje desde hace tiempo a como linkeo en en IDE QT de NOKIA ( mingw ), no le encuentro las opciones para linkear librerias externas... y con el #PRAGMA ... me lo bota me dice que lo ha ignorado y a causa de esto me bota errores... caso omiso en VC++ o en CodeBlocks-10.05( que trae el mismo mingw y aquí no me da errores... pero quiero que funcione en el IDE de QT, ya que me parece muy bueno  :P por su Debugger que trae. ).

Dulces Lunas!¡.
#1760
Cita de: avmiitxe en 24 Noviembre 2010, 22:16 PM
Hola, me gustaría crear un bot:

Hay un botón, al cual le das click y entonces tu raton le da click a la ruta 417, 47 por ejeemplo, después escribe un texto, hola por ejemplo y despues le da click a la ruta 784, 447

Solo son ejemplos el texto y la ruta, me gustaría tener un programa asi, alguien sabe?

Si tu no sabes menos nosotros...

Dulces Lunas!¡.