e-okul fotoğraf çekme

gulsum1 · 28 Temmuz 2008

bu soruyu belki sorunu çözen olurda okullara büyük bir iyilik yapmış olur diye soruyorum
milli eğitim eokul uygulaması kapsamında her öğrencinin fotoğrafı internete yüklenir yalnız bazı kısıtlamaları vardır mutlaka 105x120 pixell olacak ve 10 kb geçmeyecek boyutu
neyse biz fotoğrafları önceden fotoğraf makinesi ile çeker onları büyük ve küçük diye 2 klasöre koyar sonra her fotoğrafa o öğrencinin okul nosunu veriririz tek tek bu işlemle uğraşırız sonrada microsoftun power toys undan picture resize ile topluca 105x120 pixell e küçültürüz ondan sorada eokul a yükleriz fotoğrafları işte bu fotoğrafı çek sınıf sınıf klasörle küçült fotoğrafların isimlerini değiştir. bir sürü işti bu program bu işden kurtaracaktı bizi yalnız fotoğrafı çekme klasörleme küçültme yani anlayacağınız her işini yaptım klasör oluşturma işinde takılmıştım ondada bilgisayarcı arkadaş sağolsun yardımcı oldu sen yaşa bilgisayarcı iyiki varsın neyse buraya kadar program iyi istediğimiz her şeyi yapıyor yalnız fotoğraflar istediğimiz boyutta olmasına rağmen kb olarak 40-45 kb arasında kalıyor asla 10 kb yada altına inmiyor işte bu sorunu bir arkadaş halledebilirse okullara müthiş bir yardımı dokunacak piyasaya bu tip programlar sürmüşler benim yaptığım program la birebir aynı işi yapıyor ne bir eksik ne bir fazla ama onlarında fiatı 250 ytl neyse arkadaşlar yardımlarınızı bekliyorum

program şu mantıkta çalışyor ezVidCap ocx leri webcam i form üzerinde gösteriyor ve bu kod ile fotoğrafı çekiyor çektiği fotoğraf 240x320 boyutunda
ezVidCap1.SaveDIB CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"

biz wiaaut.dll crop kodu ile

Sub Komut3()
Dim yol As String
yol = CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess

Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")

img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"

IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = 250
IP.Filters(1).Properties("Top") = 150
IP.Filters(1).Properties("Right") = 250
IP.Filters(1).Properties("Bottom") = 140

Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If

img.SaveFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"

End Sub
formda webcam karesinde gördüğümüz alanın içine sığan fotoğrafı alacak şekilde fotoğrafın kenarlarını kırpıyoruz neden çünkü webcam aslında geniş bir alanı çekiyor bize ise sadece vesikalık lazım neyse vesikalık olacak şekilde kırptığımız fotoğrafı
Sub Komut8()
Dim yol As String
yol = CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess
Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 105
IP.Filters(1).Properties("MaximumHeight") = 120
Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If
img.SaveFile CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
End Sub
bu kod ile 105x120 pixelle düşürüyoruz ve hem büyük kalsöründeki yazdığımız soınıfa ait klasöre hemde küçük klasöründe yazdığımız sınıf kalsörüne yazdığımız okul noya göre kaydediyoruz
programın çalışması için öncelikle activex leri sistem32 içine kopyalayın

simendifer · 30 Temmuz 2008

prg hakkında

sayın gülsüm1 öncelikler elinize saglık güzel bir prg yapmışsınız ayrıcada bizlerle paylaşmanız büyük bir incelik teşekkür eder saygılar sunarım
benim ilgimi cekti prg indirdim acıklamanızdaki gibi ActiveX leri sistem32 nin içine ekledim ama prg yi çalıştıramadım bu denetimde nesne yok diyor tamam diyorum forum acılıyor verileri giriyorum resim çek dediğimde ekteki gibi bir hata mesajı alıyorum sebebi neden olabilir acıklayabilirmisiniz teşekkür ederim

modalı · 30 Temmuz 2008

Sayın gülsüm1,

Sanırım oldu. Biraz daha rötüşlenmesi gerekiyor.

