HOLA!!!

Hola como andan, esta vez me suergio una traba en un proyecto bastante simple.

El tema es que tengo que loguear en Afip:

https://auth.afip.gov.ar/contribuyente/

El tema no es dificil, lleno los textboxes y despues hago click a la imagen.

Pero el TEMA es que necesito que no me abra la pagina con las cosas en el WebBrowser, sino en el navegador predeterminado de la maquina.

Osea mi idea es:
·Lleno el formulario
·Lo envio
·Abro la pagina ya con el usuario logueado en el firefox por ejemplo


P.d: Si saben de algun comando para llenar los formularios desde el shellexecute me vendria mejor.
Por ejemplo: "firefox.exe https://auth.afip.gov.ar/contribuyente/ user=CUIT password=123456 ingresarClaveFiscal.click"

Nose si me entendieron, pero como siempre...

GRACIAS POR LEER!!!

HOLA!!!

XD, nose si esto se puede llamar ejemplo, pero es mi intento por ayudar.

En el codigo estan las cosas basicas que se pueden hacer con fechas, son utiles ... creo.

CODIGO:

Private Sub Form_Load()
'FECHA ACTUAL EN FORMATO ESTANDAR MM-DD-AAAA
      Label1.Caption = Date$
'FECHA ACTUAL FORMATEADA A DIAS/MESES/AÑOS
      Label2.Caption = Format(Date$, "d/MM/yyyy")
'FECHA Y HORARIO ACTUAL
      Label3.Caption = Now
'HORARIO ACTUAL
      Label4.Caption = Time
'DIA ACTUAL
      Label5.Caption = Day(Now)
'MES ACTUAL
      Label6.Caption = Month(Now)
'MES ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
      Label7.Caption = MonthName(Month(Now))
'AÑO ACTUAL
      Label8.Caption = Year(Now)
'DIA DE LA SEMANA ACTUAL
      Label9.Caption = Weekday(Now)
'DIA DE LA SEMANA ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
      Label10.Caption = WeekdayName(Weekday(Now))
'SOLO LA HORA
      Label11.Caption = Hour(Now)
'SOLO LOS MINUTOS
      Label12.Caption = Minute(Now)
'SOLO LOS SEGUNDOS
      Label13.Caption = Second(Now)
'SUMA A UNA FECHA ESPECIFICA
'PARAMETROS DateAdd(INTERVALO,CANTIDAD,FECHA)
'LA CANTIDAD PUEDE SER POSITIVA O NEGATIVA
'EJEMPLO FECHA ACTUAL MENOS 35 SEGUNDOS
      Label14Caption = DateAdd("S", -35, Now)
