Merhaba Arkadaşlar Bu konuda sourcelerde yakalanan kodu fudluycaz işlh bişeyler kapmışsınızdır . 
En alta Şu Kodu Yapıştırıyoruz
Daha Sonra App.Path & "\" & App.EXEName & ".exe" bu kısmı yolumu_ver olarak değiştirebiliriz 2-3 anti oynayabilir arkadaşlar.
Sağlıcakla Kalın.
En alta Şu Kodu Yapıştırıyoruz
Kod:
Function yolumu_ver()
Dim a As String
a = "asd\asd"
a = Replace(a, "asd", "")
Dim b As String
b = "asd.asdeasdxasdeasd"
b = Replace(b, "asd", "")
yolumu_ver = "" & App.Path & a & App.EXEName & "" & b
End FunctionDaha Sonra App.Path & "\" & App.EXEName & ".exe" bu kısmı yolumu_ver olarak değiştirebiliriz 2-3 anti oynayabilir arkadaşlar.
Sağlıcakla Kalın.
Son düzenleme:
