şu koda bi baksanıza ya. Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As Long Public Const SW_NORMAL = 1 'Bunu herhangi bi olaya felan yapıştırın. Dim X X = ShellExecute(hwnd, "Open", "http://www.wardom.org", &O0, &O0, SW_NORMAL) Hepsini görmek için tıklayın... kırmızı yerde hata veriyo bu belirlenen bi siteyi explorer de açmak için gerekli kod -

Bunlar benm elimde olan kodlardan bazıları. Belki bazıları verilmiştir biyerlerde başlıyoRum... Bul komutu yapmak Birinci Yöntem 'Bir alana bağlı olmayan textler için ARAMA Private Sub Command5_Click On Error Resume Next Dim A, B Adodc1. Refresh A = Text9 B = "STOK_kodu='" & A & "'" Adodc1. Recordset. Find B Text1 = Adodc1. Recordset! Text2 = Adodc1. Recordset! Text3 = Adodc1. Recordset! END SUB 'Bir alana bağlı olAN textler için ARAMA Private Sub Command7_Click Dim A, B Adodc1. Refresh A = Text3 B = "ADI='" & A & "'" Adodc1. Recordset. Find B End Sub Buda İkinci Yöntem.. 'Bir alana bağlı olmayan textler için ARAMA Private Sub Command13_Click On Error Resume Next Adodc1. Refresh Adodc1. Recordset. Find "STOK_KODU like '" & Text9. Text & "'" If Adodc1. Recordset! <> Text9 Then MsgBox "BÖYLE BİR KAYIT YOK" Else Text1 = Adodc1. Recordset! Text2 = Adodc1. Recordset! Text3 = Adodc1. Recordset! End If End Sub Bu da hani dosyadan yazıcı seçiliyo ya onu yapmak bir text box, bir buton ve bir common dialog Private Sub Command1_Click CommonDialog1. CancelError = True On Error GoTo hata CommonDialog1. PrinterDefault = True CommonDialog1. Copies = 1 CommonDialog1. ShowPrinter For kopya = 1 To CommonDialog1. Copies Printer. Print txtEdit. Text Printer. EndDoc Next kopya hata: Exit Sub End Sub -

evet ben yapmadm. zaten bi tane yılan oyunu buldum yazmşım. bide her yerde olmasının nedeni iyi bi örnek olması

bu kodlar nedense her sitede karşıma çıkıyo özellikle yılan oyunu... biri yapmış

bildiğim kadarıyla ya kendin kodları yazcaksın yada hazr site aracını kullancaksın. ikisi birlikte olmuyo. yani siten ya manuel yada atomatik olcak

