BoZaN HaCk kullanıcısının son içeriği

SOURCE İNDİRME LİNKİ:CLİCK ME CODED BY BOZAN RAR ŞİFRESİ:cyber-warrior-bozan GELELİM ŞİMDİ SOURCESİZ YAPMAYA BUNUDA VİDEODA ANLATTIM VİDEO LİNKİ:VİDEOYU İNDİRMEK İÇİN TIKLAYIN user contorl kodu linki:KODU İNDİRMEK İÇİN TIKLAYIN

Public Function AutoType(c As Control, KeyAscii As Integer) As Integer AutoType = KeyAscii If KeyAscii > 95 And KeyAscii < 123 Then If c.SelStart = 0 Then AutoType = AutoType - 32 ElseIf Mid$(c.Text...

'Winsock ile Dosya Alış-Verişi 'Winsock ile dosya alıp göndermenin en kolay yolu! 'Örnek kodda sadece dataarrival olayını yazdim 'winsock bağlantı işlemlerini işin en kolay kısmı 'bu kod hem alıcı hem de gönderici için geçerlidir 'alıcı ' Winsock1.LocalPort = 100 ' Winsock1.Listen 'ile...

ListBox İçeriğini Kaydetmek ! List Box İçeriğini Baştan Sona Kaydetmek ! İlk Önce Aşağıdaki Kodu Bir Modülün İçine Yazınız ! _________________________________________________ Public Sub listk(FileName As String, List As ListBox) On Error Resume Next Dim lngSave As Long If...

bize gerekli olanlar command buton ve Picturebox Sub Command1_Click() Picture1.ForeColor = RGB(0, 0, 255) 'mavi renk For i = 0 To 100 Step 0.01'burada sayacin kac kac sayacagini belirliyoruz updateprogress Picture1, i Next 'burada devam diyaoruz Picture1.Cls 'Bitince picture1 nesnesini...

Vb De fORMUNUZA "Cikma İstediginizden Emimİsiniz,Baq Son KAranızmı"Gibi Tuhaf Tuhaf Ve İStehe Gore Bir Seyler Eklemek İsterseniz Buyrun ;) Private Sub Form_Unload(Cancel As Integer) If MsgBox("Gercektende Cikiyormusun?", vbevetHayır, "quit?") = vbYes Then Unload Me Set Form1 = Nothing Else...

Basliksiz Formu Hareket Ettirme Option Explicit Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32"Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _ As Long, ByVal wParam As Long, lParam As Any) As Long Private Const HTCAPTION...

Arkadaşlar eğer oluşturduğunuz textboxlarda font seçimi yapmak istiyorsanız aşağıdakileri yapmak yeterlidir. Öncelikle Formunuza componentslerden (Ctrl+T) Microsoft Common dialog Control 6.0 ekleyin.Daha sonra Bir tane textbox ve bir de buton ekleyin. Form Kodları **********************...

VB'de dosya yazma ve okuma methotlarına ilişkin açıklama YAZMA MODLARI 1 – Output Modu --------------------------------------------------------------------- Dosya sirali erisim modunda sadece yazma islemi için açilir. Veriler tek yönlü tasinir ve okuma islemine izin verilmez. Yazma islemi...

Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kod: 'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin Option Explicit Dim ArananKelime As String Dim KelimeninYeri, AramayaBasla As Integer Private Sub Bul_Click() ArananKelime =...

Hepimiz kendimizi çok akıllı sanıyoruz ama internette bu 8 aptalca şeyi yapmaktan vazgeçmiyoruz! İnternet hepimizin faydalandığı oldukça eğlenceli bir mekan. Ancak bazen küçük bir hatamız, başımızın çok ağrımasına neden olabiliyor. Şifremiz için "şifre" veya "süpermen" kullanmak, "bedava"...

Kod: Private Sub Command1_Click() Dim BulunanKelimeler As String Open "C:\test.txt" For Input As #1 List1.Clear While Not EOF(1) Input #1, StringHold List1.AddItem BulunanKelimeler Wend Close #1 End Sub

Merhaba Arkadaşlar Visual Basic 6.0 portablede exe yapamıyor musunuz ? Söylediklerimi tek tek uygularsanız bu sorundan kurtulacaksınız. Neyse lafı daha fazla uzatmadan konuya girelim . Şimdi Not Defterini açıyoruz. Oraya şu kodu yapıştırıyoruz. Kod: Windows Registry Editor Version 5.00...

Option Explicit Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer Private Sub Form_Load() Dim Wyol As String, uz Wyol = String(145, Chr(32)) uz = GetWindowsDirectory(Wyol, Len(Wyol)) Text1 =...

Private Sub Command1_Click() Text1 = App.Path End Sub