'DIFERENCIAS ENTRE 2 FECHAS
'EJEMPLO DIFERENCIA ENTRE 15/10/1329 Y HOY EXPRESADO EN DIAS
'PARAMETROS DateDiff(INTERVALO,FECHA1,FECHA2)
'LOS TIPOS DE INTERVALOS SON LOS MISMOS
      Label15.Caption = DateDiff("y", #10/15/1329#, Date$)
 
'---------------------------------------------------------------------------------
 
'TIPOS DE INTERVALOS:
'"S"=SEGUNDOS
'"n"=MINUTOS
'"h"=HORAS
'"y"=DIAS
'"ww"=SEMANAS
'"m"=MESES
'"yyyy"=AÑOS
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

Digo solo por decir, y si usas pictureboxes o imageboxes?

Pones la imagen del boton en mouse up y la imagen del boton presionado en mouse down y listo ya esta .

Para que enroscarse?

GRACIAS POR LEER!!!

HOLA!!!

Encontre una pagina con unos ejemplos, esta en ingles, no creo que sea problema no?

http://www.vbforums.com/showthread.php?t=322261

http://www.vbforums.com/showthread.php?t=357051

Espero que te sirva, sino mi busqueda en Dios GOOGLE fue "VB6 HOOK APIHOOKING" sin comillas.

Sino escribe aca, igual no se casi nada del tema  .

En fin quise ayudar
 


GRACIAS POR LEER!!!

HOLA!!!

Aca hay otra alternativa(corrijanme si esta mal):

XD por ahí es medio arcaico el ejemplo pero bueno.

Private Sub Form_Load()
    Shell "cmd /C net user > ""archivo.txt""", vbHide
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

Si lo que querés es llevar el vb6.exe con vos, lo tendrías que blindear (unir) al archivo de tu programa, y configurar para que se descomprima en una carpeta especifica que luego llamas.

Pero el gran problema es que el VB6 y todas sus dependencias pesaría mucho.

Y, igual, hay programas para unir las dependencias al exe pero te realentiza todo mas de 100 veces. No es recomendable.

Sigo siendo partidario de usar VBScript.

Como quieras

GRACIAS POR LEER!!!

HOLA!!!

Sos una bestia KarCrack Te felicito.

GRACIAS POR LEER!!!

@Dreamaker :
HOLAAAA!!!!

Lo que es ineficiente, lo entiendo y perfectamente, es mas me caracterizo por siempre llegar al objetivo pero de una manera muy enroscada y complicada, casi siempre ineficiente.

Lo de las variables, como me recomendas que las declare.

Y lo de los bucles, como queres que lo haga, ponele:

For x=1 to N+1
    if x=N+1 then
    x=1
    y=y+1
    if y=6 then exit for
    endif
    'CODIGO DEL FOR
Next X
 

??????


Esa es mi duda.

Entre a este foro especificamente para eso, para mejorar y hacer mas eficiente el codigo.


Espero ansiosamente la correccion

GRACIAS POR LEER!!!

@Karcrack

GRACIAS!!!

Ya arregle el codigo y funciona perfecto. avisame si ves otro error.

GRACIAS POR LEER!!!

HOLA!!!

Creo que hice lo que pedis:

El form tiene un array de labels de 25 items (0-24) llamados LBL().

CODIGO DEL FORM :

Dim MATRIX() As Integer
Public N As Integer ' DIMENSION DE LA MATRIZ
Public PASA As Boolean ' VERIFICA LA REPETICION DE NUMEROS
Public ORDENADO As Boolean ' VERIFICA QUE ESTE ORDENADO
 
Private Sub Form_Load()
    Randomize
    Me.Caption = "Ejercicio de Matrices"
    'CREA LA MATRIZ
    N = 5
    ReDim MATRIX(N, N)
    'MATRIZ CREADA
    Call LLENAR_MATRIZ
    Call ORDENAR_MATRIZ
    Call MOSTRAR_MATRIZ
End Sub
 
Private Sub LLENAR_MATRIZ()
    For Y = 1 To N
        For X = 1 To N
            MATRIX(Y, X) = Int(Rnd() * 30)
            'VERIFICA SI ESTA REPETIDO Y LO CAMBIA
            PASA = False
            While PASA = False
                PASA = True
                For Y2 = 1 To N
                    For X2 = 1 To N
                        If MATRIX(Y, X) = MATRIX(Y2, X2) And Not (X2 = X And Y2 = Y) Then
                            PASA = False
                        End If
                    Next X2
                Next Y2
                If PASA = False Then
                    MATRIX(Y, X) = Int(Rnd() * 30)
                End If
            Wend
            'VERIFICA SI ESTA REPETIDO Y LO CAMBIA
        Next X
    Next Y
End Sub
 
Private Sub ORDENAR_MATRIZ()
    Dim AUX As Integer
    While ORDENADO = False
        ORDENADO = True
        For Y = 1 To N
            For X = 1 To N
                If Not (X = N And Y = N) Then
                    If X = N Then
                        If MATRIX(Y, X) > MATRIX(Y + 1, 1) Then
                            AUX = MATRIX(Y + 1, 1)
                            MATRIX(Y + 1, 1) = MATRIX(Y, X)
                            MATRIX(Y, X) = AUX
                            ORDENADO = False
                        End If
                    Else
                        If MATRIX(Y, X) > MATRIX(Y, X + 1) Then
                            AUX = MATRIX(Y, X + 1)
                            MATRIX(Y, X + 1) = MATRIX(Y, X)
                            MATRIX(Y, X) = AUX
                            ORDENADO = False
                        End If
                    End If
                End If
            Next X
        Next Y
    Wend
End Sub
 
Private Sub MOSTRAR_MATRIZ()
    For Y = 1 To N
        For X = 1 To N
            If X = Y Then
                LBL(CT).Caption = MATRIX(Y, X)
            End If
            If X + Y = N + 1 Then
                LBL(CT).Caption = MATRIX(Y, X)
            End If
            CT = CT + 1
        Next X
    Next Y
End Sub
 

GRACIAS POR LEER!!!