Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    7.184

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por kuroi

  2. Operador Xor

    em Visual Basic

    Postado

    desenterrando outro tópico...

    não entendi direito esse negocio de Xor não.

    fiz uns testes e vi que:

    255 Xor 49 = 206
49 Xor 255 = 206
    porque isso? me parece q ele faz uma conta de subtracao e tira o modulo testei outros numeros, e é a mesma coisa. mas porque 
    206 Xor 49 = 255
    e não 
    206 Xor 49 = 157
    ? e porque 
    0 Xor 2 Xor 1 = 3
    ? 
    0 Xor 1 Xor 1 = 0

    ?

  4. Pega Data De Um Servidor

    em Visual Basic

    Postado

    usando API, conheco esse jeito. sem precisar alterar o horario do pc q estiver sendo usado:

    '''ISSO VAI NAS DECLARACOES DO MODULE OU DO FORMULARIO QUE TERA ESSA FUNCAO

Option Explicit
Private Declare Function NetRemoteTOD Lib "NETAPI32.DLL" (ByVal server As String, buffer As Any) As Long
Private Declare Function NetApiBufferFree Lib "NETAPI32.DLL" (ByVal buffer As Long) As Long
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Type TIME_OF_DAY
t_elapsedt As Long
t_msecs As Long
t_hours As Long
t_mins As Long
t_secs As Long
t_hunds As Long
t_timezone As Long
t_tinterval As Long
t_day As Long
t_month As Long
t_year As Long
t_weekday As Long
End Type

''''ESSA É A FUNCAO
''''PRA CHAMAR É SÓ POR strDataHora = BuscarDataHora("[IP OU NOME DO SERVIDOR]")
'''' A Data vira em string data e hora no format abaixo. depois você separa e converte em data
' Função para retornar a Data/Hora de um computador na rede
' RETORNO:
' string no formato dd/mm/yyyy-hh:mm:ss
' PARAMETROS:
' sComputador: Nome de um computador da rede. Ex: \\SERVIDOR1
'
Private Function BuscarDataHora(sComputador As String) As String
Dim sRetorno As String
Dim todTime As TIME_OF_DAY
Dim ptrTime As Long
Dim lRetorno As Long
Dim sServidor As String
Dim dRemoto As Date
On Error GoTo ERRO
sRetorno = ""
Screen.MousePointer = vbHourglass
sServidor = StrConv(sComputador, vbUnicode)
lRetorno = NetRemoteTOD(sServidor, ptrTime)
If lRetorno = 0 Then
CopyMemory todTime, ByVal ptrTime, Len(todTime) 'COPIA O PONTEIRO RETORNADO PARA A ESTRUTURA TIME_OF_DAY
dRemoto = DateSerial(70, 1, 1) + (todTime.t_elapsedt / 60 / 60 / 24) 'CONVERTE O TEMPO DECORRIDO DESDE 1/Jan/70 PARA UMA DATA
dRemoto = dRemoto - (todTime.t_timezone / 60 / 24) 'AJUSTAR PARA DIFERENÇAS DO TimeZone
sRetorno = Format(dRemoto, "dd/mm/yyyy") & "-" & Format(dRemoto, "hh:mm:ss")
NetApiBufferFree (ptrTime) 'LIBERA O PONTEIRO DA MEMÓRIA
Else
'Erro 53: cannot find server
MsgBox "Não pode encontrar o servidor." & vbCrLf & vbCrLf & sServidor, vbExclamation, "Atenção"
End If
GoTo FIM
ERRO:
MsgBox Err.Number & vbCrLf & Err.De ion, vbCritical, "Erro"
FIM:
Screen.MousePointer = vbDefault
BuscarDataHora = sRetorno
Exit Function
End Function

  5. Usuario E Password

    em Visual Basic

    Postado

    ve se assim fica mais facil:

    strsql = "Select * from Login Where Usuario = '" & txtUsuario.text & "' ANd Senha = '" & txtSenha.text & "'"

set rs = cn.execute(strsql)

if rs.eof then
     msgbox "Usuário ou senha Inválido!"
     exit sub
end if

'AQUI VOCE CONTINUA COMO SE ELE TIVESSE DIGITADO A SENHA CERTA

  9. Grid

    em Visual Basic

    Postado

    conheco um componente q chama farpoint Spread q faz isso.

    da pra por combo, checkbox, option button e o q você imaginar no grid.

    mas esse componente é pago e não sei onde encontrar pirata ou algum cracker.

    não sei se tem outro componente q faz isso.

  23. Preciso De Trabalho Pronto!

    em Visual Basic

    Postado

    já me encontrei em várias situações em que tive que correr com algum serviço, ou trabalho e em muitos desses casos pedi favores para alguém, inclusive pro pessoal do forum (graymalkin q o diga).

    mas nunca pedi trabalho pronto e, se me oferecessem, recusaria.

    porque antes de qualquer nota na escola ou prazo do servico o q eu via era uma oportunidade de aprender mais.

×
×
  • Criar Novo...