‘Visual Basic’ Kategorisi Arşivi:

Dell Inspiron Ctrl + F11 Sorunu | Recovery Çalışmıyor Mu?

Dell laptoplarda özelliklede dell inspiron 6400 serisinde bu özellik devre dışı kalabiliyor. Bu makalede bu problemle ilgili çözümler bulabileceksiniz. Makaleyi böyle resmi bir dille yazdığıma bakmayın. Dell yetkili servisi falan değilim. Sadece öyle davranıyorum :P

Aşağıdaki adımlar Dell Inspiron 6400 laptopta denenmiştir. Her ne kadar yetkili servis havalarında yazsamda oluşacak sorunlardan sorumlu değilim…

Şimdi ilk önce Ctrl + F11 çalışmıyorsa neler yapabiliriz ? Aşağıdaki adımları izleyin…

  1. Buraya tıklayarak dell’in mbr onarma yazılımını indirin.
  2. İndirdiğiniz bu dosyaya çift tıklayıp çalıştırın ve dizine çıkarın.
  3. Çıkarılan dizine girin ve nero express ile kalıp-tasarı yazma seçeneğini de açın. Normal cd olarak yazdırırsanız çalışmaz ;)
  4. Kalıp olarak az önce çıkardığınız Dell MediaDirect Repair Utility A05.iso dosyasını seçin ve yazdırın.
  5. Yazdığınız bu cd’yi bilgisayarınıza takın ve yeniden başlatın.
  6. Dell logosu ekranında F12‘ye basın ve cd-dvd seçeneğini seçin.
  7. Ekrana gelen yazıda herhangi bir tuşa basarak çalışayı onaylayın..
  8. Daha sonra ekranda F:\ görünecek ve bu kısma cd mb2 yazın.
  9. Bu kez F:\mb2\ olacak. Bu kısmada repair yazın ve sorulan soruya OK olarak yanıtlayın ve enter’a basın.
  10. Done! mesajı belirdiyse onarma işlemi tamamlanmış demektir.
  11. restart yazın  yada güç düğmesine basın ve bilgisayarı yeniden başlatın…
    Yazının devamı için buraya tıklayın…

Form Efekti – Yavaşça Kaybolan Formlar

Visual basic programlarınıza çok şahane bir kaybolan form efekti.Kodlar sayesinde formunuzu transparanlaştırıp kapatabilir yada yavaşça netleştirebilirsiniz….

VB’yi açın ve bir form daha ekleyin.Yani Form1 ve Form2 Olmalı.Form1 üzerine bir adet Timer nesnesi ekleyin ve aşağıdaki kodları içine yapıştırın.

İyi eğlenceler…

Option Explicit
Dim Trans As Integer
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const LWA_BOTH = 3
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = -20

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
	(ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, _
	 ByVal alpha As Long) As Boolean
Private Declare Function SetWindowLong Lib "user32" Alias _
	"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
	ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
	"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTrans(hwnd As Long, Trans As Integer)
   Dim Tcall As Long
   Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
   SetWindowLong hwnd, GWL_EXSTYLE, Tcall Or WS_EX_LAYERED
   SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), Trans, LWA_ALPHA
   Exit Sub
End Sub

Private Sub Form_Load()
   Form2.Show
   Form2.Enabled = False
   Timer1.Interval = 1
   Trans = 255
   SetTrans Me.hwnd, Trans
End Sub

Private Sub Timer1_Timer()
   If Trans <> 0 Then
       Trans = Trans - 1
   End If
   SetTrans Me.hwnd, Trans
   If Trans = 0 Then
   Form2.Enabled = True
       Unload Me
   End If
End Sub

Combo Box listesine öğe ekleme ve silme | item add-delete

Combo1 Box nesnemizden içerik silmek için aşağıdaki kodları kullanabilirsiniz.

'Combo1 içine item ekleme işlemi kodları
Combo1.AddItem "Programcılık"
Combo1.AddItem "Visual Basic"
Combo1.AddItem "Vizyul Beyzik"
Combo1.AddItem "Kodlama"

Combo1.RemoveItem Index
'Combo Box listesinin ilk sırasında olanı silmek için
Combo1.RemoveItem 0
'Combo Box listesinde seçili olan öğeyi silmek için
Combo1.RemoveItem Combo1.listindex
'Combo Box içindekilerin tamamı silmek için
Combo1.Clear

Visual Basic’te Programımıza Crack-Keygen İçin Önlem Alma

