ajudamc

Olá galera da Web Cheats vim mostrar como criar um programa que escreve sem parar. Vamos lá

1° Necessario: 3 Button - 1 Timer - 1 TextBox

2° No Button1 mude o Nome para Start

3° No Button2 mude o nome para Stop

4° No Button3 mude o nome para Close

5° No Timer1 Mude o Interval Para 200

6° Adicione os Seguintes Codigos:

No Button 1 Adicione o Seguinte Codigo:

If TextBox1.Text = "" Then

MsgBox("Por Favor preencha o Campo Vaziu")

Else

Timer1.Enabled = True

Me.WindowState = FormWindowState.Minimized

End If

No Button 2 Adicione o Seguinte Codigo:

Timer1.Enabled = False

No Button 3 Adicione o Seguinte Codigo:

Me.Close()

No Timer 1 Adicione o Seguinte Codigo:

SendKeys.Send(TextBox1.Text)

SendKeys.Send("({ENTER})")

Clique no Fo-rm 2 Vezes e digite o Codigo:

Button2.Enabled = False

6°Inicie o Projeto escreva alguma Coisa No TextBox1 Abra um bloco de notas e aperte Start.

7° Fim

Credits

Ajudamc: Por Fazer o Post

Ajudamc: Por Criar o Codigo

Olá galera da web cheats vim mostrar como criar um atalho na area de trabalho do visual Basic :) Vamos Lá.

1° Necessario: 1 Button

2° Clique no Button e adicione o Seguinte Codigo:

Dim strB As New System.Text.StringBuilder()

 

strB.AppendLine("[internetShortcut]")

strB.AppendLine("URL=http:\\Site")

System.IO.File.WriteAllText("caminho\nome do arquivo.url", strB.ToString())

EXE:

Dim strB As New System.Text.StringBuilder()

 

strB.AppendLine("[internetShortcut]")

strB.AppendLine("URL=http://www.losrakerteam.blogspot.com.br")

System.IO.File.WriteAllText("C:\Documents and Settings\All Users\Desktop\Teste.url", strB.ToString())

5° Testem

Credits

Ajudamc: Pelo Post

Ajudamc: por fazer o Codigo

Olá eu não sou programador mais eu sou iniciante (:)... Vamos Lá eu vou ensinar a criar um Gerenciador de Download

1º - Adicione 2 botões, 1 progress bar.

2° - Clique no Fo-rm e encontre "Fo-rm border style" e selecione "fixed single".

3° - "maximizebox" mude de "True" Para "false" e a propriedade "startPosition" Mude de "windowsdefaltlocation" Para "center screen".

4° - Clique no Fo-rm 2 Vezes apague tudo e cole o seguinte codigo e adicione o Seguinte Codigo:

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Enabled = False

download = New WebClient

download.DownloadFileAsync(New Uri("Site - direto"), "C:\Documents and Settings\All Users\Desktop\nome do arquivo + extensão")

End Sub

 

 

Public WithEvents download As WebClient

Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted

MessageBox.Show("Mensagem a ser dita quando o download terminar")

End Sub

 

 

Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged

ProgressBar1.Value = e.ProgressPercentage

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

Exe:

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Enabled = False

download = New WebClient

download.DownloadFileAsync(New Uri("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

), "C:\Documents and Settings\All Users\Desktop\ccsetup322.exe")

End Sub

 

 

Public WithEvents download As WebClient

Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted

MessageBox.Show("Download Completo")

End Sub

 

 

Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged

ProgressBar1.Value = e.ProgressPercentage

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

5° Para conceguir o link direto faça o mesmo:

va no baixaki clique em baixar arquivo e cancele o download o copie o link direto eo nome do arquivo mais a extensão