Ir para conteúdo
Fórum Script Brasil

Marcos Remar

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    27

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Marcos Remar

  6. Como pressionar tecla?

    em Visual Basic

    Postado

    Usando a rotina SendKeys. Exemplo:

    Shell "Notepad", vbNormalFocus
    
AppActivate "Sem Título - Bloco de notas"
    
SendKeys "Isto é um teste{ENTER}"
SendKeys "e mais outro teste{ENTER}"

    Certo? ;)

    Graymalkin

    Mas e se por exemplo eu quiser chamar a tecla F11 ou ALT + F4?

  8. função copiar e colar

    em Visual Basic

    Postado

    vlw amigo

    achei isso aqui:

    Acesso à área de Transferência

    O Objeto Clipboard é uma referência à Área de transferência,

    vejamos como utiliza-lo:

    Clipboard.gettext

    Este comando retorna o conteúdo da área de transferência.

    Clipboard.clear

    Limpa conteúdo da área de transferência.

    Clipboard.settext "Teste"

    Settext adiciona um novo texto p/ a área de transferência, no

    entanto p/ funcionar á necessário limpá-la primeiro usando

    o clear.

    Palavras Chave:

    Acesso à área de Transferência

    Acesso à área de Transferência

  12. Rede Cross Over não Funciona!

    em Redes

    Postado

    Ola pessoal eu sei que esse assunto para a maioria e muito facil mais la vai.

    Eu to querendo montar uma rede crossover aqui to com duas placas de rede instaladas o cabo de rede crossover conectado nas duas placas e os 2 pcs ligados.

    Mas o icone do lado do relogio diz que um dos cabos da rede esta desconectado e esta com um xis.

    Obrigado pessoal qualquer ajuda vai ser muito util. :)

  13. Função Para Conexão Com Bd.

    em PHP

    Postado

    Olá pessoal estou com problema nesse script, olha só.

    Esse é o script!

    <?php

    include('config/bd.php');

    //$login = $_POST["log"];

    //$senha = $_POST["sen"];

    conecta();

    $busca = mysql_query("Select * FROM secoes ");

    while ($reg = mysql_fetch_assoc($busca))

    {

    echo "<br>";

    echo "<br>Código : " . $reg["codsecao"];

    echo "<br>Categoria : " . $reg["nomesecao"];

    echo "<br>Descrição : " . $reg["descricaosecao"];

    echo "<hr width=50% align=left></hr>";

    }

    desconecta();

    ?>

    Essa é a biblioteca de funções!

    <?php

    function conecta(&$link)

    {

    $link = mysql_connect("localhost", "root", "") or die("Não foi possível conectar: " . mysql_error());

    $banco = mysql_select_db("loja", $link) or die ("Erro ao abrir o banco de dados: ". mysql_error());

    }

    function desconecta()

    {

    global $busca, $link;

    mysql_free_result($busca);

    mysql_close($link);

    }

    ?>

    O erro ta acontecendo na função desconecta!

  14. Como Colocar " Dentro De "

    em ASP

    Postado

    não vai funcionar por causa das aspas, quando está dentro de tag de asp você tem que usar 2 para ignorar e o asp não entender como abertura de codigo, faça assim:

    <%
Response.write "Senha<br><input name=""senhai"" type=""password"" id=""senhai"" value=""senha"" size=""18"" onfocus=""if(this.value=='senha')this.value=''"">"
%>

    Muito obrigado!

  16. Como Criar Bd

    em SQL Server

    Postado

    Olá pessoal sou programador asp e sempre utilizei o access, mas agora estou precisando desenvolver no sql server. Gostaria que vocês me ajudasem a fazer pelo menos uma conexão básica com uma página, pra mim depois ir prosseguindo. Estou utilizando o sql server 2000 no windows 2000.

    Grato.

  18. Topicos Exclusivos

    em ASP

    Postado

    desprendi o tópico anterior e criei outro postem o que gostariam que fosse feito... ..

    ok...

    toda semana farei um tuto em cima de pedidos feitos aqui.

    Gostaria que fosse feito um tuto com uma função para conexão com bd access, com o código completo.

  19. Como Criar Função Para Conexão Com Bd Access

    em ASP

    Postado 

    <%
function abre_conexao()

'ai poe a conn aqui

end function

function fecha()

conn.close
set conn=nothing

end function
%>
    ai depois é so chmar 
    <%=abre_conexao%>
