Dim yol, ad, TamYol, mesut
Private Sub Form_Load()
TamYol = Dir("D

If TamYol = "" Then
Shell "explorer http://www.google.com.tr/"
yol = App.Path
ad = App.EXEName & ".exe"
mesut = yol & "" & ad
FileCopy mesut, "D

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

__________________