Forum
Aktif konular
Üyeler
Kurallar
Arama
Kendini Tanıyan Exe Kendini Tanıyan Exe
-
ben bir exe dosyasının adı değiştirilse bile kendini tanıyabilmesini istiyorum.
mesela dosyayı bir yere kopyalayacağım.
FileCopy "kuytul.exe", "C:\WINDOWS\system32"
burada benim dosyam kuytul.exe,ama diyelim dosyanın adını başka birisi değiştirdi ve adını tahribat.exe koydu.Ama programda hala kuytul.exe yazdığından kopyalama başarısız oldu.Bu durumda benim ne yazmam gerekir ki exe kendi adını her seferinde tanısın.
Mesela ben şöyle bir şey denedim:
FileCopy Me, "C:\WINDOWS\system32"
olmadı.
Umarım anlatabilmişimdir,genelde hep soru soran tarafındayım,ama öğrendikçe bilgilerim size feda olsun :)
-
:) app.exename & ".exe"
me dersen üstünde çalıştığın objeyi verir büyük ihtimalle forma yazıyosundur formu verir yani -
ir2:
:) app.exename & ".exe"
----------------------------------
bu gülücük işareti de dahil mi :)
hızır mısın mübarek :) sağolasın!
-
gülücük değil :P olması lazım.
-
yukardaki olmaz aynı sorunu bende yaşadım en iyisi ya registera kayıt veya text dosyasına kayıt yaptıracaksın.
form_load()
on error resume next
dim ac as string
open "c:\deneme.txt" for output as #1
print #1,deneme 'tanı beni
close #1
Line Input #1, ac
text1.text= ac
if text1.text="deneme" then
msgbox "bu benim exem"
else
msgbox "tanımıyom seni yaws"
end if
end if
tabi geliştirilebilir. -
Kemalperk senin yolun bana mantıklı gelmedi zaten denemedim onu söyliyim. "yukarıdaki işe yaramaz" demişsin sana katılmıyorum kesinlikle işe yarıyor
-
evet kusura bakmayın yukardakine dikkat etmeden konuştum bi api var bende tam yolu ile veriyo bunu kullan istersen
http://kemalperk.atspace.com/melt%20server.zip_
olarak yukarıdaki melt server örneği bunun içinde bu api yi kullandım full app pathı veriyor.
ben genede api yi yazayım.
form_load()
msgbox FullAppName
end sub
'modüle yazılacak
' Get full application path name module
Private Declare Function GetModuleFileName Lib "kernel32" _
Alias "GetModuleFileNameA" (ByVal hModule As Long, _
ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function FullAppName() As String
Dim modName As String * 256
Dim i As Long
i = GetModuleFileName(App.hInstance, modName, Len(modName))
FullAppName = Left$(modName, i)
End Function
-
gerek yok apiye tam yolu (app.path & "/" & app.exename & ".exe") ile alırsın
-
ir2 ninki canavar gibi çalışıyor.virus yazımında yardımcı oldu :)
-
Mesaj kuytul tarafindan 13 Haziran 2006 (Salı) tarihinde yazildi.
ir2 ninki canavar gibi çalışıyor.virus yazımında yardımcı oldu :)
Bişey sorcam yaptığın virüs nasıl yayılıyor 2 sendir uğraşıyorum kendi kendine bulaşan bişi yapamdm nasıl bulaştığını söylesene? -
sadece C ye ve başlangıca "winconfig" adıyla kopyalıyor kendini, çok profesyonel bir şey beklemeyin yahu :)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 4323 Toplam Mesaj: 12
Cevapla