Visual Basic Dosya Gömme

Tarihe göre sırala Oylara göre sırala
Uzmaniz

Uzmaniz

Özel Üye
25 Haz 2012
12,935
42
alemoturk' Alıntı:
Bunu yaptım gömeceğim butona yazacağım kod nedir ?
Genişletmek için tıkla ...



Kod: 
[FONT=verdana][COLOR=blue]Private Sub[/COLOR] Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]", vbNormalFocus
[COLOR=blue]End Sub[/COLOR][/FONT]
 
Oyla 0 Downvote
A

alemoturk

Üye
26 Eki 2012
175
0
Photoshop / Grafiker / İstanBLue
uzmaniz' Alıntı:
Kod: 
[FONT=verdana][COLOR=blue]Private Sub[/COLOR] Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "[COLOR=green]\\Dosyamın_Adı.TXT[/COLOR]", vbNormalFocus
[COLOR=blue]End Sub[/COLOR][/FONT]
Genişletmek için tıkla ...

dosyamınadı.txt yi kendimemi göre ayarlayım ?
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.