Bir dll ve bir ocx dosyası var bunları WINDOWS System32 klasörünün altına kopyalayıp Referanslardan tanıtmak gerekiyor.

İlk formda resim çekiliyor, ikinci formda kırmızı kare ve düğümelerle resim ortalanıyor, üçüncü formda ise çekilen resimler görünüyor. Beğenilmediyse silinip başa gelinebiliyor, yeni resim için başa gelinebiliyor veya uygulamadan çıkılabiliyor.

Kullanacak herkese başarılar dilerim.

İyi çalışmalar

cuneyta · 30 Temmuz 2008

gerçekten süper harikulade oldu.. müthiş beğendim.. tebrik ediyorum sizi..

gulsum1 · 31 Temmuz 2008

gerçekten harika teşekkür ederim çizgi ile biraz oynamak gerekiyor en azından taşınabilir hale getirilirse iyi olur neyse onu yapmak kolay

modalı · 31 Temmuz 2008

Sayın gulsum1,

Hangi noktada kodlar karışık anlayamadım?

Sizde nasıl çalışmadı ne gibi bir hata oluştu. Çalışmayan uygulamanın nasıl küçük resim boyutu 15 Kb olur onu da anlayamadım.

gulsum1 · 31 Temmuz 2008

kusura bakmayın önce kodun nasıl çalıştığını anlayamadım ondan peşin hüküm verdim mantık çok güzel bir tek eksiği çizginin mouse ile taşınması onuda sanırım halledebilirim tekrar tekrar teşekkür ederim sizin eklediğiniz excell web tr reminden yola çıkarak öyle söyledim gerçekten büyük emek sarf etmişsiniz activex leri otomotik kaydeden bir kod ve şu çizgi işinide halllettikmi bu programı kullanan okullar size minnettar kalacaklar emin olun size şöyle söyleyeyim benim bildiğim onlarca okul var her sene 1 sınıfların ve 6 sınıfların fotoğraflarına 500 600 ytl veren onlardan alacağınız duaları ve okulun kasasına kalacak eğitimde kullanılacak paraları düşününce sanırım ne büyük bir iş yaptığınızla ne kadar övünseniz azdır. tekrar teşekkür ederim

gulsum1 · 31 Temmuz 2008

ekrandaki düğmeleri kaldırın yerine bu kodu yazın
Public xX As Single
Public yY As Single
Public winTop As Single
Public winLft As Single

Private Sub shpKutu_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
winTop = Me.shpKutu.Top
winLft = Me.shpKutu.Left
xX = X
yY = Y

Debug.Print "Mouse Down--------" & vbNewLine & _
"X: " & X & vbNewLine & _
"Y: " & Y & vbNewLine & _
"WinLft: " & winLft & vbNewLine & _
"WinTop: " & winTop & vbNewLine
End Sub

Private Sub shpKutu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > xX Then
X = X - xX
winLft = winLft + X
Else
X = xX - X
winLft = winLft - X
End If

If Y > yY Then
Y = Y - yY
winTop = winTop + Y
Else
Y = yY - Y
winTop = winTop - Y
End If

Select Case Button
Case vbKeyLButton
Me.shpKutu.Move winLft, winTop
End Select
End Sub

gulsum1 · 31 Temmuz 2008

e okul fotoğraf çekme

form üzerindeki çizgiyi taşıma kodu eklendi çizgiyi tutarak taşıyacaksınız

modalı · 31 Temmuz 2008

Sayın gulsum1,

Aşılması gereken üç konu var.

1: Son formda eğer resimler beğenilmediyse resimleri silip tekrar başa dönmeyi tasarladım ama küçük resim dosyası kapanmamış olduğundan silinemiyor.

2:Baştan aynı numaralı öğrenciye fotoğraf çekildiğinde aynı isimde ki dosyalar eskisinin yerine kaydedilmeyip uyarı veriyor.

3: Fare ile dikdörtgeni taşıma kodlarında bir ekleme yapmak gerekiyor. Kutu resim sınırlarının dışına çıkmaması gerekir.

İyi çalışmalar

gulsum1 · 31 Temmuz 2008

