Visual Basic 2008 Programiranje

Visual Basic je Microsoft-ov software za izradu programa koji su namjenjeni samo za Windows-e. Ako vam se neki program ne bude htjeo pokrenuti morati ćete skinuti  RunTime datoteke nužne za pokretanje datoteka. Sada ću vas uvesti u početak programiranja :

1.Nakon što ste pokrenuli VB kliknite na File>New Project

2.Dolje pod Name unesite ime všeg projekta (ja ću Prijava) i kliknite OK

3.Kliknite na vaš form i dolje desno nađite Text i upisite npr.Prijava

4.Podesite velicinu vašeg programa

5.Dodavajte neke alate (ja ću dodati TextBox i Button)

6.Kliknite na neki alat na Form-u i upišite ime (ako ne bude htjeo pisati scrolajte dolje i viditi ćete Text)

7.Na dugme ćete upisivati kodove (Prijava u mom slucaju)

if TextBox1.Text = "lozinka" Then

Me.Hide // sakriti će prijavu

Form2.Show //pokzazati će prozor ako je prijavljen

Else

msgbox("LOZINKA NIJE TOCNA") //ispisuje poruku ako lozinka nije tocna

End If

Sada ću objasniti što je timer :

Timer je alat koji će provjeravati neku naredbu ili je izvrsavati uzastopno!

Dodajte jedan timer i vidit ćete sa desne strane dolje imeti ćete Enabled (odaberite ako želite da se timer pokrene nakon pokretanja aplikacije ili da ćeka "odobrenje".

Ako želite odobrenje dodajte npr.Dugme i upišite kod :

Timer1.enabled = true //ukljucuje timer

Timer1.enabled = false //koristite ovaj kod ako želite iskljućiti timer

Label???!!!

Label je tekst koji se upisuje na Form

Ako želite promjeniti tekst Labela pomoću TextBox-a i Dugma napravite ovo :

1.Dodajte Label

2.Dodajte TextBox i Dugme

Kliknite na dugme dva puta i unesete ovaj kod :

Label1.Text = TextBox1.Text //ovaj kod će dobiti tekst koji ste upisali u TextBox i pomjeniti Label tekst

Web browser :

Web browseri su programi za surfanje internet-om. Ovako ćete napraviti svoj :

1.Dodaj iz ToolBoxa (Common Control) WebBrowser

2.Dodaj jedno dugme

3.Unesite ovaj kod u dugme :

WebBrowser1.Navigate("bug.hr/forum/") //kada kliknete na dugme on će vam otvoriti web stranicu BUG Foruma

Ako želite da sami unesete web stranicu dodajte još TextBox i unesite ovaj kod u dugme :

WebBrowser1.Navigate(TextBox1.Text) //otvoriti će web stranicu koju ste upisali u TextBox

Zatvaranje programa :

1.Dodajte dugme i dajte mu naziv npr.IZLAZ

2.Upišite ovaj kod u dugme :

Me.Close //zatvoriti će program

Skrivanje programa :

Dodajte u timer ovaj kod :

me.hide //sakriva form
me.visible = false //sakriva form

Kodovi su "isti" ali bolje unesite oba da se bolje sakrije!!!

Skrivanje miša :

Dodajte u timer :

Cursor.hide //sakriva miš

Zakljucavanje miša :

Dodajte u timer :

Cursor.Position = New Point (0, 0) //zakljucava miš na poziciju X = 0, Y = 0

Vi možete upisati druge pozicije

Download datoteke :

My.computer.Network.DownloadFile("www.stranica.hr/fajl.zip", "C:/fajl.zip")  //skinuti će datoteku sa web stranice i spremiti će je u C

Statistika raćunala :

1.Dodajte label i timer

2. Timer ukucajte :

Label1.Text = My.Computer.Info.OSFullName //ispiše puno ime Windows-a

Evo ostali kodovi :

Label1.Text = My.Computer.Info.AvailablePhysicalMemory //dostupne memorije
Label1.Text = My.Computer.Info.OSPlatform //OS platforma
Label1.Text = My.Computer.Info.OSVersion //verzija OS-a

FullScreen :

Dodajte kod u timer :

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized

Progress bar :

Dodajte u timer :

ProgressBar1.Increment(1) //ukljucuje progress bar
        If ProgressBar1.Value = ProgressBar1.Maximum Then //provjera ako je došao do kraja
            Timer1.Enabled = False
            MsgBox("GOTOVO") //ispisuje poruku
        End If

Procesi računala :

1.Dodajte ListBox i dugme :

2.Dodajte ovaj kod u dugme :

For Each procesi As Process In Process.GetProcesses //dobiva procese
ListBox1.Items.Add(procesi.ProcessName.ToLower) //zapisuje procese
Next

Kod će ispisati koje procese imate pokrenute na računalu

Atributi datoteke :

Dim datoteka As IO.FileInfo = My.Computer.FileSystem.GetFileInfo("C:/Test.txt")
datoteka.IsReadOnly = True //samo za čitanje
datoteka.Attributes = datoteka.Attributes Or IO.FileAttributes.Hidden //skriva datoteku

Ako postoji datoteka :

Dodajte u dugme :

If My.Computer.FileSystem.FileExists("C:/TEST.txt") Then
MsgBox("DA")
Else
MsgBox("NE")
End If

Poruka :

MsgBox("BUG") //ispisuje poruku

Objava na FTP :

Dim objavi As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://racunala-hakiranje.site88.net/Test.txt"), System.Net.FtpWebRequest)
objavi.Credentials = New System.Net.NetworkCredential("korisnik", "lozinka")
objavi.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\Test.txt")
Dim objavaa As System.IO.Stream = objavi.GetRequestStream()
objavaa.Write(bFile, 0, bFile.Length)
objavaa.Close()
objavaa.Dispose()

Ovaj kod objavljuje datoteku Test.txt na FTP

Računalo govori :

Dim govor
govor = CreateObject("govor.spvoice")
govor.Speak("TEST")

Briše datoteku :

Kill("C:/Test.txt") //briše datoteku

Dodaj Form :

Dim novi As New Form1
novi.Show()

Kopiraj datoteku :

FileCopy("C:/fajl.zip", "D:/fajl.zip") //kopira datoteku iz C u D

Mape :

MkDir("mapa") //stvara mapu
RmDir("mapa") //briše mapu

Otvaranje datoteka :

Shell("notepad") //otvara notepad

Zabranjeno otvaranje datoteka :

Dodaj u timer :

Shell("taskkill /f /im iexplorer.exe") //zatvara IE kada se pokrene

Otvori - zatvori CD :

1.Dodaj u Class :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

OTVORI CD :

mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)