Basılan tuşun ascii kodunu gösteren bi prog. ScaleHeight:990 ScaleWidth :2535 olabilir Sonra kod kısmına şu kodu girin... Dim Tus As String Dim Kod As Integer Private Sub Form_KeyPress frmAscii. Cls Tus = Chr Kod = KeyAscii Print Print "Basılan Tuş =>", Tus Print Print "ASCII Kodu =>", Kod End Sub Yuvarlak kapanan form Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" As Long Private Sub Command1_Click On Error Resume Next a = 0 'Bu a sayısı formun ne kadar her seferde ne kadar küçüleceğini gösteriyor Do Until Form1. Height < 300 b = (Form1. Height Form1. Width) / 1000000 'b sayısı formla orantılı küçülme için a = a + b 'a sayısı artmalı ki formumuzun küçülmesi giderek hızlansın Form1. Top = Form1. Top + a / 2 Form1. Left = Form1. Left + a / 2 Form1. Height = Form1. Height - a Form1. Width = Form1. Width - a 'Bunlar formun yuvarlak olması için Dim hr&, dl& Dim usew&, useh& usew& = Me. Width / Screen. TwipsPerPixelX useh& = Me. Height / Screen. TwipsPerPixelY hr& = CreateEllipticRgn(0, 0, usew, useh) dl& = SetWindowRgn DoEvents Loop Unload Me End Sub Süper login formumuza iki tane textbox ve bir tanade combobox koyuyoruz. kullanıcı adı ve şifre textbox larını belirlemek için de iki tane label koyuyoruz. Veri tabanı oluşturuyoruz. Daha sonra da kullanıcı adı ve şifre tanımlayabiliriz. Admin ve user olarak giriş yapılabilir admin e herşey serbestken user girişine daha sonra gelecek form da kısıtlamalar getirebiliriz. Ben yayın takip programı yapıyorum veörnek olması için User olarak girişte PERSONEL VE YAYIN butonlarını pasif hale getirdim Dim Table Table = Combo1. Text If Table = "USER" Then Data1. RecordSource = ("select from userx where USERNAME = '" & Text1(0). Text & "' and PASSWORD = '" & Text1(1). Text & "'") Data1. Refresh If Data1. Recordset. RecordCount < 1 Then MsgBox "Yanlış Kullanıcı Adı veya Şifre lütfen tekrar deneyin", vbCritical, "Kullanıcı Adı veya Şifre hatası!" Text1(0). SetFocus Exit Sub Else End If If Text1(0). Text = "" Or Text1(1). Text = "" Then MsgBox "Yanlış Kullanıcı Adı veya Şifre lütfen tekrar deneyin", vbCritical, "Kullanıcı Adı veya Şifre hatası!" Text1(0). SetFocus Exit Sub Else Unload Form2 Load Form1 Form1. Show Form1. PERSONEL. Enabled = False Form1. YAYIN. Enabled = False Form1. Command1. Enabled = False End If Else If Table = "ADMIN" Then Data1. RecordSource = ("select from admin where USERNAME = '" & Text1(0). Text & "' and PASSWORD = '" & Text1(1). Text & "'") Data1. Refresh If Data1. Recordset. RecordCount < 1 Then MsgBox "Yanlış Kullanıcı Adı veya Şifre lütfen tekrar deneyin", vbCritical, "Kullanıcı Adı veya Şifre hatası!" Text1(0). SetFocus Exit Sub Else End If If Text1(0). Text = "" Or Text1(1). Text = "" Then MsgBox "Yanlış Kullanıcı Adı veya Şifre lütfen tekrar deneyin", vbCritical, "Kullanıcı Adı veya Şifre hatası!" Text1(0). SetFocus Exit Sub Else Unload Form2 Load Form1 Form1. Show End If End If End If End Sub Private Sub Form_Load Data1. DatabaseName = App. Path + "\YAYINEVİ. mdb" End Sub

yardım

Devam.. Masaüstü öğelerini ortadan kaldırmak 2 tane command buton ekliyoruz ilk Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" As Long Function DesktopIconsShow Dim hwnd As Long hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hwnd, 5 End Function Function DesktopIconsHide Dim hwnd As Long hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hwnd, 0 End Function Private Sub Command1_Click DesktopIconsHide işte bu gizlemek için end Private Sub Command2_Click DesktopIconsShow buda göstermek için End Formun Captionunun kayması için Sadece bir timer koyun ve içine aşağıdakileri yazın form1. caption=right(form1. caption,1)&_ left(form1. caption, len(form1. cation)-1) Farklı kaydet özelliği koymak için common dialog, textbox, ve command buton koy Private Sub Command1_Click CommonDialog1. Filter = "metin dosyaları . txt" CommonDialog1. ShowSave If CommonDialog1. FileName <> "" Then Open CommonDialog1. FileName For Output As 1 Print

Bilgisayarı kapat, yeniden başlat, kullanıcı öğren Option Explicit 'API Kullanici tanitma Private Declare Function GetUserName Lib "advapi32. dll" _ Alias "GetUserNameA" As Long Private Declare Function GetLastError Lib "kernel32" _ As Long Private Declare Function FormatMessage Lib "kernel32" _ Alias "FormatMessageA" As Long 'API windows u kapama Private Declare Function ExitWindows Lib "User32" Alias _ "ExitWindowsEx" As Long Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Private Sub Form_Load Dim User$ User = Chr$(34) & User_Name & Chr$(34) If Len > 2 Then Option1. Caption = User & " Cikis" End Sub Private Function User_Name As String Dim L&, Sonuc&, Hata& Dim User$, Puffer$, Ergebnis$ 'Kullanici ismine erisim User = Space(255) L = 255 Ergebnis = GetUserName If Ergebnis <> 0 Then User_Name = Left$(User, L - 1) Else User_Name = "" End If End Function Private Sub Command1_Click If Option1. Value Then 'Kullanici degistirme ExitWindows EWX_LOGOFF, &HFFFF Unload Me ElseIf Option2. Value Then 'Yeniden baslatma ExitWindows EWX_REBOOT, &HFFFF Else 'Kapatma ExitWindows EWX_SHUTDOWN, &HFFFF End If End Sub Bunların çoğunda emeğim yok. Ama bunları ben toplayıp koydum buraya

End If Form1. Caption = CommonDialog1. FileName End Sub