benim önceki yaptığım kill olayı işte o işi yapıyordu eski dosyayı siliyordu kaydetme işi kill den sonra yapılıyordu yalnız bu işlemler tek bir form üzerinde yapılsa form üzerinde bir webcam birde aynı boyutta imagebox olsa fotoğrafın kırpılma olayı webcame sığan görüntüye göre vebcam ölçülerinde kırpılsa sanırım o zaman çizgiyede gerek kalmaz böylece çocuk webcam görüntüsüne sığacak şekilde bir yere sabit durdurulur ve öylece fotoğraf çekilir

modalı · 1 Ağustos 2008

Arkadaşlar,

gulsum1 in ilk verdiği klasörün içindeki ezVidCap60.ocx dosyasını bilgisayarınıza yüklemeyin, yüklediyseniz bir antispyware programla bilgisayarınızı taratın çünkü söz konusu ocx bir keyloger yani sizin bilgisayara yaptığınız her hareketi kaydediyor.

İyi çalışmalar

cuneyta · 1 Ağustos 2008

modalı uyarın için çok tşk ederim.
aslında anlamalıydık.. webcam kullanmamızı isteyen kişi bunu pekala kodları paylaşarakta yaptırabilirdi neden ocx veya dll dosyaları içine gömdükten sonra buyrun kullanın diye dünyaya sunmuş ki.. yazarı amerikalı sanırım ray mercer diye yazıyor.. uydurma da olabilir..
tekrar tşk modalı..

modalı · 1 Ağustos 2008

Sayın cuneyta,

dll ve ocx lerdebir yanlışlık yok. Windows klasörünün System32 klasörüne girerseniz içinin dll ve ocx lerle dolu olduğunu görürsünüz.

dll ler kütüphane ocx ler ise işi görecek olan aletler. Şimdi her programda bunları baştan yazmaya çalışırsak her defasında Amerikayı baştan keşfetmeye benzer.

Access de (excel de de öyle) eklediğimiz referanslar aslında bunlar o uygulamada kullanacağımız aletleri ve bunları nasıl kullanacağımızı belirten el kitaplarını çağırırız. Bahçeye çiçek ekmeye gittiğinizde yemek tarifi kitabını ve dikiş kutusunu alıp çıkmazsınız.

Ama arada işte kırmızı başlıklı kızı kandıran kurtlar var, yani elbise değiştirip kendilerine başka bir iş yapar süsü veriyorlar.

ezVidCap.ocx active x (alet) nesnesi olarak videoyu gösteren bir alet sunuyor biz. Diyelim ki televizyonumuz.