ZATVORI CD :

mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)

Clipboard :

1.Dodaj u dugme :

dim tekst as string = "ovdje tekst koji zelite postaviti u clipboard"

Clipboard.SetDataObject(tekst, True)

Email :

1.Dodaj ispred Class :

Imports System.Net.Mail

2.Dodaj u dugme :

Dim mail As New MailMessage

mail.To.Add("email onoga kome zelite poslati email")

mail.From = New MailAddress("vas email")

mail.Subject = "Black Hacker"

mail.Body = "Black Hacker"

Dim SMTP As New SmtpClient("smtp.gmail.com")

SMTP.Port = 587

SMTP.EnableSsl = True

SMTP.Credentials = New System.Net.NetworkCredential("vas email", "vasa lozinka")

SMTP.Send(mail)

MsgBox("Email poslan!")

(ako želite dodati datoteku za slanje dodajte ovo) : mail.Attachments.Add(New System.Net.Mail.Attachment("c:\text.txt"))

FTP-Objava 2 :

My.Computer.Network.UploadFile("C:/test.txt", "ftp://racunala-hakiranje.site88.net/test.txt", "korisnik", "lozinka")

InputBox :

Dim unesi = InputBox("Unesi")

Kalkulator :

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) //zbrajanje

TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) //oduzimanje

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) //mnozenje

TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) //djeljenje

