Bilgisayar ve Kullanıcı Adını Oğrenmek

Calışılan bilgisayarın ve calışan kullanıcının adını ogrenmek icin aşagıdaki windows API'lerini kullanabiliriz.

Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

GetComputerName fonksiyonu bilgisayarın adını bulur ve ilk parametrede verilen stringin icine doldurur. İkinci parametre ise bu stringin uzunluğudur.
GetUserName fonksiyonu kullanıcının adını bulur ve ilk parametrede verilen stringin icine doldurur. İkinci parametre ise bu stringin uzunluğudur.
Bu fonksiyonlar kernel32.dll ve advapi32.dll dosyalarının icinde bulunmaktadır. Eger bu iki fonksiyonda geriye 1 degerini dondururlerse işlem başarılmıştır.


Kodlar :

PHP Code:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim ret As Long
Dim c_name As String * 255
Dim u_name As String * 255
'Programda kullanylacak de?i?kenler tanymlanyyor.
Label1.Caption = "Computer Name :"
Label3.Caption = "User Name :"
ret = GetComputerName(c_name, Len(c_name))
If ret = 1 Then
Label2.Caption = c_name
End If
ret = GetUserName(u_name, Len(u_name))
If ret = 1 Then
Label4.Caption = u_name
End If
End Sub





Visual Basic ile Programlarınızı Limitli Hale Getirin

Bu Kodla Programınız Sizin İstediğiniz Kadar Kulanılabilir
Şimdi Formumuza 1 adet label koyalım adını da değiştirmeyelim.
Label bize programın kac defa calıştırıldığını soyleyecek

PHP Code:
Option Explicit

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel >= 5 Then 'Burdaki 5 rakamını isterseniz yukseltebilirsiniz bu rakam programın kac kere calışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanım suresi bitti", vbOKOnly, "Uyarı'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sınır", "sınırla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub





Visual Basic ile Txt olarak kaydetme

Gerekli malzemeler :
1 adet common dialog, 1 adet text box ve 1 adet buton
Text box ın icindeki metin txt olarak kaydediliyor


Kod:

PHP Code:
Private Sub Command1_Click()
CommonDialog1.CancelError = True

On Error GoTo Son
CommonDialog1.DialogTitle = "Kaydet"
CommonDialog1.Filter = "Metin Belgesi(*.txt)|*.txt"
CommonDialog1.FileName = "mayhemious"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text
Print #1, ""
Print #1, ""
Print #1,
Close #1
MsgBox "Kayıt Tamamlanmıştır"
Son:
End Sub




Ornek Projeyi İndirmek icin Tıklayın






Formunuza şifreli koruma yapın

1.form=şifreli giriş kısmı

2.form=dilediğnizi yazın



Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.

text1=kullanıcı adı

text2=şifre

burdan itibaren yazmaya başlayabilirsiniz...



Private Sub Command1_Click()

If Text1.Text = "Anabenieversene" Then

Form2.Show

Else

MsgBox "Kullanıcı adı yanlış"

End If


If Text2.Text = "www.frmtr.com" Then

Form2.Show

Else

MsgBox "Şifre yanlış"

End If

End Sub

Not=text2 kutusunu secip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gozukucektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.



Ornek Projeyi İndir


If Text1.Text = "Anabenieversene" Then
If Text2.Text = "www.frmtr.com" ThenBuraları kendinize gore ayarlayın



Program kac kez calıştırıldı( Super bir ek ozellik programlarınız icin )

Kod :

PHP Code:
Option Explicit

Private RunTimes As Long
Private RunDate As Date

Private Sub Form_Load()
RunTimes = GetSetting("CounterApp", "Counts", "NumTimes", 0) + 1
RunDate = GetSetting("CounterApp", "Counts", "LastTime", Now)
If RunTimes > 1 Then
Label1.Caption = "Bu program " & _
Format$(RunTimes) & " defa calıştırılmıştır."
Label2.Caption = "Son calıştırılma zamanı...=" & _
Format$(RunDate) & "."
Else
Label1.Caption = "Bu program ilk defa calıştırılıyor."
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "CounterApp", "Counts", "NumTimes", RunTimes
SaveSetting "CounterApp", "Counts", "LastTime", Now

End Sub




Ornek Projeyi İndir





Televizyon ve Radyo İzleme / Dinleme Programı

Kod :

PHP Code:
Private Sub Form_Load()

End Sub

Private Sub Option1_Click()
WindowsMediaPlayer1.URL = ("mms://212.156.63.226/TV1")
End Sub

Private Sub Option10_Click()
WindowsMediaPlayer1.URL = ("mms://144.122.56.15/odtutv")
End Sub

Private Sub Option11_Click()
WindowsMediaPlayer1.URL = ("mms://xiphias.vargonen.net/PowerFm")
End Sub

Private Sub Option13_Click()
WindowsMediaPlayer1.URL = ("http://live.medianova.tv/tjk/TJK_256.asx")
End Sub

Private Sub Option12_Click()
WindowsMediaPlayer1.URL = ("http://www.jumboserver.com:81/1")
End Sub

Private Sub Option14_Click()
WindowsMediaPlayer1.URL = ("http://internettv.meb.gov.tr/4001/4001_2.wmv")
End Sub

