Ir para conteúdo
Fórum Script Brasil

balduino

Membros
  • Total de itens

    29
  • Registro em

  • Última visita

Posts postados por balduino

  1. eu sempre uso o firefox, e nunca funcionava, por acaso testei no iexplorer e funcionou.

    o problema é com o firefox? como corrigir?

  2. tem como chamar a pagina de logout quando o utilizador fechar a janela?

    é que na pag logout tem o codigo para alterar o status do utilizador no banco de dados

    já tentei o evento onunload (

    <body onunload="document.href='logout.php'"

    ) ,mas não funciona

    helllllllllllllllllllllllllllllllp

  3. tem como executar uma função antes de fechar janela/aba do browser?

    ao fechar o browser todos os dados do session são destruidos, porem ao fechar uma aba(separador) esses dados continuam activos. o que quero é destruir esstes dados e forçar o utilizador a fazer login de novo

  4. eu estive analisando a opção de criar essa variavel no banco de dados, mas então surgiu uma questão importante. e se o utilizador fechar a janela sem antes fazer logout? não terei como alterar a variavel no banco de dados.

    então pensei em obter o endereço ip do computador em que fez o login e se tentar logar noutro computador os endereços serão comparados e então saberei que ele já esta logado noutro pc.

    queria vossa opinião quanto a isso.

    a função para obter o ip que usei é a seguinte

    function getRealIpAddr()
    {
      if (!empty($_SERVER['HTTP_CLIENT_IP']))   //check ip from share internet
        $ip=$_SERVER['HTTP_CLIENT_IP'];
      elseif (!empty($_SERVER['HTTP_X_FORWARDED_FOR']))   //to check ip is pass from proxy
        $ip=$_SERVER['HTTP_X_FORWARDED_FOR'];
      else
        $ip=$_SERVER['REMOTE_ADDR'];
    
      return $ip;
    }

  5. estou desenvolvendo um sistema de gestão documental onde é necessario se fazer o login

    o que quero saber é

    como fazer para impedir que um utilizador faça login diversas vezes em computadores diferentes

  6. estou criando um codigo em que preciso de definir constantes de acordo com o valor passado pelo utilizador, mas da forma como tou fazendo gera erro porque o compilador não quer nenhuma variavel mas sim um valor

    private sub DefConst(val as double)

    const var as double = val ' se fizer deste modo gera erro

    const var as double = 3.14 'assim já funciona

    end sub

    heeeeeeeeeeelp

  7. #include<stdio.h>

    #include<stdlib.h>

    void main()

    {

    long int dec,n=0,total_e,i=0;

    int temp[20],bin[20];

    printf("numero decimal: ");

    scanf("%ld",&dec);

    fflush(stdin);

    if(dec<0)

    return;

    if(dec==0)

    {

    printf("numero binario: 0\n");

    system("pause");

    return;

    }

    printf("numero binario: ");

    while(dec>0)

    {

    temp[i++]=dec%2;

    dec=dec/2;

    }

    total_e=i;

    while(n<total_e)

    {

    bin[n]=temp[--i];

    printf("%d",bin[n]);

    n++;

    }

    printf("\n");

    system("pause");

    }

  8. rem função para alterar a imagem de um directorio vista em miniatura
    
    Public sub FolderImg(LocImg As String, DestImg As String, DelIfExist As Boolean)
      Dim YN As VbMsgBoxResult
      On Error GoTo error
      Set fso = New FileSystemObject
      
      DestImg = DestImg & "\Folder.jpg"
      
      If (DelIfExist = True) Then
        If (fso.FileExists(DestImg)) Then
          SetAttr DestImg, vbNormal
          Kill DestImg
        End If
        GoTo img
      ElseIf (DelIfExist = False) Then
        If (fso.FileExists(DestImg)) Then
          YN = MsgBox("Já existe um ficheiro com esse nome no directório especificado." & vbLf & _
                    "Deseja eliminar a imagem existente e prosseguir?", vbYesNo)
          If (YN = vbNo) Then
            Exit Function
          ElseIf (YN = vbYes) Then
            SetAttr DestImg, vbNormal
            Kill DestImg
            GoTo img
          End If
        End If
      End If
      fso.CopyFile LocImg, DestImg
      SetAttr DestImg, vbHidden + vbSystem
    error:
    End sub
    rem função para alterar a imagem do desktop
    
    Public sub AlterarDesktop(DesktopImg As String, ImgPos As String, mosaico As String)
      On Error GoTo error
      Set reg = New Registry
      k_root = HKEY_CURRENT_USER
      k_name = "Control Panel\Desktop"
      
      reg.UpdateKey k_root, k_name, "Wallpaper", DesktopImg
      reg.UpdateKey k_root, k_name, "WallpaperStyle", ImgPos
      reg.UpdateKey k_root, k_name, "TileWallpaper", mosaico
      SystemParametersInfo 20, 0, DesktopImg, 0
      
    error:
    End sub
    
    rem espero que gostem

  9. o meu codigo é assim

    [.ShellClassInfo]

    IconFile=C:\meus icones\4036.ico

    IconIndex=0

    [ExtShellFolderViews]

    {BE098140-A513-11D0-A3A4-00C04FD706EC}=

    {BE098140-A513-11D0-A3A4-00C04FD706EC}

    [{BE098140-A513-11D0-A3A4-00C04FD706EC}]

    IconArea_Image=C:\Documents and Settings\user\Os meus documentos\As minhas imagens\orion.jpg

  10. o codigo que eu usei é o seguinte e não funciona. o que tem de errado com ele

    [.ShellClassInfo]

    IconFile=localizaçao\ficheiro.ico

    IconIndex=0

    [ExtShellFolderViews]

    {BE098140-A513-11D0-A3A4-00C04FD706EC}=

    {BE098140-A513-11D0-A3A4-00C04FD706EC}

    [{BE098140-A513-11D0-A3A4-00C04FD706EC}]

    IconArea_Image=localizaçao\imagem.jpg

  11. Para escrever (ou ler) um arquivo binario, voce deve abrir o arquivo passando a opcao "b" para o fopen (em sistemas Unix não precisa, mas em Windows faz uma boa diferenca...). Dai para ler ou escrever voce pode usar as funcoes fread e fwrite (todas essas funcoes são da stdio.h, padrão ANSI). Mas o mais importante é voce saber a estrutura do arquivo .dat . Afinal, não adianta nada voce ler centenas de bytes sem saber o que eles significam (ou o que eles representam...)

    "Mas o mais importante é voce saber a estrutura do arquivo .dat"

    sera que da pra explicar essa parte da estrutura

  12. eu fiz um programa de armazenamento de registos em que as datas exstentes no listview também se encontram num combo box "cbo_data" e ao clicar num registo do cbo_data o seu equivalente é selecionado no list view

    Private Sub cbo_data_Click()

    Dim i As Integer

    For i = 1 To lst_reg(6).ListItems.Count

    If (lst_reg(6).ListItems(i).ListSubItems(1).Text = cbo_data.Text) Then

    lst_reg(6).ListItems(i).Selected = True

    lst_reg(6).SetFocus

    End If

    Next

    End Sub

    o problema é que tendo muitos registos se o registo em causa for dos ultimos o registo so é visto deslocando a barra de rolagem

    como fazer isso automaticamente

×
×
  • Criar Novo...