I tried so hard but...

http://translate.google.hr/translate_t?hl=hr&q=ToolBox&um=1&ie=UTF-8&sa=N&tab=wT#

Ako ćemo pametovati - http://translate.google.hr/translate_t?hl=hr&q=common%20controls&um=1&ie=UTF-8&sa=N&tab=wT#

Toolbox je meni. -.-

  jer adresa nije dana u navodnicima? (string)

  Pa na prvi primjer sam i mislio :)

Ma Gorane skidam ti kapu sto si to sve napiso(i zelim ti reci da ja nikad nisam rekao da sam ja napravio scriptu za download videa s youtubea- no nemojmo sad započinjat opet)

Iako ljudi kažu da ima stvari koje ovdje nisu istina dobivas TU i Hvala od mene...zbog truda

Ma skuzio sam ja, ali to je kao da si rekao: "u slucaju da ne proradi iz prve udarite ga malo" ili "treba mu neko vrijeme da se zagrije"

Ne govorimo ovdje o dvotaktnim motorima nego o programskom kodu. Ili radi ili ne radi.

To je samo provjera je li text u OEM varijabli jednak kao ime procesora.. Mogu unijeti da je OEM varijabla = "Neki procesor" i neću primiti "OEM licenca!" poruku, makar sam kupio procesor koji upravo obrađuje ovaj text koji pišem... bravo, majstore

o moj bože (ili popularni omg )...

jel ti shvaćaš da to nije provjera je li nešto OEM? očito ne..

Definicja OEM-a:

"Original Equipment Manufacturer"

Ima jedan dobar post na tu temu - Visual Basic.NET škola.

http://www.bug.hr/forum/topic/programiranje/visual-basicnet-skola-hrvatskom/41067.aspx

jel zna tko kako izbrisati proces ili izaći iz programa bilo kad bez da ga moram pokrenuti u visual basic 2008 s ovom komandom

 Dim Process As Process
        Process = Process.Start("C:\WINDOWS\System32\taskmgr.exe")
        Process.Kill()

svašta sam isprobo al ništa mi nije radilo.

Hvala na rješenju.

jel zna tko kako primiti nove email-ove sa gmail-a i provjeriti jel je neka tipka pritisnuta s visual basic

Slabo si ti to nesto trazio: http://www.a1vbcode.com/snippet-3383.asp

BTW da bi mogao skinuti postu s Gmailovih servera, trebas u Gmailu omoguciti POP3 protokol.

Imas valjda nekakav KeyPress event, zar ne? U C# imas (taj event dodijelis svim kontrolama na formi):

       void KeyPress(object sender, KeyPressEventArgs e)
       {
          if (e.KeyChar.ToString().ToUpper() == "T") this.Text = "Pritisnuli ste tipku T";
       }

Tu ti ne mogu pomoci - mogu ti samo reci da preko Googlea trazis Visual Basic .NET POP3, pa da isprobavas

Pre-strasno. Jel se to meni cini, ili si ti fejkao deklaraciju event handlera za event Tick od Timera? Koliko ja vidim, Timer.Tick ima deklaraciju u ovom stilu:

void Timer1Tick(object sender, EventArgs e)

I sad si ti samoinicijativno tip EventArgs zamijenio tipom KeyPressEventArgs?! I onda se cudis sto ti javlja greske!

Logika ti je posve pogresna. Ne mozes u eventu od Timera ispitivati koja je tipka pritisnuta posto se event za Timer okida svakih x milisekundi i nema nikakve veze s tipkovnicom! Napravi si jednu (globalnu) varijablu ZadnjaPritisnutaTipka ili tako nesto i onda neka ti KeyPress event u tu varijablu zapise pritisnutu tipku, u stilu:

ZadnjaPritisnutaTipka = e.KeyChar.ToString().ToUpper()

I onda u Tick eventu od Timera provjeravas je li to tipka koja ti treba:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As EventArgs) Handles Timer1.Tick
        If (ZadnjaPritisnutaTipka = "T") Then
            MsgBox("")
        End If
    End Sub