xda-developers.com forumlarında Obelix_A isimli vatandaş HTC Sense deki gibi şık, kaydırma animasyonlu bir UI yayınladı. Daha deneme fırsatı bulamadım ama ilgili component ile yapılmış bir yazılımın Türkçeleştirilmesini yaptım. Ve gayet şık olduğunu söyleyebilirim.

Componente buradan (üyelik gerektirir) ulaşabilir, çok beğendiyseniz ve yazan vatandaşa destekte bulunmak istiyorsanız buradan bağış yapabilirsiniz.

Ekran görüntüleri aşağıdaki gibidir ;

Sisteminizde kurulu olan bir virüs programı var ise ve aktif olarak anlık dosya hareketlerini tarıyor ise aynı anda farklı bir virüs programı kurmak saçma olduğu gibi gereksiz sistem yorulmasına sebep verir.

Live Messenger’ın bu vb. hata mesajlarından sıkılıp Live Messenger’ı kandırma yolu olarak ufak bir program yazdım. Böylece Live Messenger’a ben bu virüs programını kullanıyorum, sende bu programı kullanarak gelen dosyayı kontrol et diyerek kandırıyoruz.

Nasıl Yaparım :

• QMsnAv.exe yi indirip istediğiniz bir yere kopyalayın.
• Aşağıdaki ekran görüntüsünde gördüğünüz gibi Live Messenger’ın Araçlar –> Seçenekler Menüsünden Dosya Aktarımı kısmına girip, “Dosyalarda virüs taramasında bu uygulamayı kullan” seçimini işaretleyin.
• Gözat butonu ile QMsnAv.exe‘yi kaydettiğiniz yerden seçin.
• Artık size gönderilen tüm dosyaları QMsnAv.exe ile taramaya çalışacak, QMsnAv ise size dosya transfer işleminin bittiğini ve ilgili dosyayı açmayı isteyip istemediğinizi soracaktır.

Güvenli mi ?

• Programın kaynak kodları burada verilmiştir. İsteyen Visual Basic 6 ile tekrar derleyip kullanabilir yada geliştirebilir.
• Herhangi bir spy vb. yazılım yada kod içermez.
• Sisteminizde aktif kullanılan bir virüs programı bulunmuyor ise lütfen OneCare’i kullanın yada benim seçimim Avira AntiVirus Free Edition yazılımını kullanın.
• Sisteminize gelecek herhangi bir zarardan biz sorumlu değiliz.

Live Messenger’ın reklam, uyarı, sarı bant vb. gibi saçmalıklarından kurtulmak için a-Patch yazılımını kullanabilirsiniz.

Kod :

Public Function VeriNull(ByRef Kayitseti As Recordset, ByRef Alan As String) As Object
    If Not IsDBNull(Kayitseti.Fields(Alan).Value) Then
        VeriNull = Kayitseti.Fields(Alan).Value
    Else
        VeriNull = ""
    End If
End Function

Kullanımı :

TextBox1.Text = VeriNull(Kayitset,"ADI")

Kolay Gelsin.

Buyrun efendim ;

Link

Aşağıdaki kodları bir Module içine yazın.

Option Explicit
Public Const NO_ERROR = 0
Public Declare Function inet_addr _
Lib "wsock32.dll" (ByVal s As String) As Long
Public Declare Function SendARP _
Lib "iphlpapi.dll" (ByVal DestIP As Long, _
ByVal SrcIP As Long, _
pMacAddr As Long, _
PhyAddrLen As Long) As Long
Public Declare Sub CopyMemory _
Lib "kernel32" _
Alias "RtlMoveMemory" (dst As Any, _
src As Any, _
ByVal bcount As Long)
Public Function GetRemoteMACAddress(ByVal sRemoteIP As String, _
sRemoteMacAddress As String) As Boolean
Dim dwRemoteIP As Long
Dim pMacAddr As Long
Dim bpMacAddr() As Byte
Dim PhyAddrLen As Long
Dim cnt As Long
Dim tmp As String
dwRemoteIP = inet_addr(sRemoteIP)
If dwRemoteIP <> 0 Then
PhyAddrLen = 6
If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = NO_ERROR Then
If pMacAddr <> 0 And PhyAddrLen <> 0 Then
ReDim bpMacAddr(0 To PhyAddrLen - 1)
CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen
For cnt = 0 To PhyAddrLen - 1
If bpMacAddr(cnt) = 0 Then
tmp = tmp & "00-"
Else
tmp = tmp & Hex$(bpMacAddr(cnt)) & "-"
End If
Next
If Len(tmp) > 0 Then
sRemoteMacAddress = left$(tmp, Len(tmp) - 1)
GetRemoteMACAddress = True
End If
Exit Function
Else
GetRemoteMACAddress = False
End If
Else
GetRemoteMACAddress = False
End If
Else
GetRemoteMACAddress = False
End If
End Function

Şimdi bu modülümüzü kullanalım.

Dim MacAdres As String
Dim sRemoteMacAddress As String
If GetRemoteMACAddress("192.168.1.1", sRemoteMacAddress) Then
MacAdres = sRemoteMacAddress
Else
MacAdres = "0"
End If
If MacAdres <> "0" Then
MsgBox MacAdres
Else
MsgBox "Adrese Ulaşılamadı"
End If

Modülümüzü yukarıdaki gibi kullanabiliriz. 192.168.1.1 ipsini fiziksel adresini öğrenmek istediğiniz donanımın ipisi ile değiştirerek fiziksel adresi öğrenebilirsiniz.

Kolay Gelsin.

Public Function TRSiz(ByVal vdata As String) As String
Dim tmp As String
tmp = Replace(vdata, "İ", "I")
tmp = Replace(tmp, "İ", "I")
tmp = Replace(tmp, "ı", "i")
tmp = Replace(tmp, "Ğ", "G")
tmp = Replace(tmp, "ğ", "g")
tmp = Replace(tmp, "Ş", "S")
tmp = Replace(tmp, "ş", "s")
tmp = Replace(tmp, "Ç", "C")
tmp = Replace(tmp, "ç", "c")
tmp = Replace(tmp, "Ü", "U")
tmp = Replace(tmp, "ü", "u")
TRSiz = tmp
End Function

Kolay Gelsin.

İlk fonksiyon sadece tarihi, ikinci fonksiyon ise hem tarihi hemde zamanı çevirir.


'Sadece Tarihi Çevirir.
Function SqLDate(Tarih As String)
Dim Gun As String
Dim Ay As String
Dim YIL As String
Tarih = left$(Tarih, 10)
Gun = left$(Tarih, 2)
Ay = Mid$(Tarih, 4, 2)
YIL = right$(Tarih, 4)
SqlDate = YIL & "-" & Ay & "-" & Gun
End Function
'Hem Tarihi Hemde Zamanı Çevirir
Function SqLDateTime(DateTime As String)
Dim Gun As String
Dim Ay As String
Dim YIL As String
Dim ssaaT As String
Dim Saat As String
Dim Dakika As String
Dim Saniye As String
ssaaT = right$(DateTime, 9)
DateTime = left$(DateTime, 10)
Gun = left$(DateTime, 2)
Ay = Mid$(DateTime, 4, 2)
YIL = right$(DateTime, 4)
SqlDateTime = YIL & "-" & Ay & "-" & Gun & ssaaT
End Function


Kolay Gelsin.


Public Function BBuyukYap(ByVal vdata As String) As String
Dim I As Long
vdata = Trim$(vdata)
If Len(vdata) < 1 Then
BBuyuk = vdata
Exit Function
End If
vdata = BuyukHarfYap(left$(vdata, 1)) & KucukHarfYap(right$(vdata, Len(vdata) - 1))
For I = 2 To Len(vdata)
If (Mid$(vdata, I, 1) = " ") And (I + 1 <= Len(vdata)) Then
Mid$(vdata, I + 1, 1) = BuyukHarfYap$(Mid$(vdata, I + 1, 1))
End If
Next I
BBuyukYap = vdata
End Function


Kullanımı :

Dim yazi as String
yazi = “Deneme dede DENEME İğıÇöş”
yazi = BBuyukYap(yazi)
MsgBox yazi


Kolay Gelsin.

Kullanımı :

Dim yazi as String
yazi = “Deneme dede DENEME İğıÇöş”
yazi = BuyukHarfYap(yazi)
MsgBox yazi


Kolay Gelsin.

Kullanımı :

Dim yazi as String
yazi = "Deneme dede DENEME İğıÇöş"
yazi = KucukHarfYap(yazi)
MsgBox yazi


Kolay Gelsin.