sábado, 20 de fevereiro de 2016

VB.net - Verificando Enter e Esc no Form

A propriedade KeyPreview do form deve ser igual a True

Paste your text here.    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            Me.BackgroundImage = Image.FromFile(Menu1)
        ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Escape) Then
            Me.BackgroundImage = Image.FromFile(Menu0)
        End If
    End Sub

Envio de fax pelo Google

Olá amigos,

atualmente o FAX é um dispositivo que quase não se encontra em empresas, com a evolução da tecnologia outras formas de envio de documentos são mais fáceis e mais baratas, porém algumas empresas ainda insistem em utilizar o FAX, como a SABESP. Fiquei surpreso quando eles me solicitam que enviasse um documento por FAX, perguntei se tinham e-mail ou outra forma de envio e disseram que somente poderia ser por FAX, então tentei achar um em alguma empresa e não consegui, tentei com amigos e não consegui, tentei em LAN Houses e também nada, então pesquisei uma forma de envio de FAX pela internet e por surpresa descobri que o GMail faz isso, e faz mesmo, o envio demora um pouco mas testei e o FAX chegou, a forma e bem simples, vejam:
Utilize o endereço de e-mail abaixo e altera os campos <recipiente_name> para o nome da empresa ou pessoa que irá receber o FAX e <fax_number> para o número do FAX com o código do país e DDD, escreve a anexe o que desejar e depois é só enviar.

remote-printer.<recipient_name>@<fax_number>.iddd.tpc.int



Espero ter ajudado.

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Imports System
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
        fs.Write(info, 0, info.Length)
        fs.Close()
    End Sub

End Module

Vb.net - Mover formulário Transparente

Para mover um formulário transparente no VB.net utilizem o código abaixo  dentro da Classe do Formulário e pronto.

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

sexta-feira, 19 de fevereiro de 2016

Editor Script Batch

Masvat-v2.0 

Além de editar também podemos compilar e gerar um executável

font: http://masim-masosoft.blogspot.com.br/2012/08/masbat-v20-beta.html




quarta-feira, 17 de fevereiro de 2016

Batch Script que retorna tamanho da string


Retornando tamanho de variável

Script StrLen
@echo off
:novo
echo Entre com um texto:
set /p "mystring="
call :strlen result myString
echo %result%
goto :eof

:strlen <resultVar> <stringVar>

(   
    setlocal EnableDelayedExpansion
    set "s=!%~2!#"
    set "len=0"
    for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
        if "!s:~%%P,1!" NEQ "" ( 
            set /a "len+=%%P"
            set "s=!s:~%%P!"
        )
    )
)

    endlocal
    set "%~1=%len%"
    exit /b
)
:eof
pause < nul

DOS String Manipulation

Font: http://www.dostips.com/DtTipsStringManipulation.php

Basic string manipulation in batch like you are used to from other programming languages.


Align text to the right i.e. to improve readability of number columns.
Extract characters from the beginning of a string.
Use Key-Value pair list to lookup and translate values.
Extract a Substring by Position.
Remove a substring using string substitution.
Remove the first and the last character of a string.
Remove all spaces in a string via substitution.
Replace a substring using string substitution.
Extract characters from the end of a string.
Split a String, Extract Substrings by Delimiters.
Add one string to another string.
Trim spaces from the beginning of a string via "FOR" command.
Remove surrounding quotes via FOR command.
Trim spaces from the end of a string via "FOR" command.
Trim spaces from the end of a string via substitution.



Bloqueando Pastas Com Senhas

Olá amigos,
fazer isso sem a instalação de programas é quase impossível, então pesquisei, achei uma forma e melhorei, sei que ainda pode ficar melhor e irei melhorá-la mas já estou colocando aqui o script funcionando.

É um aquivo de lote (.bat) (batch)

O que ele faz?
Ele cria uma pasta chamada PRIVATE e altera os atributos desta pasta e de todos os aquivos contidos nela para:
OCULTO
ARQUIVO DE SISTEMA
SOMENTE LEITURA
BLOQUEIA A LEITURA E GRAVAÇÃO
e também faz a ordem inversa.

A senha este definida dentro do código como 123, ainda estou pensando em como fazer para criar um arquivo de senhas. (Se alguém já tiver uma solução para isso me avise)