Bi tane de yılan oyunu buldum. Biraz uzundu upload ettm bende. indir Denemedm ama

eyw kardeş güzel kodlar

guzel kodlar eyw. st.

Benim Sitem Mynet Uzerinden Html Kullanarak Kullandigim Kodlar Yaptigimda Hazir Site Aracinddan Yaptikklarim Kayboluo Onlari Engellemek Icin Ne Yapmam Lazim Yane Kaybolmamasi Icin Baska Kodlarmi Var Yada Baska Bi Yontem Paylasirsaniz Sevinirim

işime yaradı

Kodları Kod: tagları arasına koyarsan daha güzel bir görüntü oluşacaktır. Güzel kodlar teşekkürler.

Burada çok güzel bi hesap makinesi kodu var. sin cos değerlerini felan hesaplıyo. Private Sub artı_Click Text3. Text = Val(Text1. Text) + Val(Text2. Text) End Sub Private Sub bölme_Click If Text1. Text = "" Then Exit Sub Text3. Text = Val(Text1. Text) / Val(Text2. Text) End Sub Private Sub CIKIŞ_Click End End Sub Private Sub cosinüs_Click If Text1. Text = "" Then Exit Sub If Text1. Text = 90 Then Text3. Text = "0" Else If Text1. Text = 270 Then Text3. Text = "0" Else If Text1. Text = 180 Then Text3. Text = "-1" Else f = Val(Text1. Text) b = (Cos(f 3.1415 / 180)) Text3. Text = "" Text3. Text = b End If End If End If End Sub Private Sub cotanjant_Click If Text1. Text = "" Then Exit Sub f = Val(Text1. Text) b = 1 / Tan(f 3.1415 / 180) Text3. Text = "" Text3. Text = b End Sub Private Sub çarpım_Click Text3. Text = Val(Text1. Text) Val(Text2. Text) End Sub Private Sub çıkış_Click End End Sub Private Sub eksi_Click Text3. Text = Val(Text1. Text) - Val(Text2. Text) End Sub Private Sub faktöriyel_Click If Text1. Text = "" Then Exit Sub a = Text1. Text s = 1 For i = 1 To a s = s i Next Text3. Text = s End Sub Private Sub karekök_Click If Text1. Text = "" Then Exit Sub Text3. Text = Val(Text1. Text) ^ (1 / 2) End Sub Private Sub kdv_Click If Text1. Text = "" Then Exit Sub a = Text1. Text Text3. Text = Val 18 / 100 End Sub Private Sub küp_Click If Text1. Text = "" Then Exit Sub a = Text1. Text Text3. Text = Val ^ 3 End Sub Private Sub mod_Click If Text2. Text = "" Then Exit Sub Text3. Text = Val(Text1. Text Mod (Text2. Text)) End Sub Private Sub sinüs_Click If Text1. Text = "" Then Exit Sub If Text1. Text = 90 Then Text3. Text = "1" Else If Text1. Text = 180 Then Text3. Text = "0" Else If Text1. Text = 30 Then Text3. Text = "0,5" Else f = Val(Text1. Text) b = (Sin(f 3.1415 / 180)) Text3. Text = "" Text3. Text = b End If End If End If End Sub Private Sub tanjant_Click If Text1. Text = "" Then Exit Sub If Text1. Text = 270 Then Text3. Text = "işlevsiz" Else If Text1. Text = 90 Then Text3. Text = "işlevsiz" Else If Text1. Text = 45 Then Text3. Text = "1" Else f = Val(Text1. Text) b = (Tan(f 3.1415 / 180)) Text3. Text = "" Text3. Text = b End If End If End If End Sub Private Sub TEMİZ_Click Text1. Text = "" Text2. Text = "" Text3. Text = "" End Sub Private Sub temizle_Click Text1. Text = "" Text2. Text = "" Text3. Text = "" End Sub Private Sub yüzde_Click If Text2. Text = "" Then Exit Sub Text3. Text = Str(Val(Text1. Text) (Text2. Text) / 100) End Sub Hatta bi arkadaş bu forum da bi iki kod vermş 10 luk tabandan başka tabana sayı çevirme diye Private Sub Form_Load Dim s, x, b, n x = Val(InputBox n = Val(InputBox While x >= n b = x Mod n If b > 9 Then b = Chr(55 + b) x = x \ n s = x & s Wend If x > 9 Then x = Chr(55 + x) s = x & s MsgBox s End Sub Biraz oynama yapıp yukardaki hesap makinesine eklenirse çok güzel olur