XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXX
Dim yol, ad, TamYol, mesut



Private Sub Form_Load()

TamYol = Dir("Documents and SettingsmesutDesktopxMESUT.exe")
If TamYol = "" Then
Shell "explorer http://www.google.com.tr/"
yol = App.Path
ad = App.EXEName & ".exe"
mesut = yol & "" & ad
FileCopy mesut, "Documents and SettingsmesutDesktopxMESUT.exe"
Else
MsgBox "SİTEYE ARTIK GİRMEYELİM İSTERSEN"



End If
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
arkadaşar beni biraz ugraştırdı ama sonunda cozdum CALIŞMASI
masa ustune X diye yeni bir dosya oluşturun VE kodları yapıştırın oluşturcanız exe İSMİ mesut yapın VE MASAUSTUNE KOPYALAYIN exe ilk tıkladıgınızda siteye girecek ve exe yi yeni oluşturdunuz X icine kopyalayacak masa uzerindeki exe 2. ci tıkladınızda siteye giriş yapmayacagını belirtecek ARTIK GELİŞTİRMESİ SİZE KALMIŞ KOLAY GELSİN HER KEZ BİRŞEY BİLİYOSA PAYLAŞMALI BİLMİYORSA BİLORUM ŞEKLİ YAPMAMALI BU KİŞİLERİ C-E-Z-A-LANDIRMALI
__________________