wiaaut.dll (tv kullanma kılavuzu9 ise windows tarafından dağıtılan ve XP ve sonrası işletim sistemlarine resimlerin nasıl alınıp, kaydedileceğini, nasıl format değiştireceklerini vs gibi bir sürü özelliğin kodları yazılı. Biz de kodlarla

Kod:

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile strLoad
'Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
'IP.Filters(1).Properties("Quality").Value = 5
IP.Filters(1).Properties("Quality").Value = qlt

Set Img = IP.Apply(Img)
'Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCompressed.jpg"
Img.SaveFile strSave

Set Img = Nothing
Set IP = Nothing

Bu kütüphane içindeki fonksiyonları kullanıyoruz.

Kod:

IP.Filters(1).Properties("Quality").Value = qlt

Satırıyla resmi jpeg formatında kalitesini düşürüyoruz. vs.

Dikkat ederseniz access uygulaması oluşturulurken bir sürü referans otomatik olarak ekleniyor. Siz tüm referansları kaldırırsanız uygulamanız çalışmayacaktır.

İyi çalışmalar

gulsum1 · 1 Ağustos 2008

activex olmadan webcamden resim çekme

böyle bir kanıya nereden vardınız bilmiyorum bende lisanslı norton security var virüs olarak görmüyor ayrıca bu active x bir tek biz kullanmıyoruz dünyada bir çok kişi kullanıyor ezvidcap60 visualbasic 6.0 için gerçi biz onu kullanmıyoruz ama google ye girip ezvidcap yazdığınızda bu activex i dünyada bir çok kişinin kullandığını görürsünüz
activex ler burdan inme
http://www.shrinkwrapvb.com/ezvidcap.htm

eğer gerçekten keylogger olsaydı
http://www.codeguru.com/forum/archive/index.php/t-400143.html
http://www.vbforums.com/archive/index.php/t-202483.html
http://www.martin2k.co.uk/vb6/tips/vb_35.php

gerçi burda nortonunn virüs olarak gördüğü yazıyor ama
biz zaten ezvidcap.ocx i kullanıyoruz ezvidcap60.ocx i kullanmıyoruz ikiside aynı kişinin yaptığı activex

yinede ben activex kullanmak istemiyorum korkuyorum diyen varsa ekte yeni eklediğimde hiç activex kullanmadan webcamden fotoğraf çekme var

bütün bunlardan sonra modalıya hak vermemek gibi bir düşüncemiz yok eğer söyledi ise bir bildiği vardır sonuçta activex kapalı bir kutu içinde ne tür bir işlem yaptığını çözmek zor ondan fikrine saygı duyuyor ve bende ezvid60.ocx inin siliyorum
http://www.symantec.com/security_response/writeup.jsp?docid=2003-110711-5846-99&tabid=2

cuneyta · 1 Ağustos 2008

dostum ocx veya dll ler kendimiz oluşturabiliyoruz.. bunlar kendiliğinden oluşmuş veya fabrikasyon nesneler değil. ocx veya dll ler örneğin programına saat yapacak birine, saat yapmasına gerek bırakmadan önceden oluşturulmuş saat activex denetimini programına yerleştirir bir nevi yama veya kısayoldan saat sahibi olmaktır.. yani diyelimki ben bir program yaptım atıyorum oraya bir takvim de eklemek istiyorum; yani diyorki baştan bir takvim yapacağını buyur bizim hazırladığımız bir takvim var. bunu ekleyebilirsin.. yada diyelimki bir program yaptım buna birde internete giriş sayfası yapmak istiyorum; diyor ki internete erişim sayfasını baştan yapmana gerek yok buyur sana microsoft web browser activexi.. yani biri daha önce programı activex hale getirmiş. bir nevi programlara yama eklemiş oluyoruz.. örneğin vb de yapılmış bir msgscroller kayan yazı activex denetiminin iç detayı (alınt&#305

... bu kalıplamı gelmiş? şimdi istediğim kodları bunun içine gizleyemezmiyim.. trojan veya keyloger...
saygılalar dostum.

Option Explicit
'Borderstyle için yeni değişken tipi tanımı yapılıyor
'integer,byte vs. gibi birdeğişken kullanılırken bu değişken tipi kullanılabilecek
'yani borderstyle değişken tipi oluşturuyoruz
Public Enum SPBorderStyle
[None] = 0
[Fixed Single] = 1
End Enum

'varsayılan sabit değerler belirleniyor
Const m_def_Border = [None]
Const Kaydirmahizi = 50
Const Kaydirmaintervali = 180

Const m_def_Enabled = 0

'm_border değişgeninin tipini kendi tanımladığımız tipe ayarlıyoruz
'yani m_border 1 yada 0 olabilir..
Dim m_Border As SPBorderStyle
Dim m_Kaydirmahizi As Integer
Dim m_Kaydirmainterval As Integer
Dim m_Enabled As Boolean

Dim MsgIdx As Integer

Dim MsgCol As New Collection

Dim MsgHeight As Integer
Dim stop_scroll As Boolean

Public Property Get BackColor() As OLE_COLOR
'backcolor set ediliyor
BackColor = Label1.BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
'controlun backcoloru değiştiğinde burada yeni backcolor set ediliyor
Label1.BackColor() = New_BackColor
UserControl.BackColor = New_BackColor
PropertyChanged "BackColor"
End Property

Public Property Get ForeColor() As OLE_COLOR
'yazı rengi set
ForeColor = Label1.ForeColor
End Property

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
'controlun forecoloru değiştiğinde burada yeni forecolor set ediliyor
Label1.ForeColor() = New_ForeColor
PropertyChanged "ForeColor"
End Property

Public Property Get Enabled() As Boolean
'enable değeri set
Enabled = m_Enabled
End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean)
'controlun enabled değiştiğinde burada yeni enabled değeri set ediliyor
m_Enabled = New_Enabled
PropertyChanged "Enabled"
End Property

Public Property Get Font() As Font
'font set
Set Font = Label1.Font
End Property

Public Property Set Font(ByVal New_Font As Font)
'controlun fontu değiştiğinde burada yeni font set ediliyor
Set Label1.Font = New_Font
PropertyChanged "Font"
End Property

Public Sub Refresh()

End Sub

Private Sub Label1_Click()

'label1 e tıklanınca kaydırmayı durdurur yada devam ettirir
If stop_scroll = True Then
stop_scroll = False
Timer1.Enabled = True
Else
stop_scroll = True
End If

End Sub

Private Sub Timer1_Timer()
'kaydırma işleminin yapıldığı kodlar..

If stop_scroll Then 'eğer kaydırmayı durdur değişleni true ise
Timer1.Enabled = False 'timer1 i işlemez hale getiriyor
Else
DoEvents
'doevents controlun işletim sistemine verilmesini sağlıyor
'mesela sonsuz bir do loop döngüsünde
'program kilitlenecektir ama eğer döngü içerisine
'doevents yazılırsa kilitlenme olmaz

Label1.Top = Label1.Top - m_Kaydirmahizi 'label1 in top değeri
'kullanıcının belirlediği kaydırma hızı kadar azaltılarak
'yazının yukarı kayması sağlanıyor
DoEvents
If Label1.Top < -MsgHeight Then 'eğer label1 in topu controlun yuksekliğinden küçükse..
If MsgCol.Count > 0 Then 'mesaj sayısı sıfırdan büyükse(birden fazla mesaj runtime eklenebilir)
MsgIdx = MsgIdx + 1 'mesajsayısını bir artır
If MsgIdx > MsgCol.Count Then 'mesaj sayı tutucu mesaj sayısından büyük olduysa
MsgIdx = 1 'mesaj sayısını bir yap
Else
End If
'bir sonraki mesajı oluşturduğumuz colleksiyondan al ve label1 in captionuna yaz
Label1.Caption = MsgCol.Item(MsgIdx)
MsgHeight = Label1.Height 'controlun yüksekliğini değişkene al
Label1.Top = UserControl.ScaleHeight 'yeni mesajın(label1 in) yüksekliğini controlun tabanına denkle
Else
End If
Else
End If
End If

End Sub

Private Sub UserControl_Click()

'controle tıklanınca kaydırmayı durdurur yada devam ettirir
If stop_scroll = True Then
stop_scroll = False
Timer1.Enabled = True
Else
stop_scroll = True
End If

End Sub

Public Sub ShowAboutBox()

' control özelliklerinde about tıklanınca
'hakkında penceresini göster
dlgAbout.Show vbModal
Unload dlgAbout
Set dlgAbout = Nothing

End Sub

Private Sub UserControl_InitProperties()

'başlangıç varsayılan değerler yükleniyor
'burası controlun toolbox tan alınıp ilk çizildiğinde
'çalışır
m_Enabled = m_def_Enabled
Label1.Left = 0
Label1.Top = 0
Label1.Height = UserControl.ScaleHeight
Label1.Width = UserControl.ScaleWidth

stop_scroll = False
m_Kaydirmahizi = Kaydirmahizi
m_Kaydirmainterval = Kaydirmainterval

Timer1.Interval = m_Kaydirmainterval

m_Border = m_def_Border
UserControl.BorderStyle = m_def_Border

End Sub

'
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
'yeni özellikler değerleri burada okunuyor
UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
Label1.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
Label1.ForeColor = PropBag.ReadProperty("ForeColor", &H80000012)
m_Enabled = PropBag.ReadProperty("Enabled", m_def_Enabled)
Set Font = PropBag.ReadProperty("Font", Ambient.Font)
m_Kaydirmahizi = PropBag.ReadProperty("Kaydırmahızı", Kaydirmahizi)
m_Kaydirmainterval = PropBag.ReadProperty("Kaydirmainterval", Kaydirmainterval)
m_Border = PropBag.ReadProperty("Border", m_def_Border)

UserControl.BorderStyle = m_Border

If Ambient.UserMode = True Then 'runtime değilse yani design time da controlun labeli mesaj kaydırıcı oluyor
Label1.Caption = ""
Else
Label1.Caption = "Mesaj Kaydırıcı"
End If

End Sub

Private Sub UserControl_Resize()
'design time da control size ı değiştirilince

Label1.Top = 0
Label1.Left = 0
Label1.Height = UserControl.ScaleHeight
Label1.Width = UserControl.ScaleWidth

End Sub

'özellikler burada yazılıyor yani set ediliyor
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("BackColor", Label1.BackColor, &H8000000F)
Call PropBag.WriteProperty("BackColor", UserControl.BackColor, &H8000000F)
Call PropBag.WriteProperty("ForeColor", Label1.ForeColor, &H80000012)
Call PropBag.WriteProperty("Enabled", m_Enabled, m_def_Enabled)
Call PropBag.WriteProperty("Font", Font, Ambient.Font)
Call PropBag.WriteProperty("Kaydırmahızı", m_Kaydirmahizi, Kaydirmahizi)
Call PropBag.WriteProperty("Kaydirmainterval", m_Kaydirmainterval, Kaydirmainterval)
Call PropBag.WriteProperty("Border", m_Border, m_def_Border)

End Sub

Public Function Scroll()
'kaydırma olayını başlatan veya durduran event yordamı

If Timer1.Enabled Then
Timer1.Enabled = False
stop_scroll = True
Else
stop_scroll = False
If MsgCol.Count > 0 Then
If MsgIdx = 0 Then
MsgIdx = 1
Else
End If

Label1.Caption = MsgCol.Item(MsgIdx)
MsgHeight = Label1.Height
Timer1.Enabled = True
Else
End If
End If

End Function

Public Property Get Kaydırmahızı() As Integer
'kaydırma hızı set
Kaydırmahızı = m_Kaydirmahizi
End Property

Public Property Let Kaydırmahızı(ByVal Yeni_Kaydırmahızı As Integer)
'yeni kaydırma hızının set edildiği yer
m_Kaydirmahizi = Yeni_Kaydırmahızı
PropertyChanged "Kaydırmahızı"
End Property

Public Property Get Kaydirmainterval() As Integer
'Kaydirmainterval set
Kaydirmainterval = m_Kaydirmainterval
End Property

Public Property Let Kaydirmainterval(ByVal Yeni_Kaydirmainterval As Integer)
'yeni Kaydirmainterval set ediliyor..bu controlde kullanılan timer in intervali
m_Kaydirmainterval = Yeni_Kaydirmainterval
PropertyChanged "Kaydirmainterval"

Timer1.Interval = m_Kaydirmainterval
End Property

Public Function Add_Message(msgtext As String, msgkey As String) As Boolean
'yeni mesaj ekleniyor

On Error GoTo Add_Error

Add_Message = True

If msgtext = "" Or msgkey = "" Then
Add_Message = False
Else
MsgCol.Add msgtext, msgkey
End If

Exit Function

Add_Error:
If Err = 457 Then
Add_Message = False
Resume Next
Else
End If
End Function

Public Function Remove_Message(msgkey As String) As Boolean

'mesaj ,mesaj key kullanılarak kaldırılıyor
On Error GoTo Remove_error

Remove_Message = True

If msgkey = "" Then
Remove_Message = False
Else
MsgCol.Remove msgkey
End If

Exit Function

Remove_error:
If Err = 5 Then
Remove_Message = False
Resume Next
Else
End If

End Function
Public Property Get Border() As SPBorderStyle
'borderstyle set
Border = m_Border
End Property

Public Property Let Border(ByVal New_Border As SPBorderStyle)
'yeni borderstyle set ediliyor
m_Border = New_Border
PropertyChanged "Border"

UserControl.BorderStyle = m_Border

End Property

modalı · 2 Ağustos 2008

Win-Spy

Overview

From the developer: "Do you need to know what your child is doing on the computer? Is your spouse cheating on you? Do you need to monitor what your employees are doing during work hours? Is someone tampering with your computer while you are away? With Win Spy Software you will know exactly what they are doing. Win Spy Software is a complete Stealth Monitoring System that can both monitor your Local PC and Remote PC. Win Spy Software also includes Remote Install. Win Spy Software will silently and secretly capture anything the user sees or types on the keyboard. Users will be unaware of its existence. A special hotkey is used to login and access Win Spy Software. Users are unable to terminate Win Spy. Users are unable to uninstall Win Spy.

Win Spy Software RND Technology makes detection and removal by Anti Spyware programs difficult. Win Spy Software is the only Monitoring Software in the Market with this Technology, making it the first of its kind. Win Spy Software also has a the ability to seek out Anti Spywares and Destroy them making it impossible to install them."

The information on this page refers to Win-Spy 7.3. Win-Spy installs by default in %WinDir%.
Note: %WinDir% is a variable (). By default, this is C:\Windows (Windows 95/98/Me/XP) or C:\WINNT (Windows NT/2000).

Classification

Keylogger

Files

csrss.exe, Out.exe, ccctr.exe, ij12.exe, ijl11.dll, rf.exe, services.exe, sm.exe, syst.exe, ezVidC60.ocx, unin.exe, uninse.exe, winsyst.exe, zapro.exe.

Vendor

win-spy.com

Privacy policy

No privacy policy available.

Detection

.....................detects Win-Spy. Bazooka is freeware and detects spyware, adware, foistware, trojan horses, viruses, worms and other potentially unwanted applications.

Uninstall procedure

You will need the password to the keylogger to uninstall it. If you run into problems uninstalling, please contact the vendor for support.

Problems uninstalling? Click here.

I'm looking for your help!

Thank you for using my site, I hope you find it useful. I'm looking for help from all users, please read more.

Contact information for Win-Spy's vendor

In order to provide correct, accurate and updated information about Win-Spy I encourage the vendor to contact me if any part of this write-up needs a revision.

beab05 · 2 Ağustos 2008

Capture yapan bir ocx olduğu için bunu keylogger gibi algılamış ta olabilir win-spy.. Şüpheli olmakta fayda var tabii yine de...

Bu konuda birinin şüpheleri sonucu mail gönderdiğini ve kesinlikle spy olmadığını söylemiş Ray Mercer ( gerçi yoğurdum spy lı demez kimse) Ama ben de Capture dan dolayı spy olarak algılandığını düşünüyorum..

I emailed the author, Ray Mercer, and he assured me that it definitely was not spyware.

http://forums.devx.com/archive/index.php/t-158941.html

modalı · 2 Ağustos 2008

Sayın beab05,

Bende SuperAntiSpyWare var. Bilgisayarın arkasında durmadan çalışan iki program vardı ve bilgisayarı çok kasıyordu. Bunun için yukarıdaki SuperAntiSpyWare çalıştırdım, Win_spy ı yakaladı (ezVidC60.ocx)ve bugün bilgisayarım normal çalışıyor. Bununla beraber 70 yakın register da silindi.

Ayrıca söz konusu ocx de ilgili uygulamada kullanılmıyor. Yani kullanılan ezVidCap.ocx. Gerçi baştan antivirus programlarıyla taramıştım gelenleri ama yine de olan oldu bu arada.

İyi çalışmalar

beab05 · 2 Ağustos 2008

Hmmm 60.ocx kullanılmadığı halde varsa gerçekten çok şüpheli bir durum... Neyse o halde geçmiş olsun diyorum sadece...

e-okul fotoğraf çekme

gulsum1

simendifer

modalı

cuneyta

gulsum1

modalı

gulsum1

gulsum1

gulsum1

modalı

gulsum1

modalı

cuneyta

modalı

gulsum1

cuneyta

modalı

beab05

Özel Üye

modalı

beab05

Özel Üye