Keylogger Yapımında hatası

[ebtasarim]

Arkadaşlar ben hakopsun server yapımı video sunu izledim neyse işte server yaptım derleyiciyi yaptım serveri oluşturuyor ama nitekim mesaj kısmında hata veriyor derleyiciyi oluşturuyor ama mesaj ekrana gelmiyor hata veriyor kodları doğru yazdım eminim bakın kodlar bu

Dim propbag As New PropertyBag
Dim Mesaj, Onay As String
Private Sub Form_Load()
Dim BeginPos As Long
Dim byteArr() As Byte
Dim varTemp As Variant
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, , varTemp
propbag.WriteProperty "LOF", LOF(1)
propbag.WriteProperty "Beginpost", BeginPos
Close #1
'Şimdi Servere Alacağımız Özellikleri Yazalım
Mesaj = propbag.ReadProperty("Mesaj")
Onay = propbag.ReadProperty("Onay")
'Şimdi Bunlara Kullanalım

If Onay = 1 Then
MsgBox Mesaj
Else
End If
Exit Sub

End Sub

Bu kodlar İçerisinden propbag kısmının p si normal de büyük video da ama ben bir türlü büyük yapamadım büyük yapıca kendiliğinden küçülüyor bundan olabilir mi

 

[RedHour]

Onun Pek Önemi Yok Hata Vermiyorsa Sorun Yok

 

[TheZeuS]

Öncelikle Dim propbag Yapmışsın O Yüzden Küçük p Yapıyor Dim Propbag Yaparsan P Büyük Olur

Server Oluşturma Butonu'nun İçine Şu Kodu Giriceksin
Örn: Propbag.WriteProperty "Mesaj", Form1.Text1.Text

Burda Demişki Text1'de Ne Yazılıysa Server Açılınca Onu Söyleyecek.

Anlamadığın Yer Olursa Söyle Ben Yardım Ederim ​

 

[ebtasarim]

Öncelikle Dim propbag Yapmışsın O Yüzden Küçük p Yapıyor Dim Propbag Yaparsan P Büyük Olur

Server Oluşturma Butonu'nun İçine Şu Kodu Giriceksin
Örn: Propbag.WriteProperty "Mesaj", Form1.Text1.Text

Burda Demişki Text1'de Ne Yazılıysa Server Açılınca Onu Söyleyecek.

Anlamadığın Yer Olursa Söyle Ben Yardım Ederim ​

Öncelikle Dedikleriniz için teşekkür ederim yanlız yine hata veriyor anlamadım gitti nerde hata yapıyorum bilmiyorum sizin verdiğiniz kodu ekledikten sonra da yine hata verdi ama video daki kodları yazdım mı da hata veriyor o neden acaba video da ki kod bu

Dim Propbag As New PropertyBag
Dim Mesaj, Onay As String
Private Sub Form_Load()
Dim BeginPos As Long
Dim byteArr() As Byte
Dim varTemp As Variant
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 3, BeginPos
Seek #1, BeginPos
Get #1, , varTemp
Propbag.WriteProperty "LOF", LOF(1)
Propbag.WriteProperty "Beginpost", BeginPos
Close #1
'Şimdi Servere Alacağımız Özellikleri Yazalım
Mesaj = Propbag.ReadProperty("Mesaj")
Onay = Propbag.ReadProperty("Onay")
'Şimdi Bunlara Kullanalım

If Onay = 1 Then
MsgBox Mesaj
Else
End If
Exit Sub

End Sub

 

[TheZeuS]

Öncelikle Dedikleriniz için teşekkür ederim yanlız yine hata veriyor anlamadım gitti nerde hata yapıyorum bilmiyorum sizin verdiğiniz kodu ekledikten sonra da yine hata verdi ama video daki kodları yazdım mı da hata veriyor o neden acaba video da ki kod bu

Dim Propbag As New PropertyBag
Dim Mesaj, Onay As String
Private Sub Form_Load()
Dim BeginPos As Long
Dim byteArr() As Byte
Dim varTemp As Variant
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 3, BeginPos
Seek #1, BeginPos
Get #1, , varTemp
Propbag.WriteProperty "LOF", LOF(1)
Propbag.WriteProperty "Beginpost", BeginPos
Close #1
'Şimdi Servere Alacağımız Özellikleri Yazalım
Mesaj = Propbag.ReadProperty("Mesaj")
Onay = Propbag.ReadProperty("Onay")
'Şimdi Bunlara Kullanalım

If Onay = 1 Then
MsgBox Mesaj
Else
End If
Exit Sub

End Sub

Mesaj Yazan Yeri "Mesaj" Diye Yapın Msgbox Tırnak İşareti Olmadığı İçinde Hata Oluşturabilir.​

 

[ebtasarim]

Mesaj Yazan Yeri "Mesaj" Diye Yapın Msgbox Tırnak İşareti Olmadığı İçinde Hata Oluşturabilir.​

hocam eyvallah ama bakın burda hata veriyor "Mesaj = Propbag.ReadProperty("Mesaj") "


bu hatalı diyor neresinde hata yapıyorum isterseniz video resim çekip de koyabilirim

 

[ebtasarim]

arkadaşlar cevaplarınızı bekliyorum