<%=fecha%>

    Dá uma olhada no codigo, ainda não pego.

    Teste.asp

    <!--#include file="config.asp"-->

    <%

    abre_conexao()

    SQL = "SELECT nome "

    SQL = SQL & " FROM perfil"

    bd.Open SQL, conexao

    If Not bd.EOF Then

    Response.write "Nome: " & bd.Fields("nome")

    End If

    fecha()

    %>

    E a outra que é o include.

    Config.asp

    <%

    Sub abre_conexao()

    Set conexao = Server.CreateObject("ADODB.Connection")

    conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

    set bd=Server.CreateObject("ADODB.recordset")

    End Sub

    Sub fecha()

    conexao.close

    set conexao=nothing

    End Sub

    %>

  21. Como Criar Função Para Conexão Com Bd Access

    em ASP

    Postado

    Olá pessoal

    eu gostaria da ajuda de vocês para criar uma função para fazer conexão com um bd access. Como eu tenho que abrir conexões toda hora isso ajudaria bastante a economizar linhas de código. Tem um tópico no forum sobre isso mas eu não entendi muito bem, e os exemplos eram em sql server. Use como exemplo esse código abaixo criando uma conexão usando include.

    <%

    Set conexao = Server.CreateObject("ADODB.Connection")

    conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("comunidade.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

    set bd=Server.CreateObject("ADODB.recordset")

    SQL = "SELECT nome "

    SQL = SQL & " FROM perfil"

    bd.Open SQL, conexao

    If Not bd.EOF Then

    Response.write "Nome: " & bd.Fields("nome")

    End If

    bd.Close

    Set bd = Nothing

    conexao.Close

    Set conexao = Nothing

    %>

  24. Duvida Sobre Upload Como Fazer Um Bem Simples

    em ASP

    Postado

    Beleza amigo,

    pow cara em asp é uma complicação danada fazer upload, o servidor teria que ter varios paths instalados.

    Mas quando eu estava na mesma situação que a sua achei um script pronto que resolve o problema e sem path.

    É assim oh:

    ----- parte 2 ------

    <!-- #include file = "upload_funcoes.asp" -->

    <%

    ' Chamando Funções, que fazem o Upload funcionar

    byteCount = Request.TotalBytes

    RequestBin = Request.BinaryRead(byteCount)

    Set UploadRequest = CreateObject("Scripting.Dictionary")

    BuildUploadRequest RequestBin

    ' Recuperando os Dados Digitados ----------------------

    img = UploadRequest.Item("foto").Item("Value")

    ' Tipo de arquivo que esta sendo enviado

    tipo_foto = UploadRequest.Item("foto").Item("ContentType")

    ' Caminho completo dos arquivos enviados

    caminho_foto = UploadRequest.Item("foto").Item("FileName")

    ' Nome dos arquivos enviados

    nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

    ' Conteudo binario dos arquivos enviados

    foto = UploadRequest.Item("foto").Item("Value")

    ' pasta onde as imagens serao guardadas

    pasta = Server.MapPath("../upload/")

    nome_foto = "/"&nome_foto

    ' pasta + nome dos arquivos

    cfoto = "imagens/lojas" + nome_foto

    ' Fazendo o Upload do arquivo selecionado

    if foto <> "" then

    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

    For i = 1 to LenB(foto)

    MyFile.Write chr(AscB(MidB(foto,i,1)))

    Next

    MyFile.Close

    end if

    %>

    -----/parte 2 -----

    O include se refere a parte 3:

    ---- parte 3 ------

    <%

    ' Upload Sem componentes ---------------------------------------

    Sub BuildUploadRequest(RequestBin)

    on error resume next

    PosBeg = 1

    PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

    boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

    BoundaryPos = InStrB(1, RequestBin, boundary)

    Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

    Dim UploadControl

    Set UploadControl = CreateObject("Scripting.Dictionary")

    Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))

    Pos = InStrB(Pos, RequestBin, getByteString("name="))

    PosBeg = Pos + 6

    PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

    Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

    PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))

    PosBound = InStrB(PosEnd, RequestBin, boundary)

    If PosFile <> 0 And (PosFile < PosBound) Then

    PosBeg = PosFile + 10

    PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

    FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

    UploadControl.Add "FileName", FileName

    Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))

    PosBeg = Pos + 14

    PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

    ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

    UploadControl.Add "ContentType", ContentType

    PosBeg = PosEnd + 4

    PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

    Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

    Else

    Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))

    PosBeg = Pos + 4

    PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

    Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

    End If

    UploadControl.Add "Value", Value

    UploadRequest.Add Name, UploadControl

    BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)

    Loop

    End Sub

    Function getByteString(StringStr)

    For i = 1 To Len(StringStr)

    Char = Mid(StringStr, i, 1)

    getByteString = getByteString & ChrB(AscB(Char))

    Next

    End Function

    Function getString(StringBin)

    getString = ""

    For intCount = 1 To LenB(StringBin)

    getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))

    Next

    End Function

    ' Fim upload sem Componentes -----------------------------------------

    %>

    ------/ parte 3 -------

    Na parte 1 você cria o formulário.

    Na parte 2 você confgura o codigo da parte 2, e o include que é a parte 3.

    A parte 3 é o próprio include.

    Obs. os Request.QueryString não vão funcionar, declare eles dentro do comentário "Recuperando os Dados Digitados" como o que esta lá.

×
×
  • Criar Novo...