Mensajes

[sub main()]

.
Por fin lo liberas.

Aun que el punto de que se necesita al menos un por form en el proyecto , eso no es del todo cierto se puede tener trantilamente un sub main() que cargue una clase y la misma llame a esta clase para su implementación.

* Las propiedades deberias bloquearlas si es que ya se llamo a el proceso TestIt()
* Me gusto la simplificacion de la funcio CallByNameEx
* Antes de hacer los test deberias hacer una comrovacion de llamar a las funciones si es que existen, y si cumplen la cantidad de parametros minimos, es decir Antes de hacer los test  esto para evitar hacer llamadas innesesarias.


P.D.: Te falto la referencia de TLI.TLIApplication

Temibles Lunas!¡.

[SON OPERACIONES BINARIAS]

.

And, Or, y Xor son operadores binarios (booleanos). En el if se usa para juntar condiciones.

En efecto SON OPERACIONES BINARIAS mas no Booleanas de hecho el resultado es Binario mas no Booleano, de forma habitual se usan para enmascarar Bits ( No los Bytes OJO )

por ejemplo

1 en binario es 00000001 si se le hace not 1 el resultado es -2 ya que se obtiene el complemento 1 ( hay un 2do complemento llamado Complemento 2 que es el Complemento 1 mas 1 en su ultimo bit ) del BINARIO pero en representacion negativa 11111110... Pueden usar la calculadora de windows o mi clase Operaciones aritmeticas con Hex, Oct, Binario y Decimal

Este tema se llama Bitwise Operation o en español pero mas cutre en mi forma de entender  Operador_a_nivel_de_bits

Operaciones con And

Creo que no solamente necesitas el Mid$, sino tambien el InStr Masivamente. Y si no me equivoco, estas intentando hacer es cifrar por sustitucion.

Yo te recomendaria que hagas un bucle recorriendo el string y por cada caracter "i" introduscas su sustito correspondiente en otro string inicialmente vacio. Asi no te lias con replace, mid e instr que ya parece que lo ves hasta en la sopa xd

eso ya se lo dije inclusive le di codigo ¬¬"

P.D.: Desvie un poco el tema pero no creo que importe si se aprende algo más.

Temibles Lunas!¡.

.
Para cerrar un puerto yo uso siempre lo mismo... aun que ya lo aplique a un Hook y va de peluche!¡.

.
Hace mucho que lo hice... aun no lo he mejorado te pongo tal cual esta en otros post.
.

