Jump to content
Fórum Script Brasil

balduino

Membros
  • Posts

    29
  • Joined

  • Last visited

About balduino

balduino's Achievements

0

Reputation

  1. balduino

    logout

    eu sempre uso o firefox, e nunca funcionava, por acaso testei no iexplorer e funcionou. o problema é com o firefox? como corrigir?
  2. balduino

    logout

    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. balduino

    executar função

    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. balduino

    login

    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. balduino

    login

    muito obrigado pessoal
  6. balduino

    login

    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
  7. eu pensava que para a função srand era necessario passar um argumento diferente do tipo null. não sera esse o problema
  8. balduino

    Constantes

    o problema é que em vez de estar sempre digitando por exemplo 3,1415926535 eu quero digitar pi e o programa tem de saber que se trata do valor 3,1415926535 como resolver isso
  9. balduino

    Constantes

    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
  10. balduino

    Conversao Ii

    #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"); }
  11. 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
  12. balduino

    Mcistring

    valeu + 1a vez
  13. balduino

    Icone

    valeu na mesma, obrigado
  14. balduino

    Icone

    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
  15. balduino

    Icone

    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
×
×
  • Create New...