Mensajes

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:

Código (vb) [Seleccionar] Expandir


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.

Código (vb) [Seleccionar] Expandir


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 :]

@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:

Código (vb) [Seleccionar] Expandir


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]

@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 :

Código (vb) [Seleccionar] Expandir

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!!!