Mensajes

@Psyke1 tu codigo no simula bien lo de la pagina. hace falta convertirla cadena a UTF8.

debe imprimirlo así:
cobein

Código (vb) [Seleccionar] Expandir

https://www.google.com.ar/search?q=canci%C3%B3n

el tuyo lo deja así:
Psyke1

Código (vbnet) [Seleccionar] Expandir

https://www.google.com.ar/search?q=canci%F3n

saludos

pues simplemente comienza con manejo de archivos.

http://www.cplusplus.com/doc/tutorial/files/

saludos

A que te refieres con bots? seria como una aplicacion con inteligencia artificial para espiar a la victima o hacer cierta recoleccion de datos... algo asi como un keylogger inteligente?

http://es.wikipedia.org/wiki/Botnet

saludos

No es posible todo esta comprobado   talvez lo dices por esto for(i=0;i<5;i++) pues el 5<5 eso es falso por lo tanto no tomara el valor 5.

edito:

sorry me equivoque jajaja esta bien.

saludos

Coma ya te han comentado en c se deben declarar todas las variables antes de utilizarlas por lo tanto si queieres guardar 5 valores por separado debes de declarar 5 variables, por suerte en c existen los arrays o vectores que simplifican este tema y para acceder a un valor solo debes de conocer su posicion, saludos y asi es como queda el codigo 

Código (c) [Seleccionar] Expandir


#include<stdio.h>
int main(void){
int i,vector[5],mayor,menor;
float promedio=0;
for(i=0;i<5;i++){//llena el vector
printf("ingrese valor\n");
scanf("%i",&vector[i]);
}
for(i=0;i<5;i++)//imprime el vector
printf("[%i]",vector[i]);
puts("\n");
mayor=vector[0];
menor=vector[0];
for(i=0;i<5;i++){
promedio+=vector[i];
if(vector[i]>mayor)//busca el elemento mayor
mayor=vector[i];
if(vector[i]<menor)//busca el elemento menor
menor=vector[i];
}
printf("el mayor es %i\n",mayor);
printf("el menor es %i\n",menor);
printf("el promedio es %.2f\n",promedio/5);
return(0);
}


Te me adelantaste :S.

por cierto creo que declararte 6 valores en tu array. saludos

te recomiendo que lo hagas con array algo así.

Código (c) [Seleccionar] Expandir

#include <stdio.h>


int main ()
{
  int value [10],i; // declarar array
  for (i = 0; i<10; i++)
   {
      value [i] = i; // cargamos el array
   }
  for (i = 0; i<10; i++)
   {
      printf ("\n%d",value [i]); // mostramos el array
   }
   getch();
  return 0;
 
}


saludos

screenshot of byte? 

can you explain better? :S

Cuando le das a nuevo proyecto seleccionas proyecto win32 y por defecto te sale una GUI.

saludos

creo que con esto se soluciona.

Código (csharp) [Seleccionar] Expandir

+ System.Environment.NewLine

o simplemente usa

Código (csharp) [Seleccionar] Expandir

writeline


osea seria algo así:

Código (csharp) [Seleccionar] Expandir

          sw.Write(Convert.ToString(Lista.Empresas
.codigo) + ' ' + Lista.Empresas
.nombre + ' ' + (Convert.ToInt32(Lista.Empresas
.num_servicios)) + ' ' + Lista.Empresas
.nombre_empresa + ' ' + (Convert.ToString(Lista.Empresas
.fecha) + ' ' + System.Environment.NewLine));
           }
           
           sw.Close();

o

Código (csharp) [Seleccionar] Expandir

sw.Writeline(Convert.ToString(Lista.Empresas
.codigo) + ' ' + Lista.Empresas
.nombre + ' ' + (Convert.ToInt32(Lista.Empresas
.num_servicios)) + ' ' + Lista.Empresas
.nombre_empresa + ' ' + (Convert.ToString(Lista.Empresas
.fecha) + ' '));

PD: no se sobre C# solo creo que así debe funcionar.

saludos

@Danyfirex la función no va por mal camino pero al remplazar los "&" la url queda inservible.

No entiendo eso Que me dices? :S

igual aquí dejo un poco optimizada la función agregando Las funciones para UTF8.

Y ahora si simula bien como la pagina. http://meyerweb.com/eric/tools/dencoder/

Código (vb) [Seleccionar] Expandir

Private Declare Function WideCharToMultiByte Lib "KERNEL32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "KERNEL32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8                           As Long = 65001


Private Sub Form_Load()
Debug.Print (URLEncode("https://www.google.com.ar/search?q=canción"))
Debug.Print URLDecode(URLEncode("https://www.google.com.ar/search?q=canción"))
End Sub


Function URLEncode(url As String) As String
Dim sp() As Byte
Dim final As String

sp() = StrConv(Unicode2UTF8(url), vbFromUnicode)

For i = 0 To UBound(sp)

Select Case sp(i)

   Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
        final = final & Chr(sp(i))

   Case 32
       final = final & "+"

  Case Else
          final = final & "%" & Hex(sp(i))
End Select

Next
URLEncode = final
End Function

Function URLDecode(url As String) As String
Dim spl() As String
Dim final As String
Dim str As String
str = Replace(url, "+", " ")
spl() = Split(str, "%")
final = spl(0)
For i = 1 To UBound(spl)
final = final & Chr(CLng("&H" & Left(spl(i), 2))) & Mid(spl(i), 3)
Next
URLDecode = UTF82Unicode(final)
End Function



Private Function UTF82Unicode(ByVal sUTF8 As String) As String

   Dim UTF8Size As Long
   Dim BufferSize As Long
   Dim BufferUNI As String
   Dim LenUNI As Long
   Dim bUTF8() As Byte
   
   If LenB(sUTF8) = 0 Then Exit Function
   
   bUTF8 = StrConv(sUTF8, vbFromUnicode)
   UTF8Size = UBound(bUTF8) + 1
   
   BufferSize = UTF8Size * 2
   BufferUNI = String$(BufferSize, vbNullChar)
   
   LenUNI = MultiByteToWideChar(CP_UTF8, 0, bUTF8(0), UTF8Size, StrPtr(BufferUNI), BufferSize)
   
   If LenUNI Then
       UTF82Unicode = Left$(BufferUNI, LenUNI)
   End If

End Function


Private Function Unicode2UTF8(ByVal strUnicode As String) As String

   Dim LenUNI As Long
   Dim BufferSize As Long
   Dim LenUTF8 As Long
   Dim bUTF8() As Byte
   
   LenUNI = Len(strUnicode)
   
   If LenUNI = 0 Then Exit Function
   
   BufferSize = LenUNI * 3 + 1
   ReDim bUTF8(BufferSize - 1)
   
   LenUTF8 = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), LenUNI, bUTF8(0), BufferSize, vbNullString, 0)
   
   If LenUTF8 Then
       ReDim Preserve bUTF8(LenUTF8 - 1)
       Unicode2UTF8 = StrConv(bUTF8, vbUnicode)
   End If

End Function


saludos