Kardeş Çoook saol bu ara ilgileniyorum visual la iyi oldu.. тнєвlα¢к∂

hea en iyi si vb falan yaw diğerleri sarmıyo bende girecem bu aralar ama neyse

rica ederim dostum istersen örnek kod ve döküman verebilirim ayrıca. MSN'e gel görüşelim.

Basliksiz Formu Hareket Ettirme Option Explicit Private Declare Function ReleaseCapture Lib "user32" As Long Private Declare Function SendMessage Lib "user32"Alias _ "SendMessageA" As Long Private Const HTCAPTION = 2 Private Const WM_NCLBUTTONDOWN = &HA1 Private Const WM_SYSCOMMAND = &H112 Private Sub label1_MouseDown Call ReleaseCapture SendMessage Me. hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Command1_Click Unload Me End Sub INTERNET BAGLANTI BILGILERINI ÖGRENMEK Internet üzerinden alinan ve gönderilen byte miktarlari Registry icine kaydedilir. Yanliz Bu kod Windows NT altinda calismiyor. Ek olarak transfer hizini ve baglanti hizini da ögrenebiliyoruz. Option Explicit Private Declare Function RegOpenKeyEx Lib "advapi32. dll"Alias _ "RegOpenKeyExA" As Long Private Declare Function RegCloseKey Lib "advapi32. dll" As Long Private Declare Function RegQueryValueEx Lib "advapi32. dll"Alias _ "RegQueryValueExA" As Long Const HKEY_DYN_DATA = &H80000006 Const KEY_READ = &H19 Const ERROR_SUCCESS = 0& Dim s1&, e1&, LBytes&, CNT&, Q&, QQ&, SUM& Private Sub Command1_Click Reset End Sub Private Sub Form_Load Reset LBytes = e1 Timer1. Enabled = True Timer1. Interval = 100 End Sub Private Sub Timer1_Timer Dim EBytes&, SBytes&, CSpeed& EBytes = ReadBytes SBytes = ReadBytes CSpeed = ReadBytes If EBytes > -1 Then Label1. Caption = EBytes - e1 If SBytes > -1 Then Label2. Caption = SBytes - s1 If SBytes > -1 And EBytes <> e1 Then Label5. Caption = CSpeed End If If LBytes < EBytes Then Q = / (Timer1. Interval / 1000) CNT = CNT + 1 Else Q = 0 End If SUM = SUM + Q QQ = SUM / CNT Label6. Caption = " " & Q LBytes = EBytes End Sub Private Function ReadBytes As Long Dim hKey&, L&, X&, DW& X = RegOpenKeyEx(HKEY_DYN_DATA, "PerfStats\StatData", 0, _ KEY_READ, hKey) If X <> ERROR_SUCCESS Then Exit Function X = RegQueryValueEx(hKey, Entry, 0&, DW, ByVal 0&, L) If X <> ERROR_SUCCESS Then Exit Function X = RegQueryValueEx(hKey, Entry, 0&, DW, ReadBytes, L) If X <> ERROR_SUCCESS Then Exit Function RegCloseKey hKey End Function Private Sub Reset e1 = ReadBytes s1 = ReadBytes SUM = 0 CNT = 1 End Sub INTERNET BAGLANTI DURUMUNU OGRENMEK Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir Option Explicit Private Declare Function RasEnumConnections Lib "RasApi32. dll" _ Alias "RasEnumConnectionsA" As Long Private Declare Function RasGetConnectStatus Lib "RasApi32. dll" _ Alias "RasGetConnectStatusA" As Long Const RAS_MaxEntryName = 256 Const RAS_MaxDeviceType = 16 Const RAS_MaxDeviceName = 32 Private Type RASType dwSize As Long hRasCon As Long szEntryName As Byte szDeviceType As Byte szDeviceName As Byte End Type Private Type RASStatusType dwSize As Long RasConnState As Long dwError As Long szDeviceType As Byte szDeviceName As Byte End Type Private Sub Form_Load Timer1. Interval = 200 Timer1. Enabled = True End Sub Private Sub Timer1_Timer DFÜStatus End Sub Private Function DFÜStatus As Boolean Dim RAS(255) As RASType, RASStatus As RASStatusType Dim lg&, lpcon&, Result& RAS(0). dwSize = 412 lg = 256 RAS(0). dwSize Result = RasEnumConnections(RAS(0), lg, lpcon) If lpcon = 0 Then Label1. Caption = "Offline" '### DFÜStatus = False Else RASStatus. dwSize = 160 Result = RasGetConnectStatus(RAS(0). hRasCon, RASStatus) If RASStatus. RasConnState = &H2000 Then Label1. Caption = "Online" '### DFÜStatus = True Else Label1. Caption = "Baglanti Kopuk" '### DFÜStatus = False End If End If End Function INTERNET BAGLANTISI OLUSTURMAK - KESMEK Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir. Option Explicit Const RAS_MaxDeviceType = 16 Const RAS95_MaxDeviceName = 128 Const RAS95_MaxEntryName = 256 Private Type RASENTRYNAME95 dwSize As Long szEntryName(RAS95_MaxEntryName) As Byte End Type Private Type RASCONN95 dwSize As Long hRasConn As Long szEntryName(RAS95_MaxEntryName) As Byte szDeviceType As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Private Declare Function RasEnumConnections Lib "RasApi32. DLL" _ Alias "RasEnumConnectionsA" As Long Private Declare Function RasEnumEntries Lib "RasApi32. DLL" _ Alias "RasEnumEntriesA" As Long Private Declare Function RasHangUp Lib "RasApi32. DLL" _ Alias "RasHangUpA" As Long Dim DFÜname$, RCon As Long Private Sub HangUp Dim s As Long, l As Long, ln As Long, aa$ ReDim r(255) As RASCONN95 r(0). dwSize = 412 s = 256 r(0). dwSize l = RasEnumConnections(r(0), s, ln) For l = 0 To ln - 1 aa = StrConv(r . szEntryName , vbUnicode) aa = Left$(aa, InStr(aa, Chr$(0)) - 1) If aa = Verbindung Then RCon = r . hRasConn Dim rec As Long rec = RasHangUp End If Next l End Sub Private Sub Command1_Click If List1. ListIndex = -1 Then Exit Sub DFÜname = List1. List(List1. ListIndex) Shell "rundll32. exe rnaui. dll, RnaDial " & DFÜname SendKeys " ", True SendKeys " ", True Me. SetFocus End Sub Private Sub Command2_Click Call HangUp End Sub Private Sub Form_Load Dim s As Long, ln As Long, i%, conname$ Dim r(255) As RASENTRYNAME95 r(0). dwSize = 264 s = 256 r(0). dwSize Call RasEnumEntries(vbNullString, vbNullString, r(0), s, ln) For i = 0 To ln - 1 conname = StrConv(r . szEntryName , vbUnicode) List1. AddItem Left$(conname, InStr - 1) Next i If List1. ListCount <> 0 Then List1. ListIndex = 0 End Sub Formu Yakip Söndürme Private Sub Timer1_Timer If Me. Visible = True Then Me. Visible = False Else Me. Visible = True End If End Sub Private Sub Command1_Click Timer1. Interval = 1000 End Sub Formu Kaydirma Private Sub Command1_Click Do Until Form1. Top = Screen. Height Form1. Top = Form1. Top + 1 Loop Unload Me End Sub Ekran Koruyucu Public Sub drawcircle Dim red As Integer 'declare all varibles Dim blue As Integer Dim green As Integer Dim xPos As Integer Dim yPos As Integer red = 255 Rnd 'randomize red color blue = 255 Rnd 'randomize blue color green = 255 Rnd 'randomize green color xPos = ScaleWidth / 2 yPos = ScaleHeight / 2 radius = ((yPos 0.99) + 1) Rnd Circle , radius, RGB End Sub Private Sub Timer1_Timer Call drawcircle End Sub Titreyen Form Private Sub Form_Load Timer1. Interval = 22 End Sub Private Sub Timer1_Timer Form1. Top = Form1. Top + 50 Form1. Top = Form1. Top - 50 Form1. Left = Form1. Left - 50 Form1. Left = Form1. Top + 50 End Sub Formu Yuvarlatma Private Sub Form_Load Dim hr&, dl& Dim usew&, useh& usew& = Me. Width / Screen. TwipsPerPixelX useh& = Me. Height / Screen. TwipsPerPixelY hr& = CreateEllipticRgn(55, -20, usew, useh) dl& = SetWindowRgn End Sub Her Koseden Program Kapatma Private Sub Cmd1çıkış_Click Do Until Form1. Height = 405 And Form1. Width = 1680 Form1. Height = Form1. Height - 1 Form1. Width = Form1. Width - 1 Loop Unload Me End Sub Private Sub Form_Load Form1. Caption = "Form Move" Form1. Height = 0 Form1. Width = 1680 Timer1. Interval = 200 Timer1. Enabled = True End Sub Private Sub Timer1_Timer On Error Resume Next For x = 0 To Form1. Height + 2000 Form1. Height = x Next x For y = 100 To Form1. Width + 1500 Form1. Width = y Next y Timer1. Enabled = False End Sub Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin calismasini iptal etme Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" As Long Sub CtrlAltDeleteKapat Dim X As Long X = SystemParametersInfo(97, Kapali, CStr(1), 0) End Sub Ctrl-Alt-Delete kombinasyonunu kapatmak için: Call CtrlAltDeleteKapat Ctrl-Alt-Delete kombinasyonunu açmak için: Call CtrlAltDeleteKapat

Çok saoL kardeş şimdiden.. tşk ederim.

bize veririsen o dökümanları süperolur bende bu aralar vb6 ile uğraşıyorum