Este código foi criado com o objetivo de que em uma mesma pasta vários usuários possam criar seus documentos porém estes documentos não podem ser vistos pelos demais usuários, todos os usuários usam o mesmo PC e a criação de usuários do windows foi descartada, pois muitas pessoas usam o mesmo PC.

Abaixo está a estrutura de diretório que eu criei, reparem que dentro de uma única pasta existem várias pastas de usuários e em cada uma delas deve ter o script instalado.



Tela inicial que cria a pasta PRIVATE ao executar pela primeira vez o script



Tela para bloquear a pasta PRIVATE



Tela para desbloquear a pasta PRIVATE 

Vejam o código:

--------------------------------------------------------------------------------------------------------------------

cls
@ECHO Off
SetLocal EnableExtensions EnableDelayedExpansion

title Bloquear Acesso a Pasta!!!

if EXIST "Private_Lock" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
color A
echo ##########################################################################
echo .                                                                        .
echo . ---------------------------------------------------------------------- .
echo .                                                                        .
echo .          B L O Q U E A R      P A S T A     P R I V A T E              .
echo .                                                                        .
echo ##########################################################################
echo.                                                                                                         
echo Tem certeza, que deseja bloquear a pasta PRIVATE? (Y/N)
set /p "cho="
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Comando Invalido.
pause > nul
goto CONFIRM

:LOCK
ren Private "Private_Lock" 
attrib +h +s +a +r /d /s "%cd%\Private_lock"
attrib +h +s +a +r /d /s "%cd%\Private_Lock\*.*"
goto End


:UNLOCK
cls
color E
echo ##########################################################################
echo .                                                                        . echo . ---------------------------------------------------------------------- .
echo .                                                                        .
echo .         D E S B L O Q U E A R      P A S T A      P R I V A T E        .
echo .                                                                        .
echo ##########################################################################
echo.         
echo Entre com a senha para desbloquear a pasta PRIVATE.
echo.

Set /P "=Senha: " < Nul
Call :PasswordInput
Goto :SENHA

:::::::::: ROTINA PARA TRANSFORMAR A SENHA EM "*" :::::::::::::::::
:PasswordInput
For /F skip^=1^ delims^=^ eol^= %%# in (
'"Echo(|Replace.exe "%~f0" . /U /W"') Do Set "CR=%%#"
For /F %%# In (
'"Prompt $H &For %%_ In (_) Do Rem"') Do Set "BS=%%#"
Set "Line="

:_PasswordInput_Kbd
Set "CHR=" & For /F skip^=1^ delims^=^ eol^= %%# in (
'Replace.exe "%~f0" . /U /W') Do Set "CHR=%%#"
If !CHR!==!CR! Echo(&Goto :Eof
If !CHR!==!BS! (If Defined Line (Set /P "=!BS! !BS!" <Nul
Set "Line=!Line:~0,-1!"
)
) Else (Set /P "=*" <Nul
If !CHR!==! (Set "Line=!Line!^!"
) Else Set "Line=!Line!!CHR!"
)
Goto :_PasswordInput_Kbd

:::::::::: FIM DA ROTINA PARA \TRANSFORMAR A SENHA EM "*" :::::::::::::::::

:SENHA
if NOT %Line%== 123 goto FAIL:
attrib -r -s -a -h /d /s "%cd%\Private_lock"
attrib -r -s -a -h /d /s "%cd%\Private_lock\*.*"
ren "Private_Lock"  Private
cls

goto End

:RELOCK
color c
echo Tentar Novamente? (Y/N)
set /p "cho="
if %cho%==Y goto UNLOCK
if %cho%==y goto UNLOCK
if %cho%==n goto END
if %cho%==N goto END
pause > nul
goto UNLOCK


:FAIL
cls
color c
echo Senha Invalida
goto RELOCK

:MDLOCKER
prompt 888888888 criando pasta 888888888888
md Private
color E
echo A Pasta PRIVATE Foi Criada Com Sucesso!!!
echo Avancar aperte ENTER!!!
pause > nul
cls
goto CONFIRM

:End

:ENTER
exit
Related Posts Plugin for WordPress, Blogger...