Visual Basci’le yazılan programları kırmada (crack vs.) en ünlü program Softice programıdır.Aşağıdaki kodlar sayesinden bu programın sistemde o esnada çalıp çalışmadığını öğrenebilirsiniz.Softice programını bilenler bilir.Önce Softice çalıştırılır ve sonra kırılacak program.Softice o esnada o programı izler vs. vs. işte aşaıdaki kod bunu olanaksız kılar…
Yazının devamı için buraya tıklayın…


Programınızı Denetim Masasına Ekleme

Programınızı Denetim Masasında gözükmesini istiyorsanız aşağıdaki kodlar işinizi görecektir…

Option Explicit

Private Declare Function RegCloseKey Lib "advapi32" ( _
ByVal hKey As Long) As Long

Private Declare Function RegCreateKeyEx Lib "advapi32" _
Alias "RegCreateKeyExA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal Reserved As Long, _
ByVal lpClass As String, _
ByVal dwOptions As Long, _
ByVal samDesired As Long, _
ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _
ByRef phkResult As Long, _
ByRef lpdwDisposition As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32" _
Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
ByRef phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" _
Alias "RegQueryValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
ByRef lpType As Long, _
ByVal lpData As String, _
ByRef lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32" _
Alias "RegSetValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
ByVal lpData As String, _
ByVal cbData As Long) As Long

Private Declare Function RegSetValueExB Lib "advapi32.dll" _
Alias "RegSetValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
ByRef lpData As Byte, _
ByVal cbData As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" _
Alias "RegDeleteKeyA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" _
Alias "RegCreateKeyA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
phkResult As Long) As Long

Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3&
Const REG_DWORD = 4

Const REG_OPTION_NON_VOLATILE = 0

Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Const KEY_EXECUTE = KEY_READ
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004

Const ERROR_NONE = 0
Const ERROR_BADKEY = 2
Const ERROR_ACCESS_DENIED = 8
Const ERROR_SUCCESS = 0

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type

Dim hKey As Long, MainKeyHandle As Long
Dim rtn As Long, lBuffer As Long, sBuffer As String
Dim lBufferSize As Long
Dim lDataSize As Long
Dim ByteArray() As Byte

Private Function UpdateKey(KeyRoot As Long, _
KeyName As String, _
SubKeyName As String, _
SubKeyValue As String) As Boolean

Dim rc As Long
Dim hKey As Long
Dim hDepth As Long
Dim lpAttr As SECURITY_ATTRIBUTES

lpAttr.nLength = 50
lpAttr.lpSecurityDescriptor = 0
lpAttr.bInheritHandle = True

rc = RegCreateKeyEx(KeyRoot, KeyName, 0, REG_SZ, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, lpAttr, _
hKey, hDepth)
If (rc <> ERROR_SUCCESS) Then GoTo CreateKeyError

If (SubKeyValue = "") Then

SubKeyValue = " "
End If

rc = RegSetValueEx(hKey, SubKeyName, 0, REG_SZ, _
SubKeyValue, LenB(StrConv(SubKeyValue, vbFromUnicode)))
If (rc <> ERROR_SUCCESS) Then GoTo CreateKeyError

rc = RegCloseKey(hKey)

UpdateKey = True
Exit Function

CreateKeyError:

UpdateKey = False

rc = RegCloseKey(hKey)
End Function