Private Sub Option15_Click()
WindowsMediaPlayer1.URL = ("mms://91.191.161.200/ht")
End Sub

Private Sub Option16_Click()
WindowsMediaPlayer1.URL = ("mms://84.16.227.54/slowturk")
End Sub

Private Sub Option17_Click()
WindowsMediaPlayer1.URL = ("http://superfm.radyolarburada.com:9080")
End Sub

Private Sub Option18_Click()
WindowsMediaPlayer1.URL = ("http://www.radyodinleyin.net/best_liste.txt")
End Sub

Private Sub Option19_Click()
WindowsMediaPlayer1.URL = ("mms://live5.radyotvonline.com:9205")
End Sub

Private Sub Option2_Click()
WindowsMediaPlayer1.URL = ("mms://212.156.63.226/TV2")
End Sub

Private Sub Option20_Click()
WindowsMediaPlayer1.URL = ("mms://atv.radyolarburada.com/kcsdk553243mccx")
End Sub

Private Sub Option21_Click()
WindowsMediaPlayer1.URL = ("http://bizidinle.com/player/radyoasx.asp?id=46")
End Sub

Private Sub Option22_Click()
WindowsMediaPlayer1.URL = ("mms://xiphias.vargonen.net/PowerTurk")
End Sub

Private Sub Option23_Click()
WindowsMediaPlayer1.URL = ("Radyo 1: mms://212.175.166.3/radyo1")
End Sub

Private Sub Option24_Click()
WindowsMediaPlayer1.URL = ("mms://195.175.9.14/rd-numberonefm")
End Sub

Private Sub Option25_Click()
WindowsMediaPlayer1.URL = ("mms://195.175.9.14/rd-alemfm")
End Sub

Private Sub Option26_Click()
WindowsMediaPlayer1.URL = ("mms://84.16.235.95/rv")
End Sub

Private Sub Option3_Click()
WindowsMediaPlayer1.URL = ("mms://212.156.63.226/TV3")
End Sub

Private Sub Option4_Click()
WindowsMediaPlayer1.URL = ("mms://212.156.63.226/TV4")
End Sub

Private Sub Option5_Click()
WindowsMediaPlayer1.URL = ("http://canli.samanyolu.tv/stv")
End Sub

Private Sub Option6_Click()
WindowsMediaPlayer1.URL = ("mms://89.149.209.105/TV-ShowTv")
End Sub

Private Sub Option7_Click()
WindowsMediaPlayer1.URL = ("mms://217.31.235.46/startv")
End Sub

Private Sub Option9_Click()
WindowsMediaPlayer1.URL = ("mms://yayin.cine5.com.tr/cine5")
End Sub




Ornek Projeyi İndirmek İcin Tıkla

(Yemekteyiz varmış )




Para ustu hesaplamak `İlk once actığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım

`ilk once burda değişkenleri tanımlıyoruz..
PHP Code:
dim musteriver as integer
dim musteritutar as integer

`ve burda tanımladığımız değişkenleri textlere tanıtıyoruz

musteriver = text1
musteritutar = text2

dim para as integer

`para değişkenimiz muşterinin verdiği parayı aklında tutacak ve muşteri tutarını cıkaracak

para = musteriver - musteritutar

` bu değişkenlerimiz de bizim bankonotlarımız

dim p100, p50, p20, p10, p5, p1 as integer

`işte burda da parayı paramparca yapıyoruz ve hangi bakonotları vereceğimiz işte burda cıkıyor


p100 = int(para100)
para = para mod 100
p50 = int(para50)
para = para mod 50
p20 = int(para20)
para = para mod 20
p10 = int(para10)
para = para mod 10
p5 = int(para5)
para = para mod 5
p1 = para

`heh işte burda da forma gostermek kalıyor o da aşağıdaki kodlar yardımıyla olacak

label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"

label7.caption = " Toplam = " & (musteriver-musteritutar) & " ytl Verildi"



Program Ac :

Şimdi İlk Once Yeni Bir Proje Acıyoruz.
Formumuza DriveListBox, DirListBox ve FileListBox`tan Birertane Yerleştiriyoruz.

Ve Kod Penceresine Aşağıdaki Kodu Kopyala-Yapıştır Yapıyoruz.
PHP Code:
Dim a As String * 1

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
On Local Error GoTo hata
Dir1.Path = Drive1.Drive
a = Drive1.Drive
ChDrive Drive1.Drive
Exit Sub
hata:
MsgBox "Hata: " & Error
Drive1.Drive = a
End Sub

Private Sub File1_DblClick()
On Local Error GoTo hata
Dim n, uz, x, t
x = Shell(File1.FileName, 1)
Exit Sub
hata:
MsgBox "Hata: " & Error

End Sub

Private Sub Form_Load()
a = Drive1.Drive
End Sub


Evet Bitti bile artık F5`e Basıp rogramları Acınız

Birde Bu ara da
On Local Error GoTo hata yerine on local error resume next de yazabilirsiniz fazla bi değişikliği yok sadece hata oluşunca programa devem ediyor.







Şuanda işlerim dolayısıyla bu kadar yardımcı olabildim. Ama 20-30 Tane daha ornek projeler ve kodlar ekleyeceğim Allaha Emanet Olun
__________________