Código (Vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit

Enum StadosPort
  UNKNOWN = 0
  CLOSED = 1
  LISTENING = 2
  SYN_SENT = 3
  SYN_RCVD = 4
  ESTABLISHED = 5
  FIN_WAIT1 = 6
  FIN_WAIT2 = 7
  CLOSE_WAIT = 8
  CLOSING = 9
  LAST_ACK = 10
  TIME_WAIT = 11
  DELETE_TCB = 12
End Enum
Type MIB_TCPROW
  dwState As StadosPort
  dwLocalAddr As Long
  dwLocalPort As Long
  dwRemoteAddr As Long
  dwRemotePort As Long
End Type
Type MIB_TCPTABLE
  dwNumEntries As Long
  table(100) As MIB_TCPROW
End Type
Public MIB_TCPTABLE As MIB_TCPTABLE
Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.
Public Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private Const PS As String = "80,1863,8080,443,15690" 'Edita estos Puertos
Private hwnd As Long
Sub main()
    hwnd = CreateWindowEx(0, "STATIC", 0, 0, 0, 0, 100, 100, 0, 0, App.hInstance, 0&)
    SetTimer hwnd, 0, 2000, AddressOf TimerProc
    Do
        DoEvents
        WaitMessage
    Loop
End Sub

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Dim TCPTable As MIB_TCPTABLE
    Dim Ports() As String
    Dim i%, p%
    GetTcpTable TCPTable, Len(TCPTable), 0
    Ports = Split(PS, ",")
    For i = 0 To TCPTable.dwNumEntries - 1
        For p = 0 To UBound(Ports) - 1
            If Ports(p) = ntohs(TCPTable.table(i).dwRemotePort) Then
                GoTo Salto:
            ElseIf (p = Val(UBound(Ports) - 1)) Then
                TCPTable.table(i).dwState = DELETE_TCB
                SetTcpEntry TCPTable.table(i)
                Debug.Print ntohs(TCPTable.table(i).dwRemotePort)
                GoTo Salto:
            End If
        Next p
Salto:
    Next i
End Sub



Temibles Lunas!¡.
.

otro:

   
[SRC][UC] ListViewEx 2.0 Reprogramado ( 05/01/2011 ) No Skiner

y por hay raul338 hizo una muy buena Mod al ctl API-ucListView 1.0.

Dulces Lunas!¡.

[For Each]

.
Se asignan en este For Each

Código (Vb) [Seleccionar] Expandir



    For Each ProcesoACerrar In ListaProcesos 
        lista(i) = LCase(ProcesoACerrar.Name) 
        i = i + 1 
    Next 



Lo que se hace es recorrer la colección ListaProcesos y extrae el elemento asignando a la variable ProcesoACerrar en cada iteracción.

Dulces Lunas!¡.

.
En esa liga hay dos codigos donde no hay dicha variable, cual t' fumaste?

Dulces Lunas!¡.

.
Así?

Código (cpp) [Seleccionar] Expandir



#include <iostream>
#include <cstdlib>
#include <ctime>

using namespace std;


void Swap(int *l,int *u)
{
   int Ptmp = *l;
   *l = *u;
   *u = Ptmp;
}
int NumeroAleatorio(int l,int u)
{
   if ( l > u)
       Swap( &l , &u );
   srand(time(NULL) );
   return ( rand()%(u-l+1)+l );
}

void Adivinanzanumerica()
{
   int i , a, b;
   a = NumeroAleatorio(0,20);

   cout << "Adivinanza" << endl;
   cout << "Adivina el número que estoy pensando" << endl;
   for (i = 1; i < 9; i++)
   {
       cin >> b;
       if ( b > a)
           cout <<"Es alto" << endl;
       else if( b > a )
           cout <<"Es bajo" << endl;
       else
           break;
   }
   if (b == a)
       cout << "Muy bien, has acertado en " << i << " oportunidades" << endl;
   else
       cout<<"Lo siento, el número es: " << a << endl << endl;
}

int main(){
   int b;
   do
   {
       Adivinanzanumerica();
       cout << "X Num. <- Salir." << endl;
       cout << "1 <- Vovler a jugar" << endl;
       cin >> b;
   } while( b == 1 );
}



Dulces Lunas!¡.

.
Ojla compartas ese codigo algun dia.

Operaciones aritmeticas con Hex, Oct, Binario y Decimal

Base Decimal a Base N

Dulces Lunas!¡.

.
LOL

ya viste el 2do parametro?

Dulces Lunas.

.
Ya que no entendiste nada (aun que editste tu post con otro mensaje) aqui tienes:

La explicacion:

se recorre la string vsData y se toma un caracter ese caracter se transforma a su valor ASCII o mejor dicho a byte despues se le hace una SUSTITUCION de esa posicion del caracter por la que este en la variable del parametro llamada "ToReplaceABC", verificando y RESPETANDO mayusculas de minusculas para esto se usa el if then dentro del for que esta recorriendo la cadena y haci tomando un caracter por cada iteración es decir

es decir:

Si ingresas en la funcion la palabra "Hola"

1ra iteracion
  * Tomamos la primera letra o caracter y se convierte a ASCII para saber si es una minuscula o mayuscula dependiendo de esto el if deside que hacer:
  ** Caso uno minuscula:
  ** Caso Mayuscula.
  ***    aun que la unica diferencia de estas desiciones es convertir la letra a mayuscula o minuscola con LCase$() o UCase$() respectivamente despues de tomar la letra de la cadena de la variable "ToReplaceABC".
  *** En una forma mas practica:

ABC-Normal:
  abdefhhijklmnopqrstuvwxyz

ABC Invertido y usado en la funcion:
  zyxwvutsrqponmlkjihgfedcba

Es decir que la H se sustituye por la S ya que hay es donde deberia estar a H pero en su lugar esta la S

lade demas Iteracciones son con el mismo proceso

¿Te falta esta base?: codigo ASCII aqui tienes la tabla ( con esto sabras el por que del numero 65, 90, 97, 122 y el por que de la ñ/Ñ )



--------------------------------------


se usa

Mid$() = algo

paraque no se rearme la string y por ende se trabaje directamente en ella sin crear una nueva.

P.D.: el codigo es simple y no nesesitabatanta explicación o comentarios, solo puse cosas breves para saber los rangos,

----------------------------------------------

Gracias por el codigo, una cosa....

este codigo reemplazax letra por otra letra al azar?

es enserio?

Dulces Lunas!¡.