Visual Basic 2008/NET - Tutorials - By Coop aka Dava
------
Download tutove:
2shared
http://www.2shared.com/file/5821263/9b2884ba/tutorial.html
MediaFire
http://www.mediafire.com/?sharekey=c4a9b4b9ab0602e161d4646c62b381cbe04e75f6e8ebb871
Ove tutove sam pravio oko pola sata, moguce je da ce bit pogresaka i u programiranju i u tekstu, ako naletite na neku pogresku obavjestite me.
Mozda ove primjere noobare nece shvatit al potrudite se...
I da, dopustenje sam dobio od xXxAdOo-a .
U slucaju da vam se pojavi ovaj smajl
to znaci da je u kodu ovaj tekst ; ) samo sto je spojen pa napravi smajl...
VB 1- Task Tray
Pokrenimo VB, odaberimo Windows Form Application te mu dajmo neko ime.
Iz ToolBoxa odaberimo NotifyIcon te ga prebacimo na lice aplikacije nakon cega ce se on spustit na dno.
http://img223.imageshack.us/img223/222/vb08notifyicon.png
Nakon toga iz ToolBoxa uzmimo ContextMenuStrip te ga stavimo u aplikaciju nakon cega ce se on sam prebacit na vrh aplikacije kao neki gornji menu.
http://img177.imageshack.us/img177/8765/vb08contextmenustrip.png
Kliknimo na njega te u njegovim opcijama ( obicno budu sa desne strane ), dodajmo mu ime: menu
Nakon toga kliknimo na NotifyIcon te ga u postavkama postavimo kao na slici
http://img269.imageshack.us/img269/7474/vb08trayiconprop.png
Kliknite na ContextMenuStrip i dodajte komandu Izlaz
http://img140.imageshack.us/img140/9550/vb08cmumain.png
Kada ste dodali komandu, dva puta kliknite na nju i u editoru upisite End
Sada se vratite na dizajn aplikacije, dva puta kliknite na aplikaciju nakon cega ce vam izbacit editor, postavite ovaj kod:
trayIcon.Icon = Me.Icon
trayIcon.Visible = True
trayIcon.ShowBalloonTip(100, "Task Tray", "Pozdrav!", ToolTipIcon.Info)
VB 2- Comp komande
Pokrenimo Windows Form Aplikaciju sa bilo kojim imenom.
Dodajte 3 button-a ( gumba )te ih po redu imenujte:
Log off
Restart
ShutDown
Zatim dupli klik na aplikaciju nakon cega ce vam se otvorit editor, iznad Public Class frmMain dodajte:
Imports Microsoft.Win32
Nakon toga ispod Public Class frmMain dodajte:
Dim Startup As Microsoft.Win32.RegistryKey = _
Registry.CurrentUser.CreateSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Evo slika:
http://img140.imageshack.us/img140/3728/vb08traydecs.png
Zadnje sto nam je preostalo je dodati komande gumbima.
Dupli klik na Log off i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/L"
Dupli klik na Restart i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/R"
Dupli klik na ShutDown i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/S"
VB 3- Console aplikacija
Pokrenimo VB.
Umjesto Windows Form Application odaberite Console Application i dajte joj ime
Consola.
Pojavit ce vam se editor bez ikakvog dizajna sto je normalno.
U Properties box-u gdje je File Name stavite: main.vb
Ubacite ovaj kod:
Dim Output As String
Output = "Informacije o compu" & vbCrLf & vbCrLf
For Each Item As System.IO.DriveInfo In My.Computer.FileSystem.Drives
If Item.IsReady Then
Output = Output & "Disk:" & Item.VolumeLabel & "(" & Item.Name & " Prostor " _
& Item.TotalFreeSpace & " Velicina (" & Item.TotalSize & "" & vbCrLf
End If
Next
For Each Item As Environment.SpecialFolder In [Enum].GetValues(GetType(Environment.SpecialFolder))
Output = Output & "Specijalna datoteka:" & _
[Enum].GetName(GetType(Environment.SpecialFolder), Item) _
& " (" & Environment.GetFolderPath(Item) & "" & vbCrLf
Next
Output = Output & "Memorija (Psihicka):" & My.Computer.Info.AvailablePhysicalMemory & _
" of " & My.Computer.Info.TotalPhysicalMemory & vbCrLf
Output = Output & "Memorija(Virtualna):" & My.Computer.Info.AvailableVirtualMemory & _
" of " & My.Computer.Info.TotalVirtualMemory & vbCrLf
Output = Output & "Operaciski sistem:" & My.Computer.Info.OSFullName & _
" Version " & My.Computer.Info.OSVersion & vbCrLf
Output = Output & "Comp:" & My.Computer.Name & vbCrLf
Output = Output & vbCrLf & vbCrLf & "Varijable" & vbCrLf & vbCrLf
For Each Item As DictionaryEntry In Environment.GetEnvironmentVariables
Output = Output & Item.Key & ":" & Item.Value & vbCrLf
Next
Console.Write(Output)
Console.Read()
VB 4- Copy/Move/Delete Komande
Vecina noobara zeli napravit ko neke "viruse" pa pitaju kako napravit da aplikacija brise/premjesti/kopira neku datoteku. Pokazat cu vam par primjera ali necu o tome mnogo pisat jer mi se cisto neda mozda neki drugi put ili editujem...
Kod za kopiranje filea:
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\vamo-tamo.txt"
NewCopy = "C:\tamo-vamo.txt"
If System.IO.File.Exists("vamo-tamo.txt" = True Then
System.IO.File.Copy("vamo-tamo.txt", "tamo-vamo.txt"
MsgBox("Datoteka kopirana!"
End If
Znaci to je bio kod koji ce ako uspije taj file kopirat, on ce nas obavjestit sa porukom: "Datoteka kopirana!". U slucaju da je nebude nece se nista desit, ali vi to mozete stavit sa ELSE komandom... Ako zelite da vam nepokaziva poruku samo izbrisite
komandu msgboxa ( MsgBox("Datoteka kopirana!" )
Kod za brisanje:
Dim FileToDelete As String
FileToDelete = "C:\izbrisi-me-sreco.txt"
If System.IO.File.Exists(izbrisi-me-sreco.txt) = True Then
System.IO.File.Delete(izbrisi-me-sreco.txt)
MsgBox("Datoteka izbrisana!"
End If
Kod za pomicanje datoteka ( move ) :
FileToMove = "C:\mici-me.txt"
MoveLocation = "C:\folder-koji-sluzi-za-premjestaj\mici-me.txt"
If System.IO.File.Exists(mici-me.txt) = True Then
System.IO.File.Move(mici-me.txt, C:\folder-koji-sluzi-za-premjestaj\mici-me.txt)
MsgBox("Datoteka Prebacena!"
End If
---
To bi bilo to od mene, nekima ce se pomoc, nekima nece al glavno je da skuzite nesto o VB-u kroz ove primjere. Sretno u daljnjem programiranju.
------
Download tutove:
2shared
http://www.2shared.com/file/5821263/9b2884ba/tutorial.html
MediaFire
http://www.mediafire.com/?sharekey=c4a9b4b9ab0602e161d4646c62b381cbe04e75f6e8ebb871
Ove tutove sam pravio oko pola sata, moguce je da ce bit pogresaka i u programiranju i u tekstu, ako naletite na neku pogresku obavjestite me.
Mozda ove primjere noobare nece shvatit al potrudite se...
I da, dopustenje sam dobio od xXxAdOo-a .
U slucaju da vam se pojavi ovaj smajl
to znaci da je u kodu ovaj tekst ; ) samo sto je spojen pa napravi smajl...VB 1- Task Tray
Pokrenimo VB, odaberimo Windows Form Application te mu dajmo neko ime.
Iz ToolBoxa odaberimo NotifyIcon te ga prebacimo na lice aplikacije nakon cega ce se on spustit na dno.
http://img223.imageshack.us/img223/222/vb08notifyicon.png
Nakon toga iz ToolBoxa uzmimo ContextMenuStrip te ga stavimo u aplikaciju nakon cega ce se on sam prebacit na vrh aplikacije kao neki gornji menu.
http://img177.imageshack.us/img177/8765/vb08contextmenustrip.png
Kliknimo na njega te u njegovim opcijama ( obicno budu sa desne strane ), dodajmo mu ime: menu
Nakon toga kliknimo na NotifyIcon te ga u postavkama postavimo kao na slici
http://img269.imageshack.us/img269/7474/vb08trayiconprop.png
Kliknite na ContextMenuStrip i dodajte komandu Izlaz
http://img140.imageshack.us/img140/9550/vb08cmumain.png
Kada ste dodali komandu, dva puta kliknite na nju i u editoru upisite End
Sada se vratite na dizajn aplikacije, dva puta kliknite na aplikaciju nakon cega ce vam izbacit editor, postavite ovaj kod:
trayIcon.Icon = Me.Icon
trayIcon.Visible = True
trayIcon.ShowBalloonTip(100, "Task Tray", "Pozdrav!", ToolTipIcon.Info)
VB 2- Comp komande
Pokrenimo Windows Form Aplikaciju sa bilo kojim imenom.
Dodajte 3 button-a ( gumba )te ih po redu imenujte:
Log off
Restart
ShutDown
Zatim dupli klik na aplikaciju nakon cega ce vam se otvorit editor, iznad Public Class frmMain dodajte:
Imports Microsoft.Win32
Nakon toga ispod Public Class frmMain dodajte:
Dim Startup As Microsoft.Win32.RegistryKey = _
Registry.CurrentUser.CreateSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Evo slika:
http://img140.imageshack.us/img140/3728/vb08traydecs.png
Zadnje sto nam je preostalo je dodati komande gumbima.
Dupli klik na Log off i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/L"
Dupli klik na Restart i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/R"
Dupli klik na ShutDown i dodajte ovaj kod:
System.Diagnostics.Process.Start("Shutdown", "/S"
VB 3- Console aplikacija
Pokrenimo VB.
Umjesto Windows Form Application odaberite Console Application i dajte joj ime
Consola.
Pojavit ce vam se editor bez ikakvog dizajna sto je normalno.
U Properties box-u gdje je File Name stavite: main.vb
Ubacite ovaj kod:
Dim Output As String
Output = "Informacije o compu" & vbCrLf & vbCrLf
For Each Item As System.IO.DriveInfo In My.Computer.FileSystem.Drives
If Item.IsReady Then
Output = Output & "Disk:" & Item.VolumeLabel & "(" & Item.Name & "
Prostor " _& Item.TotalFreeSpace & "
Velicina (" & Item.TotalSize & "" & vbCrLfEnd If
Next
For Each Item As Environment.SpecialFolder In [Enum].GetValues(GetType(Environment.SpecialFolder))
Output = Output & "Specijalna datoteka:" & _
[Enum].GetName(GetType(Environment.SpecialFolder), Item) _
& " (" & Environment.GetFolderPath(Item) & "
" & vbCrLfNext
Output = Output & "Memorija (Psihicka):" & My.Computer.Info.AvailablePhysicalMemory & _
" of " & My.Computer.Info.TotalPhysicalMemory & vbCrLf
Output = Output & "Memorija(Virtualna):" & My.Computer.Info.AvailableVirtualMemory & _
" of " & My.Computer.Info.TotalVirtualMemory & vbCrLf
Output = Output & "Operaciski sistem:" & My.Computer.Info.OSFullName & _
" Version " & My.Computer.Info.OSVersion & vbCrLf
Output = Output & "Comp:" & My.Computer.Name & vbCrLf
Output = Output & vbCrLf & vbCrLf & "Varijable" & vbCrLf & vbCrLf
For Each Item As DictionaryEntry In Environment.GetEnvironmentVariables
Output = Output & Item.Key & ":" & Item.Value & vbCrLf
Next
Console.Write(Output)
Console.Read()
VB 4- Copy/Move/Delete Komande
Vecina noobara zeli napravit ko neke "viruse" pa pitaju kako napravit da aplikacija brise/premjesti/kopira neku datoteku. Pokazat cu vam par primjera ali necu o tome mnogo pisat jer mi se cisto neda mozda neki drugi put ili editujem...
Kod za kopiranje filea:
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\vamo-tamo.txt"
NewCopy = "C:\tamo-vamo.txt"
If System.IO.File.Exists("vamo-tamo.txt"
= True ThenSystem.IO.File.Copy("vamo-tamo.txt", "tamo-vamo.txt"
MsgBox("Datoteka kopirana!"
End If
Znaci to je bio kod koji ce ako uspije taj file kopirat, on ce nas obavjestit sa porukom: "Datoteka kopirana!". U slucaju da je nebude nece se nista desit, ali vi to mozete stavit sa ELSE komandom... Ako zelite da vam nepokaziva poruku samo izbrisite
komandu msgboxa ( MsgBox("Datoteka kopirana!"
)Kod za brisanje:
Dim FileToDelete As String
FileToDelete = "C:\izbrisi-me-sreco.txt"
If System.IO.File.Exists(izbrisi-me-sreco.txt) = True Then
System.IO.File.Delete(izbrisi-me-sreco.txt)
MsgBox("Datoteka izbrisana!"
End If
Kod za pomicanje datoteka ( move ) :
FileToMove = "C:\mici-me.txt"
MoveLocation = "C:\folder-koji-sluzi-za-premjestaj\mici-me.txt"
If System.IO.File.Exists(mici-me.txt) = True Then
System.IO.File.Move(mici-me.txt, C:\folder-koji-sluzi-za-premjestaj\mici-me.txt)
MsgBox("Datoteka Prebacena!"
End If
---
To bi bilo to od mene, nekima ce se pomoc, nekima nece al glavno je da skuzite nesto o VB-u kroz ove primjere. Sretno u daljnjem programiranju.