Private Function CreateKey(SubKey As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegCreateKey(MainKeyHandle, SubKey, hKey)
If rtn = ERROR_SUCCESS Then
rtn = RegCloseKey(hKey)
End If
End If
End Function

Private Function DeleteKey(KeyName As String)
Call ParseKey(KeyName, MainKeyHandle)
If MainKeyHandle Then
rtn = RegDeleteKey(MainKeyHandle, KeyName)
End If
End Function

Private Function ErrorMsg(lErrorCode As Long) As String
Select Case lErrorCode
Case 1009, 1015
ErrorMsg = "The Registry Database is corrupt!"
Case 2, 1010
ErrorMsg = "Bad Key Name"
Case 1011
ErrorMsg = "Can't Open Key"
Case 4, 1012
ErrorMsg = "Can't Read Key"
Case 5
ErrorMsg = "Access to this key is denied"
Case 1013
ErrorMsg = "Can't Write Key"
Case 8, 14
ErrorMsg = "Out of memory"
Case 87
ErrorMsg = "Invalid Parameter"
Case 234
ErrorMsg = "There is more data than the buffer has been allocated to hold."
Case Else
ErrorMsg = "Undefined Error Code: " & Str$(lErrorCode)
End Select
End Function

Private Function GetMainKeyHandle(MainKeyName As String) As Long
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006

Select Case MainKeyName
Case "HKEY_CLASSES_ROOT"
GetMainKeyHandle = HKEY_CLASSES_ROOT
Case "HKEY_CURRENT_USER"
GetMainKeyHandle = HKEY_CURRENT_USER
Case "HKEY_LOCAL_MACHINE"
GetMainKeyHandle = HKEY_LOCAL_MACHINE
Case "HKEY_USERS"
GetMainKeyHandle = HKEY_USERS
Case "HKEY_PERFORMANCE_DATA"
GetMainKeyHandle = HKEY_PERFORMANCE_DATA
Case "HKEY_CURRENT_CONFIG"
GetMainKeyHandle = HKEY_CURRENT_CONFIG
Case "HKEY_DYN_DATA"
GetMainKeyHandle = HKEY_DYN_DATA
End Select
End Function

Private Sub ParseKey(KeyName As String, Keyhandle As Long)
rtn = InStr(KeyName, "\")
If Left(KeyName, 5) <> "HKEY_" Or Right(KeyName, 1) = "\" Then
MsgBox "Incorrect Format:" + Chr(10) + Chr(10) + KeyName
Exit Sub
ElseIf rtn = 0 Then
Keyhandle = GetMainKeyHandle(KeyName)
KeyName = ""
Else
Keyhandle = GetMainKeyHandle(Left(KeyName, rtn - 1))
KeyName = Right(KeyName, Len(KeyName) - rtn)
End If
End Sub

Private Function SetBinaryValue(SubKey As String, Entry As String, _
Value As String, Optional ByVal DisplayErrorMsg As Boolean = True)

Dim i As Long

Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, hKey)
If rtn = ERROR_SUCCESS Then
lDataSize = Len(Value)
ReDim ByteArray(lDataSize)
For i = 1 To lDataSize
ByteArray(i) = Asc(Mid$(Value, i, 1))
Next
rtn = RegSetValueExB(hKey, Entry, 0, REG_BINARY, ByteArray(1), lDataSize)
If Not rtn = ERROR_SUCCESS Then
If DisplayErrorMsg = True Then
MsgBox ErrorMsg(rtn)
End If
End If
rtn = RegCloseKey(hKey)
Else
If DisplayErrorMsg = True Then
MsgBox ErrorMsg(rtn)
End If
End If
End If
End Function

Public Function CreateEntryToSystemPanel(GUID As String, _
Titel As String, _
ToolTipText As String, _
IconDatei As String, _
FileToOpen As String)

UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID, "", Titel
UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID, "InfoTip", ToolTipText
UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\DefaultIcon", "", IconDatei
UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\InProcServer32", "", "shell32.dll"
UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\InProcServer32", "ThreadingModel", "Apartment"
UpdateKey HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\Shell\Open\Command", "", FileToOpen

Dim sKey As String
sKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Exp lore r\"
UpdateKey HKEY_LOCAL_MACHINE, sKey & "Desktop\NameSpace\" & GUID, "", ""
UpdateKey HKEY_LOCAL_MACHINE, sKey & "ControlPanel\NameSpace\" & GUID, "", ""
CreateKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\ShellFolder"
SetBinaryValue "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\ShellFolder", _
"Attributes", Chr$(&H0) + Chr$(&H0) + Chr$(&H0) + Chr$(&H0)
End Function

Public Function DeleteEntryFromSystemPanel(GUID As String)
Dim sKey As String
sKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Exp lore r\"
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\DefaultIcon"
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\InProcServer32"
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\Shell\Open\Command"
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\ShellEx\PropertySheetHandlers\" & GUID & ""
DeleteKey "HKEY_CLASSES_ROOT\CLSID\" & GUID & "\ShellFolder"
DeleteKey "HKEY_LOCAL_MACHINE\" & sKey & "\Desktop\NameSpace\" & GUID
DeleteKey "HKEY_LOCAL_MACHINE\" & sKey & "\ControlPanel\NameSpace\" & GUID
End Function


Private Sub Command1_Click()
'------------Denetim masasına giriş ---------------
CreateEntryToSystemPanel "{9d6D8ED6-116D-4D4E-B1C2-87098DB509BA}", _
"dahi çocukk", _
"harikasın evlat", _
App.Path & "\" & "Yourapplication.exe,0", _
App.Path & "\" & "Yourapplication.exe -options"

End Sub
Private Sub Command2_Click()
'---------------- denetim masasından silll ----------------
DeleteEntryFromSystemPanel "{9d6D8ED6-116D-4D4E-B1C2-87098DB509BA}"
End Sub

Sonraki Sayfa »

firefox | Valid XHTML | Valid CSS | feedburner | Rüzgarın önündeki yaprak gibi davranma. Çünkü rüzgar sensin...

Bilgisayar