[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Basliksiz Formu Hareket Ettirme[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function ReleaseCapture Lib \"user32\" () As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function SendMessage Lib \"user32\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As Long, ByVal wParam As Long, lParam As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const HTCAPTION = 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const WM_NCLBUTTONDOWN = &HA1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const WM_SYSCOMMAND = &H112[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub label1_MouseDown(Button As Integer, Shift As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call ReleaseCapture[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]INTERNET BAGLANTI BILGILERINI ÖGRENMEK[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]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.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegOpenKeyEx Lib \"advapi32.dll\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"RegOpenKeyExA\" (ByVal hKey As Long, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpSubKey As String, ByVal ulOptions As Long, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]samDesired As Long, phkResult As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegCloseKey Lib \"advapi32.dll\" (ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hKey As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegQueryValueEx Lib \"advapi32.dll\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"RegQueryValueExA\" (ByVal hKey As Long, ByVal lpValueName _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As String, ByVal lpReserved As Long, lpType As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpData As Any, lpcbData As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const HKEY_DYN_DATA = &H80000006[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const KEY_READ = &H19[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const ERROR_SUCCESS = 0&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s1&, e1&, LBytes&, CNT&, Q&, QQ&, SUM&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Reset[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Reset[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]LBytes = e1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim EBytes&, SBytes&, CSpeed&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]EBytes = ReadBytes(\"Dial-Up Adapter\\BytesRecvd\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SBytes = ReadBytes(\"Dial-Up Adapter\\BytesXmit\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CSpeed = ReadBytes(\"Dial-Up Adapter\\ConnectSpeed\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If EBytes > -1 Then Label1.Caption = EBytes - e1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If SBytes > -1 Then Label2.Caption = SBytes - s1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If SBytes > -1 And EBytes <> e1 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label5.Caption = CSpeed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If LBytes < EBytes Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Q = (EBytes - LBytes) / (Timer1.Interval / 1000)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CNT = CNT + 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Q = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SUM = SUM + Q[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]QQ = SUM / CNT[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label6.Caption = \"[ \" & QQ & \" ] \" & Q[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]LBytes = EBytes[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Function ReadBytes(Entry$) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim hKey&, L&, X&, DW&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegOpenKeyEx(HKEY_DYN_DATA, \"PerfStats\\StatData\", 0, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]KEY_READ, hKey)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegQueryValueEx(hKey, Entry, 0&, DW, ByVal 0&, L)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegQueryValueEx(hKey, Entry, 0&, DW, ReadBytes, L)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RegCloseKey hKey[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Reset()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]e1 = ReadBytes(\"Dial-Up Adapter\\BytesRecvd\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s1 = ReadBytes(\"Dial-Up Adapter\\BytesXmit\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SUM = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CNT = 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]INTERNET BAGLANTI DURUMUNU OGRENMEK[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumConnections Lib \"RasApi32.dll\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumConnectionsA\" (lpRasCon As Any, lpcb As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Long, lpcConnections As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasGetConnectStatus Lib \"RasApi32.dll\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasGetConnectStatusA\" (ByVal hRasCon As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpStatus As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxEntryName = 256[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceType = 16[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceName = 32[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hRasCon As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASStatusType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RasConnState As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwError As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 200[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Function DFÜStatus() As Boolean[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim RAS(255) As RASType, RASStatus As RASStatusType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim lg&, lpcon&, Result&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RAS(0).dwSize = 412[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lg = 256 * RAS(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Result = RasEnumConnections(RAS(0), lg, lpcon)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If lpcon = 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Offline\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RASStatus.dwSize = 160[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If RASStatus.RasConnState = &H2000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Online\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Baglanti Kopuk\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Internet Bağlantısı Oluşturmak - kesmek[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceType = 16[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS95_MaxDeviceName = 128[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS95_MaxEntryName = 256[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASENTRYNAME95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS95_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASCONN95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hRasConn As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS95_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS95_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumConnections Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumConnectionsA\" (lprasconn As Any, lpcb As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Long, lpcConnections As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumEntries Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumEntriesA\" (ByVal reserved$, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpszPhonebook$, lprasentryname As Any, lpcb As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpcEntries As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasHangUp Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasHangUpA\" (ByVal hRasConn As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim DFÜname$, RCon As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub HangUp(ByVal Verbindung$)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s As Long, l As Long, ln As Long, aa$[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ReDim r(255) As RASCONN95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]r(0).dwSize = 412[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s = 256 * r(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]l = RasEnumConnections(r(0), s, ln)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For l = 0 To ln - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]aa = StrConv(r(l).szEntryName(), vbUnicode)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]aa = Left$(aa, InStr(aa, Chr$(0)) - 1)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If aa = Verbindung Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RCon = r(l).hRasConn[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim rec As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]rec = RasHangUp(RCon)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next l[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If List1.ListIndex = -1 Then Exit Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜname = List1.List(List1.ListIndex)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Shell \"rundll32.exe rnaui.dll,RnaDial \" & DFÜname[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendKeys \"{ENTER}\", True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendKeys \"{ENTER}\", True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.SetFocus[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command2_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call HangUp(DFÜname)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s As Long, ln As Long, i%, conname$[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim r(255) As RASENTRYNAME95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]r(0).dwSize = 264[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s = 256 * r(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call RasEnumEntries(vbNullString, vbNullString, r(0), s, ln)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For i = 0 To ln - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]conname = StrConv(r(i).szEntryName(), vbUnicode)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]List1.AddItem Left$(conname, InStr(conname, vbNullChar) - 1)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next i[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If List1.ListCount <> 0 Then List1.ListIndex = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Yakip Söndürme[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If Me.Visible = True Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.Visible = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.Visible = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 1000[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Kaydirma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Do Until Form1.Top = Screen.Height[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top + 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Loop[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ekran Koruyucu[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Public Sub drawcircle()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim red As Integer \'declare all varibles[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim blue As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim green As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim xPos As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim yPos As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]red = 255 * Rnd \'randomize red color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]blue = 255 * Rnd \'randomize blue color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]green = 255 * Rnd \'randomize green color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xPos = ScaleWidth / 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yPos = ScaleHeight / 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]radius = ((yPos * 0.99) + 1) * Rnd[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Circle (xPos, yPos), radius, RGB(red, blue, green)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call drawcircle[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Titreyen Form[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 22[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top + 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top - 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Left = Form1.Left - 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Left = Form1.Top + 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Yuvarlatma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim hr&, dl&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim usew&, useh&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]usew& = Me.Width / Screen.TwipsPerPixelX[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]useh& = Me.Height / Screen.TwipsPerPixelY[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hr& = CreateEllipticRgn(55, -20, usew, useh)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dl& = SetWindowRgn(Me.hWnd, hr, True)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Her Koseden Program Kapatma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Cmd1çıkış_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Do Until Form1.Height = 405 And Form1.Width = 1680[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = Form1.Height - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = Form1.Width - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Loop[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Caption = \"Form Move\"[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = 1680[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 200[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]On Error Resume Next[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For x = 0 To Form1.Height + 2000[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = x[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next x[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For y = 100 To Form1.Width + 1500[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = y[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next y[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Yanip Sonen Label[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Etrafa Carpan Top[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub topa_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub xgeri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.Left = topa.Left - 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.Left < 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xileri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xgeri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub xileri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.Left = topa.Left + 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.Left > 13000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xileri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xgeri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub ygeri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.top = topa.top - 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.top < 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yileri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ygeri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub yileri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.top = topa.top + 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.top > 9000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yileri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ygeri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin calismasini iptal etme[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function SystemParametersInfo Lib _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"user32\" Alias \"SystemParametersInfoA\" (ByVal uAction _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As Long, ByVal uParam As Long, ByVal lpvParam As Any, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ByVal fuWinIni As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Sub CtrlAltDeleteKapat(Kapali As Boolean)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim X As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = SystemParametersInfo(97, Kapali, CStr(1), 0)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete kombinasyonunu kapatmak için:[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call CtrlAltDeleteKapat(True)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete kombinasyonunu açmak için:[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call CtrlAltDeleteKapat(False)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function ReleaseCapture Lib \"user32\" () As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function SendMessage Lib \"user32\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As Long, ByVal wParam As Long, lParam As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const HTCAPTION = 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const WM_NCLBUTTONDOWN = &HA1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Const WM_SYSCOMMAND = &H112[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub label1_MouseDown(Button As Integer, Shift As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call ReleaseCapture[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]INTERNET BAGLANTI BILGILERINI ÖGRENMEK[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]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.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegOpenKeyEx Lib \"advapi32.dll\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"RegOpenKeyExA\" (ByVal hKey As Long, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpSubKey As String, ByVal ulOptions As Long, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]samDesired As Long, phkResult As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegCloseKey Lib \"advapi32.dll\" (ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hKey As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RegQueryValueEx Lib \"advapi32.dll\"Alias _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"RegQueryValueExA\" (ByVal hKey As Long, ByVal lpValueName _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As String, ByVal lpReserved As Long, lpType As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpData As Any, lpcbData As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const HKEY_DYN_DATA = &H80000006[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const KEY_READ = &H19[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const ERROR_SUCCESS = 0&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s1&, e1&, LBytes&, CNT&, Q&, QQ&, SUM&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Reset[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Reset[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]LBytes = e1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim EBytes&, SBytes&, CSpeed&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]EBytes = ReadBytes(\"Dial-Up Adapter\\BytesRecvd\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SBytes = ReadBytes(\"Dial-Up Adapter\\BytesXmit\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CSpeed = ReadBytes(\"Dial-Up Adapter\\ConnectSpeed\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If EBytes > -1 Then Label1.Caption = EBytes - e1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If SBytes > -1 Then Label2.Caption = SBytes - s1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If SBytes > -1 And EBytes <> e1 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label5.Caption = CSpeed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If LBytes < EBytes Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Q = (EBytes - LBytes) / (Timer1.Interval / 1000)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CNT = CNT + 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Q = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SUM = SUM + Q[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]QQ = SUM / CNT[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label6.Caption = \"[ \" & QQ & \" ] \" & Q[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]LBytes = EBytes[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Function ReadBytes(Entry$) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim hKey&, L&, X&, DW&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegOpenKeyEx(HKEY_DYN_DATA, \"PerfStats\\StatData\", 0, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]KEY_READ, hKey)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegQueryValueEx(hKey, Entry, 0&, DW, ByVal 0&, L)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = RegQueryValueEx(hKey, Entry, 0&, DW, ReadBytes, L)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If X <> ERROR_SUCCESS Then Exit Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RegCloseKey hKey[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Reset()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]e1 = ReadBytes(\"Dial-Up Adapter\\BytesRecvd\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s1 = ReadBytes(\"Dial-Up Adapter\\BytesXmit\")[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SUM = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]CNT = 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]INTERNET BAGLANTI DURUMUNU OGRENMEK[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumConnections Lib \"RasApi32.dll\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumConnectionsA\" (lpRasCon As Any, lpcb As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Long, lpcConnections As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasGetConnectStatus Lib \"RasApi32.dll\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasGetConnectStatusA\" (ByVal hRasCon As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpStatus As Any) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxEntryName = 256[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceType = 16[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceName = 32[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hRasCon As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASStatusType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RasConnState As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwError As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 200[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Function DFÜStatus() As Boolean[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim RAS(255) As RASType, RASStatus As RASStatusType[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim lg&, lpcon&, Result&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RAS(0).dwSize = 412[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lg = 256 * RAS(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Result = RasEnumConnections(RAS(0), lg, lpcon)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If lpcon = 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Offline\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RASStatus.dwSize = 160[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If RASStatus.RasConnState = &H2000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Online\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Label1.Caption = \"Baglanti Kopuk\" \'###[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜStatus = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Function[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Internet Bağlantısı Oluşturmak - kesmek[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Option Explicit[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS_MaxDeviceType = 16[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS95_MaxDeviceName = 128[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Const RAS95_MaxEntryName = 256[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASENTRYNAME95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS95_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Type RASCONN95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dwSize As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hRasConn As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szEntryName(RAS95_MaxEntryName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceType(RAS_MaxDeviceType) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]szDeviceName(RAS95_MaxDeviceName) As Byte[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Type[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumConnections Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumConnectionsA\" (lprasconn As Any, lpcb As _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Long, lpcConnections As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasEnumEntries Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasEnumEntriesA\" (ByVal reserved$, ByVal _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpszPhonebook$, lprasentryname As Any, lpcb As Long, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]lpcEntries As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function RasHangUp Lib \"RasApi32.DLL\" _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Alias \"RasHangUpA\" (ByVal hRasConn As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim DFÜname$, RCon As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub HangUp(ByVal Verbindung$)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s As Long, l As Long, ln As Long, aa$[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ReDim r(255) As RASCONN95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]r(0).dwSize = 412[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s = 256 * r(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]l = RasEnumConnections(r(0), s, ln)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For l = 0 To ln - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]aa = StrConv(r(l).szEntryName(), vbUnicode)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]aa = Left$(aa, InStr(aa, Chr$(0)) - 1)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If aa = Verbindung Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]RCon = r(l).hRasConn[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim rec As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]rec = RasHangUp(RCon)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next l[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If List1.ListIndex = -1 Then Exit Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]DFÜname = List1.List(List1.ListIndex)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Shell \"rundll32.exe rnaui.dll,RnaDial \" & DFÜname[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendKeys \"{ENTER}\", True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]SendKeys \"{ENTER}\", True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.SetFocus[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command2_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call HangUp(DFÜname)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim s As Long, ln As Long, i%, conname$[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim r(255) As RASENTRYNAME95[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]r(0).dwSize = 264[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]s = 256 * r(0).dwSize[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call RasEnumEntries(vbNullString, vbNullString, r(0), s, ln)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For i = 0 To ln - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]conname = StrConv(r(i).szEntryName(), vbUnicode)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]List1.AddItem Left$(conname, InStr(conname, vbNullChar) - 1)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next i[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If List1.ListCount <> 0 Then List1.ListIndex = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Yakip Söndürme[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If Me.Visible = True Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.Visible = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Else[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Me.Visible = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 1000[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Kaydirma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Do Until Form1.Top = Screen.Height[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top + 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Loop[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ekran Koruyucu[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Public Sub drawcircle()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim red As Integer \'declare all varibles[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim blue As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim green As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim xPos As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim yPos As Integer[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]red = 255 * Rnd \'randomize red color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]blue = 255 * Rnd \'randomize blue color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]green = 255 * Rnd \'randomize green color[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xPos = ScaleWidth / 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yPos = ScaleHeight / 2[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]radius = ((yPos * 0.99) + 1) * Rnd[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Circle (xPos, yPos), radius, RGB(red, blue, green)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call drawcircle[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Titreyen Form[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 22[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top + 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Top = Form1.Top - 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Left = Form1.Left - 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Left = Form1.Top + 50[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Formu Yuvarlatma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim hr&, dl&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim usew&, useh&[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]usew& = Me.Width / Screen.TwipsPerPixelX[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]useh& = Me.Height / Screen.TwipsPerPixelY[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]hr& = CreateEllipticRgn(55, -20, usew, useh)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]dl& = SetWindowRgn(Me.hWnd, hr, True)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Her Koseden Program Kapatma[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Cmd1çıkış_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Do Until Form1.Height = 405 And Form1.Width = 1680[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = Form1.Height - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = Form1.Width - 1[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Loop[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Unload Me[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_Load()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Caption = \"Form Move\"[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = 0[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = 1680[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Interval = 200[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Timer1_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]On Error Resume Next[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For x = 0 To Form1.Height + 2000[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Height = x[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next x[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For y = 100 To Form1.Width + 1500[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Form1.Width = y[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Next y[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Timer1.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Yanip Sonen Label[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbBlue[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbGreen[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]For X = 1 To 5000: DoEvents: Next X[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]label1.ForeColor = vbRed[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Etrafa Carpan Top[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub Command1_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub topa_Click()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub xgeri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.Left = topa.Left - 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.Left < 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xileri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xgeri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub xileri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.Left = topa.Left + 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.Left > 13000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xileri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xgeri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub ygeri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.top = topa.top - 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.top < 0 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yileri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ygeri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Sub yileri_Timer()[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]topa.top = topa.top + 100[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]If topa.top > 9000 Then[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yileri.Enabled = False[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ygeri.Enabled = True[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End If[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin calismasini iptal etme[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Private Declare Function SystemParametersInfo Lib _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]\"user32\" Alias \"SystemParametersInfoA\" (ByVal uAction _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]As Long, ByVal uParam As Long, ByVal lpvParam As Any, _[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ByVal fuWinIni As Long) As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Sub CtrlAltDeleteKapat(Kapali As Boolean)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Dim X As Long[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]X = SystemParametersInfo(97, Kapali, CStr(1), 0)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete kombinasyonunu kapatmak için:[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call CtrlAltDeleteKapat(True)[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Ctrl-Alt-Delete kombinasyonunu açmak için:[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Call CtrlAltDeleteKapat(False)[/FONT]
